鎬庝箞鏍峰埄鐢‥xcel绛惧埌锛?鎮熺┖闂瓟

问题描述：鎬庝箞鏍峰埄鐢‥xcel绛惧埌锛熸兂鍏绘垚涓€涓範鎯紝鐒跺悗鍦‥xcel鎵撳崱銆傛垜鐨勬兂娉曟槸鐜板湪Excel瀵煎叆鏃ュ巻锛岀劧鍚庤缃竴涓寜閽紝姣忔鎵撳紑Excel鍚庢寜杩欎釜鎸夐挳锛屽綋澶╃殑鏃ユ湡鍙互鑷姩娑備笂棰滆壊銆傛眰澶х鏁欐垜搴旇鎬庝箞鍋氾紝璋㈣阿馃槣

领域专家：濡備綍鐢‥xcel蹇€熻绠楀憳宸ョ殑鍑哄嫟鐜嘰u003C/p>

涓句緥锛氳繖鏄粠鍏徃鑰冨嫟绯荤粺鍊掑嚭鏉ョ殑鏁版嵁銆傚叿浣撹〃鏍兼晥鏋滃涓嬶細

濡傛灉蹇€熺畻鍑哄憳宸ユ瘡鏈堢殑鑰冨嫟娆℃暟鍛紵鏈€蹇簲璇ユ槸鐢ㄩ€忚琛ㄣ€傝刀绱ц瘯璇曘€俓u003C/span>

涓轰簡鏂逛究鐪嬪埌鏁堟灉锛屾妸閫忚琛ㄥ缓鍦ㄤ簡鏈〃锛岃瑙佸姩鍥炬搷浣溿€俓u003C/p>

鎺ョ潃娉ㄦ剰鍔ㄥ浘鐨勫瓧娈垫嫋鎷介儴鍒嗭紝鎶婄鍒版棩瀛楁浣滀负涓暟缁熻鐨勫瓧娈点€俓u003C/p>

濡傛灉鍙戠幇閫忚琛ㄦ病鏈夎嚜鍔ㄦ寜鏈堟潵杩涜锛屽垯闇€瑕佸埄鐢ㄧ粍鍚堝姛鑳芥潵鎼炲畾銆傚叿浣撶湅鍔ㄥ浘鎿嶄綔銆俓u003C/p>

鏈変簡姣忔湀鐨勫嚭鍕ょ巼缁熻锛屽彲浠ョ畻鍑鸿€冨嫟鐜囷紝闄や互姣忔湀鎵€鏈夌殑鑰冨嫟鏁帮紝鍗冲彲寰楀埌锛屽亣濡傛瘡涓湀婊¤€冨嫟鏄?2娆★紝杩欐搷浣滃涓嬶細

濂囨€紝鎬庝箞鎷栨嫿鏉ヤ笅鏁板瓧閮芥槸涓€鏍风殑銆傞棶棰樺嚭鍦ㄨ繖閲岋紝闇€瑕佸叧闂€忚琛ㄧ殑鎶撳彇鏁版嵁鐨勫嚱鏁板紑鍏筹紝鎵嶈兘杩欐牱璁＄畻銆傚啀娆＄湅鍔ㄥ浘鎿嶄綔銆俓u003C/span>

濡傛灉鍦ㄥ仛鎴愭煴褰㈠浘锛屽氨寰堝鏄撶湅鍑鸿繖涓憳宸ュ湪姣忔湀鐨勮€冨嫟鐜囦簡锛屽師鏉?鏈堬紝10鏈堣€冨嫟鏈€宸€俓u003C/p>

鎬荤粨锛氭敞鎰忚繖涓渚嬪彧鏄彁渚涗竴涓€濊矾锛屽鏋滈渶瑕佸仛鍒扮簿鍑嗚€冨嫟锛岄渶瑕佽€冭檻姣忓ぉ鑰冨嫟鐨勬鏁帮紝鍑嗙‘搴︼紝姣忔湀鑰冩儏鎬绘鏁扮瓑鍥犳暟锛屽湪鏁寸悊濂藉師濮嬫暟鎹箣鍚庡湪鍒╃敤閫忚琛ㄨ繘琛屽揩閫熸眹鎬绘墠浼氫簨鍗婂姛鍊嶃€俓u003C/p>

鏇村璐㈢◣鑱屽満瀛︿範璧勮锛屽叧娉ㄧ璐㈢綉

领域专家：鎰熻阿璇氶個锛乗u003C/p>

浠婂ぉ锛屽皬缂栧垎浜殑鏄細

濡備綍鐢‥xcel鍒朵綔鏅鸿兘鍖栫殑鑰冨嫟琛紵

鏈鑰冨嫟琛紝涓昏鏈夊洓澶у姛鑳斤細

鍔熻兘1锛歕u003C/strong>鏃ユ湡浠绘剰閫夛紝鍛ㄦ湯楂樹寒鏄剧ず锛乗u003C/p>

鍔熻兘2锛歕u003C/strong>鑰冨嫟璁板綍锛岃嚜鍔ㄦ眹鎬伙紒

鍔熻兘3锛歕u003C/strong>鑰冨嫟鏁版嵁锛岃嚜鍔ㄥ鍑哄浘琛紒

鍔熻兘4锛歕u003C/strong>鑰冨嫟鏄庣粏锛屼竴閿鍑猴紒

楦ｈ阿锛歕u003C/strong>鑻ュ枩娆㈡湰鏂囷紝璇风偣璧炪€佸垎浜拰杞彂锛乗u003C/p>

鑻ユ湁鐤戦棶锛屾杩庤瘎璁虹暀瑷€锛乗u003C/p>

鑻ラ渶瑕佹簮鏂囦欢锛岃鐐瑰嚮鍙充笂瑙掋€愬叧娉ㄣ€戯紝灏忕紪鍦ㄧ瓑浣犲ゥ锛侊紒

领域专家：瑕佸埄鐢╡xcel绛惧埌锛岃繖涓細鏈夌偣澶嶆潅锛屾瘯绔熸槸澶氫汉浣跨敤锛屾渶鍚庤鏀堕泦绛惧埌鏁版嵁锛屽垎绫绘眹鎬荤粺璁°€傛垜鏈€鍏堟兂鍒扮殑鏄埄鐢╡xcel VBA涓巑ysql鏁版嵁搴撶粨鍚堝仛涓€涓▼搴忥紝杩欐牱瀛愬氨鍙互鍋氬埌姣忎釜鍛樺伐鍦ㄨ嚜宸辩殑鐢佃剳鎵撳紑excel鑷姩璁板綍銆備絾鏄€冭檻鍒拌繖涓姹傛瘮杈冮珮锛屽氨鎸夋彁闂€呯殑瑕佹眰鍒╃敤excel鍋氫竴涓崟鏈虹増鐨勭鍒拌〃鍚с€傛晥鏋滃涓嬪浘锛歕u003C/p>

1銆佽緭鍏ョ鍒颁汉濮撳悕锛岀偣鍑荤鍒版寜閽紝浼氳嚜鍔ㄨ褰曞鍚嶏紝鏃ユ湡绛夈€俓u003C/p>

2銆佷竴澶╁彧鑳界鍒颁竴娆★紝绗簩娆＄偣鍑荤鍒版椂锛屼細鎻愮ず涓嶈閲嶅绛惧埌銆俓u003C/p>

3銆佹簮浠ｇ爜濡備笅锛屽枩娆㈢殑鎷胯蛋涓嶈阿銆俓u003C/p>

Sub qd()

rq = Now()

xm = Range(\"H2\")

zhyh = Cells(Rows.Count, 3).End(xlUp).Row + 1

jlrq = Range(\"c\" & zhyh - 1)

xm1 = Range(\"b\" & zhyh - 1)

If zhyh = 3 Then

GoTo 111

End If

If Day(jlrq) = Day(rq) And xm = xm1 Then

MsgBox \"璇蜂笉瑕侀噸澶嶇鍒癨"

Else

111:

Range(\"a\" & zhyh) = zhyh - 2

Range(\"b\" & zhyh) = xm

Range(\"c\" & zhyh) = rq

Range(\"d\" & zhyh) = \"OK\"

End If

End Sub

领域专家：浠嬬粛涓€涓嬶紝鍏跺疄鍙互涓嶈缃寜閽紝褰撳ぉ鐨勬棩鏈熷彲浠ヨ嚜鍔ㄦ秱涓婇鑹层€俓u003C/p>

鏉′欢鏍煎紡娉曪細

1銆侀€変腑鍖哄煙鈥斺€斿紑濮嬧€斺€旀潯浠舵牸寮忊€斺€旀柊寤鸿鍒橽u003C/p>

2銆佽缃叕寮?A2=today()锛屾牸寮忕偣濉厖绾㈣壊

鎰忔€濇槸濡傛灉鍗曞厓鏍兼棩鏈熺瓑浜庡綋澶╃殑璇濓紝濉厖绾㈣壊

浠婂ぉ鏄?2鍙凤紝鎵€浠?2鍙锋樉绀虹孩鑹蹭簡銆俓u003C/p>

娆㈣繋鍏虫敞鎴戠殑澶存潯鍙凤紝濡傛灉鏈塭xcel鏂归潰鐨勯棶棰橈紝鍙互绉佷俊浜ゆ祦锛屼负浣犵瓟鐤戣В鎯戙€俓u003C/p>

领域专家：濉厖棰滆壊锛屽彲浠ョ敤鏉′欢鏍煎紡锛屼篃鍙互鐢╲ba锛屼綘杩欓噷鎻愬埌浜嗘寜閽紝閭ｅ彲浠ラ渶瑕佺敤vba浜嗐€傚綋澶╃殑鏃ユ湡濉厖棰滆壊锛岄偅鏄ㄥぉ鐨勫～鍏呰繃棰滆壊鐨勫憿锛屾槸鍙栨秷濉厖杩樻槸缁х画淇濈暀銆傚叿浣撶殑鍙鑱婃垜锛屽憡璇変綘鏂规硶