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

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

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

¤j¤j­Ì¦n,

½Ð±Ð¦p¤U....
¨Ó·½Àɬ°°Ó«~2!·s¤ë¤u§@ªí       
§Ú¦³³\¦hªºÀɮ׳£»Ý­n®Ú¾Ú"®Æ¸¹Äæ"ªº®Æ¸¹¶¶§Ç¬°¨Ì¾Ú,°µ±Æ§Ç       
»Ý±Æ§Çªº¨C­ÓÀɪºªíÀY¦ì¸m,¤Î¤º®e³£¤£¤Ó¦P,       
¥ØªºÀɱƧǪº·Ç«h¬°¾ã¦C±Æ§Ç,­Y¦³¥¼¥X²{ªº®Æ¸¹,«h²¤¹L       
¨Ò:        ¼Ð¥Ü¶À©³,³£¬O¥ØªºÀÉ®w¦sªí¨S¦³ªº«~¶µ,«h¥ØªºÀɪº³o¨Ç®Æ¸¹,´N²¤¹L,¸õ¤U­Ó®Æ¸¹Ä~Äò±Æ§Ç
        ¥Ñ©ó¥ØªºÀɤ]·|¦³¨Ç¤u§@ªí»P®Æ¸¹µLÃö,¤£»Ý±Æ§Ç,
        ©Ò¥H»Ý±Æ§Çªº¤u§@ªí,¥H"·s¤ë"M1:M2©Ò«ü©wªº°_¨´¤u§@ªí§@¬°±Æ§Ç¹ï¶H
        ¨Ã¥B¦Û°Ê§ä´MªíÀY¦³"®Æ¸¹"¦r¼Ë,´N¨Ì"·s¤ë"ªº®Æ¸¹¶¶§Ç¾ã¦C±Æ§Ç

¨Ì·s¤ë¤u§@ªí_®Æ¸¹±Æ§Ç.rar (326.8 KB)

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

¦]¬°¦b°õ¦æµ{¦¡¹Lµ{¤¤,°õ¦æ¤@¦¸´N¥X²{¤@­Ó¹ï¸Ü®Ø,«Ü¦h¡B«Ü¦h¦¸,©Ò¥H´N¤@ª½Dim....
³o¦¸ªºµ{¦¡³Ìªñ§Ú·Q­nªº,·PÁ±z....

TOP

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

¦^´_ 43# PJChen
³o¬q©p¬Ý¤@¤U ³o¬O«ü©w¸q¬° ¬¡­¶Ã¯ ª«¥ó
Dim a1 As Workbook, xS As Worksheet, Sh As Worksheet, wO$, Arr, xD

TOP

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

ºµ¤j,
§Ú¨S¦³­n«ü©w¸ô®|,¸ô®|¥u¬O¦Û¤v°Ñ¦Ò¥Îªº,³£»¡¤F­n­ì¼gªk,
¥u¬O§ïÅÜ3­Ó¿é¤JÀx¦s®æ¦ì¸m...¦Ó¥B³£­×§ï¦n¤F,¬°¦ó´«¤F¤@­Ó¤u§@ªí,µ{¦¡ÀÉ´N¤£¯à¹B§@?
¦Ó¥B§Ú¨S¦³³]©wa1,±z»¡ªºa1¬Oª«¥ó ¤£¬OÅÜ¼Æ ?¤£²z¸Ñ,§Ú¦³©ñ¤°»òª«¥ó?

TOP

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

¦^´_ 41# PJChen
¦]¬° ©pªºa1¬Oª«¥ó ¤£¬OÅÜ¼Æ ¦pªG­n«ü©w¸ôªñ ´N¤£»Ý­n¿ï¾Ü¦ì¸m ­n§ï¦¨Ãþ¦ü³o¼Ëªº¼gªk
'    A1 = Dir(ThisWorkbook.Path & "\" & "°Ó«~2.xlsm")
'    Ex.Workbooks.Open ThisWorkbook.Path & "\" & A1
¤£³Â·Ð ¦]¬°§Ú­Ì¬O¤¬¬ÛÀ°§U ^_^ §Ú¥u¬O­n½T»{©p­nªºµ²ªG¦Ó¤w
¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬Ý ¬O¤£¬O©p­nªºµ²ªG ·PÁÂ

Micro_20426.rar (38.84 KB)

TOP

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

ºµ¤j,
ÁöµM§Ú´«¤F¤@­Óªí®æ,»Ý¶ñ¤J¤u§@ªíªº®æ¤l´«¤F¦ì¸m¦Ó¤w,¨ä¾lªº¨Ã¨S¦³ÅÜ°Ê,
¦pªG±z»{¬°¨ä¥Lªº°ÝÃD»Ý­n¤j¶q§ïµ{¦¡,´N¤£­n³Â·Ð¤F¡I
¥u¬O·Qª¾¹D...
Àx¦s®æ¦ì¸m§Ú³£­×§ï¦n¤F,¬°¦ó´«¤F¤@­Ó¤u§@ªí,µ{¦¡ÀÉ´N¤£¯à¹B§@?

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-26 20:38 ½s¿è

¦^´_ 38# PJChen

¥i¥H»¡²M·¡ ²{¦bªºÅ޿褣µM³oÃD·|§ï¤£§¹  ^^"

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-26 20:24 ½s¿è

¦^´_ 38# PJChen

½T©w­n¥Î Micro_2 ³o­ÓÀɮ׶Ü? ¦pªG½T©w ´N­n­«¼g¦]¬°¤j³¡¤À»Ý¨D¤w¸g¤£¤@¼Ë¤F
¦pªG¥u¥Î¤u§@ªí¦WºÙ ´N§ï³o¼Ë:
'¦L½LÂIªí~½LÂI
For X = 1 To Sheets.Count
    If Sheets(X).Name = "¦L½LÂIªí" Then
        For X1 = X To Sheets.Count
            Sheets(X1).Activate
            If Sheets(X1).Name = "½LÂI" Then
                Exit For
            End If
        Next X1
    Exit For
    End If
Next X

½Ð°Ý  Micro_2  ªº AV2 ¬O ¨Ì¾Ú Àɮתº¸ôªñ¶Ü?

TOP

¦^´_ 36# °a¤ªºµ
ºµ¤j¦n,

´ú¸Õµ²ªG¦p¤U¡G
1) ¤wªþ¤W¥­¤é§@·~¼Ò¦¡ªºµ{¦¡ÀÉ,ÁÙ¬O¤£¯à¹B§@
2) ¶}©l (& ³æ¤@±Æ§Ç¤u§@ªí)³]¦bAZ4/ µ²§ô ³]¦bAZ5
3) µ²§ô Àx¦s®æ[AZ5]=0®É,´N¬Û·í©ó"",©Ò¦³ªºÄæ¦ì¦]¬°³£¦³¤½¦¡,½Ð¤£­nÅý¥¦¦³²M°£Äæ¦ì¥\¯à
4) ¶}©l (& ³æ¤@±Æ§Ç¤u§@ªí)/ µ²§ô ªºÀx¦s®æ,µL½×¬O§_¬°¼Æ¦r,¯à¦³¨ä¥L¼gªk,¤£­n¥Î¼Æ²Äx­Ó
For xh = 1 To Sheets.Count
¨Ò¦p¡G¤u§@ªíA~¤u§@ªí8(¤£¬O¼Æ²Ä8,¦Ó¬O¤u§@ªí8)
Micro_2.rar (34.3 KB)

TOP

¦^´_ 35# PJChen

¤w§ï¦¨ªí³æ¤è¦¡ ¦b¸Õ¸Õ¬Ý³o¼Ë¦æ¤£¦æ
¦pªG¨S°ÝÃD ¥i¥H¦s¦¨¼W¯q¶°
¤£»Ý­n¥Îªº®É­Ô¦AÃö³¬
0426.rar (24.53 KB)

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD