目前要做一个打印外发加工单的表格,表格中的单据编号希望能用Excel自动生成(用公式或者VBA或控件按钮) 用Excel自动根据日期+三位序号生成单据编号
\u600e\u6837\u5728Excel\u91cc\u81ea\u52a8\u751f\u6210\u65e5\u671f\u5355\u636e\u53f7\u4e0d\u6539\u53d8\u539f\u59cb\u8868\u683c\u6570\u636e\uff0c\u6253\u5370\u65f6\u81ea\u52a8\u6dfb\u52a0\u6253\u5370\u65e5\u671f\u3002
\u8bbe\u7f6e\u5355\u5143\u683c\u683c\u5f0f
Sub Macro1()
a = Year(Now)
b = Month(Now)
c = Day(Date)
If b < 10 Then
b = "0" & b
End If
If c < 10 Then
c = "0" & c
End If
no = ThisWorkbook.Sheets.Application.ActiveSheet.Index
If no < 10 Then
no = "000" & no
ElseIf no < 100 Then
no = "00" & no
End If
Selection.Value = "WXJG" & Mid(a, 3, 2) & b & c & Mid(Time, 4, 2) & Mid(Time, 7, 2) + no
End Sub
刚学,闹着玩下!
别见笑!
QQ:516045397
一、需要另外用一个单元格来记录流水序号,程序运行一次,该流水序号+1;
二、.Value = Format(Date, "Wyyyymmdd") & Format(Val(Right(.Value, 5)) + 1, "00000")
变为下面这样就OK了:
.Value = ”W“ & Format(Date, "yyyymmdd") & Format(Val(Right(.Value, 5)) + 1, "00000")
由于EXCEL没有计时器控件,你可能需要设计一个Command控件来实现序号001的累加功能。其它部分还好解决,函数year(),month(),day(),hour(),minute()可以返回当前日期和时间,当然你需要用到NOW()来调用。以上仅供思路参考。
有几个问题需要你确认:
1、编号的时间取哪个点?比如第一张打印完之后,马上就取当时的时间作为第二张编号还是等到第二张开始打印的时候才开始取当时的时间作为编号?
2、如果编号自动生成的话,第一张打完之后,编号的最后几位肯定会跳成002,此时如果是第一张打印错误需要重新打印的话,编号就肯定不对了,这点你想怎么解决?是打印完每一张跳出一个确认窗口来确认呢?还是打印错了你自己记得去改?
3、日期变化后,序号是否重新开始?也就是说今天的编号是XXXXXXXX001-XXXXXXXX008,那么第二天再打印的话是XXXXXXXX009开始编还是XXXXXXXX001开始?
绛旓細Sub Macro1()a = Year(Now)b = Month(Now)c = Day(Date)If b < 10 Then b = "0" & b End If If c < 10 Then c = "0" & c End If no = ThisWorkbook.Sheets.Application.ActiveSheet.Index If no < 10 Then no = "000" & no ElseIf no < 100 Then no = "00" & n...
绛旓細浜屻佺敳鏂逛互涓嬭揪鈥滅敓浜у姞宸ュ埗鍗曗濇柟寮忓鎵樺姞宸ワ紝鏄庣‘濮旀墭鍔犲伐鏈嶈鐨勬寮忋佹暟閲忋佽揣鏈熴佸強鎻愪緵OK鏍锋澘銆佸伐鑹哄埗浣滆姹傚拰璐ㄩ噺鏍囧噯锛岀粡鍙屾柟璁ゅ彲锛屽嵆涓哄悎鍚岀殑缁勬垚閮ㄥ垎锛屽叿鏈変笌鍚堝悓鍚岀瓑娉曞緥鏁堝姏銆傚鍦ㄧ敓浜т腑閫旈渶瑕佹敼鏉挎垨鍦ㄥ叾瀹冪壒鍒渶姹傜瓑锛屽繀椤绘湁涔﹂潰閫氱煡銆備笁銆佷箼鏂硅礋璐f瘡娆剧敓浜鍔犲伐鍗曠殑鍙岀▼杩愯緭璐圭敤銆傜紳绾嚎鐢盻__鏂...
绛旓細浠撳簱鍏徃鐗堝叧娉ㄧ殑鏄簱鍐呯鐞嗭紝姣斿璐т綅绠$悊銆佸厛杩涘厛鍑虹瓑锛涜繘閿瀛樺叕鍙哥増鍏虫敞鐨勬槸閲囪喘鎴愭湰鍜岄攢鍞埄娑︺備袱涓増鏈兘甯︽湁鎶ヨ〃鍜屾煡璇㈠姛鑳姐傚鏋滀粎浠呮槸鎯充簡瑙e師鐞嗭紝鍙互涓嬭浇鍏嶈垂鐗堛傚皬鍨嬩粨鍌/浠撳簱/杩涢攢瀛樼鐞嗗伐鍏烽噰鐢‥xcel鏁版嵁搴撳紩鎿庢妧鏈紝鎸夌収杞欢宸ョ▼鎬濊矾璁捐寮鍙戯紝杩愯绋冲畾锛岀畝鍗曞疄鐢ㄣ備笉闇瑕佸叾浠栭澶栨枃浠讹紝涓嶇敤鍋氫换...
绛旓細涓鑸兘鏄缃涓涓鏁伴噺閲戦涓夋爮寮忔槑缁嗗笎銆傞渶瑕佹瘡绉嶆潗鏂欎负涓绫伙紝姣忕被閲屾寜瑙勬牸璁剧疆鏄庣粏璐︺備笁鏍忓紡甯愬氨鏄敹鍙戝瓨锛堝甫鏁伴噺銆侀噾棰濓級銆傚鏋滄敹鍙戠殑绉嶇被杩樻兂缁嗗垎锛屽彲浠ユ敼涓哄鏍忓紡鏁伴噺閲戦鏄庣粏璐︺傗︹︿緵鍙傝
绛旓細澶栧彂鍔犲伐鎿嶄綔娴佺▼濡備笅锛1) 濮旀墭鏂逛紒涓氬湪鈥滃鍙戝姞宸ョ敵璇疯〃鈥斿妗堢敵璇封濈晫闈紝褰曞叆鐨勫熀鏈俊鎭強鍟嗗搧鏄庣粏鏁版嵁锛岀敵鎶ユ垚鍔熷叆鏁版嵁涓績搴擄紱2) 鏁版嵁涓績鍏ュ簱鎴愬姛锛岃繑鍥炵粰濮旀墭鏂逛紒涓氬鍙戝姞宸ョ敵璇疯〃鐨勨滅數瀛愬彛宀哥粺涓缂栧彿鈥濓紱 3) 鏁版嵁鍚戞捣鍏宠浆鍙戯紝娴峰叧瀹℃壒閫氳繃鍚庯紝澶栧彂鍔犲伐鐢宠琛ㄥ缓绔嬶紝杩斿洖缁欏鎵樻柟浼佷笟澶栧彂鍔犲伐鈥滅敵璇疯〃...
绛旓細鍙互灏嗗澶鍔犲伐鍟嗗嵆鍋氫緵搴斿晢鍙堝仛涓轰綘鐨涓涓濮斿浠撳簱鏉ョ鐞嗭紝鐗╂祦鐨勪笟鍔℃祦绋嬶細鍏堝仛璋冩嫧鍗曪紝灏嗚虫満鏉愭枡浠庝富浠撳簱璋冩嫧鍒板澶栦粨搴擄紱鍔犲伐瀹屾垚鎴愬搧鍏ュ簱鏃讹紝鍋氱粍瑁呮媶鍒嗗崟鍏ュ簱锛屼笂闈㈠崟鍏冨仛鑰虫満鏉愭枡鍑哄簱锛屼笅闈㈠崟鍏冨仛鎴愬搧鑰虫満鍏ュ簱锛涘姞宸ヤ骇鐢熺殑璐圭敤锛屽彲鍦ㄨ垂鐢ㄧ被鍨嬬鐩腑鏂板锛屽仛涓鑸垂鐢ㄥ崟缁撶畻锛
绛旓細鐢辨棩鏈熺敓鎴愬崟鍙疯繖涓彲浠ラ氳繃鎴彇鏃ユ湡瀛楃鏉ュ疄鍦紝浣嗗鏋滃崟鍙锋槸鍋氭垚鍏紡鐨勮瘽锛岄偅鏃ユ湡鏀瑰彉锛屽崟鍙疯偗瀹氫篃浼氭敼鍙樸傞櫎闈炰綘姣忎竴鍗曢兘鎶婂崟鍙疯浆涓涓嬨
绛旓細鎶ュ叧娴佺▼锛1-2澶╋級1锛 浠庡崟璇佸憳澶勫彇寰楁姤鍏冲崟璇佸悗锛屽鏍稿崟璇佸苟鍦℉2000绯荤粺涓婇潰杈撳崟鐢虫姤銆2锛 绛夋捣鍏冲鍗曚腑蹇冩帴鍙楃敵鎶ュ悗锛鎵撳嵃鎶ュ叧鍗曪紝濉Ε璧勬枡骞剁瀛楃洊绔犮3锛 鍒版捣鍏崇幇鍦哄ぇ鍘呬氦鍗曘4锛 濡傛灉鏌ラ獙锛岃瀹夋帓杞﹀瓙鎺ラ佹捣鍏宠佸笀銆5锛 鏌ラ獙娌¢棶棰橈紝鍗″彛鏀捐锛屽姞灏併6锛 鎷栬溅鍒板彛宀歌浆鍏崇敵鎶ワ紝鍙e哺鏀捐锛岀粨鍏炽...
绛旓細浣犺鎼炴竻妤氭瘡涓渶澶栧彂宸ュ巶鐨勬儏鍐点傜劧鍚庡皢浣犲巶鐨勭浉鍏宠祫鏂欎紶鐪熺粰鏈澶栧彂鐨宸ュ巶锛岃祫鏂欎笂瑕佹敞鎰忚吹鍙哥敓浜х殑宸ュ簭锛岀敓浜т汉鏁帮紝鐢熶骇鑳藉姏锛岀敓浜х幆澧冿紝鐢熶骇璁惧锛屽叿浣撴煇鏂归潰鐗规湁鐨勭敓浜ф妧鏈傜瓑鍚勯」鐢熶骇瑕佺礌銆傛渶鍚庯紝灏辨槸缁欑數璇濈浉鍏宠礋璐d汉锛岀‘瀹炵浉鍏宠祫鏂欎笌鍥炲銆傜浣犳棭鏃ユ嬁鍒板叾瀹冨伐鍘傜殑鍗曞瓙銆傜敓鎰忓叴闅嗗晩銆
绛旓細7.2.2.1澶栧崗鎶ヤ环鍗曪紝鍦澶栧彂鍔犲伐鍓嶏紝閲囪喘搴斿皢澶栧崗鎶ヤ环鍗曠粰鍒拌储鍔¢儴銆傚湪澶栧崗鎶ヤ环鍗曟湁鏇存柊鏃讹紝閲囪喘閮ㄥ簲鍙婃椂灏嗘姤浠峰彉鏇磋祫鏂欎紶閫掑埌璐㈠姟浜哄憳銆7.2.2.2澶栧崗鍔犲伐鍗搴旀敞鏄庝緵搴斿晢鍚嶇О锛屽姞宸ュ伐搴忓悕绉帮紝浜у搧鍨嬪彿锛岃鏍硷紝鏁伴噺鍙婂噯纭殑鍔犲伐宸ヨ壓鍙傛暟锛屽鍗忓姞宸ュ崟鍒跺崟浜虹瀛楋紝鏀惰揣鍗曚綅鍙婄粡鎵嬩汉绛惧瓧銆7.2.2.3...