VBA小白求帮忙处理Change范围问题

sjzining1992

请帮忙看下如何实现以下功能？目前点击Excel所有单元格都都会跳出提示。。。。E列中选择“本事业部-部门”出现提示"不建议提出本事业部问题"
或者有没有不用VBA能实现的方法？

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim rag As Range
   
3. For Each rag In Intersect(UsedRange, Range("E9:E99"))
   
4. Next
   
5. If InStr("本事业部-部门", Target.Text) > 0 Then MsgBox "不建议提出本事业部问题"
   
6. End Sub

复制代码

kqj1022

别在这里问，这里是JS的子版块，来的人少。去上一级问，那里人多。

liulang0808

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rag As Range
For Each rag In Intersect(Target, Range("E9:E99"))
    If InStr("本事业部-部门", rag) > 0 Then MsgBox "不建议提出本事业部问题"
Next

End Sub

bjjdghyf

Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, [E9:E99]) Is Nothing Then Exit Sub
    If InStr(Target.Value, "本事业部-部门") > 0 Then
        Target.Value = "<请选择>"
        MsgBox "不建议提出本事业部问题"
    End If
End Sub

sjzining1992

liulang0808 发表于 2021-12-26 08:35
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rag As Range
For Each rag In Intersect(Tar ...

非常感谢！！！

sjzining1992

liulang0808 发表于 2021-12-26 08:35
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rag As Range
For Each rag In Intersect(Tar ...

非常感谢！！！