把宏写进下拉菜单为什么不能执行相应宏

cherga · 发表于 2019-10-7 11:58

本帖最后由 cherga 于 2019-10-7 13:13 编辑

下面把宏写进下拉菜单为什么不能执行呢，点击下拉菜单不能执行是公式名称错了吗

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$g$1" Then Exit Sub
Select Case [g1]
Case "数字日期（H列）转年/月/日（I列）"
      Call 填公式1
Case "身份证号（G列）转年/月/日（H列）"
      Call 填公式2
Case "文本单元格转常规"
      Call test2
Case "一键调整文本格式"
      Call Sheet1.宏3
Case "诊断体检数据"
      Call 填公式3
Case "体检数据文本化"
      Call test1
Case "固定行高及添加框线"
      Call test3
Case "错误数据填充单元格"
      Call kkkk
Case "J列统一时间格式"
      Call changedate
End Select
End Sub

cherga · 发表于 2019-10-7 13:14

帮忙看下是哪里出错或者编写错了

cherga · 发表于 2019-10-7 14:14

在线顶一下

风中稻草人 · 发表于 2019-10-7 14:30

msgbox Target.Address试一下？

cherga · 发表于 2019-10-7 14:44

风中稻草人发表于 2019-10-7 14:30
msgbox Target.Address试一下？

想知道原来的哪里错了

changhong8 · 发表于 2019-10-7 17:04

g1的字母改成大写G试试

		自动登录	找回密码
密码			免费注册

[求助] 把宏写进下拉菜单为什么不能执行相应宏