|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
本帖最后由 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
|
|