【问题】
下面这段代码中，定义tb为功能区类型，并且遍历了功能区。
在Select Case e.tb.Name中，用 e.tb.Name 表示当前的功能区。
但是，在代码编辑器确认的时候，出现下面的问题。
为什么呢？ 怎么解决呢？
此主题相关图片如下：定义的功能区tb不被接受.png
【代码】
For Each tb As Ribbonmenu.Tab In RibbonTabs
For Each g As RibbonMenu.Group In tb.Groups
For Each itm As object In g.items
Select Case e.tb.Name
Case "功能区A"
If g.Name = tb.Groups("功能组A").Name Then
If itm.Name = e.Sender.Name Then
Forms("窗口1").open()
Forms("窗口1").text = "产品分类: " & e.Sender.Text ' 窗口个性化 !
End If
End If
Case "功能区B", "功能区C"
MainTable = Tables(e.Sender.name)
For Each cl As Col In Tables(e.Sender.name).Cols
cl.Visible = True
Next
Tables(e.Sender.Name).filter = ""
End Select
加好友 
发短信
Post By：2019/4/27 19:13:00 [显示全部帖子]
