麻辣家族討論版版 » Excel程式區 » 該如何確認sheet name?

返回列表下一主題上一主題發帖

[發問] 該如何確認sheet name?

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-12-16 13:31 | 只看該作者

[發問] 該如何確認sheet name?

要確認sheet名字是否為"廠商一"，使用:
If Sheets(2).Name = "廠商一" Then

若是該檔案只有一個sheet則會出現錯誤，如果我想確認檔案中是否有"廠商一"這個sheet改如何寫呢?

樓主熱帖

收藏

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

2^#

發表於 2014-12-16 13:51 | 只看該作者

回復 1# acdx
Excel裡面可以有很多個sheet, 但是必須有一個sheet叫做"廠商一"
也就是該如何確認sheet"廠商一"這個sheet存在?

中學生 Rank: 2

帖子: 59
主題: 5
精華: 0
積分: 75
點名: 127
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 基隆
註冊時間: 2012-7-5
最後登錄: 2024-5-10

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

3^#

發表於 2014-12-16 14:38 | 只看該作者

Sub test1()
For i = 1 To Sheets.Count
If Sheets(i).Name = "廠商一" Then
MsgBox "『廠商一』存在"
Exit Sub
End If
Next
MsgBox "『廠商一』不存在"
End Sub

複製代碼

回復 2# acdx

靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。

返回列表下一主題上一主題