ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ®Ú¾Ú"®Æ¸¹Äæ"¬°¨Ì¾Ú,°µ±Æ§Ç

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-18 00:33 ½s¿è

¦^´_ 20# PJChen
¦]¬°¦³²¾°Ê¨C¤@­Ó­n±Æ§ÇªºÀx¦s®æ  ©Ò¥H·|¤ñ¸ûºC ¤£µM´N¬O­n¥Î¥t¤@ºØ¤èªk ´N¬O¥ý¦s¦b°}¦C ¦A¶K¦^¥h ¦ýÃC¦â§Ú¤£ª¾¹D«ç»ò¶K¦^¥h
¦pªGÃC¦â¨S¦³®tªº¸Ü ´N¥i¥H
¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬Ý ¬O¤£¬O³o¼Ëªºµ²ªG·PÁÂ
0418.rar (24.91 KB)

TOP

¥»©«³Ì«á¥Ñ PJChen ©ó 2021-4-18 11:28 ½s¿è

¦^´_ 21# °a¤ªºµ
ºµ¤j¦n,
µ{¦¡´ú¸Õ:
1) ³æ¤@¤u§@ªí±Æ§Ç & ¦h­Ó¤u§@ªí±Æ§Ç,³£·|´`Àô°Ý¤G¦¸¦P¼Ë°ÝÃD,¯à§_¦A²¤Æ?¬Ý¸Õ§_¯àÁ׶}¦A«×¸ß°Ý
2) ±Æ§Ç³t«×ÁÙ¬O°¾ºC
3) §Ú­ì¥»©ñ2­Ó¹ÏÀÉ,¦ý¤£²M·¡,§â¥¦§R°£ÁÙ¬O·|¥X²{,¤£¹L¸Ñ¶}À£ÁYÀÉ,¤ñ¸û¦n¬Ý¡I

0418.rar (24.71 KB)
20210418.111435.jpg
20210418.111413.jpg

TOP

¦^´_ 21# °a¤ªºµ

¦A¸É¥R:
­n±Æ§Çªº¸ß°Ý,¥u¦³°w¹ï"¦ì¸m(¸ê®Æ§¨)">¤u§@ªí
¨Ã¨S¦³°ÝÀÉ®×,¦p¦óª¾¹D­þ­ÓÀÉ­n±Æ§Ç?³o¼Ë·|ÀH·N§ì¤@­ÓÀÉ,
¥i¥H:
1) «ü©wÀÉ®×,«ü©w³æ¤@¤u§@ªí±Æ§Ç
2) «ü©wÀÉ®×,&«ü©w³sÄò¤u§@ªí±Æ§Ç
3) «ü©w¸ê®Æ§¨/*.xlsx&«ü©w³sÄò¤u§@ªí±Æ§Ç

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-18 23:13 ½s¿è

¦^´_ 23# PJChen

½Ð°Ý "*.xlsx" ¨C­Ó¬¡­¶Ã¯´`Àô±Æ§Çªº®É­Ô °_ÂIªº¤u§@ªí ¸ò µ²§ôÂIªº¤u§@ªí  ¨C­Ó¬¡­¶Ã¯¬O©T©wªº¶Ü?

TOP

¦^´_ 23# PJChen
¦pªG¬O¦h¬¡­¶Ã¯¦h¤u§@ªí ¨º¤u§@ªíªº°Ï¶¡¤£©wªº¸Ü´N·|¤@ª½¥X²{¿ï¾Ü¤u§@ªíªº°Ï¶¡¦ì¸m
ÁÙ¬O»¡ ¥u¬O­n ¥i¥H¿ï¾Ü­n±Æ§Çªº¬¡­¶Ã¯ °µ¦h¤u§@ªí±Æ§Ç? ©ÎµÛ¬O 2­Ó³£­n?
1.¥i¥H¿ï¾Ü ­n±Æ§Çªº¬¡­¶Ã¯ ¥i¥H³æ¤@¤]¥i¥H¦h­Ó¤u§@ªí±Æ§Ç
2.¤£«ü©w¬¡­¶Ã¯ ­n¶i¦æ¦h­Ó¬¡­¶Ã¯±Æ§Ç¦ý¤u§@ªí¦ì¸m¤£¦P : «ü©w¤u§@ªí°Ï¶¡ ¨C´«¤@­Ó¬¡­¶Ã¯ ´N­n­«·s«ü©w¤u§@ªí°Ï¶¡¤@¦¸
3.¤£«ü©w¬¡­¶Ã¯ ­n¶i¦æ¦h­Ó¬¡­¶Ã¯±Æ§Ç ¤u§@ªí°Ï¶¡¬Û¦P
¬O³o¼Ëªºµ²ªG¶Ü?

