Tag: excel vba

为什么单元格（1,1）= 500 * 100会导致溢出，但50000 * 100不会？

那么，我刚刚创build了一个简单的子，它给出了溢出的错误。 不过，我看不出代码有什么问题，而且50000 * 100远大于500 * 100，这真的很奇怪。 sub add() 'This will cause an overflow error cells(1,1) = 500 * 100 'But this won't cells(2,2) = 50000 * 100 end sub

Excel VBA中的“！=”是什么？

问题是， !=在excel vba中不起作用。 我想能够使用 If strTest != "" Then而不是If strTest = "" Then 除了!=还有另外一种方法吗？ 我的function模仿!=是 Sub test() Dim intTest As Integer Dim strTest As String intTest = 5 strTest = CStr(intTest) ' convert Range("A" + strTest) = "5" For i = 1 To 10 Cells(i, 1) = i If strTest = "" Then Cells(i, 1) […]

我怎样才能刷新我的Excel工作簿中的所有数据透视表？

我有一个工作簿20个不同的数据透视表。 有没有简单的方法来find所有的透视表，并在VBA中刷新它们？

在单元格更改时自动执行Excelmacros

每当特定单元格中的值发生更改时，如何自动执行Excelmacros？ 现在，我的工作代码是： Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("H5")) Is Nothing Then Macro End Sub 其中"H5"是被监视的特定单元， Macro是Macro的名称。 有没有更好的办法？

如何在Excel中将列中的行合并到一个单元格中？

例如 A1:I A2:am A3:a A4:boy 我想把它们全部合并成一个单元格“Iamaboy” 这个例子显示了4个单元格合并到1个单元格中，但是我有很多单元格（超过100个），我不能使用A1 & A2 & A3 & A4逐个地input它们，我该怎么办？

打破了一阵子… Wend循环

我正在使用VBA的Wend循环。 Dim count as Integer While True count=count+1 If count = 10 Then ''What should be the statement to break the While…Wend loop? ''Break or Exit While not working EndIf Wend 我不想使用条件，如“虽然计数<= 10 … Wend

我如何在VBA中声明一个全局variables？

我写了下面的代码： Function find_results_idle() Public iRaw As Integer Public iColumn As Integer iRaw = 1 iColumn = 1 我收到错误消息： “Sub或Function”中的无效属性 你知道我做错了吗？ 我试图使用Global而不是Public ，但也得到了同样的问题。 我试图把这个函数本身声明为“Public”，但这也没有什么好处。 我需要做什么来创build全局variables？

在Excel中循环范围的每一行

这是我确信有一个内置函数（以前我可能已经被告知了这个函数）的其中一个，但是我正在抓我的脑袋去记住它。 如何使用Excel VBA遍历多列范围的每一行？ 我一直在寻找的所有教程似乎只是提到了一个一维范围的工作…

将列号转换为字母的函数？

有没有人有一个Excel VBA函数可以返回一个数字的列字母？ 例如，input100应该返回CV 。

Excel VBA – 退出for循环

当内部条件满足时，我想退出我的for循环。 if条件满足时，我怎么能退出我的for循环？ 我想在我的if语句结尾有些退出，但不知道如何工作。 Dim i As Long For i = 1 To 50 Range("B" & i).Select If Range("B" & i).Value = "Artikel" Then Dim temp As Long temp = i End If Next i Range("A1:Z" & temp – 1).EntireRow.Delete Shift:=xlToLeft