如何创建一个ActiveX按钮并添加代码（告诉它什么子运行）使用vba？
我想在工作表中创建一个ActiveX按钮，并为其分配一个代码（即告诉它要运行什么子，那个子已经存在）。 我可以创建按钮：（记录） ActiveSheet。 OLEObjects.Add（ClassType：=“Forms.CommandButton.1”，Link：= False _ ，DisplayAsIcon：= False，Left：= 41395.5882352941，To
..
Office
重新初始化“ThisWorkbook.Path”
首先，感谢那些给我的使用“ThisWorkbook.Path”的建议。它的作用就像一个魅力。 但是，我的代码遍历七（7）个工作簿，当使用“ThisWorkbook.Path”时，我无法重新初始化“This”。工作簿”。请详细说明。 这是宏所在的工作簿： 工作簿（“Financial_Aggregator_v3.xls”）。激活 这是代码添加的第一个工作簿一个选项卡
..
Excel验证列表增加字体大小
可以通过宏增加Excel验证列表的字体大小吗？ 如果没有有用的解决方法？ 解决方案 不是默认情况下 但是有一个简单的解决方法。请参阅Debra Dagleish的示例在她的Contextures网站 - 数据验证的非常全面的参考。 / p>
..
从每个Excel选项卡中提取表格数据，并将数据粘贴到单个工作表上
我有一个具有75个选项卡的excel电子表格 - 每个选项卡的格式都与两列文字相同。我想要所有这些数据只在一个页面上，但我不知道如何以编程方式从每个选项卡中提取表，并将其粘贴到单个选项卡上。 有没有办法在Excel中执行此操作？ 好的，这是我试过的代码： Sub Macro5（） 范围“A1：B30”）。选择 Selection.Copy 表格（“表1”）。选择 Se
..
Excel VBA - 获取图表数据范围
我想将数据添加到一堆现有的图表中。假设每个图表具有不同数量的数据序列，并且原始数据的位置位于相同的工作簿中。这是我开始的： 对于iChart = 1 To iCount ActiveSheet.ChartObjects（“Chart”& ; iChart）.Activate intSeries = 1 直到ActiveChart.SeriesCollection（intSer
..
无法为VBA中的序列创建算法
因此，我请求您的帮助以创建以下顺序： 例如给出的是起始代码：6D082A 第一个位置（“A”）来自一个16个元素的数组这个序列： 数组（“0”，“1”，“2”，“3”，“4”，“5”，“6”，“7”，“8”，“9” A“，”B“，”C“，”D“，”E“，”F“） 第3到第5位（082）至999 第二名（“D”）具有从“A”到“Z”的值 第一个位置（6）的值为1-9 所
..
在没有执行excel的情况下，Workbook_Open（）不会执行
使用excel 2007我编写了一个宏，我想从Workbook_Open（）调用开始（放在“thisWorkbook”中）。 这样工作正常只要这是一个新的“excel会话”，因此它将与xlsm-file / I一起启动excel并加载该文件。 但是一旦excel已经运行，不执行Workbook_Open（）函数。宏必须在加载工作簿后手动启动。 要澄清：即使没有其他工作簿打开，也会
..
VBA-Excel公式参考 - 计算刷新
这是我的的跟进上一篇文章。我成功地能够在不同的驱动器上打开一个不同的工作簿，将一个范围内的数据复制为图片，然后将其粘贴到 ThisWorkbook 中。我正在运行的问题现在是使用 .CopyPicture 我正在使用的是捕获单元格值，因为它们的计算结果看起来像一堆＃N /请求数据... 值。 我已经使用了几个不同的东西来看看我是否可以在复制前得到公式来计算他们，但似乎电子表格不会跟随计算，直
..
对于多个条件，使用自动过滤器功能
我有一张表，我想过滤T和U列中的空白行。 我有某些情况需要考虑。 我有几个缺少的行，并将它们表示为在列S中丢失。如果它们丢失，我不希望他们被考虑用于过滤条件。默认为空白。 另一种情况是，列T和U中的任何一行都被找到空白，必须被过滤。如果两列都为空，也必须进行过滤。 我附上了一张图片供参考。有人可以建议我怎么做吗我是VBA的初学者，任何一个领导都是有帮助的。 Sub
..
VBA复杂的Getter，Setter语法
嗨，我比较新的VBA我需要创建一个相对复杂的Getter和Setter的对象。为了做到这一点，我不断检查 MSDN ，但显然我不明白一些因为VBE保持突出显示行的开始和关闭：属性（它需要Get或Let ??），Get（它显然需要标识符），让（它显然也需要标识符）。 但是我试图遵循更简洁的符号，其中Get和Let方法属于Microsoft在其示例中使用的属性声明（参见上面的链接）。有人可以告诉
..
Excel VBA AutoFilter用户选择运行时错误1004
此工作簿的目的是跟踪不同的工作，通过供应商或参考号，具有简单使用的前端（内容页面），仅由按钮和搜索框组成（其实际上不是单独的框，而仅仅是内容表单元格J8的内容（以下简称J8）。 按钮将按供应商类型进行过滤（并且工作完美），但用户选择我是遇到麻烦。 我的这个宏的代码是： Sub Find_Click（） Dim userSelect As String userSelect
..
防止用户选择多个单元格
我使用以下代码让用户选择要编辑的单元格。 Application.InputBox（提示：=“单击要编辑的单元格”，标题：=“单元格编辑” ，类型：= 8） 如何更改我的代码，以便他们只能选择一个单元格时间？ 解决方案 这是你正在尝试的吗？ Sub Sample（） Dim r As Range Do On Error Resume Next
..
在粘贴Excel VBA之前对范围进行排序
我正在使用以下代码将特定范围从工作簿复制到另一个工作簿，其工作 但是现在我需要在粘贴到目的地表之前按升序排列 Range 来源。请帮助。 使用工作簿（strExcelFile）.Sets（strSheetName） .Range（strRange）.Copy 结束 ActiveSheet.Range（strDestCell）.PasteSpecial粘贴：= xlValues
..
避免在excel中出现多个错误弹出消息
$ b Private Sub Workbook_SheetChange（ByVal Sh As Object，ByVal Target As Range） '验证范围是否仍然有验证？ 如果Not HasValidation（范围（“A1：A1048576”））然后RestoreValidation 如果不是hasValidation（范围（“C1：C1048576”））然后RestoreV
..
最有效的方法是在VBA中的全等范围内添加单元格值？
我需要将任意（但相同）大小的两个范围的值相加。输入1中的A1与input2中的A1相加，然后输出到输出单元格A1中。我需要结束值，而不是公式或链接。 使用循环这比预期慢很多（目前为15分钟以上）。手动执行不需要太长时间。也许我可以预先制作一些隐藏的工作表，填写一个附加公式，然后在VBA中基本上模仿人类如何手动做，但感觉到沮丧。跨多个工作表复制粘贴不应更有效率。同上线连接起来。读他们的阵列呢？
..
如何显示内置Excel功能的进度条？
我有一个Excel表设置，大约40,000个值需要通过用户窗体进行排序。为此，我使用... myTable.Sort.SortFields.Add范围（strSortBy），xlSortOnValues，xlDescending，xlSortNormal myTable.Sort.Apply ...其中myTable是表，strSortBy是标题的列我想排序。
..
基于另一个单元格的值改变单元格的值
我拥有2000多行的表单，在单元格S中，我有一些值，基于单元格S，我需要更改单元格V中的值 ，例如，如果值的单元S为3552比单元格V = 241 else V = 240 代码需要检查每一行 tnx 解决方案 需要在vba中完成 尝试这一个： Sub test（） Dim lastrow As Long '更改Sheet1以适合 使用ThisWorkb
..
MS Office 2013 - VBA密码安全
我想知道MS Office 2013上的VBA密码是否安全。 我在网上搜索过，有一些网站销售软件来做，是否可靠？ 我想开发围绕我的办公室文件的一些安全性，这取决于内部的VBA代码，但如果vba代码可以轻松更改/看到这是非常有意义的。 谢谢 解决方案 使用这个答案如下：是有没有办法在Excel VBA项目中破解密码？ 而不是做所有的十六进制的东西。你可以试试这个。它将
..
使用VBA从数据透视图获取可见项列表
我使用下面的代码来循环通过一个透视字段来获取可见的枢纽项。但是当枢轴字段位于行标签中时， pivotitem.count 给出了一个0。当我将这个枢轴字段移动到列标签时，代码正在工作精细。但我需要这个字段留在行标签。 我的问题有任何工作吗？ Dim pt作为PivotTable Dim pf As PivotField Dim pvtitem As PivotItem
..
Vba Excel“自动化错误”来自SHA256和HMACSHA256功能
目前在我的代码中出现自动化错误（请注意，此错误仅发生在Windows 10上） 设置oUTF = CreateObject（“System.Text.UTF8Encoding”） 设置oEnc = CreateObject（“System.Security.Cryptography.SHA256Managed”） 这是完整的功能 功能HMACSHA256（strT
..