如何用vba来实现excel中如何31个工作组表中一次性输入1-31日 EXCEL用VBA如何实现动态录入后，另存在另一个表，每次记...
\u6c42EXCEL \u4e2d\u53ef\u4ee5\u81ea\u52a8\u4ee5\u5f53\u67081\u65e5\u523031\u65e5\u6765\u547d\u540d31\u4e2a\u5de5\u4f5c\u8868\u540d\u79f0 \u548c \u5355\u5143\u683c\u5f15\u7528\u5de5\u4f5c\u8868\u540d\u79f0\u7684\u65b9\u6cd5'\u53ef\u4ee5\u81ea\u52a8\u7684\u6dfb\u52a0\u5f53\u6708\u5929\u6570\u5f20\u5de5\u4f5c\u8868\uff0c\u5e76\u4e14\u5728A1\u7b2c\u4e00\u4e2a\u663e\u793a\u5de5\u4f5c\u8868\u540d\u79f0\u3002
Sub a()
m = DateSerial(Year(Date), Month(Date) + 1, 0) - DateSerial(Year(Date), Month(Date), 0)
For i = 1 To m
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Month(Date) & "." & i
Sheets(Sheets.Count).Cells(1, 1) = Sheets(Sheets.Count).Name
Next
End Sub
\u5047\u8bbe\u5f55\u5165\u8868\u4e3asheet1\u5f55\u5165\u884c\u4e3a\u7b2c\u4e00\u884c\uff0c\u53e6\u5b58\u8868\u4e3asheet31
'\u5728sheet1\u63d2\u5165\u4e00\u4e2a\u6309\u94ae\uff0c\u6309\u94ae\u540d\u79f0\u6539\u4e3a\u201c\u53e6\u5b58\u201d\uff0c\u6307\u5b9a\u5b8f\uff1asaveCon
sub saveCon()
dim lr%
lr=sheet31.range("A65536").end(xlup).row
sheet31.range(lr+1 & ":" & lr+1)=sheet1.range("1:1").value
end sub
'\u5728sheet1\u518d\u63d2\u5165\u4e00\u4e2a\u6309\u94ae\uff0c\u6309\u94ae\u540d\u79f0\u6539\u4e3a\u201c\u6e05\u9664\u201d\uff0c\u6307\u5b9a\u5b8f\uff1adelCon
sub delCon()
sheet1.range("A1").EntireRow.ClearContents
end sub
举例说明。
例如有空白表如图：
第一步：点击开发工具-插入模块-编写代码如下：
Sub test()
For i = 1 To 31
Sheets.Add After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = i
Next i
End Sub
如图：
第二步：运行该宏。结果如图：
绛旓細1銆侀鍏堬紝鍦‥xcel涓鎸夊揩鎹烽敭鈥淎lt + F11鈥濓紝濡備笅鍥炬墍绀恒2銆佸叾娆★紝鍦VBA缂栬緫鍣ㄤ腑渚濇鍗曞嚮鈥滄彃鍏モ-->鈥滄ā鍧椻濓紝濡備笅鍥炬墍绀恒3銆佺劧鍚庯紝鍦ㄢ滄ā鍧椻濅腑杈撳叆濡備笅浠ｇ爜锛歄ption Explicit Sub addwork()Sheets.Add after:=Sheets(Sheets.Count)End Sub 4銆佹帴鐫锛屽湪VBA缂栬緫鍣ㄧ殑宸︿晶杈撳叆妯″潡鐨勫悕绉帮紝濡備笅...
绛旓細鎵撳紑Excel骞舵寜涓婣LT + F11鎵撳紑VBA缂栬緫鍣ㄣ傚湪VBA缂栬緫鍣ㄤ腑锛岄夋嫨鈥滄彃鍏モ> 鈥滄ā鍧椻濅互鍒涘缓涓涓柊妯″潡銆傚湪妯″潡涓紪鍐欐偍鐨刅BA浠ｇ爜浠ュ垱寤篍xcel鏂囦欢銆備互涓嬫槸涓涓畝鍗曠殑绀轰緥锛屽皢鍦ㄦ柊宸ヤ綔绨夸腑鍒涘缓涓涓伐浣滆〃骞跺～鍏呮暟鎹細vba 澶嶅埗Sub CreateExcelFile()Dim ExcelApp As Object Dim ExcelWorkbook As Object Dim...
绛旓細浠ｇ爜濡備笅:Sub 鑾峰彇VBA鐗堟湰()MsgBox Application.VBE.Version End Sub 褰撴寜F5閿紝灏辨姤锛氳繍琛屾椂閿欒1004銆傜粡鑰佸笀鎸囩偣锛屽崟鍑绘枃浠垛曗曢夐」鈥曗曚俊浠讳腑蹇冣曗曟墦寮鈥滀俊浠讳腑蹇冣濆璇濇锛屽畯璁剧疆鈥曗曞嬀閫夆滀俊浠诲VBA宸ョ▼瀵硅薄妯″瀷鐨勮闂濄傚啀娆¤繍琛岋紝灏变笉浼氬嚭鐜拌繍琛屾椂閿欒1004鎻愮ず銆傚悗鏉ュ湪寰蒋瀹樻柟涔熺湅鍒颁簡姝ゆ秷鎭...
绛旓細1.鐐瑰嚮榧犳爣鍙抽敭锛岄夋嫨鈥滄柊寤衡濋夐」锛岀劧鍚庣偣鍑烩渕ircosoft office Excel 2007鈥濋夐」鏂板缓涓涓狤xcel鏂囦欢銆2.鍒朵綔闇瑕侀殣钘忕殑鐩稿叧琛ㄦ牸銆3.閫夋嫨鐣岄潰涓婃柟鐨勨滃紑鍙戝伐鍏封濋夐」锛岀劧鍚庣偣鍑烩滃畯鈥濋夐」銆4.鍐欐槑VBA浠ｇ爜鍚嶇О锛岀劧鍚庣偣鍑烩滃垱寤衡濇寜閽5.鍐欏叆鎸囧畾鐨刅AB浠ｇ爜銆備綔鑰呰繖閲岄渶瑕侀殣钘忚〃鏍间腑鐨2-4鍜9-11琛屻6.鐐瑰嚮...
绛旓細If Target.Value = 1 Then Target.Value = "涓杞﹂棿"Else If Target.Value = 2 Then Target.Value = "浜岃溅闂"Else If Target.Value = 3 Then Target.Value = "閿鍞儴"End If End If End If End If End Sub 杩斿洖鍒Excel绐楀彛锛岃繖鏃惰緭鍏ョ浉搴旂殑鏁板瓧灏卞彲浠ヨ鏇挎崲鎴愭寚瀹氱殑鏂囨湰鍐呭浜嗐傚彲鑳芥湁鐨...
绛旓細鎵撳紑Excel骞舵寜涓婣lt + F11 鏉ユ墦寮VBA缂栬緫鍣ㄣ傛彃鍏ヤ竴涓柊鐨勬ā鍧楋細鍦╒BA缂栬緫鍣ㄤ腑锛屽彸閿偣鍑婚」鐩垪琛ㄤ腑鐨勫伐浣滅翱鍚嶇О锛岀劧鍚庨夋嫨鎻掑叆 -> 妯″潡銆傜紪鍐橵BA浠ｇ爜锛氬湪鎵撳紑鐨勬ā鍧楃獥鍙ｄ腑锛屾偍鍙互缂栧啓涓涓瓙绋嬪簭锛圫ub锛夋潵鎵ц闅愯棌鍒楃殑鎿嶄綔銆備緥濡傦紝濡傛灉鎮ㄦ兂鏍规嵁A1鍗曞厓鏍肩殑鍊兼潵闅愯棌B鍒楋紝鎮ㄥ彲浠ョ紪鍐欏涓嬩唬鐮侊細vba澶嶅埗...
绛旓細鎵撳紑Excel骞舵寜涓婣lt + F11鎵撳紑VBA缂栬緫鍣ㄣ傚湪VBA缂栬緫鍣ㄤ腑锛岀‘淇"椤圭洰璧勬簮绠＄悊鍣"绐楀彛鍙銆傚鏋滄湭鏄剧ず锛岃鎸変笅Ctrl + R鏉ユ樉绀哄畠銆傚湪"椤圭洰璧勬簮绠＄悊鍣"绐楀彛涓紝灞曞紑"VBAProject锛堟偍鐨勫伐浣滅翱鍚嶇О锛"锛岀劧鍚庡弻鍑"Sheet1锛圫heet1锛"锛堟垨鑰呭叾浠栧伐浣滆〃锛変互鎵撳紑浠ｇ爜绐楀彛銆傚湪浠ｇ爜绐楀彛涓紝杈撳叆浠ヤ笅VBA浠ｇ爜鏉ュ垱寤...
绛旓細閫氳繃鍗曞嚮蹇熻闂伐鍏锋爮涓婄殑鎸夐挳鏉ヨ繍琛屽畯 1.鍗曞嚮鈥淥ffice 鎸夐挳鈥濓紝鐒跺悗鍗曞嚮鈥Excel 閫夐」鈥濄2.鍗曞嚮鈥滆嚜瀹氫箟鈥濓紝鐒跺悗鍦ㄢ滀粠涓嬪垪浣嶇疆閫夋嫨鍛戒护鈥濆垪琛ㄤ腑锛岄夋嫨鈥滃畯鈥濄3.鍦ㄥ垪琛ㄤ腑锛屽崟鍑诲垱寤虹殑瀹忥紝鐒跺悗鍗曞嚮鈥滄坊鍔犫濄4.鑻ヨ鏇存敼瀹忕殑鎸夐挳鍥惧儚锛岃鍦ㄦ坊鍔犲畯鐨勬涓夋嫨璇ュ畯锛岀劧鍚庡崟鍑烩滀慨鏀光濄
绛旓細鐢╲ba瀹氫箟鍑芥暟姝ラ1锛氫緥锛氫笅闈㈣〃鏍间腑闇瑕佽绠椾竴浜涗笁瑙掑舰鐨勯潰绉 鐢╲ba瀹氫箟鍑芥暟姝ラ2锛欱鍒楁槸搴曡竟闀匡紝C鍒楁槸楂橈紝瑕佹眰鍦―鍒楅氳繃鍏紡璁＄畻涓夎褰㈤潰绉excel鍒╃敤vba瀹氫箟鍑芥暟鐨勬暀绋 鍥1 (閫氬父鎴戜滑浼氬湪D3鍗曞厓鏍肩敤鍏紡 =B3*C3/2 鏉ヨ绠楋紝鐒跺悗鎶婅繖涓叕寮忓悜D鍒椾笅鏂规嫋鍔ㄥ鍒讹紝寰楀埌鍏朵粬鍏紡銆傝繖鍙槸涓涓畝鍗曠殑渚嬪瓙...
绛旓細1銆佸彲浠ュ厛鍒╃敤瀹忓綍鍒舵潵鑷姩鐢熸垚浠ｇ爜锛岀劧鍚庡啀杩涜淇敼銆傛搷浣滄柟娉曞涓嬶細绗竴姝ワ紝鎵撳紑涓涓excel搴旂敤锛屾柊寤轰竴涓櫧绌鸿〃鏍硷紝骞跺綍鍏ユ暟鎹2銆佺浜屾锛岀偣鍑籩xcel搴旂敤绋嬪簭绐楀彛鐘舵佹爮涓乏渚х殑鈥滃畯褰曞埗鈥濇寜閽3銆佺涓夋锛岀劧鍚庡湪琛1涓紝閫変腑宸︿笂瑙掔涓涓湁鏁版嵁鐨勫崟鍏冩牸銆4銆佺鍥涙锛屾帴鐫鎸変笅CTRL+SHIFT閿紝鍐...
