½Ð±Ðºô¸ô¤U¸ü¸ê®Æ¦p¦ó¥H©T©wÄæ¼e¤À¶}(µL¤À¹j²Å¸¹)
- ©«¤l
- 38
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taichung
- µù¥U®É¶¡
- 2011-7-6
- ³Ì«áµn¿ý
- 2022-3-29
|
½Ð±Ðºô¸ô¤U¸ü¸ê®Æ¦p¦ó¥H©T©wÄæ¼e¤À¶}(µL¤À¹j²Å¸¹)
¤U¸ü¸ê®Æ¬°(µL¤À¹j²Å¸¹¦³©T©wÄæ¼e03/18~03/20,03/11~03/15 ¤@²Õ©T©wÄæ¼e¬°11¦r¤¸):
range("a1")=03/18~03/2003/11~03/1503/04~03/08
½Ð°Ý¦p¦ó±N¸ê®Æ¥H°}¦C¤À¶}¬°
cells(2,1)=03/18 cells(2,2)=03/20
cells(3,1)=03/11 cells(3,2)=03/15
.
.
¦]¸ê®Æ«Ü¦h§Q¥Î¤½¦¡midµLªk³B²z!
ÁÂÁÂ! |
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taichung
- µù¥U®É¶¡
- 2011-7-6
- ³Ì«áµn¿ý
- 2022-3-29
|
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taichung
- µù¥U®É¶¡
- 2011-7-6
- ³Ì«áµn¿ý
- 2022-3-29
|
¤£¦n·N«ä À£ÁYÀÉ¿ù»~
«·s¤W¶Ç
ÁÂÁÂ! |
-
-
Book1.rar
(5.52 KB)
|
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 4# ten999
~01/04??/18~03/2003/11 ¤Ö¤F??
¸Õ¸Õ¬Ý
- Option Explicit
- Sub EX()
- Dim A As String, I As Integer, S As Variant
- Dim W As String
- A = Trim([A1]) '²M°£¦r¦ê«e«á¦³ªÅ¥Õªº¦r¦ê
- '" AB C DE " -> "AB C DE"
- W = 11 '¤@²Õ©T©wÄæ¼e¬°11¦r¤¸
- For I = 1 To Len(A) Step W
- S = Split(Mid(A, I, W), Mid(A, I + 5, 1)) '«ü©wªº¦r¦ê->Mid(A, I + 5, 1))="~"
- 'Split :¶Ç¦^¥H«ü©wªº¦r¦ê¤À³Îªº¤@ºû°}¦C
- Cells(Int(I / W) + 2, 1) = S(0) '°}¦C²Ä¤@Ó¤¸¯ÀÈ
- Cells(Int(I / W) + 2, 2) = S(1) '°}¦C²Ä¤GÓ¤¸¯ÀÈ
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 38
- ¥DÃD
- 19
- ºëµØ
- 0
- ¿n¤À
- 84
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- taichung
- µù¥U®É¶¡
- 2011-7-6
- ³Ì«áµn¿ý
- 2022-3-29
|
|
|
|
|
|
|