Tag: vba

什么是最快的方法来转换arrays字母数字的每个成员？: 最后的最终结果：我想知道下面的结果是否改变，如果string更长。我在同一台计算机上运行完全相同的testing，除了每个单元有一个34个字符的随机string，而不是四个。这是结果： Comintern (Regexp): 136.1 ms brettdj (Regexp): 139.9 ms Slai (Regexp): 158.4 ms *Original Regex: 161.0 ms* Comintern (AN): 170.1 ms Comintern (Hash): 183.6 ms ThunderFrame: 232.9 ms *Original replace: 372.9 ms* *Original InStr: 478.1 ms* CallumDA33: 1218.1 ms 这真正显示了正则expression式的速度 – 使用Regex.replace的所有解决scheme都显着加快，最好的是实现了共产国际。总之，如果string很长，使用数组，如果它们很短，则使用剪贴板。如果不确定，最好的结果是使用数组，但是这可能会牺牲短string的一些性能。最终结果：非常感谢您的build议，显然我还有很多东西要学。我昨天一直在想这个，所以我决定在家里重新运行一切。这是最后的结果，基于将其中的每一个应用到三万四个字符的string。我家里的电脑是英特尔i7 @ 3.6 GHz，8GB内存，64位Windows […]

Excel选项卡表名称与Visual Basic表名称: 看来，Visual Basic不能根据用户修改的工作表名称来引用工作表。工作表选项卡可以更改其名称，但似乎Visual Basic仍将工作表名称视为Sheet1等，尽pipe工作簿选项卡已被更改为有用的东西。我有这个： TABname = rng.Worksheet.Name ' Excel sheet TAB name, not VSB Sheetx name. 但我想在Visual Basic例程中使用图表名称。到目前为止我所能得到的最好的结果是select大小写工作表选项卡与Visual Basic名称，这并不是我的一天。 Visual Basic必须知道Sheet1，Sheet2等名称。我怎么能得到这些与Excel选项卡名称相关联，以便我不必维护一个查找表，哪个更改与每个新的工作表或工作表选项卡重命名？提前感谢您的回复。

ActiveSheet.UsedRange.Columns.Count – 8是什么意思？: 什么ActiveSheet.UsedRange.Columns.Count – 8在vba中的意思？ vba如何知道usedRange？

将Excel电子表格数据导入另一个包含VBA的Excel电子表格: 我们需要写一个VBA代码的Excel电子表格，该代码读取和执行第一个工作表中的数据的操作。用户将会收到包含数据但不包含VBA代码的电子表格。我们需要能够将包含数据的电子表格中的数据自动导入到包含VBA代码的电子表格中。包含数据的工作表与包含数据的电子表格的工作表具有相同的列格式和数据types。理想情况下，您将打开包含VBA代码的电子表格，显示一个允许用户导航到包含数据的电子表格的UI，单击确定，数据将被导入。你怎么去做这个？它必须在Excel电子表格中使用VBA来完成。非常感谢。

VBA – 使用数字select列？: 我正在寻找这个code的替代品，但使用数字。我想select5列，起始列是一个variables，然后从中select5列。 Columns("A:E").Select 我如何使用integers来引用列？像下面的东西？ For n = 1 to 5 Columns("n : n + 4") .select do sth next n 谢谢。 Gemmo

使用VBA将Excel工作表保存在当前目录中: 我在Excel中创build了一个工作表。我想将它保存在当前目录中，但不能保存在绝对path中，那么在其他地方执行时，就不会有问题了。有人可以帮忙吗？

分割逗号分隔条目到新行: 我目前在一张表中有这个数据 Col A Col B 1 angry birds, gaming 2 nirvana,rock,band 我想要做的是在第二列中拆分逗号分隔的条目，并插入像下面这样的新行： Col A Col B 1 angry birds 1 gaming 2 nirvana 2 rock 2 band 我相信这可以用VBA来完成，但不能自己弄清楚。

如何停止VBA代码运行？: 假设我的电子表格中embedded了一个button，可以启动一些VBAfunction。 Private Sub CommandButton1_Click() SomeVBASub End Sub Private Sub SomeVBASub DoStuff DoAnotherStuff AndFinallyDothis End Sub 我想有一个机会，有一种“取消”button，可以在任意时刻停止SomeVBASub执行，而且我不会在这里涉及到Ctrl+Break ，因为我想静静的。我想这应该是相当普遍的问题，有什么想法？谢谢。

如何在csv中将长数字导入excel，而无需在VBA中转换为科学记数法: 我用下面的这段代码打开了分号分隔的txt文件，长文件号在保存到excel之后显示为科学记数法，无论格式设置为文本那一栏。我在这里做错了什么？ Application.ScreenUpdating = False Workbooks.OpenText fileName:=Filetxt, Origin:=xlWindows, StartRow _ :=2, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _ ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False, _ Space:=False, Other:=False, Local:=True, _ FieldInfo:=Array(Array(1, 4), Array(2, xlTextFormat) 'Save text file as csv file Set wb = ActiveWorkbook Application.DisplayAlerts = False wb.SaveAs fileName:=fileXls, FileFormat:=6, _ ReadOnlyRecommended:=False, _ CreateBackup:=False Application.DisplayAlerts = True wb.Close savechanges:=True 在txt文件中logging如下所示：2011-12-21; 100,00;“21375000120000010020601764” 而当我打开新保存的文件，我看到2.117500012E […]

为什么我不能将我的工作簿定义为对象？: 为什么我不能以这些方式定义工作簿？（我有范围在那里只是一个快速testing。）我该如何解决？这会产生一个"Compile Error: Type Mismatch" Sub Setwbk() Dim wbk As Workbook Set wbk = "F:\Quarterly Reports\2012 Reports\New Reports\ _ Master Benchmark Data Sheet.xlsx" Range("A2") = wbk.Name End Sub 这会创build一个"Runtime Error '91': Object variable or with block variable not set" Sub Setwbk() Dim wbk As Workbook wbk = "F:\Quarterly Reports\2012 Reports\New Reports\ _ Master Benchmark […]