作者：乔山办公网日期：
返回目录：excel表格制作
在工作表sheet1标签上击右zd键，查看代内码
粘贴以容下代码，就行了
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Call AAA
End Sub
1、先选中要转换格式的一个单元格，记住一定要先选中它，然后点击录制宏。
百查看大图" class="ikqb_img_alink">
2、打度开录制宏对话框，你可以给宏起一个名字，帮助你以后使用的时候方便，将其保存在个人宏中，然后点击确定按钮
3、接下内来我们几开始录制宏了，右键单击已经被选中的单元格，在右键菜单中选择：单元格格式
4、选择一批想要转换格式的容数据，如图所示，然后点击工具栏上面的【宏】就可以了。
你可以在某一个单元格中记录下点击次数，用MOD 2来判断，余数是0执行宏A，余数是1执行宏B
楼主来应该发现这些类模块中的事件前面的声明：Private Sub
既然是 Private 的，那自又如何能够允许你百跳出某个类模块而去执行另外一个类模块中的 Private 的子程序呢？更何况度你去执行工作簿的 Open 事件，而且这个工作簿已问经被打开了，又何答来再次发生 Open 事件呢？