按Alt+F11,打开VBA编辑器,单击菜单“插入→模块”,在代码窗口中输入下列代码: Function GetSheetName(idx As Integer, Optional relative_position As Boolean) As String Application.Volatile GetSheetName = Sheets(IIf(relative_position, ActiveSheet.index – -idx, idx)).Name End Function 上述代码定义了一个...
按Alt+F11，打开VBA编辑器，单击菜单“插入→模块”，在代码窗口中输入下列代码：Function GetSheetName(idx As Integer, Optional relative_position As Boolean) As String Application.Volatile GetSheetName = Sheets(IIf(relative_position, ActiveSheet.index – -idx, idx)).Name End Function 上述代...
可以选择工作表对象后,在属性窗口修改工作表对象名称,例如下图2所示,将“Sheet1”修改为“excelperfet”。 图2 本文将介绍这两种代表工作表的名称在VBA中的表示及应用。 Name属性 在VBA中,使用Name属性获取或者设置工作表名称,即工作簿底部工作表标签显示的...
Function Intsheet(x As Integer) If x = 0 Then Intsheet = ActiveCell.Parent.Name ElseIf x > 0 And x <= Sheets.Count Then Intsheet = Sheets(x).Name ElseIf x > Sheets.Count Then MsgBox "超出范围" End If Application.Volatile End Function 取当前工作表名称 =Intsheet(0) 取第N个工作表...
Function GetSheetName(idx As Integer, Optional relative_position As Boolean) As StringApplication.VolatileGetSheetName = Sheets(IIf(relative_position, ActiveSheet.index – -idx, idx)).NameEnd Function 上述代码定义了一个自定义函数GetSheetName,有两个参数:“idx”为工作表的索引号,“relative_position ...
If SheetExists Then '操作代码 Else MsgBox "工作表" & strSheetName &"不存在!" End If End Sub 注意,Run方法的第一个参数是要调用的函数的名称,后面的参数为自定义函数的参数。 在VBE的“立即窗口”中调用Function过程 可以使用“立即窗口”,方...
Intsheet(x As Integer)If x = 0 ThenIntsheet = ActiveCell.Parent.NameElseIf x > 0 And x <= Sheets.Count ThenIntsheet = Sheets(x).NameElseIf x > Sheets.Count ThenMsgBox "超出范围"End IfApplication.VolatileEnd Function取当前工作表名称=Intsheet(0)取第N个工作表名称=Intsheet(N)N为正...
Name ' 移动到下一行 i = i + 1 End If Next ws End Sub Function GetOrCreateSheet(sheetNameBase As String, ByRef counter As Integer) As Worksheet Dim sheetName As String Dim ws As Worksheet sheetName = sheetNameBase Do While SheetExists(sheetName) counter = counter + 1 sheetName = ...
Function GetSheetName() As String GetSheetName = Application.ActiveSheet.Name End Function 这个函数名为GetSheetName,它使用Application对象的ActiveSheet属性来获取当前活动的工作表,并返回其名称。 在Excel中使用这个函数的步骤如下: 打开Excel文件。 按下ALT + F11打开Visual Basic for Applications编辑器。 在编...
sheetName 外部工作簿sheet表格名称 tableName外部数据导入内存库后,数据存入的表名 precontition 前置条件,表示前置条件执行完毕后,再执行该函数,该参数可以选择前置条件单元格公式区域,如果没有前置条件,该函数缺省不填。 前文介绍如何导入外部数据。如果数据来自当前工作簿,这时可以使用ETTable_create函数,将选区数据载...