- ©«¤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
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-18 07:37 ½s¿è
¦^´_ 4# yurckr - Sub «ö¶s1_Click()
- Dim Ar(), Rng As Range, i, ii
- With ¤u§@ªí1
- If .Range("a2").End(xlDown).Row = Rows.Count Then Exit Sub 'µL¸ê®Æ
- Ar = .Range("a3", .Range("a3").End(xlDown))
- Set Rng = .Range("C3:C8") '¿é¤J°Ï
- For i = 1 To UBound(Ar) Step 6 '°}¦C¯Á¤Þ ¶¡¹j6
- Rng = "" '²M°£¿é¤J°Ï
- For ii = i To i + 5 '
- If ii <= UBound(Ar) Then Rng(ii - i + 1) = Ar(ii, 1)
- 'Rng(ii - i + 1) -> ¨Ì§Ç¬° ¿é¤J°Ïªº 1,2,3,4,5,6 ªºCells
- Next
- ' .PrintOut '¦L¦C
- Next
- MsgBox "¦L¦C§¹²¦"
- End With
- End Sub
- Sub Ex()
- Dim Rng As Range
- With ¤u§@ªí1
- If .Range("a2").End(xlDown).Row = Rows.Count Then Exit Sub 'µL¸ê®Æ
- Set Rng = .Range("A3") 'A¦Cªº¼Æ¾Úªº²Ä1Ó¦ì¸m
- Do
- .Range("C3:C8") = "" '²M°£¿é¤J°Ï
- .Range("C3:C8") = Rng.Resize(6).Value '¿é¤J°ÏªºÈ=RngÂX¥R6¦C«áªºÈ
- ' .PrintOut '¦L¦C
- Set Rng = Rng.Offset(6) '³]©wA¦Cªº¼Æ¾Ú©¹¤U¦ì²¾6¦C
- Loop Until Application.CountA(Rng.Resize(6)) = 0
- 'loop °j°é Â÷¶}±ø¥ó Until(ª½¨ì) -> A¦C 6¦C¨S¦³¼Æ¾Ú
- MsgBox "¦L¦C§¹²¦"
- End With
- End Sub
½Æ»s¥N½X |
|