Tag: vba

如何清除整个arrays？: 我有一个这样的数组： Dim aFirstArray() As Variant 如何清除整个arrays？怎么样收集？

数组Excel VBA中元素的返回索引: 我有一个数组prLst是一个整数列表。整数不sorting，因为它们在数组中的位置表示电子表格上的特定列。我想知道如何在数组中find一个特定的整数，并返回它的索引。似乎没有任何资源显示如何将数组转换为工作表上的范围。这似乎有点复杂。 VBA这只是不可能的吗？

VB – 如何testing是否提供可选参数？: 如何testing是否提供可选参数？ – 在VB6 / VBA中 Function func (Optional ByRef arg As Variant = Nothing) If arg Is Nothing Then <—– run-time error 424 "object required" MsgBox "NOT SENT" End If End Function

VBA：testingstring是否以string开头？: 在VBA中，testing一个string是否以子string开始的最直接的方法是什么？ Java已经启动了。是否有VBA等效？

正确处理VBA中的错误（Excel）: 我一直在使用VBA已经有一段时间了，但我仍然不太确定error handling。好文章是CPearson.com之一不过，我仍然想知道如果我以前做ErrorHandling的方式是完全错误的： Block 1 On Error Goto ErrCatcher If UBound(.sortedDates) > 0 Then // Code Else ErrCatcher: // Code End If If子句，因为如果它是真的，它将被执行，如果失败，Goto将进入Else部分，因为一个数组的Ubound不应该是0或更less，没有错误，这个方法工作得很好至今。如果我理解正确的话，应该是这样的： Block 2 On Error Goto ErrCatcher If Ubound(.sortedDates) > 0 Then // Code End If Goto hereX ErrCatcher: //Code Resume / Resume Next / Resume hereX hereX: 甚至像这样： Block 3 […]

VBA检查是否设置了对象: 我有一个全局variables是我的自定义类的一个实例。如何检查对象是否已设置，或者是否需要初始化？

如何保护Excel中的单元格，但允许通过VBA脚本修改这些单元格: 我正在使用Excel中某些字段被允许用户input，其他单元格将被保护。我已经使用了工具保护工作表，但是在这样做之后，我无法更改VBA脚本中的值。我需要限制工作表停止用户input，同时允许VBA代码根据某些计算更改单元格值。

Chart.SetSourceData的重复调用会出现错误1004: 我在我公司的Excel 2003中创build的应用程序出现问题。应用程序从源检索数据并使用VBA例程中的SetSourceData更新Chart，从而传递包含写入相关数据的单元格的Range。应用程序在Office 2003中运行良好，但在Office 2010中执行应用程序时，会出现此错误：运行时错误“1004”：object'_Chart的方法'SetSourceData'失败。我在Office 2010中的一个简单的Excel文件中创build了一个For循环，并且取决于在范围内传递给图表的列数，迟早会出现错误。越来越多的列通过范围越早出现。我想这必须与图表中的系列数量相关（更多系列更多）。这是在Office 2010中实现的图表对象或系列中的某种机制/缓冲区吗？当它在Office 2003中运行时， For循环从不显示问题，我不知道如何解决此问题。到目前为止，我只能使用Goto指令删除控制错误的所有系列，使用For Each循环删除SeriesCollection中的所有系列，以select图表的SeriesCollection中的所有对象。如果我这样做，并在再次通过范围时继续执行应用程序，则所有数据都将正确绘制在“图表对象”中。重现错误的示例。以下代码将放入新的Excel 2010工作簿中的VBA模块中。运行Sub setDataChart ，应用程序将运行，直到显示错误消息。 Sub setDataChart() Call createAColValues ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SetSourceData Source:=Range("A1:FA6"), PlotBy:=xlColumns ActiveSheet.ChartObjects(1).Activate With ActiveChart.Parent .Height = 325 .Width = 900 .Top = 120 .Left = 10 End With Call updateValues […]

如何在Excel VBA中使用实现: 我试图为一个工程项目实现一些形状，并将其抽象为一些常见的function，以便我可以有一个通用的程序。我想要做的是有一个名为cShape的接口，并有cRectangle和cCircle实现cShape 我的代码如下： cShape界面 Option Explicit Public Function getArea() End Function Public Function getInertiaX() End Function Public Function getInertiaY() End Function Public Function toString() End Function cRectangle类 Option Explicit Implements cShape Public myLength As Double ''going to treat length as d Public myWidth As Double ''going to treat width as b Public Function getArea() getArea […]

迭代VBA词典？: 我正在使用MS Runtime脚本库中的Dictionary类来存储标签将要用于报告模板的位置。有没有办法像在Python中一样迭代该字典中的所有键值对？我只是想使用键作为行号（这一切都在列A），值将是标签的头。就像是： For Each key in dict Range("A" & key).Value = dict(key) Next key