¡@¼ÊºÙ: ªü¦õ ¡@ÀY»Î: ¤W¯ZµL²á¥´©Ç¥h
¤¤¾Ç¥Í
- ©«¤l
- 108
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 113
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »OÆW
- µù¥U®É¶¡
- 2017-9-7
- ³Ì«áµn¿ý
- 2019-2-27
|
¦^´_ 1# wei9133
«¢¡A
¦pªG«ö·Ó§A²{¦b¶È¦C¥X³æ¦æªº¤è¦¡¡A
§A¤]¥i¥H°Ñ¦Ò¬Ý¬Ý³oÓ~
±Æ§Ç.rar (15.63 KB)
- Option Explicit
- Sub PrintList()
- Dim PT As Range
- Dim i%, iM%, j%, jM%
- Call Reset
- iM = Range("C2")
- jM = Range("C3")
- Set PT = Range("E3")
- For j = 1 To jM
- For i = 1 To iM
- PT = j + (i - 1) * jM
- Set PT = PT.Offset(1)
- Next
- Next
- Range("C4") = iM * jM
- End Sub
- Sub Reset()
- Dim PT As Range
- Set PT = Cells(Cells.Rows.Count, 5).End(xlUp)
- If PT.Row = 2 Then Set PT = Range("E3")
- Range("E3:E" & PT.Row).ClearContents
- Range("C4").ClearContents
- End Sub
½Æ»s¥N½X |
|