TOP

¦^´_ 25# °a¤ªºµ
ºµ¤j,
·Q·QÁÙ¬O¤£­n°µ±o¤Ó½ÆÂø,´N¥Î­ì¨Óªº,«ü©w³æ¤@Àɮתº¤èªk
1) ³æ¤@¤u§@ªí
2) ¦h­Ó¤u§@ªí
³o¼Ë´N¦n,¤£¹L¹ï¸Ü®Ø¿ï¶µ,¦³¿ìªk¥Î§Ú´£¨Ñªº¨º­Ó¤è¦¡¶Ü?
¥ý«e´ú¸Õ,µ{¦¡ÁÙ¤£¤Ó¥¿±`¡I

TOP

¦^´_ 26# PJChen

¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬Ý ¬O¤£¬O³o¼Ëªºµ²ªG·PÁÂ

0419.rar (26.75 KB)

TOP

¦^´_ 27# °a¤ªºµ
ºµ¤j¦n,
§Ú·Q±N¨Ì¾Úªº¤u§@ªí§ï¬°¦WºÙ,¤~¤£¥Î¤@ª½ºâ²Ä´X­Ó¤u§@ªí,
¦ý­×§ï«á¤£¯à¹B§@,°±¦b¬õ¦r³o¤@¦æ,½ÐÀ°¦£¬Ý¤U­þ¸Ì­n¦A­×§ï?
    wO = xS.[³]©w!Z2].Value
    If Sh.Name$(wO) Then MsgBox "¨S¦³«ü©w¤u§@ªí": Ex.Quit: Set Ex = Nothing: Set Sh = Nothing: Exit Sub
    MsgBox """" & "¨Ì¾Ú" & wO & "¤u§@ªí±Æ§Ç"
    Set Sh = Ex.Sheets(wO & "") '¥i¥H«ü©w"¨Ì¾Ú"­þ­Ó¤u§@ªí¨Ó±Æ§Ç

TOP

¦^´_ 28# PJChen


    If IsNumeric(wO) Then MsgBox "¨S¦³«ü©w²Ä´X­Ó¤u§@ªí": Ex.Quit: Set Ex = Nothing: Set Sh = Nothing: Exit Sub
    MsgBox """" & "¨Ì¾Ú" & """²Ä" & wO & "­Ó¤u§@ªí±Æ§Ç"
    Set Sh = Ex.Sheets(wO) '¥i¥H«ü©w"¨Ì¾Ú"­þ­Ó¤u§@ªí¨Ó±Æ§Ç

TOP

¦^´_ 29# °a¤ªºµ

ºµ¤j¦n,
­×§ï§¹«á,µLªk°õ¦æ,»¡¨S¦³«ü©w¤u§@ªí,¦ýÀx¦s®æ©ú©ú¦³¤u§@ªí¦WºÙ
¥t¥~,§Ú§âµ{¦¡²¾¨ì¨ä¥L¤u§@ªí¤º,¸ò¨ä¥Lµ{¦¡©ñ¤@°_,¤]µLªk°õ¦æ,
»¡¬O¨S¦³©w¸q,¯à§_¤]³Â·ÐÀ°¦£¬Ý¤U©w×mªº³¡¥÷?
0419.rar (24.49 KB)

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD