[已解决]窗体下拉菜单建立

qihaizhong2013

    利用窗体下拉菜单控制打开隐藏的工作表并也自动进入打印预览

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-4-16 19:03

你插入一窗体。
F7，粘贴这些代码

1. Dim cb As CommandBar
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4.     If cb Is Nothing Then Exit Sub
   
5.     cb.ShowPopup
   
6. End Sub
   
7. 
   
8. Private Sub UserForm_Initialize()
   
9.     On Error Resume Next
   
10.     CommandBars("test").Delete
    
11.     Set cb = CommandBars.Add("test", msoBarPopup)
    
12.     With cb
    
13.         With .Controls.Add(msoControlButton)
    
14.             .Caption = "取消隐藏工作表"
    
15.             .Visible = True
    
16.             .OnAction = "test1"
    
17.         End With
    
18.         With .Controls.Add(msoControlButton)
    
19.             .Caption = "打印预览"
    
20.             .Visible = True
    
21.             .BeginGroup = True
    
22.             .OnAction = "test2"
    
23.         End With
    
24.     End With
    
25. End Sub
    
26. 
    
27. Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
28.     If Button = 2 And Shift = 0 Then
    
29.         If cb Is Nothing Then Exit Sub
    
30.         cb.ShowPopup
    
31.     End If
    
32. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

打开隐藏就是设置工作表的visible属性
打印预览的话刷用PrintPreview方法就行。

hwc2ycy

工作表，单元格，工作簿对像里都有PrintPreview方法可以调用。

hwc2ycy

你插入一窗体。
F7，粘贴这些代码

1. Dim cb As CommandBar
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4.     If cb Is Nothing Then Exit Sub
   
5.     cb.ShowPopup
   
6. End Sub
   
7. 
   
8. Private Sub UserForm_Initialize()
   
9.     On Error Resume Next
   
10.     CommandBars("test").Delete
    
11.     Set cb = CommandBars.Add("test", msoBarPopup)
    
12.     With cb
    
13.         With .Controls.Add(msoControlButton)
    
14.             .Caption = "取消隐藏工作表"
    
15.             .Visible = True
    
16.             .OnAction = "test1"
    
17.         End With
    
18.         With .Controls.Add(msoControlButton)
    
19.             .Caption = "打印预览"
    
20.             .Visible = True
    
21.             .BeginGroup = True
    
22.             .OnAction = "test2"
    
23.         End With
    
24.     End With
    
25. End Sub
    
26. 
    
27. Private Sub UserForm_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    
28.     If Button = 2 And Shift = 0 Then
    
29.         If cb Is Nothing Then Exit Sub
    
30.         cb.ShowPopup
    
31.     End If
    
32. End Sub

复制代码

hwc2ycy

再插入一个模块，粘贴代码

1. Private Sub test2()
   
2.     Debug.Print ActiveSheet.Name
   
3.     ActiveSheet.PrintPreview
   
4. End Sub
   
5. 
   
6. Private Sub test1()
   
7.     MsgBox "test1"
   
8. End Sub

复制代码

hwc2ycy

运行窗体后，在窗体中右键，就有菜单，仅供参考。
只实现了打印预览功能（如果是空白工作表，选中该项无效果）
取消隐藏 只显示了一个对话框。

hwc2ycy

应该是可以直接调用系统的取消隐藏和打印预览这两个功能的。

qihaizhong2013

非常感谢，可是你说的太专业了，这回我写了一个附件你看看应该怎样操作，