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

[µo°Ý] [µo°Ý]¦p¦ó¥Î°j°é¨ú¥X°}¦C­È¡A¤£Â_©ñ¨ì¤@­Ó©T©w½d³ò

[µo°Ý] [µo°Ý]¦p¦ó¥Î°j°é¨ú¥X°}¦C­È¡A¤£Â_©ñ¨ì¤@­Ó©T©w½d³ò

½Ð±Ð¥H¤U¼gªk

For i = 1 To

myarray = Split((Sheets(moneyprlist).Cells(i + 2, 14)), ",", , 1)

For j = 0 To UBound(myarray)

Sheets(moneyprlist).Cells(i + 2, j + 13) = myarray(j)
timer = timer + 1

Next  j

If timer = 6 Then

MsgBox "¤w¸g·j¶°¤»­Ó¤F¥i¥H¦LÅo"

Call ptprint

endif

end  sub

§Ú·QÅý³oµ{¦¡ªº§@¥Î¬O±N°}¦Cùتº­È©ñ¨ì m3:m8 ªº©T©w½d³ò¤º¡A¤@¦@¤»­ÓªÅ®æ¡A·í©ñº¡¤»­Ó®É«h²M°£¸Ó¶º³òªº­È
Ä~Äò¦A¨ú¥X¤»­Ó­È©ñ¤J¸Ó¶º³ò¡Aª½¨ì¨ú§¹°}¦CùØ©Ò¦³ªº­È¬°¤î

¤£ª¾¹D¸Ó«ç»ò¼g ½Ð«ü¾É ÁÂÁÂ

½Ð¦U¦ì°ª¤â«ü¾É¤@¤U«ç»ò¼g ·PÁÂ

TOP

¦^´_ 2# yurckr
½ÐªþÀɤW¨Ó»¡²M·¡

TOP

arraytest.rar (17.35 KB) ¦^´_ 3# GBKEE

·PÁ±zªºÃöª`¡A·Qªí¹Fªº·N¥q¤w¸g¦bÀɮפ¤ ½Ð±z«ü±ÐÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-18 07:37 ½s¿è

¦^´_ 4# yurckr
  1. Sub «ö¶s1_Click()
  2.     Dim Ar(), Rng As Range, i, ii
  3.     With ¤u§@ªí1
  4.         If .Range("a2").End(xlDown).Row = Rows.Count Then Exit Sub 'µL¸ê®Æ
  5.         Ar = .Range("a3", .Range("a3").End(xlDown))
  6.         Set Rng = .Range("C3:C8")        '¿é¤J°Ï
  7.         For i = 1 To UBound(Ar) Step 6   '°}¦C¯Á¤Þ ¶¡¹j6
  8.             Rng = ""                    '²M°£¿é¤J°Ï
  9.             For ii = i To i + 5          '
  10.                 If ii <= UBound(Ar) Then Rng(ii - i + 1) = Ar(ii, 1)
  11.                 'Rng(ii - i + 1) -> ¨Ì§Ç¬° ¿é¤J°Ïªº 1,2,3,4,5,6 ªºCells
  12.             Next
  13.             '  .PrintOut  '¦L¦C
  14.         Next
  15.         MsgBox "¦L¦C§¹²¦"
  16.     End With
  17. End Sub
  18. Sub Ex()
  19.     Dim Rng As Range
  20.     With ¤u§@ªí1
  21.          If .Range("a2").End(xlDown).Row = Rows.Count Then Exit Sub 'µL¸ê®Æ
  22.         Set Rng = .Range("A3")   'A¦Cªº¼Æ¾Úªº²Ä1­Ó¦ì¸m
  23.         Do
  24.             .Range("C3:C8") = "" '²M°£¿é¤J°Ï
  25.             .Range("C3:C8") = Rng.Resize(6).Value  '¿é¤J°Ïªº­È=RngÂX¥R6¦C«áªº­È
  26.           '  .PrintOut  '¦L¦C
  27.             Set Rng = Rng.Offset(6)   '³]©wA¦Cªº¼Æ¾Ú©¹¤U¦ì²¾6¦C
  28.         Loop Until Application.CountA(Rng.Resize(6)) = 0
  29.         'loop °j°é Â÷¶}±ø¥ó  Until(ª½¨ì) -> A¦C  6¦C¨S¦³¼Æ¾Ú
  30.         MsgBox "¦L¦C§¹²¦"
  31.     End With
  32. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦¨¥\¬OÀuÂIªºµo´§¡A¥¢±Ñ¬O¯ÊÂIªº²Ö¿n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD