'定義：運算符是代表VBA某種運算功能的符號？'1)賦值運算符：='2)數(shù)學(xué)運算符：&（字符連接符）、+（加）、-（減）、mod（取余）3 mod 4'4

'定義：運算符是代表VBA某種運算功能的符號？

'1)賦值運算符：=

'2)數(shù)學(xué)運算符：&（字符連接符）、+（加）、-（減）、mod（取余）3 mod 4'4/3、(整除)、*（乘）、/(除)、-（負號）、^（指數(shù)）

'3)邏輯運算符：not(非)、and(與)、or(或)、xor(亦或)、eqv(相等)、imp(隱含)

'4)關(guān)系運算符：=（相同）、<>（不等）、>（大于）、<(小于)、>=(不小于)、<=(不大于)、like

Sub mods()

Dim a%

a = 4 ^ 2

End Sub

'like 用來比較兩個字符串

Sub likess()

Dim a

a = 1 Like "#"

End Sub

Sub likess1()

Dim a

a = "a" Like "[!abc]"

End Sub

'?任何單一字符

'*零個或多個字符

'#任何一個數(shù)字（0-9）

'[charlist]charlist.中的任何單一字符？

'[!charlist]不在charlist中的任何單一字符

Sub a1()

Dim a

a = "admin" Like "Admin" 'like區(qū)分大小寫

End Sub

Sub a2()

Dim b, b2

b = "abc" Like "a?c" '通配符運用

b2 = "abcd" Like "????"

End Sub

Sub a3()

Dim c

c = "excel函數(shù)" Like "*函*"

End Sub

Sub a4()

Dim d

d = 88 Like "##"

End Sub

Sub a5()

Dim e, f, g

e = "f" Like "[a-z]"

f = 8 Like "[!1-8]"

g = 8 Like "[1-4,6-9]"

End Sub

Sub Sheet7()

Dim j, i, n

For j = 2 To 6 'sheet7中D2:D6

For i = 2 To 14 '2到14行

If Cells(i, "a") Like Cells(j, "d") Then n = n + 1 '比較Ai單元格與Dj單元格內(nèi)容

Next

Range("e" & j) = n

n = 0

Next

End Sub

Sub 測試()

Dim rng As Range, rngs As Range, k%, a, b

For Each rng In [a2:a6]

a = rng.Value

For Each rngs In [b2:b4]

b = rngs.Value

If rng = rngs Then

GoTo 100

End If

Next rngs

k = k + 1

Cells(k + 1, "c") = rng

100:

Next rng

End Sub