[求助]手动调用SelectionChange函数该怎样调用?

lon91ong

 

如上图所示!

麻烦大侠指点一下!多谢了!~

tripodslst

不知addMinus1是何对象，但ACTIVCELL仅指一个单元格，故Worksheet_SelectionChange中代码能执行的机会不大

jiulongpo

VBA中调用其他VBA工程中的函数
mySum = Application.Run("MYCUSTOM.XLM!My_Func_Sum", 1, 5)
MsgBox "Macro result: " & mySum

调用本工作表事件
Application.Run "Sheet1.Worksheet_SelectionChange", ActiveCell     '调用工作表事件

tianying

将此事件由私有改为公用
如Sheet1代码中有
Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox "Haha!"
End Sub
模块中代码：
Sub test()
    Call Sheet1.Worksheet_SelectionChange(ActiveCell)
End Sub

运行看看

[ 本帖最后由 tianying 于 2008-10-28 19:19 编辑 ]

lon91ong

明白了
多谢楼上诸位大侠!

zldccmx

Private Sub Worksheet_Activate()
    Application.ScreenUpdating = False    '关闭屏幕实时更新
    addMinus1.Visible = False
    Application.EnableEvents = False  '暂停系统事件响应
    Set c = ActiveCell  '将当前活动单元格记录下来
    c.Offset(1, 0).Select    '往下偏移一行
    Application.EnableEvents = True  '打开系统事件响应
    c.Select  '返回到原活动单元格，此时触发　Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub