[已解决]工作表输入数据提示

新会甜橙

L4开始输入E列数据(不桉顺序),L列输入的数据和E列核对,E列所对G单元有复印件三个字时,提示有复印件

最佳答案

月排行榜 / 总排行榜

lisachen

2013-4-11 00:38

新会甜橙 发表于 2013-4-11 00:17
老师,是这个意思了,如12012275013030000126有四条,只要有1条G列有复印件都提示

工作表输入数据提示.rar (9.75 KB, 下载次数: 20)

2013-4-11 00:40 上传

点击文件名下载附件

]Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 100
    If Target.Column = 12 Then
        Set d = CreateObject("scripting.dictionary")
        For x = 1 To [e65536].End(3).Row
            If d.exists(Cells(x, 5).Value) And d(Cells(x, 5).Value) <> "" Then
                GoTo 10
            Else
                d(Cells(x, 5).Value) = Cells(x, 7).Value
            End If
10:
        Next x
        If d(Target.Value) = "复印件" Then
            MsgBox "有复印件"
            Target = ""
        End If
    End If
100:
End Sub

跳转到最佳答案楼层

lisachen

工作表输入数据提示.rar (9.7 KB, 下载次数: 11)

2013-4-10 23:43 上传

点击文件名下载附件

新会甜橙

lisachen 发表于 2013-4-10 23:43

老师,如果按确定取消L列的输入怎改

lisachen

新会甜橙 发表于 2013-4-10 23:57
老师,如果按确定取消L列的输入怎改

没有明白你的意思

lisachen

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     On Error GoTo 100
   
3.     If Target.Column = 12 Then
   
4.         Set d = CreateObject("scripting.dictionary")
   
5.         For x = 1 To [e65536].End(3).Row
   
6.             d(Cells(x, 5).Value) = x
   
7.         Next x
   
8.         If Cells(d(Target.Value), 7) = "复印件" Then
   
9.             MsgBox "有复印件"
   
10.             Target = ""
    
11.         End If
    
12.     End If
    
13. 100:
    
14. End Sub

复制代码

是这个意思吗？

新会甜橙

lisachen 发表于 2013-4-11 00:01
是这个意思吗？

老师,是这个意思了,如12012275013030000126有四条,只要有1条G列有复印件都提示

lisachen

新会甜橙 发表于 2013-4-11 00:17
老师,是这个意思了,如12012275013030000126有四条,只要有1条G列有复印件都提示

工作表输入数据提示.rar (9.75 KB, 下载次数: 20)

2013-4-11 00:40 上传

点击文件名下载附件

]Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo 100
    If Target.Column = 12 Then
        Set d = CreateObject("scripting.dictionary")
        For x = 1 To [e65536].End(3).Row
            If d.exists(Cells(x, 5).Value) And d(Cells(x, 5).Value) <> "" Then
                GoTo 10
            Else
                d(Cells(x, 5).Value) = Cells(x, 7).Value
            End If
10:
        Next x
        If d(Target.Value) = "复印件" Then
            MsgBox "有复印件"
            Target = ""
        End If
    End If
100:
End Sub

新会甜橙

lisachen 发表于 2013-4-11 00:38
新会甜橙 发表于 2013-4-11 00:17
老师,是这个意思了,如12012275013030000126有四条,只要有1条G列有复印件 ...

谢谢老师多次帮助

mengcao888

学习学习，说不定哪天工作中可以用到。