Tag: vba

在循环中更改For循环的长度: 我有一堆代码，通过一组数据，然后find数据进入下一个值步骤（5单位增量）的行。当find这个位置时，插入5行，在这些行中，STDEVP，MIN，MAX和AVERAGE在该数据块的范围内计算。 input后，循环继续遍历数据，直到碰到最后一行（lastRowvariables）。代码如下所示： Sub sectionBlocking() Dim lastRow As Integer Dim lastColumn As Integer Dim sectionLastRow As Integer Dim initialValue As Double Dim cellDifference As Double Dim stepSize As Integer Dim firstCell As Integer Dim lastCell As Integer firstCell = 2 lastCell = 2 initialValue = 84 stepSize = 5 lastRow = Range("A1").End(xlDown).Row lastColumn = […]

如何在Excel中初始化vba中的multidimensional arrayvariables: 微软网站build议下面的代码应该工作： Dim numbers = {{1, 2}, {3, 4}, {5, 6}} 但是，当我尝试在excel VBA模块中使用它时，我收到了一个complile错误。以下工作适用于一维数组： A = Array(1, 2, 3, 4, 5) 然而，我还没有设法find一种方法来做一个二维数组。有任何想法吗？

取消保护没有密码的工作簿: 我有一个stream行的VBA代码来解除工作表的保护，但是我仍然遇到了工作簿受到保护的问题。 Sub PasswordBreaker() 'Breaks worksheet password protection. Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 […]

强制垃圾收集: 有没有办法强制在VBA / Excel 2000垃圾收集？这个问题涉及Excel中的macros语言。不使用VB .NET来操作Excel。所以GC.collect（）将不起作用

在VBA中编写下标值: 我有一个string： Range("T4").Value = "Rule 13s voilation" 我想写13s像13s 秒即3和s是1的下标。请build议我应该如何去在vba中

如何将范围从excel存储到范围variables？: 我正在使用VBA读取excel的一些单元格。 Function getData(currentWorksheet as Worksheet, dataStartRow as Integer, _ dataEndRow as Integer, DataStartCol as Integer, dataEndCol as Integer) Dim dataTable as Range dataTable = currentWorksheet.Range(currentWorksheet.Cells(dataStartRow, _ dataStartCol), currentWorksheet.Cells(dataEndRow, dataEndCol)) getData = dataTable EndFunction 它会抛出一个错误，对象variables或块variables未设置。如何把这个范围在一个variables？请指导我

Excelselect案例？: 我想创buildExcel的“案例”公式来模拟select大小写行为（与多个参数，否则可选）。如果A1和A2是优秀单元格，这是目标： A1 Case: A2 Formula: A2 Result 5 cases({A1>5,"greather than 5"}, {A1<5, "less than 5"},{else,"equal to 5"}) equal to 5 Hi cases({A1="","there is nothing"},{else,A1}) Hi 1024 cases({5<A1<=10,10},{11<=A1<100,100},{A1>100,1000}) 1000 12 cases({A1=1 to 9, "digit"}, {A1=11|22|33|44|55|66|77|88|99, "11 multiple"}) (empty) 60 cases({A1=1 to 49|51 to 99,"not 50"}) not 50 如果可以的话，它必须接受excel公式或vba代码，才能在一个案例之前对单元格进行操作，ig cases({len(A1)<7, "too short"},{else,"good length"}) 如果可以的话，它必须接受一个或更多的细胞来评估，ig 如果A2 = […]

对象必需的错误Excel VBA: 我正在创build一个VBA应用程序，我有以下代码： Dim previousCell As range Private Sub Worksheet_SelectionChange(ByVal target As range) Application.EnableEvents = False On Error GoTo ws_exit: Set previousCell = target getEffort (previousCell) '**Here i get object required** ws_exit: Application.EnableEvents = True MsgBox Err.Description End Sub Private Function getEffort(ByVal cell As range) ' do soemthing End Sub 我不知道为什么我得到的错误消息： Object required error at getEffort(previousCell) 。 […]

VBA Excelmacros删除带有string的表格: 我已经使用了一些VBA代码来search某个string的工作簿中的所有工作表名称，我们称之为“文本” 。当它find带有该string的工作表时，应该删除该工作表。但是假设名称中有“文本” （名为文本1 ，文本2 ，文本3和文本4 ）的四张表格，而不是全部删除，则删除文本1和文本3 。它留下第二和第四作为非删除。然后，如果我再次调用macros，它会删除文本2，但会留下文本4 。最后，如果我再次点击它删除文本4.我不能解决它为什么看起来应该工作。 Dim i As Integer, n As Integer n = ThisWorkbook.Worksheets.Count i = 1 Application.DisplayAlerts = False Application.ScreenUpdating = False Do On Error Resume Next If InStr(1, Sheets(i).Name, "Text") Then Sheets(i).Delete On Error GoTo 0 i = i + 1 Loop […]

在单元格MS Excel vba中放置一个命令button: 我想通过VBA代码在单元格中放置一个命令button。说出位置B3。我为此使用了macroslogging器，但它给了我button的最低值。我不想要这样，如果我把我的代码与其他屏幕分辨率的其他计算机，代码将失败。单元格位置（示例B3）将是绝对位置。你能build议我这样做吗？ PS它是一个activeXbutton 谢谢