禁止选中某列单元格中包含特殊字符的整行

神秘风暴

如题：如何禁止选中某列单元格中包含特殊字符的整行

例如：D列单元格中，如果包含姓名为“李四”的话，那么“李四”所在的整行数据禁止鼠标选中，如果鼠标选中该行中的任一单元格，则鼠标自动跳转到D列末尾单元格。不包含“李四”的该行可以选中。

kyxfyzg

1. Dim rng As Range
   
2. For Each rng In Range("d1", Cells(Rows.Count, 4).End(3))
   
3.     If InStr(rng.Text, "李四") >= 1 Then
   
4.         If Selection.Row = rng.Row Then
   
5.             Cells(Rows.Count, 4).End(3).Select
   
6.         End If
   
7.     End If
   
8. Next rng

复制代码

饮冰e士

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4. Dim x&
   
5.   x = Target.Row
   
6.   If InStr(Cells(x, "D"), "李四") Then Cells(x, "E").Select
   
7. End Sub
   

复制代码

smuuwl

饮冰e士 发表于 2024-8-14 12:49

他说的D列最后一行，用End(xlUp).Row找最后行

神秘风暴

kyxfyzg 发表于 2024-8-14 12:29

收到，非常感谢！

神秘风暴

饮冰e士 发表于 2024-8-14 12:49

我这样修改了一下！

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim x&, y&
   
3.     x = Target.Row
   
4.     y = Cells(Rows.Count, "d").End(3).Row
   
5.     If InStr(Cells(x, "D"), "李四") Then Cells(y, "d").Select
   
6.    
   
7. End Sub

复制代码