[已解决][求助]帮我设置一个右键快捷键

新月妹妹

在Excel表格中“跨列居中”只能在单元格格式里面去调整。
请高手帮我做一个右键的快捷键，把这个“跨列居中”调入右键菜单。
以后就直接右键去选择就可以用了。谢谢

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-9 14:00

1. 
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3.     With Application.CommandBars("cell")
   
4.         .Reset  
   
5.         End With
   
6. End Sub
   
7. Private Sub Workbook_Open()
   
8.     ' 单元格区域右键菜单
   
9.     With Application.CommandBars("cell")
   
10.         .Reset
    
11.         ' 添加控件
    
12.         With .Controls.Add(Type:=msoControlButton)
    
13.             .Caption = "跨列居中"                   ' 标题
    
14.             .BeginGroup = True                      ' 分类，添加分隔线
    
15.             .OnAction = "跨列居中"                  ' 指定处理过程
    
16.         End With
    
17.     End With
    
18. End Sub
    
19. 
    

复制代码

上面两个放到  thisworkbook 里面

1. Sub 跨列居中()
   
2.     Selection.HorizontalAlignment = xlCenterAcrossSelection
   
3. End Sub

复制代码

这一个放到模块里面

跨列居中右键菜单建立.rar (9 KB, 下载次数: 25)

2012-1-9 14:01 上传

点击文件名下载附件

跳转到最佳答案楼层

sunjing-zxl

1. 
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3.     With Application.CommandBars("cell")
   
4.         .Reset  
   
5.         End With
   
6. End Sub
   
7. Private Sub Workbook_Open()
   
8.     ' 单元格区域右键菜单
   
9.     With Application.CommandBars("cell")
   
10.         .Reset
    
11.         ' 添加控件
    
12.         With .Controls.Add(Type:=msoControlButton)
    
13.             .Caption = "跨列居中"                   ' 标题
    
14.             .BeginGroup = True                      ' 分类，添加分隔线
    
15.             .OnAction = "跨列居中"                  ' 指定处理过程
    
16.         End With
    
17.     End With
    
18. End Sub
    
19. 
    

复制代码

上面两个放到  thisworkbook 里面

1. Sub 跨列居中()
   
2.     Selection.HorizontalAlignment = xlCenterAcrossSelection
   
3. End Sub

复制代码

这一个放到模块里面

跨列居中右键菜单建立.rar (9 KB, 下载次数: 25)

2012-1-9 14:01 上传

点击文件名下载附件

新月妹妹

谢谢，好快的速度啊，几分钟就解决问题了

菜鸟锐

2楼的是专家啊！！！！！

aloneww

好好学习，谢谢楼主