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

[µo°Ý] §t¦³¤å¦rªº¥[Á`

Hello, ­ã¤j

¤F¸Ñ! ÁÂÁ§Aªº±Ð¾É.
·s¤â¤W¸ô¡A½Ð¦h¥]²[¡C

TOP

¦^´_ 18# ¼B¤j­G

«Ü·PÁ§Aªº´£°Ý¡AÅý§Ú¤]¦³¦¬Àò¡A¤]ÁÂÁ§Aªº¤½¦¡¡A§Ú·|¦n¦n¦A¬ã¨s¡A·PÁÂ....

TOP

¦^´_ 11# ­ã´£³¡ªL

½Ð°Ý­ã¤j,
§Ú¦³¥t¤@­Óªº§t¤å¦r¥[Á`    §t¤å¦r¥[Á`II.rar (12.94 KB)
B4:AF10¬°¥[¯Z®É¼Æ,¦]¬O¤½¥Îªí®æ,¦U¦Û¶ñ¤J¦Û¤vªº¥[¯Z®É¼Æ,³]©w¦nªº®æ¦¡±`·|³QÅÜ°Ê       
¨ÌAJ1«ü©wªº­È,¥[Á`A4:A10=AJ1¥BB4:AF10,©Ò¦³§t"¥["ªº¼Æ­È       
­n¦p¦ó¨Ï¥Î¨ç¼Æ¥[Á`?
¦³¨Ç¬O¤å¦r"¥[",¦³¨Ç¬O®æ¦¡¤Æªº"¥[",¦ý¥u­n¬Ý¨ì"¥[",´Nµø¬°­n¥[Á`ªº¹ï¶H       
EX: AJ1=P3®É,§t"¥["ªº¼Æ­È¬°20

TOP

¦^´_ 23# PJChen

¥Îvba¦Û­q¨ç¼Æ,
P3À³¬°21(¨ä¤¤¦³®æ¦¡ªº¥[1)
Xl0000175.rar (14.66 KB)

TOP

¦^´_ 24# ­ã´£³¡ªL

­ã¤j¦n,
¦]¬°¤½¥Îªí®æ¤£¯à¨Ï¥ÎVBAµ{¦¡,©Ò¥H§Ú§ï¤F¥t¤@§@ªk,
±NÀɦW³]©w¦b"¥[¯Z­pºâ.xlsx"ªº"¥[¯Z"¤u§@ªíO1Àx¦s®æ¤¤,
©Ò¦³»Ý­n²Î­pªº¸ê®Æ³£¦b"¥[¯Z"¤u§@ªí¤º,¦]¬°¨Ï¥Î¤F¸óÀÉ®×,
½Ð°Ýµ{¦¡­n¦p¦ó­×§ï¥i¥H®M¥Î¦bDÄæ¦ì¤¤?
¥t¥~¨Ó·½ÀÉ"2020¦~°²ªí"±`¦³¤H¥ô·NÅܰʮ榡,
¤£¹L¤H­û¤@«ß©ñ¦bAÄæ,¤é´ÁÄæ«h¤@«ß¬O²Ä¤G¦C,¤@ª½¨ì¨C¤ëªº¤é´Áµ²§ô
§t¤å¦r¥[Á`II_vba¦Û©w¸q¨ç¼Æ.rar (86.72 KB)

TOP

¦^´_ 25# PJChen

§Úªºª©¥»Àɮ׶}¤£¤F,
Åý§O¤H¨Ó°µ§a~~

TOP

¦^´_ 26# ­ã´£³¡ªL

ª½±µ¥Î­ã¤j´£¨ÑªºFunctionµ{¦¡
DÄ椽¦¡=¥[¯Z¼Æ(INDIRECT("'["&fl&"]"&$A2&"'!"&"A4:AF12"),J$1)¤U©Ô

TOP

¦^´_ 27# jcchiang

¥i¥H¤F¡I·PÁÂ

TOP

¦^´_ 24# ­ã´£³¡ªL


    ÁÂÁ«e½ú
«á¾Ç¾Ç²ß¨ì Range.Text ÄÝ©Ê»P°Ï°ì¦s®æ¬Û¹ï¦ì¸m®Ö¨ú...µ¥
¤ß±oµù¸Ñ¦p¤U,½Ð«e½ú¦A«ü¾É

°õ¦æµ²ªG:
20230309-1.jpg
2023-3-9 14:10


Function ¥[¯Z¼Æ(Rng As Range, S1$) As Long
'¡ô¥[¯Z¼Æ()¦Û­q¨ç¼Æ,RngÅܼƬOÀx¦s®æÅܼÆ,S1¬O¦r¦êÅܼÆ,¨ç¼Æ¦^¶Ç­È¬Oªø¾ã¼Æ
Dim R&, S&, C%, V%, T$
'¡ô«Å§iÅܼÆ:(R,S)¬Oªø¾ã¼ÆÅܼÆ,(C,V)¬Oµu¾ã¼ÆÅܼÆ,T¬O¦r¦êÅܼÆ
If S1 = "" Then Exit Function
'¡ô¦pªGS1³o¦r¦êÅܼƬOªÅ¦r¤¸!,´Nµ²§ô¦Û­q¨ç¼Æ
For R = 1 To Rng.Rows.Count
'¡ô³]¶¶°j°é!R±q1¨ì RngÅܼƪº¦C¼Æ
    If Rng(R, 1) <> S1 Then GoTo r01
    '¡ô¦pªGRngÅܼƸ̪º¬Û¹ïR°j°é¦C²Ä1ÄæÀx¦s®æ­È¤£¬O S1ÅܼƭÈ
For C = 2 To Rng.Columns.Count
'¡ô³]¶¶°j°é!C±q2¨ì RngÅܼƪºÄæ¼Æ
    T = Rng(R, C).Text
    '¡ô¥OT³o¦r¦êÅܼƬO RngÅܼƸ̪º¬Û¹ïR°j°é¦C²ÄC°j°éÄæÀx¦s®æ­È
    '.Text:¶Ç¦^«ü©w¤§ª«¥óªº®æ¦¡¤Æ¤å¦r
    'https://learn.microsoft.com/zh-tw/office/vba/api/excel.range.text

    V = InStr(T, "¥[")
    '¡ô¥OV³oµu¾ã¼ÆÅܼƬO "¥["¦r¦ê¦b TÅܼƸ̪º¦r¤¸¦ì¸m
    If V > 0 Then ¥[¯Z¼Æ = ¥[¯Z¼Æ + Val(Mid(T, V + 1))
    '¡ô¦pªGVÅÜ¼Æ >0!´N¥O ¥[¯Z¼Æ()¦^¶Ç:
    '¥[¯Z¼Æ()+ ¼W¶q­È
    '¼W¶q­È:TÅܼƨú²Ä(VÅܼÆ+1)¦r¶}©lªº¥k°¼¥þ³¡¦r¤¸,¦AÂà¤Æ¬°¼Æ¦r­È

Next C
r01: Next R
End Function
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD