[已解决]用VBA判断三个条件只要满足其中一个则跳出

lidayu

请老师赐教，例如录入窗体TextBox22对应“资料库表”A列为（姓名），TextBox23：TextBox25对应B:D列为（项目1、项目2、项目3），三个条件只要满足其中的一个就结束过程。
例如：窗体TextBox22（姓名）=张三，TextBox23、TextBox24=“”、TextBox25=百姓超市，“资料库表”A3=张三，B3=百姓超市、C3=华隆超市、D3=苏果超市，只满足1个或2个及3个都结束过程.
新建资料判断是否重复.rar (559.52 KB, 下载次数: 12)

2016-2-11 22:16 上传

点击文件名下载附件
下面是3个条件都满足才结束过程，请老师修改谢谢！

1. Private Sub CommandButton1_Click()
   
2.     Dim a As Integer
   
3.     Dim i As Long
   
4.     Dim myControl As Control
   
5.      Set d = CreateObject("Scripting.Dictionary")
   
6. '       ARR = Sheets("资料库").Range("a3:d" & Sheets("资料库").[d999].End(3).Row)
   
7.        Myr = Sheet6.[a65536].End(xlUp).Row
   
8.         ARR = Sheet6.Range("a3:d" & Myr)
   
9.          For i = 1 To UBound(ARR)
   
10.       d(ARR(i, 1) & ARR(i, 2) & ARR(i, 3) & ARR(i, 4)) = i
    
11.     Next
    
12.      If d.exists(TextBox22.Value & TextBox23.Value & TextBox24.Value & TextBox25.Value) Then
    
13.             CreateObject("WScript.Shell").Popup "该客户已存在!", 1, "提示"
    
14.         Unload Me
    
15.       Exit Sub
    
16.     End If
    
17.   a = Sheet6.[a65536].End(xlUp).Row
    
18.     With Sheet6.Range("A" & a + 1)
    
19.         .Offset(0, 0).Value = TextBox22.Value
    
20.         .Offset(0, 1).Value = TextBox23.Value
    
21.         .Offset(0, 2).Value = TextBox24.Value
    
22.         .Offset(0, 3).Value = TextBox25.Value
    
23.         .Offset(0, 4).Value = TextBox26.Value
    
24.         .Offset(0, 5).Value = TextBox27.Value
    
25.         .Offset(0, 6).Value = TextBox28.Value
    
26.     End With
    
27. End Sub

复制代码

最佳答案

月排行榜 / 总排行榜

grf1973

2016-2-14 16:57

。。。。。。。。。。。

跳转到最佳答案楼层

lidayu

添加附件方便老师调试。继续恭候老师的帮助！

ghostjiao

满足四个呢？

grf1973

替换原代码9--16句。
For i = 1 To UBound(ARR)
            For j = 2 To 4
                If Len(ARR(i, j)) > 0 Then d(ARR(i, 1) & ARR(i, j)) = i
            Next
        Next
     If d.exists(姓名.Value & 项目1.Value) Then CreateObject("WScript.Shell").Popup "该客户已存在!", 1, "提示": Unload Me: Exit Sub
     If d.exists(姓名.Value & 项目2.Value) Then CreateObject("WScript.Shell").Popup "该客户已存在!", 1, "提示": Unload Me: Exit Sub
     If d.exists(姓名.Value & 项目3.Value) Then CreateObject("WScript.Shell").Popup "该客户已存在!", 1, "提示": Unload Me: Exit Sub
   

上清宫主

s%=(变量A=条件A）+(变量B=条件B）+(变量C=条件C）+(变量D=条件D）
如果s=-1则有一个条件成立，如果s=-2则有两个条件成立，如果s=-3则有三个条件成立，如果s=-4则有四个条件成立。
大体就这样，具体代码自己写吧

lidayu

grf1973 发表于 2016-2-14 11:20
替换原代码9--16句。
For i = 1 To UBound(ARR)
            For j = 2 To 4

grf1973您好 这求助贴我发现有点茅盾，后来我干脆改变了资料库格式为A列姓名，B列为项目，这样就不会出现了以下茅盾。

lidayu

上清宫主 发表于 2016-2-14 11:46
s%=(变量A=条件A）+(变量B=条件B）+(变量C=条件C）+(变量D=条件D）
如果s=-1则有一个条件成立，如果s=-2则 ...

上清宫主您好 我是菜鸟一个，这代码是我坛子里老师帮助的，请您赐教！

grf1973

循环里面这样写
For i = 1 To UBound(ARR)
            For j = 2 To 4
               d(ARR(i, 1) & ARR(i, j)) = i
               d(ARR(i, 1)) = i
            Next
        Next

上清宫主

细看了下附件，楼主你想复杂了。根本不必须用字典，也不必须那么麻烦地去循环
试试find，填姓名后，用find在资料库的A列找，看看得到不，找到了则重复，找不到就没重。
填项目后，再用find在资料库中去找，道理同上
有个疑问是：不同的姓名可否有相同的项目？这个问题涉及到填项目后再哪里找的问题。
具体代码应该很好写

思路决定出路

lidayu

上清宫主 发表于 2016-2-14 16:02
细看了下附件，楼主你想复杂了。根本不必须用字典，也不必须那么麻烦地去循环
试试find，填姓名后，用find ...

上清宫主您好 ，您的思路很正确谢谢您的赐教，不同姓名可以重复项目。请您帮我写下代码，谢谢！