如何理解vba中逻辑运算符的位运算符 如何理解vba中逻辑运算符的位运算符
\u5982\u4f55\u7406\u89e3vba\u4e2d\u903b\u8f91\u8fd0\u7b97\u7b26\u7684\u4f4d\u8fd0\u7b97\u7b26\u5c31\u662f\u9010\u4f4d\u6bd4\u8f83\uff0c\u770b\u793a\u4f8b\uff1a
Sub dsa() Dim a, b a = 10101 b = 10011 MsgBox a And b '\u4f4d\u8fd0\u7b97\u7ed3\u679c 10001 MsgBox a Or b '\u4f4d\u8fd0\u7b97\u7ed3\u679c 10111 '\u5176\u4ed6\u81ea\u5df1\u8bd5\u8bd5End Sub
\u4f4d\u8fd0\u7b97\u7b26\u5e76\u4e0d\u662f\u903b\u8f91\u8fd0\u7b97\u7b26\uff0c\u903b\u8f91\u8fd0\u7b97\u7b26\u5305\u62ec\u6216\u3001\u4e0e\u3001\u975e\u3001\u5f02\u6216\u3002
逻辑运算符的位运算是按位运算，不管什么进制，均转化为二进制，然后从低位开始按位比较，得出不同的逻辑比较结果值。Or 逻辑比较是：有1出1，全0出0；
Xor逻辑比较是：同0异1。
*****************************************************************************
Or 运算符对两个数值表达式中位置相同的位进行逐位比较，并根据下表对 result 中相应的位进行设置：
expression1 的位为 在 expression2 中的位为 result 为
0 0 0
0 1 1
1 0 1
1 1 1
Xor 运算符既可作为逻辑运算符，也可作为位运算符。使用互斥或的逻辑进行的两个表达式的逐位比较，其结果通过下表说明：
如果 expression1 为 且 expression2 为 则 result 为
0 0 0
0 1 1
1 0 1
1 1 0
你在VBA中试试：
Sub SHOW()
Dim A, B, C
A = (&H234 Or &H243)
MsgBox "A VALUE=" & A
B = Hex(A)
MsgBox "B VALUE=" & B
End Sub
然后“运行----运行子过程”查看结果。
绛旓細VBA璇硶鏄紪绋嬬殑鍩虹锛屾帉鎻¤祴鍊笺佺畻鏁般佹瘮杈冦閫昏緫鍜岃繛鎺ョ瓑杩愮畻绗锛屾槸缂栧啓楂樻晥浠ｇ爜鐨勫叧閿傛瘮濡傚湪鎴愮哗绠＄悊涓紝`If Cells("C", i).Value >= 60 Then Cells("C", i).Value = "鍙婃牸"`锛屽氨鏄繍鐢ㄤ簡鏉′欢鍒ゆ柇鍜岃祴鍊兼搷浣溿傞夋嫨缁撴瀯锛屽If鈥hen鍜孖f鈥lse锛屼互鍙婂惊鐜粨鏋勶紝濡侳or鍜孌o While锛岄兘鏄▼搴...
绛旓細鍏堝鐞嗙畻鏈繍绠楃锛屾帴鐫澶勭悊姣旇緝杩愮畻绗︼紝鐒跺悗鍐嶅鐞閫昏緫杩愮畻绗銆傛墍鏈夋瘮杈杩愮畻绗︾殑浼樺厛椤哄簭閮界浉鍚岋紱涔熷氨鏄锛岃鎸夊畠浠嚭鐜扮殑椤哄簭浠庡乏鍒板彸杩涜澶勭悊銆傝岀畻鏈繍绠楃鍜岄昏緫杩愮畻绗﹀垯蹇呴』鎸変笅鍒椾紭鍏堥『搴忚繘琛屽鐞嗭細锛堜粠涓婂埌涓嬬殑椤哄簭锛屽悓涓琛屼负浼樺厛绾х浉鍚岋級绠楁湳 鎸囨暟杩愮畻 (^)璐熸暟 (鈥)涔樻硶鍜岄櫎娉 (*銆/)鏁存暟...
绛旓細&浣滀负杩愮畻绗锛岃兘瀹屾垚瀛楃涓茶繛鎺ョ殑鍔熻兘锛屼綘杩欎釜&鍦ㄥ紩鍙烽噷闈紝涓嶈兘浣滀负杩愮畻绗︼紝鍙槸绠鍗曠殑瀛楃涓诧紝渚嬪涓嬮潰鐨勮鍙ュ氨鏄剧ず&...&锛歁sgBox "&...&"
绛旓細False False False True Eqv 杩愮畻绗瀵逛袱涓暟鍊艰〃杈惧紡涓綅缃浉鍚鐨勪綅杩涜閫愪綅姣旇緝锛屽苟鏍规嵁涓嬭〃瀵 result 涓浉搴旂殑浣嶈繘琛岃缃細濡傛灉鍦 expression1 鐨勪綅涓 涓斿湪 expression2 涓殑浣嶄负 result 涓 0 0 1 0 1 0 1 0 0 1 1 1 ...
绛旓細3)閫昏緫杩愮畻绗Not(闈)銆丄nd(涓)銆丱r(鎴)銆乆or(寮傛垨)銆丒qv(鐩哥瓑)銆両mp(闅愬惈)4)鍏崇郴杩愮畻绗 = (鐩稿悓)銆<>(涓嶇瓑)銆>(澶т簬)銆<(灏忎簬)銆>=(涓嶅皬浜)銆<=(涓嶅ぇ浜)銆丩ike銆両s5)浣嶈繍绠楃 Not(閫昏緫闈)銆丄nd(閫昏緫涓)銆丱r(閫昏緫鎴)銆乆or(閫昏緫寮傛垨)銆丒qv(閫昏緫绛)銆両mp(闅愬惈)绗笁鑺 鏁版嵁绫诲瀷VBA鍏辨湁12绉...
绛旓細璁＄畻鏈鸿〃杈惧紡(10.2\5)杩斿洖鐨勫兼槸2銆鍦╒BA涓锛孿琛ㄧず鏁撮櫎锛屽鏋滄搷浣滄暟鏈夊皬鏁伴儴鍒嗭紝绯荤粺浼氳垗鍘诲悗鍐杩愮畻锛屽鏋滅粨鏋滄湁灏忔暟锛屼篃瑕佽垗鍘汇傚锛5\2=2锛5\5.25=1銆俓鍓嶅悗鐨勬暟锛屽繀椤诲湪璁＄畻鍓嶈繘琛屸滃洓鑸嶄簲鍏モ濓紝浣嗗叾瀹炴槸鈥滃洓鑸嶅叚鍏モ濓紝褰撳皬鏁伴儴鍒嗕负0.5灏辫閬靛惊濡備笅鍘熷垯锛氬弻鏁拌垗寮冿紝濂囨暟鍏ヤ綅銆傝繕鏈変竴鐐规槸...
绛旓細Format鍑芥暟鏄椂闂翠笌鏃ユ湡鐨勮皟鑹叉澘锛孋onst甯搁噺鍒欒瀹氫笉鍙彉鐨勬暟鍊笺杩愮畻绗濡傚悓璋冭壊鐩樹笂鐨勮壊褰╋紝浣夸唬鐮佷赴瀵屽鍙橈紝鏁扮粍鍒欏鍚屼竴缁勫叡浜殑璋冭壊鏉匡紝閫氳繃绱㈠紩璧嬩簣姣忎釜棰滆壊鐙壒鐨勪綅缃備粠鍩虹鐨処nputBox澶勭悊鐢ㄦ埛杈撳叆锛屽埌閫昏緫鎺у埗鐨勯『搴忋佸垽鏂拰寰幆锛屽鍒嗘暟鎶樻墸璁＄畻锛VBA璁╀綘鐨勭▼搴忛昏緫娓呮櫚銆侳or Each寰幆閬嶅巻闆嗗悎锛屽...
绛旓細鐢ㄤ袱灞俰f 宓屽鍚 if isnumeric(i) then if i*1=fix(i) then MsgBox "鏄鏁存暟"else MsgBox "鏄礋鏁存暟"END IF else MsgBox "杈撳叆涓嶆纭"END IF ps:濡傛灉浣犱唬鐮佹病缁忚繃鍒犲噺灏辨槸杩欐牱瀛愮殑璇濓紝鍙互涓嶈do loop锛宨f璇彞灏辫冻澶熶簡 isnumeric锛堬級=true '=true 鍙互鍘绘帀涓嶈 and 鏄閫昏緫杩愮畻绗锛...
绛旓細锛嗘寜浣嶄笌杩愮畻绗 9绾т紭鍏堢骇宸︾粨鍚 ^ /> 10浼樺厛绾у乏鎸変綅寮傛垨杩愮畻绗 12浼樺厛绾у乏鎿嶄綔 <br缁撳悎 | |閫昏緫OR杩愮畻绗 13浼樺厛绾у彸缁撳悎 锛氾紵鏉′欢杩愮畻绗 14浼樺厛绾у彸缁撳悎 = + = - = * = / =锛=锛= ^ = | = < = >> =鎵鏈夌殑璧嬪艰繍绠楃 BR p> 15浼樺厛绾у乏缁撳悎 锛屼互閫掑噺椤哄簭鐢变笂鍒颁笅鐨勯楀彿...
绛旓細閫昏緫杩愮畻閫氬父鐢ㄦ潵琛ㄧず姣旇緝澶嶆潅鐨勫叧绯伙紝閫昏緫杩愮畻鐨勭粨鏋滃彧鏈夌湡鍜屽亣涓や釜鍊煎嚭鐜般傚悇涓昏緫琛ㄨ揪寮忓涓嬶細And鍜屻丒QV绛変环銆両MP钑村惈銆丱r 鎴栥乆OR寮傛垨鍜孨ot闈炪傚湪涓涓〃杈惧紡涓繘琛岃嫢骞叉搷浣滄椂锛屾瘡涓閮ㄥ垎浼氭寜棰勫厛纭畾鐨勫厛鍚庨『搴忚繘琛岃繍绠楋紝鍙仛杩愮畻绗︾殑浼樺厛椤哄簭銆傚綋杩愮畻绗︿笉姝竴绉嶏紝瑕佸厛澶勭悊绠楁湳杩愮畻绗︼紝鎺ョ潃澶勭悊姣旇緝...
