VBA笔记之Excel公式编辑其他单元格

模块里：

Function QUGONGSHI()
    '去公式
    QUGONGSHI = "去公式"
    Set myc = New mycss
    Set myc.sht = ActiveSheet
End Function

类里：类名叫mycss

Public WithEvents sht As Worksheet
Private Sub sht_Change(ByVal Target As Range)
'类代码，公式中需要对其他单元格进行修改的代码放在这里区域内
    On Error GoTo ren
    if target.text="去公式" then
        main.show '操作代码
    elseif  target.text="其他" then 
        '放其他代码  
    endif
ren:
End Sub