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

[µo°Ý] ½Ð°ª¤â«ü¾É¦p¦ó±N¤å¦rÀɤºªº¼Æ­ÈÂà¨ìEXCELL¤º

[µo°Ý] ½Ð°ª¤â«ü¾É¦p¦ó±N¤å¦rÀɤºªº¼Æ­ÈÂà¨ìEXCELL¤º

¥»©«³Ì«á¥Ñ lcctno ©ó 2016-8-26 09:33 ½s¿è

½Ð°ª¤â«ü¾É¦p¦ó±N¤å¦rÀɤºªº¼Æ­ÈÂà¨ìEXCELL¤º ·PÁ¼ö¤ß¤Hªº±Ð¾É



¤é´Á               ¦¬½L»ù   ¶}½L»ù        ³Ì°ª»ù        ³Ì§C»ù        ¥æ©ö¶q        ¦Ê¤À¤ñ
2016¦~8¤ë26¤é        47.33        47.35        47.38        47.31        -        -0.04%
2016¦~8¤ë25¤é        47.35        46.76        47.44        46.42        -        1.24%
2016¦~8¤ë24¤é        46.77        47.59        47.74        46.45        -        -2.77%
2016¦~8¤ë23¤é        48.10        47.39        48.32        46.59        623.90K        2.23%
2016¦~8¤ë22¤é        47.05        48.40        48.40        46.75        36.53K        -3.03%
2016¦~8¤ë19¤é        48.52        48.33        48.75        47.93        162.44K        0.62%
2016¦~8¤ë18¤é        48.22        46.90        48.38        46.63        229.28K        3.06%
2016¦~8¤ë17¤é        46.79        46.37        46.95        45.84        563.35K        0.45%
2016¦~8¤ë16¤é        46.58        45.59        46.73        45.34        550.44K        1.84%
2016¦~8¤ë15¤é        45.74        44.74        45.93        44.38        522.53K        2.81%
2016¦~8¤ë12¤é        44.49        43.46        44.78        43.31        536.08K        2.30%
2016¦~8¤ë11¤é        43.49        41.48        43.86        41.10        682.24K        4.27%
2016¦~8¤ë10¤é        41.71        42.74        43.39        41.42        676.15K        -2.48%
2016¦~8¤ë9¤é        42.77        42.83        43.52        42.47        624.70K        -0.58%
2016¦~8¤ë8¤é        43.02        41.99        43.39        41.81        562.53K        2.92%
2016¦~8¤ë5¤é        41.80        41.84        42.10        41.06        550.19K        -0.31%
2016¦~8¤ë4¤é        41.93        41.16        42.08        40.43        598.84K        2.69%
2016¦~8¤ë3¤é        40.83        39.70        41.20        39.19        655.19K        3.34%
2016¦~8¤ë2¤é        39.51        40.08        40.91        39.26        534.51K        -1.37%
2016¦~8¤ë1¤é        40.06        41.35        41.88        39.82        533.02K        -3.70%
2016¦~7¤ë29¤é        41.60        41.12        41.67        40.57        478.76K        1.12%
2016¦~7¤ë28¤é        41.14        41.93        42.22        41.04        447.91K        -1.86%
2016¦~7¤ë27¤é        41.92        42.66        43.20        41.68        537.39K        -2.33%
2016¦~7¤ë26¤é        42.92        43.07        43.39        42.36        461.32K        -0.49%
2016¦~7¤ë25¤é        43.13        44.20        44.37        42.97        389.84K        -2.40%
2016¦~7¤ë22¤é        44.19        44.60        44.97        43.74        428.41K        -1.25%
2016¦~7¤ë21¤é        44.75        45.65        46.09        44.52        432.97K        -0.42%
2016¦~7¤ë20¤é        44.94        44.59        45.25        43.69        29.39K        0.65%
2016¦~7¤ë19¤é        44.65        45.23        45.67        44.53        128.13K        -1.30%
2016¦~7¤ë18¤é        45.24        46.12        46.14        44.86        211.39K        -1.55%
2016¦~7¤ë15¤é        45.95        45.52        46.33        45.05        430.26K        0.59%
2016¦~7¤ë14¤é        45.68        45.14        45.80        44.95        573.76K        2.08%
2016¦~7¤ë13¤é        44.75        46.58        46.71        44.56        686.25K        -4.38%
2016¦~7¤ë12¤é        46.80        44.58        46.93        44.51        658.26K        4.56%
2016¦~7¤ë11¤é        44.76        45.07        45.77        44.42        533.66K        -1.43%
2016¦~7¤ë8¤é        45.41        45.19        45.97        44.77        583.08K        0.60%
2016¦~7¤ë7¤é        45.14        47.88        48.25        44.87        710.89K        -4.83%
2016¦~7¤ë6¤é        47.43        46.83        47.95        45.92        607.66K        1.78%
2016¦~7¤ë5¤é        46.60        49.11        49.35        46.33        609.19K        -4.21%

~­ìªo -1.jpg
2016-8-26 09:27

