» 有沒有Excel VBA大神 求教一個(gè)問題
The UserFrom will display a list of all worksheets in the workbook, including visible,
hidden, and very hidden. The list will include the all worksheets, and their visible
status.
要求做一個(gè)用戶界面，應(yīng)該是用combobox做一個(gè)下拉菜單 里面能看見所有的工作表和它們的可見情況
顯示所有工作表的代碼已經(jīng)寫好了
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
ComboBox1.AddItem ws.Name
Next
End Sub
但有什么方法再能顯示它們的可見情況呢？
網(wǎng)友評(píng)論2014-05-27 13:21
沒人嗎 感覺好難的樣子
網(wǎng)友評(píng)論2014-05-27 13:22
ComboBox1.AddItem ws.Name + Str(ws.Visible)
1就是可見 0就是不可見
網(wǎng)友評(píng)論2014-05-27 13:59
Reply Post by 卜部みこと (2014-05-27 13:22):
ComboBox1.AddItem ws.Name + Str(ws.Visible)
1就是可見 0就是不可見
謝謝大神 測(cè)試過 可以了
那能不能讓1 0 變成visible invisible呢？這樣直觀點(diǎn)
網(wǎng)友評(píng)論2014-05-27 14:09
Reply Post by stmlugia (2014-05-27 13:59):
謝謝大神 測(cè)試過 可以了
那能不能讓1 0 變成visible invisible呢？這樣直觀點(diǎn)
Dim ws As Worksheet
Dim str As String
For Each ws In Worksheets
Select Case ws.Visible
Case xlSheetVisible
str = "Visible"
Case xlSheetHidden
str = "Invisible"
Case xlSheetVeryHidden
str = "Invisible"
Case Else
str = "Unknown"
End Select
ComboBox1.AddItem ws.Name + "-" + str
Next
網(wǎng)友評(píng)論2014-05-27 14:15
Reply Post by 卜部みこと (2014-05-27 14:09):
Dim ws As Worksheet
Dim str As String
For Each ws In Worksheets
Select Case ws.Visible
Case xlSheetVisible
str = "Visible"
Case xlSheetHidden
str = "Invisible"
Case xlSheetVeryHidden
str = "Invisible"
Case Else
str = "Unknown"
End Select
ComboBox1.AddItem ws.Name + "-" + str
Next
就是這種效果 十分感謝！
網(wǎng)友評(píng)論2014-05-27 14:30
