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

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

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2021-4-25 22:04 ½s¿è

¦^´_ 30# PJChen

²Ä´X­Ó¤u§@ªí ¬O ¼Æ¦r   ¦WºÙ ¬O My_Sh_Name$ = [¤u§@ªí2!E5].Value ¤w©w¸q¬° "¤å¦r"
¦]¬°¦WºÙ ¦³¼Æ¦r¤S¦³¤å¦r  1~3 ¨ä¹ê¬O 9~11­Ó¤u§@ªí  ¦Ó "¦L½LÂIªí" ¬O²Ä2­Ó¤u§@ªí  §PÂ_µ²ªG·|¦³¿ù»~ ¥i§_§ï¦¨ ²Î¤@¥Î²Ä´X­Ó¤u§@ªí?
³o¼Ë ´N¥i¥H¦X¨Ö¨Ï¥Î

TOP

¦^´_ 30# PJChen

¦³ªÅÀ°¸Õ¸Õ¬Ý ³o¼Ë¦æ¤£¦æ

        '¦b¦P¤@­Ó¬¡­¶Ã¯«ü©w³æ¤@¤u§@ªí
        My_Sh_Name$ = [¤u§@ªí2!E5].Value
        If [¤u§@ªí2!E9] <> "" Then
            '¦b¦P¤@­Ó¬¡­¶Ã¯«ü©w¦h­Ó¤u§@ªí Sheets(1)¨ì Sheets(N)­Ó
            °_ÂI% = [¤u§@ªí2!E5].Value
            µ²§ôÂI = [¤u§@ªí2!E9].Value
            If IsNumeric(°_ÂI) And IsNumeric(µ²§ôÂI) Then
                 MsgBox °_ÂI & "¨ì" & µ²§ôÂI
            Else
                 MsgBox "¥¼«ü©w¤u§@ªí¦ì¸m"
                 Exit Sub
            End If
        End If

TOP

¦^´_ 30# PJChen

¦X¨Ö¨Ï¥Î ¤å¦r or ¼Æ¦r ³£¥i¥H
§ï¤F´X­Ó¦a¤è  ¦³ªÅ¦AÀ°§Ú¸Õ¸Õ¬Ý ¦³¨S¦³°ÝÃD ·PÁÂ

0425.rar (25.11 KB)

TOP

¦^´_ 30# PJChen

©êºp³o¬q­n§ï¤@¤U :
        '¦b¦P¤@­Ó¬¡­¶Ã¯«ü©w³æ¤@¤u§@ªí
        My_Sh_Name$ = [¤u§@ªí2!E5].Value
        If [¤u§@ªí2!E9] <> "" Then
            '¦b¦P¤@­Ó¬¡­¶Ã¯«ü©w¦h­Ó¤u§@ªí Sheets(1)¨ì Sheets(N)­Ó
            °_ÂI% = [¤u§@ªí2!E5].Value
            µ²§ôÂI = [¤u§@ªí2!E9].Value
            If °_ÂI = 0 Then
                MsgBox "¥¼«ü©w¤u§@ªí¦ì¸m"
                Exit Sub
            ElseIf IsNumeric(°_ÂI) And IsNumeric(µ²§ôÂI) Then
                 MsgBox °_ÂI & "¨ì" & µ²§ôÂI
            Else
                 MsgBox "¥¼«ü©w¤u§@ªí¦ì¸m"
                 Exit Sub
            End If
        End If

TOP

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

ºµ¤j¦n,
·í°_ÂI¬O¤å¦r®É,·|¥X²{¿ù»~,µ{¦¡¤£¯à¹B§@¡I R0425.rar (25.03 KB)
¥t¥~,µ{¦¡¶K¨ì§Ú¥­±`¨Ï¥Îªº¤u§@ªí®É,¤@ª½¥X²{°ÝÃD, ¤@¤U¬O¨S©w¸q,¤@¤U¬O­nwith...
¦UºØªº°ÝÃD,§¹¥þµLªk¨Ï¥Î,¥u¦³·í¥¦¬O³æ¿W¤@­ÓÀÉ®É,¤~¯à¹B§@,³o¯à¸Ñ¨M¶Ü?

´ú¸Õ¤F´X¤Ñ,§Úªº¨C­Ó¤u§@ªí©R¦W¤j¦h¬O¤å¦r»P¼Æ¦r²V¦X,
­nºâ²Äx¨ì²Äx­Ó¤u§@ªí,¦n¹³¤ñ¸û³Â·Ð,¤å¦r»P¼Æ¦r²V¦XªºÀÉ®×,
¥H¶}©l~µ²§ô,¯à§_Åý¥¦¥þ³¡µø¬°¤å¦r,¼Æ¦r¤u§@ªí¤]¤£¤@©w­n¼Æ¤~¥i¥H?
¥i¥H³o¼Ë°µ¶Ü?

TOP

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

¦^´_ 35# PJChen
¦]¬° E5 ¬O¤å¦r E9 ´N¤£¯à¦³¤º®e : ³æ¤@¤u§@ªí®É   E9 ´N¤£¯à¦³¤º®e
³o¤w¸g¬O ¦X¨Öªº§PÂ_¤F
³o¬q§ï¤@¤U ¸Õ¸Õ¬ÝÁÙ¦³¨S¦³°ÝÃD ·PÁÂ

        '¦b¦P¤@­Ó¬¡­¶Ã¯«ü©w³æ¤@¤u§@ªí
        My_Sh_Name$ = [¤u§@ªí2!E5].Value
        If Not IsNumeric(My_Sh_Name) Then [¤u§@ªí2!E9] = ""
        If [¤u§@ªí2!E9] <> "" Then
            '¦b¦P¤@­Ó¬¡­¶Ã¯«ü©w¦h­Ó¤u§@ªí Sheets(1)¨ì Sheets(N)­Ó
            °_ÂI% = [¤u§@ªí2!E5].Value
            µ²§ôÂI = [¤u§@ªí2!E9].Value
            If °_ÂI = 0 Then
                MsgBox "¥¼«ü©w¤u§@ªí¦ì¸m"
                Exit Sub
            ElseIf IsNumeric(°_ÂI) And IsNumeric(µ²§ôÂI) Then
                 MsgBox °_ÂI & "¨ì" & µ²§ôÂI
            Else
                 MsgBox "¥¼«ü©w¤u§@ªí¦ì¸m"
                 Exit Sub
            End If
        End If
¥t¥~,µ{¦¡¶K¨ì§Ú¥­±`¨Ï¥Îªº¤u§@ªí®É,¤@ª½¥X²{°ÝÃD, ¤@¤U¬O¨S©w¸q,¤@¤U¬O­nwith...
¦UºØªº°ÝÃD,§¹¥þµLªk¨Ï¥Î,¥u¦³·í¥¦¬O³æ¿W¤@­ÓÀÉ®É,¤~¯à¹B§@,³o¯à¸Ñ¨M¶Ü?
½Ð°Ý  ¶K¨ì§Ú¥­±`¨Ï¥Îªº¤u§@ªí ¬O¬Æ»òÀÉ®×? ¥i§_¤W¶Ç¬Ý¤@¤U ·PÁÂ
¥i¥H¥Î¦Û­qªí³æ ©ÎµÛ InputBox  µM«á¦s¦¨¼W¯q¶°

TOP

¦^´_ 35# PJChen

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

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

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

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD