他山之石——VBA Like运算符的使用

目前为止没怎么用过这个LIKE关键字，但看完教学视频后，感觉可以在判断字符串是否包含子串时替代Instr函数使用，更为方便。

'like "对比的字符串"
'Option Compare Text
  ' 字符串1 like 字符串2
 Sub L1()
   Debug.Print "ABC" Like "ABc"
 End Sub

'通配符?
  '判断BA是不是长度为2，且第二个字符为A
 Sub L2()
   Debug.Print "BA" Like "?A"
 End Sub

'通配符*
     '判断字符串中是否包括cel
 Sub L3()
   Debug.Print "Excel精英培训" Like "*cel*"
 End Sub

'判断含通配符的字符串

  '把通配符放在[]内，就代表本身字符的对比

 Sub l4()
   'Debug.Print "QAB" Like "Q?B"
   Debug.Print "QaB" Like "Q?B"
   'Debug.Print "Q?B" Like "Q[?]B"
   'Debug.Print ""
 End Sub
 

'判断是指定位数数字
  '判断数字是否为两个整数构成的
 Sub l9()
    Debug.Print 5 Like "#"
 End Sub

'判断在某个区间的字符
 
  Sub L10()
   '[最小-最大最小2-最小3]
    'Debug.Print "q" Like "[A-Za-z]"  ' 判断q是不是字母
   ' Debug.Print "H" Like "[A-GM-Z]"  ' 判断H是不是在A-G，M-Z区间
    Debug.Print 8 Like "[!2-9]"
  End Sub

'判断非在某个区间的字符
   Sub L11()
   
     Debug.Print "A" Like "[!C-Z]"
     
   End Sub
   
'判断在列出的字符里

   Sub L12()
   
      Debug.Print "M" Like "[!ABCDEUE]"
      
   End Sub
    
'判断A~C开头，F~G结尾
  
   Sub L13()
     
     Debug.Print "AEREM" Like "[A-C]*[L-P]"
     Debug.Print "A334M" Like "[A-C]###[L-P]"
     
   End Sub

Sub 求和()
Dim x, y, k
For x = 2 To 11
  
  For y = 2 To 12
    If Cells(y, 1) Like Cells(x, "F") Then
       k = k + Cells(y, 2)
       Range("a" & y).Interior.ColorIndex = 3
    End If
  Next y
  Cells(x, "g") = k
  Cells(x, "f").Interior.ColorIndex = 3
  k = 0
  Stop
  Cells(x, "f").Interior.ColorIndex = xlNone
  Range("a2:a12").Interior.ColorIndex = xlNone
Next x
End Sub