Tag: 全局

如何将Excel工作表读入数据表

我试图解决我在应用程序中遇到的这个问题。 我正在为excel做一个附加excel，而且我从来没有做过。 我需要做的是在Excel中打开一个Excel文件，然后我需要使用Globals.ThisAddIn.Application.ActiveWorkbook来访问工作簿，并从4个工作表中检索数据到一个数据表。 没有与build设的联系，我不得不直接与打开的书。 我一直在这个工作，并没有取得任何进展。 任何帮助或指针，将不胜感激。

在VBA中访问全局variables（Excel）

我从来没有在VBA中使用过全局variables，但是我知道全局variables是在函数/子声明之外实例化的吗？ 我有一个全局（公共）variables声明在一个模块的顶部，然后由同一个模块内的一个子例程赋予一个值为0。 Option Explicit Public NumNodes As Integer Sub Inst_Glob_Vars() NumNodes = 0 End Sub 只要打开工作簿（在“ThisWorkbook”对象中调用子），就会调用此子例程，该子例程也将实例化全局variables并设置0值。 Option Explicit Private Sub Workbook_Open() Call Inst_Glob_Vars End Sub 我在Excel表单中有一个button，点击后会增加这个全局variables。 该button的定义在Sheet1对象中。 Private Sub CommandButton2_Click() 'NumNodes = NumNodes + 1 Debug.Print "NumNodes = " & NumNodes 'Debug End Sub 我是否需要在variables的每个模块/对象中声明全局/公共variables？ 每次点击button，variables都不会递增，而是在debugging时给出一个空/空值。 我肯定没有正确地声明我的全局variables，但不知道我在哪里犯错误。 更新：这里是更新的命令button子。 如果我注释掉第二个子调用（Node_Button_Duplication），一切工作正常。 有可能是这个问题引起的问题 Private Sub CommandButton2_Click() Call Channel_Selection_Duplication […]

相交命令失败，具有不同的图纸范围

我试图创build一个自我更新下拉列表。 为了达到这个目的，我find了一个代码，并将其改写为我的工作簿。 如果代码在名为“default”的工作表中，但是当我尝试将其redirect到另一个工作表时，它会在下面的代码中进行填充，出现此错误（方法'intersect'object'_global failed“ 如果相交（Target，Worksheets（“default”）。Range（“c”＆count_cells + 1））是Nothing Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim count_cells As Integer Dim new_value As String Dim old_value As String For count_cells = 1 To Worksheets("default").Range("c2:c400").CurrentRegion.Rows.Count – 1 If Intersect(Target, Worksheets("default").Range("c" & count_cells + 1)) Is Nothing Then Else Application.EnableEvents = False new_value = Target.Value Application.Undo old_value […]