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

½Ð±Ðºô¸ô¤U¸ü¸ê®Æ¦p¦ó¥H©T©wÄæ¼e¤À¶}(µL¤À¹j²Å¸¹)

½Ð±Ðºô¸ô¤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!
ÁÂÁÂ!

¦^´_ 1# ten999
¶Ç¤WÀɮ׬ݬÝ
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦¹¬°¤U¸ü¸ê®ÆÀ£ÁYÀÉ,ÁÂÁÂ!

Book1.rar (5.62 KB)

TOP

¤£¦n·N«ä À£ÁYÀÉ¿ù»~
­«·s¤W¶Ç
ÁÂÁÂ!

Book1.rar (5.52 KB)

TOP

¦^´_ 4# ten999
~01/04??/18~03/2003/11 ¤Ö¤F??
¸Õ¸Õ¬Ý

   
  1. Option Explicit
  2. Sub EX()
  3.     Dim A As String, I As Integer, S As Variant
  4.     Dim W As String
  5.     A = Trim([A1])    '²M°£¦r¦ê«e«á¦³ªÅ¥Õªº¦r¦ê
  6.                       '"  AB C DE    " -> "AB C DE"
  7.     W = 11            '¤@²Õ©T©wÄæ¼e¬°11¦r¤¸
  8.     For I = 1 To Len(A) Step W
  9.         S = Split(Mid(A, I, W), Mid(A, I + 5, 1)) '«ü©wªº¦r¦ê->Mid(A, I + 5, 1))="~"
  10.         'Split :¶Ç¦^¥H«ü©wªº¦r¦ê¤À³Îªº¤@ºû°}¦C
  11.         Cells(Int(I / W) + 2, 1) = S(0)   '°}¦C²Ä¤@­Ó¤¸¯À­È
  12.         Cells(Int(I / W) + 2, 2) = S(1)   '°}¦C²Ä¤G­Ó¤¸¯À­È
  13.     Next
  14. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

°ÝÃD¤w¸Ñ¨M ok
ÁÂÁÂ!

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD