» 有没有Excel VBA大神 求教一个问题
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.
要求做一个用户界面，应该是用combobox做一个下拉菜单 里面能看见所有的工作表和它们的可见情况
显示所有工作表的代码已经写好了
Private Sub UserForm_Initialize()
Dim ws As Worksheet
For Each ws In Worksheets
ComboBox1.AddItem ws.Name
Next
End Sub
但有什么方法再能显示它们的可见情况呢？
网友评论2014-05-27 13:21
没人吗 感觉好难的样子
网友评论2014-05-27 13:22
ComboBox1.AddItem ws.Name + Str(ws.Visible)
1就是可见 0就是不可见
网友评论2014-05-27 13:59
Reply Post by 卜部みこと (2014-05-27 13:22):
ComboBox1.AddItem ws.Name + Str(ws.Visible)
1就是可见 0就是不可见
谢谢大神 测试过 可以了
那能不能让1 0 变成visible invisible呢？这样直观点
网友评论2014-05-27 14:09
Reply Post by stmlugia (2014-05-27 13:59):
谢谢大神 测试过 可以了
那能不能让1 0 变成visible invisible呢？这样直观点
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
网友评论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
就是这种效果 十分感谢！
