Question

如何在excel中让一个工作表的代码在多个工作表中使用

Private Sub Calendar1_Click()
ActiveCell = Format(Calendar1.Value, "yyyy-mm-dd") '设置日期格式,此工作可以直接通过设置某列单元格格式一次性完成
Calendar1.Visible = False '单击日历控件后隐藏之
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then 'D列为日期输入列，只对应excel的字母列，例如D对应4，
'G对应7，不是实际的显示列对应的数字
Calendar1.Left = Target.Left + Target.Width '设置日历控件弹出后的位置
Calendar1.Top = Target.Top + Target.Height '同上
Calendar1.Value = Date '设置默认日期为系统日期
Calendar1.Visible = True '使日历控件可见

Else
Calendar1.Visible = False '单击其他列时隐藏日历控件
End If
End Sub

这段代码在工作表1里编写的，怎么让这段代码在其他指定的工作表内运行呢？不考虑复制代码到其他工作表，因为工作表在50个左右，全部复制的打开excel会很卡

Answer 1

将其 保存为.xlam格式，保存到系统默认文件夹，再到开发工具-加载项-在可用加载宏里面对其进行勾选，确定就可以了

追问

我是一个excel文件里面有50多个Sheet，要求每个工作表都要运行这段代码，但是不能复制到每个工作表

Answer 2

啊搜看法及我可模块的桑了卡上的年够了roil 上公司的管

Answer 3

用工作簿事件：
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
End Sub

追问

是直接加到我代码前面吗？还是怎么做？

追答

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 Then 'D列为日期输入列，只对应excel的字母列，例如D对应4，
'G对应7，不是实际的显示列对应的数字
Calendar1.Left = Target.Left + Target.Width '设置日历控件弹出后的位置
Calendar1.Top = Target.Top + Target.Height '同上
Calendar1.Value = Date '设置默认日期为系统日期
Calendar1.Visible = True '使日历控件可见

Else
Calendar1.Visible = False '单击其他列时隐藏日历控件
End If
End Sub
将代码放在ThisWorkbook中

追问

这样直接加入this workbook中后代码提示有错误

Calendar1.Left = Target.Left + Target.Width '设置日历控件弹出后的位置
Calendar1.Top = Target.Top + Target.Height '同上
提示这两段有问题，，求大神帮忙修改下。。

追答

确定所有工作表添加了相同控件，并有相同名称？