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

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

¦^´_ 35# PJChen

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

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

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

¦^´_ 38# PJChen

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

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

¥»©«³Ì«á¥Ñ °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

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD