求语法的问题, 太多Or了, 怎么简化一下.

cgx5871

If Target.Columns.Count = 1 And Target.Row > 8 And (Target.Column = 9 Or Target.Column = 25 Or Target.Column = 3 Or Target.Column = 5 Or Target.Column = 6 Or Target.Column = 8) Then

能不能把(Target.Column = 9 Or Target.Column = 25 Or Target.Column = 3 Or Target.Column = 5 Or Target.Column = 6 Or Target.Column = 8)
这段用个什么集合来, 一次判断?
求个相关的语句.

ww87725244

instr函数你值得拥有

cgx5871

ww87725244 发表于 2019-2-12 20:07
instr函数你值得拥有

instr  模糊查找, 不适合这个,
我需要的是准确判断

micch

instr可以在数字前后加个符号，判断的时候就可以了：  instr(",3,5,6,8,9,25,","," & ??? & ",")

ww87725244

那就替换再判断长度

cgx5871

micch 发表于 2019-2-12 20:26
instr可以在数字前后加个符号，判断的时候就可以了：  instr(",3,5,6,8,9,25,","," & ??? & ",")

可行,  但觉得可能会有,  3, 33,  333,  这类的出错
有没有其他类似集合判断的.
没仔细看,  ----你这个方案可行.

一把小刀闯天下

'自己修改，，，

Option Explicit

Sub test()
  Dim mark, i, col
  mark = Array(9, 25, 3, 5, 6, 8)
  col = 100
  For i = 0 To UBound(mark)
    If col = mark(i) Then Exit For
  Next
  Debug.Print col, IIf(i < UBound(mark) + 1, True, False)
  col = 3
  For i = 0 To UBound(mark)
    If col = mark(i) Then Exit For
  Next
  Debug.Print col, IIf(i < UBound(mark) + 1, True, False)
End Sub

micch

cgx5871 发表于 2019-2-12 20:31
可行,  但觉得可能会有,  3, 33,  333,  这类的出错
有没有其他类似集合判断的.

3和33也不会出错啊？  查找值是  ",3,"   前后都有逗号，就规避开了

taller

有多种方法可以简化
比如需要实现

1. If strCell = "姓名" Or strCell = "班级" Or strCell = "学号" Or _
   
2.                         strCell = "课程" Or strCell = "学分" Or strCell = "成绩" Then

复制代码

方法1

1. Option Explicit
   
2. Sub MultipleConditions1()
   
3.     Dim arrKey
   
4.     Dim strCell As String
   
5.     Dim i As Integer
   
6.     Dim blnFlag As Boolean
   
7.     blnFlag = False
   
8.     strCell = "学号"
   
9.     arrKey = Array("姓名", "班级", "学号", "课程", "学分", "成绩")
   
10.     For i = UBound(arrKey) To UBound(arrKey)
    
11.         If blnFlag = blnFlag Or (strCell = arrKey(i)) Then
    
12.             blnFlag = True
    
13.             Exit For
    
14.         End If
    
15.     Next i
    
16.     If blnFlag Then
    
17.         Debug.Print ("匹配关键字")
    
18.     Else
    
19.         Debug.Print ("无匹配关键字")
    
20.     End If
    
21. End Sub
    

复制代码

方法2

1. Sub MultipleConditions2()
   
2.     Dim arrKey
   
3.     Dim strKey
   
4.     Dim strCell As String
   
5.     Dim i As Integer
   
6.     Dim blnFlag As Boolean
   
7.     blnFlag = False
   
8.     strCell = "学号"
   
9.     arrKey = Array("姓名", "班级", "学号", "课程", "学分", "成绩")
   
10.     strKey = VBA.Join(arrKey, "|")
    
11.     If VBA.InStr(strKey, strCell) > 0 Then
    
12.         Debug.Print ("匹配关键字")
    
13.     Else
    
14.         Debug.Print ("无匹配关键字")
    
15.     End If
    
16. End Sub
    

复制代码

方法3

1. Sub MultipleConditions3()
   
2.     Dim arrKey
   
3.     Dim strKey
   
4.     Dim strCell As String
   
5.     Dim i As Integer
   
6.     Dim blnFlag As Boolean
   
7.     blnFlag = False
   
8.     strCell = "学号"
   
9.     arrKey = Array("", "姓名", "班级", "学号", "课程", "学分", "成绩", "")
   
10.     strKey = VBA.Join(arrKey, "|")
    
11.     If strKey Like ("*|" & strCell & "|*") Then
    
12.         Debug.Print ("匹配关键字")
    
13.     Else
    
14.         Debug.Print ("无匹配关键字")
    
15.     End If
    
16. End Sub
    

复制代码