VBA常用技巧代码解析

yuanzhuping

原帖由 menghuazhang 于 2009-3-19 20:00 发表
袁版主，您好：
   技巧10         禁用单元格拖放功能。我发现，单元格被禁用拖放功能后如果想复制该单元格所在的行到另外一个工作簿的某一行，粘贴功能被禁止。

   也就是说，单元格被禁用拖放功能后是不能进行 ...

即然禁用了拖放功能也就禁用了复制粘贴功能，鱼和熊掌不可兼得。

[ 本帖最后由 yuanzhuping 于 2009-4-2 20:02 编辑 ]

yuanzhuping

原帖由 zgs514 于 2009-3-19 22:09 发表
感谢楼主,提一个问题,在工作簿中当选定某一工作表时自定义菜单显现,而选定其他表自定义菜单隐藏的代码如何写

工作表的Private Sub Worksheet_Activate()事件中添加，Private Sub Worksheet_Deactivate()事件中删除。

[ 本帖最后由 yuanzhuping 于 2009-4-2 20:03 编辑 ]

flybirdgfy

楼主我有这本实战技巧精粹  很是实用

hetai

版主辛苦了，我已照单全收了，谢谢

jm200099

来学东西了

liechun1983

楼主,你太好了!

随心所欲

先下着吧,等有空再看

yuanzhuping

技巧89         创建自定义工具栏
       为了方便用户操作，在Excel原有的的工具栏上，还可以创建自定义的工具栏，如下面的代码所示。

1. #001  Sub NowToolbar()
   
2. #002      Dim arr As Variant
   
3. #003      Dim id As Variant
   
4. #004      Dim i As Integer
   
5. #005      Dim Toolbar As CommandBar
   
6. #006      On Error Resume Next
   
7. #007      Application.CommandBars("MyToolbar").Delete
   
8. #008      arr = Array("会计凭证", "会计账簿", "会计报表", "凭证打印", "账簿打印", "报表打印")
   
9. #009      id = Array(9893, 284, 9590, 9614, 707, 986)
   
10. #010      Set Toolbar = Application.CommandBars.Add("MyToolbar", msoBarTop)
    
11. #011          With Toolbar
    
12. #012              .Protection = msoBarNoResize
    
13. #013              .Visible = True
    
14. #014              For i = 0 To 5
    
15. #015                  With .Controls.Add(Type:=msoControlButton)
    
16. #016                      .Caption = arr(i)
    
17. #017                      .FaceId = id(i)
    
18. #018                      .BeginGroup = True
    
19. #019                      .Style = msoButtonIconAndCaptionBelow
    
20. #020                  End With
    
21. #021              Next
    
22. #022          End With
    
23. #023      Set Toolbar = Nothing
    
24. #024  End Sub

复制代码

代码解析：
       NowToolbar过程使用Add方法在Excel窗口中创建自定义工具栏。应用于CommandBars对象的Add方法请参阅技巧83 。
       第10行代码，使用Add方法在菜单栏上创建名称为“MyToolbar”的命令栏，创建时设置新命令栏的Position参数为msoBarTop，使新命令栏位于应用程序窗口的顶部。如果将Position参数设置成msoBarFloating，新命令栏为浮动工具栏，如图所示。

       关于Position参数的MsoBarPosition常数请参阅技巧83。
       第12行代码，设置“MyToolbar”命令栏的Protection属性为msoBarNoResize。应用于CommandBar对象的Protection属性指定命令栏的保护类型，可以为表格所列的MsoBarProtection常数之一。

       第14行到第21代码，使用Add方法在新命令栏中添加按钮控件，设置按钮控件的各项属性。其中第19行代码，设置按钮控件的Style属性为msoButtonIconAndCaptionBelow，使工具栏按钮显示时包含图标和标题，且标题位于图标之下。
       应用于CommandBar对象的Style属性返回或设置工具栏按钮的显示方式，可以为表格所列的MsoButtonStyle常数之一。

       运行NowToolbar过程，将在Excel窗口的顶部创建一个自定义的工具栏，如图所示。