~­ìªo -2.jpg
2016-8-26 09:28


~­ìªo.zip ¤º¦³¤å¦rÀɤÎEXCELLÀÉ
~­ìªo.zip (132.99 KB)

¥i¥H¥Î¤å¦r¶×¤JºëÆF¡A¦pªG¤£¤Ó¼ô±x¾Þ§@¡Agoogle¤@¤U[excel ¶×¤J¤å¦rÀÉ]¡A¦³«Ü¦h±Ð¾Ç¸ê®Æ¡C

TOP

¦^´_ 1# lcctno

¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim ST, xAr, Ar()
  4.     '**»Ý­×§ï¬°­ìªo.TXT¥¿½Tªº¸ê®Æ§¨****
  5.     Open "D:\­ìªo.TXT" For Input As #1
  6.     '**********************************
  7.     ReDim Ar(0)
  8.     Do While Not EOF(1)
  9.         Line Input #1, ST
  10.         xAr = Split(ST, vbTab)
  11.         If UBound(Ar) = 0 Then xAr = Array("¤é´Á", "¦¬½L»ù", "¶}½L»ù", "³Ì°ª»ù", "³Ì§C»ù", "¥æ©ö¶q", "¦Ê¤À¤ñ")
  12.         Ar(UBound(Ar)) = xAr
  13.         If Not EOF(1) Then ReDim Preserve Ar(0 To UBound(Ar) + 1)
  14.     Loop
  15.     Close #1
  16.     With Sheets(1)
  17.         .UsedRange.Clear
  18.         .Range("a1").Resize(UBound(Ar) + 1, 7) = Application.Transpose(Application.Transpose(Ar))
  19.     End With
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# GBKEE
·PÁª©¤jªº±Ð¾É ¬O¥i¥H®³¨ì§Ú­nªº¸ê°T
¦ý ©_©Çªº¬O ¬°¦ó¤é´Áªº®æ¦¡ §Ú¤£¯àÅÜ§ó¬° "2016/08/26"(¥»¨Ó¬O¥i¥Hªº)
¦ý¶]¥X¨Óªº­È §Ú«ç»ò¸Õ³£ÁÙ¬O"2016¦~8¤ë26¤é"
ÁöµL¤jê ¦ý«Ü¦n©_¬°¦ó·|³o¼Ë???

TOP

¦^´_ 4# lcctno
  1. Option Explicit
  2. Sub Ex()
  3.     Dim ST, xAr, Ar()
  4.     '**»Ý­×§ï¬°­ìªo.TXT¥¿½Tªº¸ê®Æ§¨****
  5.     Open "D:\­ìªo.TXT" For Input As #1
  6.     'Open ThisWorkbook.Path & "\­ìªo.TXT" For Input As #1
  7.     '**********************************
  8.     ReDim Ar(0)
  9.     Do While Not EOF(1)
  10.         Line Input #1, ST
  11.         xAr = Split(ST, vbTab)           'Split
  12.         'Split ¨ç¼Æ ¶Ç¦^¤@­Ó³¯¦C¯Á¤Þ±q¹s¶}©lªº¤@ºû°}¦C¡A¥¦¥]§t«ü©w¼Æ¥Øªº¤l¦r¦ê¡C
  13.         '³o¤@ºû°}¦Cªº¤º®e³£¬O¤å¦r
  14.         If UBound(Ar) = 0 Then xAr = Array("¤é´Á", "¦¬½L»ù", "¶}½L»ù", "³Ì°ª»ù", "³Ì§C»ù", "¥æ©ö¶q", "¦Ê¤À¤ñ")
  15.         Ar(UBound(Ar)) = xAr
  16.         If Not EOF(1) Then ReDim Preserve Ar(0 To UBound(Ar) + 1)
  17.     Loop
  18.     Close #1
  19.     With Sheets(1)
  20.         .UsedRange.Clear
  21.         .Range("a1").Resize(UBound(Ar) + 1, 7).Value = Application.Transpose(Application.Transpose(Ar))
  22.         With .UsedRange.Columns(1).Offset(1)
  23.             '** ­×§ï¬°¤é´Á®æ¦¡ ***
  24.             .Replace "¦~", "/"
  25.             .Replace "¤ë", "/"
  26.             .Replace "¤é", ""
  27.         End With
  28.     End With
  29. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥i¥H¥Îexcelª½±µ¶}±Ò¤å¦rÀÉ¡G
  1. Sub TEST()
  2. Dim MySht As Worksheet
  3. Set MySht = ActiveSheet
  4. MySht.UsedRange.Clear
  5. Application.ScreenUpdating = False
  6. With Workbooks.Open(ThisWorkbook.Path & "\­ìªo.txt")
  7.      MySht.[A:G] = .Sheets(1).[A:G].Value
  8.      .Close 0
  9.      MySht.[A1:G1] = Split("¤é´Á ¦¬½L»ù ¶}½L»ù ³Ì°ª»ù ³Ì§C»ù ¥æ©ö¶q ¦Ê¤À¤ñ", " ")
  10. End With
  11. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD