VBA中缺少表达式是什么意思？ Excel VBA 总是提示缺少表达式
VBA\u7f3a\u5c11\u8868\u8fbe\u5f0fMsgBox"\u4f60\u73b0\u5728\u6fc0\u6d3b\u7684\u5de5\u4f5c\u8868\u540d\u79f0\u662f:" & " \u8fd9\u91cc\u5e94\u8be5\u6709\u4e2a\u5b57\u7b26\u4e32\u3002\u201d
\u5b8f\u540d\u4e0d\u80fd\u4e3aNAME\uff0c\u8ddf\u540d\u79f0\u51b2\u7a81
Cell(1,1) \u53ef\u4ee5\u5199range("a1"),\u6216[A1]
ActiveSheet.range("G1").value = Time()
下面那句话不知道你要表达什么。
绛旓細鍔犳枩鏉犳槸鍑犱釜鎰忔锛鍦╒BA閲岄潰涓嶉渶瑕佽浆涔夌锛岀洿鎺ュ弻寮曞彿灏辨槸瀛楃涓层侫ctiveSheet.range("G1").value = Time()涓嬮潰閭ｅ彞璇濅笉鐭ラ亾浣犺琛ㄨ揪浠涔銆
绛旓細1銆佷唬鐮佹牸寮忔湁鐐逛贡銆2銆佸缓璁幓涓撲笟璁哄潧鐪嬬湅銆3銆侀渶姹傛弿杩版竻妤氾紝璁板緱涓婁紶闄勪欢銆4銆佷篃鍙互鍜ㄨ鏌愬疂鐨刅BA鍗栧銆
绛旓細Cell(1,1) 鍙互鍐檙ange("a1"),鎴朳A1]
绛旓細鍙﹀锛屽浜庣瓫閫夋潯浠讹紝`Sheet3.Range("<0")`搴旀敼涓篳"<0"`銆VBA鐨AutoFilter鏂规硶涓殑`Criteria1`鎺ュ彈涓涓琛ㄨ揪寮鎴栬呭硷紝鑰屼笉鏄竴涓猂ange銆傛敞鎰忥細杩欐瀹忎細鍦⊿heet3鐨"A5:I100"鍖哄煙鍐呯殑绗6鍒楋紙涔熷氨鏄"F"鍒楋級绛涢夊嚭灏忎簬0鐨勫笺備綘闇瑕佹牴鎹綘瀹為檯鐨勯渶姹備慨鏀硅繖涓畯銆
绛旓細鍋囧瑕佸皢sheet1澶嶅埗鍒皊heet3涔嬪悗锛屼唬鐮佸涓嬶細Sheets("Sheet1").Copy After:=Sheets("sheet3")浣犲啓鐨勮鍙鏄粈涔鏍鐨勶紵
绛旓細Protect鍚庨潰鐨勫弬鏁帮紝瑕佷互","鍒嗛殧锛屽鏋滀綘瑕佹崲琛岋紝杩樿鍔犱笂涓涓"_", 濡備笅锛歅rivate Sub workbook_beforeclose(cancel As Boolean)For a = 1 To Sheets.Count Sheets(a).Protect DrawingObjects:=True, _contents:=True, Scenarios:=True, _Password:="123"Next End Sub ...
绛旓細濡傛灉鎮ㄥ湪杈撳叆Excel瀹忎唬鐮佹椂鍑虹幇琛ㄨ揪寮閿欒锛屽彲鑳芥槸浠ヤ笅鍑犱釜鍘熷洜锛1. 浠ｇ爜璇硶涓嶆纭侲xcel涓婄殑Visual Basic for Applications锛圴BA锛夌紪绋嬭瑷闈炲父涓ユ牸锛屽皬灏忕殑璇硶閿欒涔熷彲鑳藉鑷寸紪璇戦敊璇傛鏌ユ偍杈撳叆鐨勮娉曪紝鎴栬呬娇鐢ㄥ湪绾挎垨鏈湴鐨刅BA璇硶妫鏌ュ伐鍏疯繘琛屾鏌ャ2. 涓嶅尮閰嶇殑鎷彿銆鍦╒BA涓锛屾嫭鍙风殑鏁伴噺鍜屼綅缃繀椤...
绛旓細绋嬪簭璇█鐨鐗瑰畾瀛楋紙鍏抽敭瀛楋級鏄笉鑳藉湪缂栫▼杩囩▼涓敤浣滃彉閲忕瓑鐨勩
绛旓細sheets(a).protect drawingobjects:=true, _contents:=true,scenarios:=true, _password:="123"'寰堟槑鏄捐繖涓夎璇彞搴旇鏄竴鏉¤鍙ワ紝鎹㈣鍐欏氨蹇呴』浣跨敤"涓嬪垝绾縚"杩炴帴涓婁笅琛岋紝鑰屽悇涓弬鏁颁箣闂寸殑鍒嗛殧绗"閫楀彿,"涔熶笉鍙渷鐣ャ
绛旓細pno = Int((Rnd * (40 - 20) + 20))If Rnd > 0.3 Then pnor = 1 + pnor
