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

[µo°Ý] MID§ì¨ú¸ê®Æ0¤£¨£°ÝÃD½Ð±Ð

[µo°Ý] MID§ì¨ú¸ê®Æ0¤£¨£°ÝÃD½Ð±Ð

DEAR ALL ¤j¤j
1.¦p¹Ï¤@µ{¦¡½X,§Ú¨Ï¥Î Mid(Sheets("" & Sheet1.Range("A1") & ".nd").Cells(M, 1), 2, 9)§ì¨ú¸ê®Æ
  1.1 X-01062550Y-00788021§ì¨ú¥X -1062550
2.°ÝÃDÂI  À³¸Ó§ì¨ú¥X -01062550 . ¦ý-«á¤è¤§ 0 ¤£¨£°Õ
2.1 ½Ð°Ý¸Ó¦p¦ó­×§ï. ·Ð¤£§[½ç±Ð   THANKS*10000

¹Ï¤@
Sub ¸ê®Æ¤ÀªR1()
X = Sheets("" & Sheet1.Range("A1") & ".nd").[A65536].End(xlUp).Row
Y = Sheets("jyk158a_cs_r90_via.nd").[D65536].End(xlUp).Row
For M = 7 To X
If 1 = 1 Then
  Sheets("" & Sheet1.Range("A1") & ".nd").Cells(Y + 1, 4) = Sheet1.Cells(1, 2)
  Sheets("" & Sheet1.Range("A1") & ".nd").Cells(Y + 1, 5) = Sheet1.Cells(1, 3)
  Sheets("" & Sheet1.Range("A1") & ".nd").Cells(Y + 1, 6) = Sheet1.Cells(1, 4)
  
  Sheets("" & Sheet1.Range("A1") & ".nd").Cells(Y + 1, 7) = Mid(Sheets("" & Sheet1.Range("A1") & ".nd").Cells(M, 1), 2, 9)
      Y = Y + 1
  End If
  Next
End Sub
ù

With Sheets("" & Sheet1.Range("A1") & ".nd")
     .Cells(Y + 1, 4) = Sheet1.Cells(1, 2)
     .Cells(Y + 1, 5) = Sheet1.Cells(1, 3)
     .Cells(Y + 1, 6) = Sheet1.Cells(1, 4)
     .Cells(Y + 1, 7) = "'" & Mid(.Cells(M, 1), 2, 9) '¥[³æ¤Þ¸¹¬°¤å¦r®æ¦¡
End With

TOP

©ÎªÌ:
With Sheets("" & Sheet1.Range("A1") & ".nd")
     .Cells(Y + 1, 4) = Sheet1.Cells(1, 2)
     .Cells(Y + 1, 5) = Sheet1.Cells(1, 3)
     .Cells(Y + 1, 6) = Sheet1.Cells(1, 4)
     .Cells(Y + 1, 7).NumberFormatLocal = "@" '¤å¦r®æ¦¡
     .Cells(Y + 1, 7) = Mid(.Cells(M, 1), 2, 9)
End With

³Ì¦n¥ý±N¾ãÄæ³]¬°[¤å¦r®æ¦¡], ¤£¥²¦bµ{¦¡½X¥h³B²z, ¦h¯Ó¸ê·½~~

TOP

DEAR ­ã¤j
1.·PÁ±z¤§¦^´_ . 100%²Å¦X»Ý¨D.
2.±N¨Ì±z¤§«Øij°õ¦æ  THANKS*10000
³Ì¦n¥ý±N¾ãÄæ³]¬°[¤å¦r®æ¦¡], ¤£¥²¦bµ{¦¡½X¥h³B²z, ¦h¯Ó¸ê·½~~
ù

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD