vba怎样用IF语句判断单元格内数字是否为五位,怎样判断单元格内是数字型? excel中如何用VBA判断一个单元格的内容是不是数字?
VBA\u5224\u65ad\u5355\u5143\u683c\u662f\u5426\u662f\u6570\u5b57Sub \u6761\u4ef6\u586b\u8272() zh = Range("I65536").End(xlUp).Row '\u6570\u636e\u6700\u540e\u884c\u53f7 For i = 1 To zh '\u884c\u53f7\u5faa\u73af If IsNumeric(Range("I" & i)) Then '\u4e3a\u6570\u5b57\u5219\u6267\u884c Range("I" & i).Interior.ColorIndex = 0 '\u767d\u989c\u8272 Else '\u4e0d\u4e3a\u6570\u5b57\u5219\u6267\u884c Range("I" & i).Interior.ColorIndex = 3 '\u7ea2\u989c\u8272 End If Next iEnd Sub
\u8fd8\u67091\u79cd\u662f\u7528Excel\u7684\u51fd\u6570\uff1a
\u5224\u65ad A1\u5355\u5143\u683c
T= Application.WorksheetFunction.IsNumber(Range("a1"))
\u5982\u679c T \u8fd4\u56deTrue \u5219\u4e3a\u6570\u5b57\uff0c\u5426\u5219\u4e0d\u662f
前一个条件判断是否整数,后一个判断是否大于10000,也就是是否五位数。
If IsNumeric([a1]) Then
If Len([a1]) = 5 Then
MsgBox "5位数字"
End If
End If
绛旓細end if缁撴瀯 璇ョ粨鏋勭敤浜庡崟閫夋嫨鍒ゆ柇璇彞鎵ц锛屽叿浣撶敤娉曠湅涓嬮潰瀹炰緥 瀹炰緥锛氬浜庣涓鍒楃殑绗竴琛屽埌绗崄琛鍗曞厓鏍锛屼綔濡備笅鍒ゆ柇锛屽鏋滃崟鍏冩牸涓虹┖鍊间簡閭d箞鍦ㄧ浉搴旂殑绗簩鍒楀崟鍏冩牸杈撳嚭鈥VBA鏁欑爺瀹も 绋嬪簭锛 Sub 鍒ゆ柇璇彞() Dim i As Integer For i = 1 To 100 If Cells(i, 1) = "" Then Ce...
绛旓細鐢╒BA鍒ゆ柇涓や釜鍗曞厓鏍兼槸鍚︽湁鍐呭锛岀敤IF璇彞鍒ゆ柇锛If Cells(1,5)=鈥溾 then 鈥滄棤鍐呭鈥銆傚鏋滆寰幆灏卞姞涓涓狥or寰幆璇彞锛屽皢Cells鐨勭涓涓弬鏁拌〃绀鸿鐨勭敤鍙橀噺浠f浛銆傜浜屼釜鍙傛暟5琛ㄧず绗5鍒楋紝涔熷氨鏄疎鍒椼
绛旓細1. 浣跨敤IF鍑芥暟锛欼F鍑芥暟鐢ㄤ簬鍦‥xcel涓繘琛屾潯浠跺垽鏂傚叾璇硶涓猴細IF(logical_test, [value_if_true], [value_if_false])銆傚叾涓璴ogical_test鏄綘瑕佹祴璇曠殑鏉′欢锛孾value_if_true]鏄綋鏉′欢涓虹湡鏃惰繑鍥炵殑鍊硷紝[value_if_false]鏄綋鏉′欢涓哄亣鏃惰繑鍥炵殑鍊笺備负浜嗗垽鏂崟鍏冩牸涓槸鍚﹀惈鏈夋煇涓瓧绗︼紝鎴戜滑鍙互鍦╨ogical...
绛旓細鈥樺垽鏂瘡琛屼腑绗1鍒楃殑鍗曞厓鏍兼槸鍚︿负绌 If IsEmpty(Cells(i, 1)) Then 鈥樿嫢涓虹┖鍒欒缃琛岀浉搴斿崟鍏冩牸鑳屾櫙鑹蹭负鐏拌壊 Cells(i, 1).Resize(1,6).Interior.Color = RGB(225, 225, 225)End If Next i End Sub 鍦ㄤ唬鐮佷腑锛屾垜浠娇鐢ㄤ簡IsEmpty鍑芥暟鏉妫鏌ュ崟鍏冩牸鏄惁涓虹┖銆侷sEmpty鍑芥暟 IsEmpty鍑芥暟杩斿洖...
绛旓細If int(range("A1").Value)=range("A1").Value AND range("A1").Value>=10000 Then 鍓嶄竴涓潯浠鍒ゆ柇鏄惁鏁存暟锛屽悗涓涓垽鏂槸鍚﹀ぇ浜10000锛屼篃灏辨槸鏄惁浜斾綅鏁般
绛旓細1. 鐢╨en()鍑芥暟鍒ゆ柇鐩爣鍗曞厓鏍鏃,浼氭樉绀虹洰鏍囧崟鍏冩牸(鐪嬭捣鏉ヤ负绌虹殑)鍐呯殑瀛楃闀垮害涓1.2.閫氳繃鏌ユ壘/鏇挎崲鍔熻兘鍦ㄦ暟鎹〃涓(鍖呮嫭鐩爣鍗曞厓鏍)閮芥病鏈夋壘鍒扳滅┖鏍尖濆瓧绗3.閫氳繃match()鍑芥暟鍦ㄧ洰鏍囧崟鍏冩牸涓篃娌℃湁鎵惧埌鍖归厤鐨勭┖鏍4.閫氳繃if璇彞鍒ゆ柇绌烘牸鏄惁=""鏄笉琛岀殑,涓嶈鍐嶅彂浜,鐪嬭捣鏉ユ槸绌虹櫧鐨勫崟鍏冩牸鍏跺疄鏄潪绌虹殑,濡傛灉...
绛旓細鎴戣涓哄簲璇ユ妸 If Sheets(1).Cells(8, 2) = 4390 Then 鍐欐垚 If Sheets(1).Cells(8, 2).value = 4390 Then 璇曚竴璇
绛旓細VBA鍒ゆ柇鍗曞厓鏍涓虹┖锛屽彲浠ヤ娇鐢≧ange(...)=""锛屼緥濡傦細IF RANGE("A1")="鏄" THEN FOR EACH t IN ARRAY("B1","C2",D4") IF RANGE(t)="" THEN MSGBOX "浣"& t &"鏍煎唴瀹规湭濉" NEXT tEND IF
绛旓細鏁堟灉濡備笅鍔ㄦ佸浘锛氫唬鐮佸涓嬪浘锛
绛旓細If Sheets("鏍¤垗").Cells(z, 6) <> a Or Sheets("鏍¤垗").Cells(z, 6) <> b Or Sheets("鏍¤垗").Cells(z, 6) <> c Or Sheets("鏍¤垗").Cells(z, 6) <> d Then a b c d 瑕佸姞寮曞彿~ 鍙樹负 "a" "b" "c" "d"鎴栬呯畝鍖栦竴涓 if Instr(1, "abcdABCD", Sheets("...