根据条件执行 以单元格内容命名的子程序

nbchn

模块1中有三个以A1~A3单元格内容命名的子程序
求助，当在一定条件下，实现调用对应的子程序



下图是当B2~B4单元格不空时，调用A列对应单元格内名称相同的子程序。


我的代码是：


Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False   '关闭屏幕刷新
    On Error Resume Next                  '忽略错误
    Application.EnableEvents = False    '先禁止触发事件
    Application.Calculation = xlCalculationManual    '手动重算
    Dim X As Long
    Range("c1:z1000") = ""
    If Cells(1, 2) > 0 Then 程序一
    If Cells(2, 2) > 0 Then 程序二
    If Cells(3, 2) > 0 Then 程序三
   
    '上面这些代码可以单独实现目的,如何用For 的方式实现呢,下面的代码要如何修改？
    '-----------------------------------
    For X = 1 To 3
        If Cells(X, 2) -0> 0 Then
           ’ Call Cells(X, 1).Value  '这句代码要如何修改，可以调用对应单元格内容名称的子程序
             Application.Run Cells(X, 1).Value ’修改成这样就要以
         End If
    Next
    '-----------------------------------   
       Application.EnableEvents = True    '恢复触发事件
    Application.Calculation = xlCalculationAutomatic    '自动重算
    On Error GoTo 0    '恢复正常的错误提示
    Application.ScreenUpdating = True   '开启屏幕刷新
End Sub


求助.zip (15.41 KB, 下载次数: 3)

2024-2-2 16:45 上传

点击文件名下载附件

大灰狼1976

不用call，用run，就可以了

liulang0808

Call Cells(X, 1).Value
修改成application.run  Cells(X, 1).Value