Sub Test() Dim sheetName As String sheetName = "Sheet1" If WorksheetExists(sheetName) Then MsgBox "工作表已存在!" Else MsgBox "工作表不存在!" End If End Sub 在上述示例中,我们将要检查的工作表名称传递给WorksheetExists函数,并根据返回的结果显示相应的消息框。
II.VBA function to Check if Sheet Exists III.VBA Worksheet Exists with specific Name in Workbook This Excel vba code will check if sheet with a specific name exists in the workbook. As per Microsoft specifications, You can add as many number of sheets depending on the limits of Your compute...
Sub testWorksheetIsExists() Dim ws As Worksheet Dim str As String str = "Sheet3" '指定工作表名称 '如果工作表存在,则将该工作表赋值给变量 If WorksheetIsExists(str)Then Set ws =Worksheets(str) Else Set ws = Nothing End If '如果工作表...
If HasSheet(strSheetName) Then '操作代码 Else MsgBox "工作表" & strSheetName &"不存在!" End If End Sub 除了直接使用自定义函数名调用该函数外,还可以使用Application对象的Run方法来调用,如下面的代码所示: Sub test() Dim strSheetName As...
WorksheetExists = True Exit FunctionErrHandle: WorksheetExists = FalseEnd Function示例说明:在测试代码中,用相应的工作簿名和工作表名分别代替“ThisWorkbook”和“Sheet1”,来判断指定工作表是否在工作簿中存在。[示例02]Sub testWorksheetExists2() If Not SheetExists("<工作...
Sub testWorksheetIsExists() Dim ws As Worksheet Dim str As String str = 'Sheet3' '指定工作表名称 '如果工作表存在,则将该工作表赋值给变量 If WorksheetIsExists(str)Then Set ws =Worksheets(str) Else Set ws = Nothing End If '如果工作表存在,则在该工作表单元格A1中输入值 If Not ws Is Not...
291 <一些编程方法和技巧> 292 [示例04-16] 判断一个工作表(名)是否存在 293 [示例04-16-01] 294 Sub testWorksheetExists1() 295 Dim ws As Worksheet 296 If Not WorksheetExists(ThisWorkbook, "sheet1") Then 297 MsgBox "不能够找到该工作表", vbOKOnly 298 Exit Sub 299 End If 300 MsgBox "...
Sub testSheetExists() MsgBox "测试工作簿中是否存在指定名称的工作表" Dim b As Boolean b = SheetExists("<指定的工作表名>") If b = True Then MsgBox "该工作表存在于工作簿中." Else MsgBox "工作簿中没有这个工作表." End If End Sub ...
Sub test() Dim sht_slea As Worksheet Dim rng As Range Set sht_slea = Worksheets("SLEA") Set rng = sht_slea.Range("D2:D5, B2:B5") rng.Interior.ColorIndex = 3 End Sub 结果如下:3. 操作单元格对象 单元格,即Cell。不过在VBA里面,这个Cell得加上个s,即Cells,然后在连带着的括号里面...
Sub test() Dim sht_slea As Worksheet Dim rng As Range Set sht_slea = Worksheets("SLEA") Set rng = sht_slea.Range("D2:D5, B2:B5") rng.Interior.ColorIndex = 3 End Sub 结果如下:3. 操作单元格对象 单元格,即Cell。不过在VBA里面,这个Cell得加上个s,即Cells,然后在连带着的括号里面...