Tag: vba

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

VB真的不区分大小写？: 我不是想在这里开始一个论点，但是无论出于什么原因，通常都声称Visual Basic不区分大小写，而C语言不是（也不过是一件好事）。但是这里是我的问题：Visual Basic是不区分大小写的？当我input… Dim ss As String Dim SS As String …到Visual Studio 2008或Visual Studio 2010 IDE中，第二个警告“ 本地variablesSS已在当前块中声明 ”。在VBA VBE中，它不会立即踢出错误，而只是自动纠正这种情况。我是否在这里错过了一些与Visual Basic不区分大小写的参数？（另外，如果你知道还是很在意，那为什么会这样呢？）我为什么问这个问题？我已经在很多方言中使用了Visual Basic，有时候是作为一个业余爱好者，有时候也是在一个工作组中，与小型商业相关的程序。截至过去六个月，我一直在做一个比我预期的要大得多的大项目。大部分示例源代码都在C＃中。我没有任何学习C＃的渴望，但是如果有什么东西我错过了C＃提供的Visual Basic没有（相反将是VB.NET提供XML文字），那么我想了解更多关于这个function。所以在这种情况下，人们经常认为C语言是区分大小写的，这很好，而Visual Basic不区分大小写，这是不好的。我想知道… Visual Basic如何不区分大小写，因为代码编辑器中的每个示例都会变成大小写敏感的（意思是情况得到更正），无论是否需要如果VB.NET的情况是限制我可以用代码做什么，这是足够的引人注目，我考虑转移到C＃？

我可以同时在VBA中声明和分配一个variables吗？: 我是VBA的新手，想知道是否可以将以下声明和赋值转换为一行： Dim clientToTest As String clientToTest = clientsToTest(i) 要么 Dim clientString As Variant clientString = Split(clientToTest)

VBA Debug.Print在哪里login？: Debug.Print输出消息在哪里？

如何在Office VBA编辑器中评论和取消注释代码块: 在Office的VBA编辑器（ ALT + F11 ）中，您如何评论或取消注释一段代码？

如何检查vbamacros中的空数组: 我想检查空数组。谷歌给了我不同的解决scheme，但没有奏效也许我没有正确应用它们。 Function GetBoiler(ByVal sFile As String) As String 'Email Signature Dim fso As Object Dim ts As Object Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.GetFile(sFile).OpenAsTextStream(1, -2) GetBoiler = ts.ReadAll ts.Close End Function Dim FileNamesList As Variant, i As Integer ' activate the desired startfolder for the filesearch FileNamesList = CreateFileList("*.*", False) ' […]

在VBA中删除文件: 使用VBA，我该如何： testing一个文件是否存在，如果是的话，删除它？

如何使用类似于VB.NET的方式在VBA中使用类对象模块之间的比较方法？: 由于VBA中的新项目，我从VB.NET中移出，说实话，并不真正知道如何在这里处理对象类。我想要达到的是比较不同的类对象模块之间的对象。例如 class级员工属性： Name ， Age 要点是：比较两个员工之间的Name 类：员工和经理要点是：比较员工 Name和经理 Name 我知道如何在VB.NET中，但如何比较VBA中不同类模块对象的属性？

如果当*值*是指定的那个时，Not函数继续: 我试图编写一个脚本，检查另一个工作表中的重复值，但我不能得到它的工作。在线路problem ，If函数总是继续，无论是否设置为If Not或If 。 LocatedCell不等于Nothing。我相信这是一个明显的错误，但我无法理解。 Sub mailer_followuptest() Application.ScreenUpdating = False 'Remove matching contacts data from last run Dim wsDel As Worksheet Application.DisplayAlerts = False Err.Clear On Error Resume Next Set wsDel = Sheets("Matching Contacts") wsDel.Delete Dim mailerSheet As Worksheet Set mailerSheet = Worksheets("Call data") Set MatchingContacts = Sheets.Add MatchingContacts.Name = "Matching Contacts" Dim […]

Excel VBA – 将具有重复值的行组合到一个单元格中，并合并其他单元格中的值: 我想在一列中find重复值，并将第二列的值组合成一行。我也想总结第三栏的值。例如： ABCD h 4 w 3 h 4 u 5 h 4 g 7 h 4 f 4 k 9 t 6 k 9 o 6 k 9 p 9 k 9 j 1 会成为 ABCD k 9 t;o;p;j 22 h 4 w;u;g;f 19 我已经使用的代码的第一部分是 Sub mergeCategoryValues() Dim lngRow As Long With ActiveSheet […]