Controls.Add(Type:=msoControlButton) OnAction 没有响应如何解决？

孤独的龙三少

'添加菜单命令
Private Sub AddControlButton(ByVal pkey$, ByVal key$, ByVal caption$, ByVal optionValue$, ByVal isHK%)
    Dim myb
    If isHK = 0 Then
        Set myb = Tree(pkey).Controls.Add(Type:=msoControlButton)
        With myb    '菜单加入触发按钮
            .caption = caption    '菜单按钮名称为x
            .OnAction = "'WriteToRng(""" & optionValue & """)'" '最后一级选择触发事件,完成输入
        End With
        Tree.Add key, myb
    Else
        Set myb = TreeHK(pkey).Controls.Add(Type:=msoControlButton)
        With myb    '菜单加入触发按钮
            .caption = caption    '菜单按钮名称为x
            .OnAction = "'WriteToRng(""" & optionValue & """)'" '最后一级选择触发事件,完成输入
        End With
        TreeHK.Add key, myb
    End If
End Sub

' 单元格赋值
Public Sub WriteToRng(ByVal optionValue$)
    'ActiveCell.EntireRow.Range("A1").Resize(1, N_col) = Sheets("数据").Range("A" & i).Resize(1, N_col).Value
    MsgBox ("HELLO WORD")

    ActiveCell.Value = optionValue


End Sub

蓝桥玄霜

.OnAction = "'WriteToRng(""" & optionValue & """)'"
改为：
.OnAction = "WriteToRng(" & optionValue & ")"
试试看。

孤独的龙三少

蓝桥玄霜 发表于 2018-9-15 09:48
.OnAction = "'WriteToRng(""" & optionValue & """)'"
改为：
.OnAction = "WriteToRng(" & optionValue ...

问题解决了。
WriteToRng 这个 sub 要放到模块里面。
在 workbook 里面无效