与非或逻辑组合匹配

muou8

micch 发表于 2019-1-18 13:43
比如A&B|C  代表    可以选AC   可以选 BC  ，可以选 ABC

就是三种情况存在一种就算满足？？那这应该 ...

老师 ，如果是  A&B/C   意思就是   选AB同时存在   或者  C存在的情况了

muou8

qingc0221 发表于 2019-1-18 14:20
感觉很简单啊,自定义一个函数就行了

老师 ，能帮忙设计一下吗？或者讲讲思路，我是一筹莫展。

duquancai

muou8 发表于 2019-1-18 13:00
X  代表   比如第一行      张三使用   A，B，C
结果中的数字   是第一张表中的  1,2,3，4,5,6

逻辑混乱！！！！！不用检查别的，
选存在的A 为1

选 存在A 或者B 为2 （这里也可以是为1  也可以为 2   ，那就不知道到底是为1还是为2）     

qingc0221

duquancai 发表于 2019-1-18 12:21
X 是什么意思？结果中的 那些“数字”从何而来？

就是逐个判断组合下的条件是否成立,如果成立则str=str &条件左边的序号,最后返回str

只是他举例给的结果有错

muou8

duquancai 发表于 2019-1-18 14:29
逻辑混乱！！！！！不用检查别的，
选存在的A 为1

老师 ，您理解错了。其实这个表的目的就是统计表二中的姓名的选项，是否满足表一中的逻辑组合，然后形成以姓名为主的数组或者集合。
比如   表二中    姓名张三，选项有 A,B,C都符合，然后找表一，  序号1 对应的 组合为A ，这样，选项中只要包含A都能满足姓名，这样就可以吧 序号1 加入姓名张三集合。
再往下，序号2对应的组合为 A/B  ,这个意思就是     只要包含A或者B 就可以加入姓名张三集合。
再往下，序号3对应 的组合为-A/B,这个意思就是      只要不包含A， 或者包含B也可以加入姓名张三集合。
依次类推，所有的序号都 排查完毕， 张三集合统计完毕。
然后在按照上面的方法，把所有的姓名集合统计完毕。

香川群子

muou8 发表于 2019-1-18 10:16
老师您好
&代表   比如A&B&C  代表  只有A B C 同时选的 时候 ，才选这个选项
|代表    比如A&B|C  代 ...

比如A&B|C  代表    可以选AC   可以选 BC  ，可以选 ABC

那应该= (A/B)&C 这样的关系式。

何须发明一个不伦不类的【|】这个逻辑关系好无意义。

如果是与关系，那就是 &  And
如果是或关系，那就是 /  Or
如果是并列关系，那就是()

muou8

qingc0221 发表于 2019-1-18 14:52
就是逐个判断组合下的条件是否成立,如果成立则str=str &条件左边的序号,最后返回str

只是他举例给的结 ...

是的，老师 ，您的逻辑是正确的，
但现在最困惑的就是 这种组合逻辑的，怎么满足姓名选项？怎么设计这个算法

muou8

香川群子 发表于 2019-1-18 14:56
比如A&B|C  代表    可以选AC   可以选 BC  ，可以选 ABC

那应该= (A/B)&C 这样的关系式。

嗯，谢谢老师提醒

qingc0221

muou8 发表于 2019-1-18 14:26
老师 ，能帮忙设计一下吗？或者讲讲思路，我是一筹莫展。

你的描述的确很混乱
比如2 和3,只要B为True,返回的结果应该都有2和3
还有4和5,只要A B C同时为True则返回4,否则只要A B C有1或2个位True返回值就应该包含5
但是你举的例子就没有

一把小刀闯天下

'逻辑没法看，按中文逻辑你的示例也有问题，，，

Option Explicit

Sub test()
  Dim arr, i, s
  arr = [e2:i7]
  For i = 2 To UBound(arr, 1)
    s = vbNullString
    If arr(i, 2) = "X" Then s = s & "," & "1" '选存在的A
    If arr(i, 2) = "X" Or arr(i, 3) = "X" Then s = s & "," & "2" '选 存在A 或者B
    If arr(i, 2) <> "X" Or arr(i, 3) = "X" Then s = s & "," & "3" '选 不是A 的 或者 存在 B的
    If arr(i, 2) = "X" And arr(i, 3) = "X" And arr(i, 4) = "X" Then s = s & "," & "4" '选 A和 B 和C 同时存在的
    If Not (arr(i, 2) = "X" And arr(i, 3) = "X" And arr(i, 4) = "X") Then s = s & "," & "5" '选不是（A和B 和C ）同时存在的
    If arr(i, 2) = "X" And arr(i, 3) = "X" Or arr(i, 5) = "X" Then s = s & "," & "6" '选（A和B）同时存在 或者 存在D的
    If arr(i, 2) = "X" And arr(i, 3) = "X" And arr(i, 4) = "X" And arr(i, 5) = "X" Then s = s & "," & "7" '选 A,B,C,D 同时存在的
    Debug.Print arr(i, 1) & ":{" & Mid(s, 2) & "}"
  Next
End Sub