yuanzhuping

技巧90         自定义工具栏按钮图标
       在创建自定义的工具栏时，除了可以为工具栏按钮添加Excel内置的图标外，还能为工具栏按钮添加自定义的图标，如下面的代码所示。

1. #001  Sub AddCustomButton()
   
2. #002      Dim xBar As CommandBar
   
3. #003      Dim xButton As CommandBarButton
   
4. #004      On Error Resume Next
   
5. #005      Application.CommandBars("CustomBar").Delete
   
6. #006      Set xBar = CommandBars.Add("CustomBar", msoBarTop)
   
7. #007      Set xButton = xBar.Controls.Add(msoControlButton)
   
8. #008      With xButton
   
9. #009          .Picture = LoadPicture(ThisWorkbook.Path & "\P.BMP")
   
10. #010          .Mask = LoadPicture(ThisWorkbook.Path & "\M.BMP")
    
11. #011          .TooltipText = "Excel Home 论坛"
    
12. #012      End With
    
13. #013      xBar.Visible = True
    
14. #014      Set xBar = Nothing
    
15. #015      Set xButton = Nothing
    
16. #016  End Sub

复制代码

代码解析：
       AddCustomButton过程创建自定义工具栏，并设置工具栏的按钮自定义图标。
       第6、7行代码，使用Add方法在Excel窗口中添加自定义工具栏和按钮。请参阅技巧89 。
       第9行代码，设置工具栏按钮的Picture属性为同一目录中的p.bmp图片。
       应用于CommandBarButton 对象的Picture属性返回一个IPictureDisp对象，表示 CommandBarButton对象的图像，语法如下：
expression.Picture
       参数是必需的，返回一个CommandBarButton对象。
       指定对象的Picture属性就能设置对象的图像。
       第10行代码，设置工具栏按钮的Mask属性为同一目录中的m.bmp图片。
       为了使工具栏按钮图标透明显示，在指定对象的Picture属性后，还需要指定对象的Mask属性。
       应用于CommandBarButton 对象的Mask属性返回表示CommandBarButton对象的屏蔽图像的IPictureDisp对象，语法如下：
expression.Mask
       参数是必需的，返回一个CommandBarButton对象。
       屏蔽图像决定按钮图像透明的部分。在创建作为屏蔽图像使用的图像时，所有要透明的区域应该为白色，所有要显示的区域应该为黑色。
       第11行代码，设置按钮的“屏幕提示”为“ExcelHome论坛”。
       运行AddCustomButton过程，创建自定义工具栏，并设置工具栏按钮的图标，如图所示。

yuanzhuping

技巧91         自定义工作簿图标
      Excel标题栏的图标是默认的，而借助API函数可以自定义工作簿标题栏图标，如下面的代码所示。

1. #001  Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
   
2. #002  Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
   
3. #003  Private Declare Function SetFocus Lib "user32" (ByVal hWnd As Long) As Long
   
4. #004  Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
   
5. #005  Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
   
6. #006  Private Const WM_SETICON = &H80
   
7. #007  Private Sub Workbook_Open()
   
8. #008      Dim IStyle As Long
   
9. #009      Dim hIcon As Long
   
10. #010      Dim hWndForm As Long
    
11. #011      hWndForm = FindWindow(vbNullString, Application.Caption)
    
12. #012      hIcon = ExtractIcon(0, ActiveWorkbook.Path & "\p.bmp", 0)
    
13. #013      SendMessage hWndForm, WM_SETICON, True, hIcon
    
14. #014      SendMessage hWndForm, WM_SETICON, False, hIcon
    
15. #015  End Sub

复制代码

代码解析：
       工作簿打开后使用API函数自定义工作簿标题栏的图标。
       第1行到第6行代码，API函数声明。
       第7行到第15行代码，工作簿的Open事件过程，把工作簿标题栏默认的图标更改为同一文件夹下的p.bmp图片。
       工作簿打开后标题栏如图所示。
      
       任务栏图标如图所示。