让多列同时实现单列指定单元格内只能有一个单元格有数据

cnkele

同一个色块内只能有一个单元格有数据，目前只找到单列内的工作表代码，请指教

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.   If Target.Address = "$F$2" And (Range("F3") <> "" Or Range("F4") <> "") Then
   
3.     MsgBox "不能输入数据"
   
4.     Range("F1").Select
   
5.   ElseIf Target.Address = "$F$3" And (Range("F2") <> "" Or Range("F4") <> "") Then
   
6.     MsgBox "不能输入数据"
   
7.     Range("F1").Select
   
8.   ElseIf Target.Address = "$F$4" And (Range("F2") <> "" Or Range("F3") <> "") Then
   
9.     MsgBox "不能输入数据"
   
10.     Range("F1").Select
    
11.   End If
    
12. End Sub

复制代码

ykcbf1100

上个附件吧，别人没时间既要写代码还要摸拟数据。

3190496160

增加一个循环就行了吧
上传你的附件，

3190496160

Private Sub Worksheet_SelectionChange(ByVal T As Range)
y = Cells(1, Columns.Count).End(xlToLeft).Column
If T.Row > 1 Then
    If T.Column < y Then
       If Cells(1, T.Column) = "数据" Then
            r = Cells(Rows.Count, T.Column).End(xlUp).Row + 100
            sl = Application.CountA(Range(Cells(2, T.Column), Cells(r, T.Column)))
            If sl > 0 Then
                 MsgBox "不能输入数据": T.Value = "": End
            End If
        End If
    End If
End If
End Sub

3190496160

3190496160

cs.rar (15.38 KB, 下载次数: 4)

2024-4-18 10:29 上传

点击文件名下载附件

cnkele

3190496160 发表于 2024-4-18 10:28
Private Sub Worksheet_SelectionChange(ByVal T As Range)
y = Cells(1, Columns.Count).End(xlToLeft).C ...

太感谢了，问题解决了