Tag: vba

在VBA中从shell命令捕获输出值？

find这个functionhttp://www.cpearson.com/excel/ShellAndWait.aspx 但是也需要从shell输出中捕获输出。 任何代码build议？

使用VBA在excel中融化/重塑？

我正在调整一个新的工作，我与同事分享的大部分工作都是通过MS Excel进行的。 我经常使用数据透视表，因此需要“堆叠”的数据，就是我为此所依赖的R中reshape （reshape2）包中的melt()函数的输出。 任何人都可以让我开始在VBAmacros来完成这个，还是已经存在？ macros观纲要是： 在Excel工作簿中select一个单元格范围。 开始“融化”的macros。 macros将创build一个提示，“inputID列的数量”，在那里你可以input识别信息的前几列。 （例如下面的R代码是4）。 在标题为“melt”的excel文件中创build一个新的工作表，用于堆叠数据，并创build一个名为“variable”的新列，与原始select的数据列标题相同。 换句话说，输出看起来和R中简单执行这两行的输出完全一样： require(reshape) melt(your.unstacked.dataframe, id.vars = 1:4) 这是一个例子： # unstacked data > df1 Year Month Country Sport No_wins No_losses High_score Total_games 2 2010 5 USA Soccer 4 3 5 9 3 2010 6 USA Soccer 5 3 4 8 4 2010 5 CAN Soccer 2 […]

在VBA（excel）中循环行的最有效/最快捷的方法是什么？

我知道Excel中的VBA不是最快的东西 – 但是我需要最有效的（即最快的）方法来循环大量样本行。 目前我有： For Each c In Range("$A$2:$A$" & Cells(Rows.count, "A").End(xlUp).row ' do stuff Next c “做的东西”包括在这里和那里插入一行（所以我需要保持范围的dynamic查找。） 任何想法（看10,000行+）？ 编辑我已经在使用 Application.ScreenUpdating = False Application.Calculation = xlManual

如何计算excel中的行数与数据？

列A有这样的数据（即频繁的空白单元格）： HEADING <– this is A1 kfdsl fdjgnm fdkj gdfkj 4353 fdjk <– this is A9 我希望能够得到有数据的最后一个单元格的单元格引用。 所以在上面的例子中，我想返回： A9 我已经尝试过，但它停在第一个空白单元格（即返回A4 ） numofrows = destsheet.Range("A2").End(xlDown).Row – 1

是否有一个JSONparsing器VB6 / VBA？

我正在尝试在VB6中使用Web服务。 我所控制的服务当前可以返回SOAP / XML消息或JSON。 我有一个非常困难的时间搞清楚，如果VB6的SOAPtypes（版本1）可以处理返回的object – 而不是简单的types，如string ， int等等。到目前为止，我不知道我需要做什么来获得VB6玩返回的对象。 所以我想我可能会将该服务中的响应序列化为JSONstring。 对于VB6是否存在JSONparsing器？

如何从VBA函数返回结果

如何从函数返回结果？ 例如： Public Function test() As Integer return 1 End Function 这给编译错误。 我如何使这个函数返回一个整数？

还有/或在VBA中

我试图通过执行以下操作在Excelmacros中获得“And”的懒惰评估： If Not myObject Is Nothing *And* myObject.test() Then 'do something' Else 'do something else' End If 我知道在VB.NET中存在的懒惰评价为AndAlso和OrElse但在VBA中找不到类似的东西。 如果在VBA中不存在懒惰的评估，那么构build代码的最好方法是什么，以便评估我期望的方式？

如何将事件添加到使用VBA在Excel中运行时创build的控件

我想在Excel中使用VBA在运行时添加一个控件和相关的事件，但我不知道如何添加事件。 我尝试了下面的代码，并且在我的用户窗体中正确创build了button，但是应该显示hello消息的关联的单击事件不起作用。 任何build议/更正将受到欢迎。 Dim Butn As CommandButton Set Butn = UserForm1.Controls.Add("Forms.CommandButton.1") With Butn .Name = "CommandButton1" .Caption = "Click me to get the Hello Message" .Width = 100 .Top = 10 End With With ThisWorkbook.VBProject.VBComponents("UserForm1.CommandButton1").CodeModule Line = .CountOfLines .InsertLines Line + 1, "Sub CommandButton1_Click()" .InsertLines Line + 2, "MsgBox ""Hello!""" .InsertLines Line + 3, "End […]

popupExcel状态栏？

我正在开发一个需要很长时间才能运行的excel应用程序，所以最好有一个进度条popup来，并给出一些进度指示。 我正在看Excel中的Statusbar属性，它似乎涵盖了我所需要的，除了它不是很明显，即它是在左下angular的一个小小的通知，如果我没有想到我不会注意到我觉得很不满意。 有没有办法让状态栏popup一个新的MsgBox样式窗口类似于您可能期望在Windows上的文件传输？ 实际显示在Excel表格中的进度条types对象并不理想，我正在寻找更好的解决scheme。 我在Windows上使用Office 2010。

是否需要在VBA函数中将对象设置为Nothing

我总是读到，一旦我完成了它，build议将对象设置为无。 但是我通常只在表单里面使用它们。 当函数作用域保留时，是不是引用丢失和内存释放，而不pipe将对象设置为Nothing？ 即真的有必要这样做： Set db = Nothing Set record_set = Nothing