怎么让A1-AZ1范围里只能出现一次1，如果再输入自动删除其他的？

aa2599177

怎么让A1-AZ1范围里只能出现一次1，如果再输入自动删除其他的？

ruoyunruyan

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim rng As Range
   
3.     If Target.Value = 1 Then
   
4.         If Application.WorksheetFunction.CountIf(Range("a1:az1"), 1) > 1 Then
   
5.             For Each rng In Range("a1:az1")
   
6.                 If rng.Value = 1 And rng.Column <> Target.Column Then rng.ClearContents
   
7.             Next
   
8.         End If
   
9.     End If
   
10. End Sub
    

复制代码

⊙⊙小噤○

数据有效性也可以看看.

aa2599177

ruoyunruyan 发表于 2018-7-10 11:09

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

ruoyunruyan

aa2599177 发表于 2018-7-10 18:22
求教，怎么把这个宏设置成SUB 运行？我把Private Sub Worksheet_Change(ByVal Target As Range）改成Sub  ...

这是工作表事件，当工作表发生改变时自动运行代码，改成SUB的话就不能自动运行了