Tag: vba

通过代码在包装单元格中插入换行符: 是否可以通过VBA代码在换行中插入换行符？（类似于手动input数据时按Alt – Enter ）我已经通过VBA代码将单元格的wrap文本属性设置为True，并且还通过VBA代码向其中插入数据。

如何确定VBA中使用的最后一行，包括两者之间的空格: 我如何确定Excel工作表中的最后一行，包括中间的一些空行？有了这个function： Function ultimaFilaBlanco(col As String) As Long Dim lastRow As Long With ActiveSheet lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, col).End(xlUp).row End With ultimaFilaBlanco = lastRow End Function 而这个数据： Row 1 : Value Row 2 : Value Row 3 : Value Row 4 : Value Row 5 : Value Row 6 : White Row 7 : Value Row […]

Excel VBA：分配键盘快捷键来运行程序: 当我在VBA编辑器中按F5键时，我总是想运行我的“Sub Skynet（）”程序。有没有办法将键盘快捷键分配给这个过程。

当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 等等。 […]

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要求确认删除表单？