彰化一整天的論壇

 找回密碼
 立即註冊
查看: 793|回復: 0

檢查工作表名稱是否存在

[複製鏈接]
發表於 2013-10-16 11:07:43 | 顯示全部樓層 |閱讀模式
本帖最後由 imingho 於 2013-11-1 09:46 編輯
  1. Function check_sheet(ByVal objSheet, ByVal strSheetName)
  2.     '檢查工作表名稱是否存在
  3.     check_sheet = False
  4.     For i = 1 To objSheet.Parent.Sheets.Count
  5.         If objSheet.Parent.Sheets(i).Name = strSheetName Then
  6.            check_sheet = True
  7.            Exit For
  8.         End If
  9.     Next
  10. End Function
複製代碼
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  |网站地图

GMT+8, 2019-10-18 20:18 , Processed in 0.103202 second(s), 19 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表