返回目录：excel表格制作
rivate Sub CommandButton1_Click()；
If Me.Columns("B").Width = 0 Then；
Me.Columns("B").Hidden = False；
Me.Columns("D").Hidden = False；
Me.Columns("F").Hidden = False；
Else
Me.Columns("B").Hidden = True；
Me.Columns("D").Hidden = True；
Me.Columns("F").Hidden = True；
End If
Visual Basic for Applications（VBA）是Visual Basic的一种宏语言，是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能，特别是Microsoft Office软件。也可说是一种应用程式视觉化的Basic 脚本。
该语言于1993年由微软公司开发的的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA)，实际上VBA是寄生于VB应用程序的版本。微软在1994年发行的Excel5.0版本中，即具备了VBA的宏功能。
由于微软Office软件的普及，人们常见的办公软件Office软件中的Word、Excel、Access、Powerpoint都可以利用VBA使这些软件的应用更高效率。
例如：通过一段VBA代码，可以实现画面的切换；可以实现复杂逻辑的统计（比如从多个表中，自动生成按合同号来跟踪生产量、入库量、销售量、库存量的e799bee5baa6e79fa5e98193e78988e69d83332统计清单）等。
一个窗体上有一个按钮，我想给这个按钮设置个快捷键，比如按O就=用鼠标点击了这个按钮就好了
试试 call 模块1.宏一
TopLeftCell 左上单元格
BottomRightCel 右下单元格
这2个单元格构复成的区域就是控件放置的位置
如果他们制不是在同一个单元格，也就是说控件不在一个单元格内百的话，
怎么表示他们的行号列标呢？
就用度坐上单元格的行号列标吧
ActiveSheet.Shapes("Button 1").TopLeftCell.Row 行号
ActiveSheet.Shapes("Button 1").TopLeftCell.Column 列标
-----------------------------------
.address 返回知单元给地址。 例如如果单元格是道A1，那么返回字符串"$A$1"