怎么把这个代码改成一个可以单独运行的工程？

aa2599177

• Private Sub Worksheet_Change(ByVal Target As Range)
• Dim rng As Range
•     If Target.Value = 1 Then
•         If Application.WorksheetFunction.CountIf(Range("a1:az1"), 1) > 1 Then
•             For Each rng In Range("a1:az1")
•                 If rng.Value = 1 And rng.Column <> Target.Column Then rng.ClearContents
•             Next
•         End If
•     End If
• End Sub
  

求教，怎么把这个宏设置成SUB 运行？我把Private Sub Worksheet_Change(ByVal Target As Range）改成Sub A（）后无法运行！！

提示运行错误424。

獨一無2

Target 这个是函数自带的参数，改成sub相应的变量需要删除掉，你需要达到什么效果？

aa2599177

獨一無2 发表于 2018-7-10 21:45
Target 这个是函数自带的参数，改成sub相应的变量需要删除掉，你需要达到什么效果？

我需要做成sub，然后通过其他指令唤醒这个代码的时候这个代码才执行。本人菜鸟，全都是自己摸索的，求指教！

獨一無2

代码的作用是：当你输入1时，会清除a1:az1区间中值等于1的单元格（但不包含刚输入的单元格）
Sub test()
    Dim rng As Range
    If Application.WorksheetFunction.CountIf(Range("a1:az1"), 1) > 1 Then
        For Each rng In Range("a1:az1")
            If rng.value = 1 Then rng.ClearContents
        Next
    End If
End Sub
这个仅仅实现了清除a1:az1中值是1的单元格。