A列只能填写相同数值，不能出现两个不同的数值。

休休莫莫

ykcbf1100

工作表事件，输错有提示

追风少年丶斌

在数据菜单中的数据验证中设置

休休莫莫

ykcbf1100 发表于 2024-3-31 11:49
工作表事件，输错有提示

感谢大师

休休莫莫

ykcbf1100 发表于 2024-3-31 11:49
工作表事件，输错有提示

Private Sub Worksheet_Change(ByVal T As Range)
    If T.Column > 1 Then Exit Sub
    st = Me.[a2]
    On Error Resume Next
    If T.Value <> st Then
        MsgBox "只能输入和单元格A2相同的值,请重输！"
        Exit Sub
    End If
End Sub
大师能帮我讲讲这个代码吗？如果换列如何操作啊，十分感谢大师

休休莫莫

ykcbf1100 发表于 2024-3-31 11:49
工作表事件，输错有提示

大师能否给我讲讲这个代码，如果换成B列或其它列，怎么改代码？谢谢大师

ykcbf1100

休休莫莫 发表于 2024-4-9 14:16
大师能否给我讲讲这个代码，如果换成B列或其它列，怎么改代码？谢谢大师

换成B列就这样改一下。
Private Sub Worksheet_Change(ByVal T As Range)
    If T.Column <> 2 Then Exit Sub
    st = Me.[b2]
    On Error Resume Next
    If T.Value <> st Then
        MsgBox "只能输入和单元格A2相同的值,请重输！"
        Exit Sub
    End If
End Sub

休休莫莫

ykcbf1100 发表于 2024-4-9 14:56
换成B列就这样改一下。
Private Sub Worksheet_Change(ByVal T As Range)
    If T.Column  2 Then Exi ...

大师请接受我的膝盖

休休莫莫

ykcbf1100 发表于 2024-4-9 14:56
换成B列就这样改一下。
Private Sub Worksheet_Change(ByVal T As Range)
    If T.Column  2 Then Exi ...

大师请接受我的膝盖