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

[µo°Ý] ­pºâÁ`¼Æ¨Ã­«·s±Æ§Ç

¦^´_ 1# wei9133

«¢¡A
¦pªG«ö·Ó§A²{¦b¶È¦C¥X³æ¦æªº¤è¦¡¡A
§A¤]¥i¥H°Ñ¦Ò¬Ý¬Ý³o­Ó~

±Æ§Ç.rar (15.63 KB)
  1. Option Explicit

  2. Sub PrintList()
  3.     Dim PT As Range
  4.     Dim i%, iM%, j%, jM%
  5.     Call Reset
  6.     iM = Range("C2")
  7.     jM = Range("C3")
  8.     Set PT = Range("E3")
  9.     For j = 1 To jM
  10.         For i = 1 To iM
  11.             PT = j + (i - 1) * jM
  12.             Set PT = PT.Offset(1)
  13.         Next
  14.     Next
  15.     Range("C4") = iM * jM
  16. End Sub

  17. Sub Reset()
  18.     Dim PT As Range
  19.     Set PT = Cells(Cells.Rows.Count, 5).End(xlUp)
  20.     If PT.Row = 2 Then Set PT = Range("E3")
  21.     Range("E3:E" & PT.Row).ClearContents
  22.     Range("C4").ClearContents
  23. End Sub
½Æ»s¥N½X

TOP

±Æ§Ç.rar (30.38 KB) ¦^´_ 4# wei9133


   
¨ç¼Æ¦pªG§ï¦¨³o¼Ë©O¡H
¦³²Å¦X§Aªº»Ý¨D¶Ü¡H
ÁÙ¬O§A¥²¶·­n¥Ñ¥t¤@­Ó¼Æ¦C¶i¦æ¸m´«¡H

TOP

¥»©«³Ì«á¥Ñ a5007185 ©ó 2018-8-1 23:22 ½s¿è

·QÂç²M¤@­Ó°ÝÃD¡A
¦pªGÁ`¼Æ¬O428¡A
«h²z½×¤W429~435³£¬OªÅ­È¡A
¦Ó¥B·|¶°¤¤¦b²Ä15¸¨¨º­Ó¶°¸¨¤¤¡C

¨Ì¾Ú§A´£¥Xªº±ø¥ó¡A
À³¸Ó¬O²Ä8¦Ü15ªº¶°¦X¦U¯Ê¤Ö¤@­Ó¤¸¯À§a¡H
¦]¬°§A±Æ¦C¬O¤Q¤­­Ó¶°¦X¤À¶}¤À°tªº¡C

¥t¥~¦pªG»Ý­n³s¾ã¦C½Æ»s³o­Ó³£°µ°_¨Ó¬O¥i¦æªº¡C

TOP

¦^´_ 6# wei9133


©êºp¡A
§Ú¦Û¤v¹ê»Ú½Õ¾ã¹L«á¡A
¦³¤F¸Ñ§Aªº°ÝÃD¤F¡C

§Ú½Õ¾ã¦n¨â­Óª©¥»µ¹§A°Ñ¦Ò¡A
¤@­Ó¬O¥Î¨ç¼Æªº¤è¦¡¡A(¤½¦¡®M¥Î¨ì²Ä4000¤£°÷¥i¥H¦Û¤vÄ~Äò©Ô)
¥t¤@­Ó¬O¥ÎVBAªº¤è¦¡¡C

±Æ§Ç.rar (49.15 KB)

TOP

¦^´_ 13# wei9133

§Ë¦nÅo

180804_ªí®æ±Æ§Ç.rar (27.42 KB)

TOP

¦^´_ 17# wei9133

¦A¤£¦æ¡A§Ú­Ì¨p¤U³ì
    ªí®æ±Æ§Ç.zip (87.43 KB)

TOP

§Ú¥u¯à»¡·í¤å¦r»¡©ú¤w¸gµLªkºc¦¨¦³®Ä·¾³qªº®É­Ô¡A
½Ð¹Á¸Õ¨ä¥Lªí¥Ü»Ý¨Dªº¤èªk¡Ae.g,¹q¸Ü©Î¾ã­Ó¾Þ§@¹Lµ{ºI¹Ï

§Ú¤@ª½¨ì²{¦b¤~ª¾¹D§Ú¦C¥X¨Óªº¼Æ¦r¥u¬O­Ó¤Þ¤l¡A
¦pªG§A¦³ª`·N§Úªºµ²ªG¤¤²Ä¤E¦æªº¸ê®Æ¬O33¡A
­è¦n¹ïÀ³§A²Ä¤T¤Q¤T¦æªº¸ê®Æ¬O9¡A
½ÐºÉ¥i¯à¦a¥H¤å¦r¥~ªº»y¨¥»²§U»¡©ú¡A
­n¤£µM³o¼Ëªá¤F³o»ò¦h®É¶¡§Ú²{¦b¤~·dÀ´§Aªº»Ý¨D¡A
§Úı±o³o¼Ë¹ïÂù¤è³£«Ü¶O®É¡C

§Ú¦³ªÅ§Ú·|¦A½Õ¾ãªí®æ¡A
­Y¤§«á¦A¦³°ÝÃD¡A
½Ð³Â·Ð§A¨p°T§Ú§AªºLine¡C

TOP

¦^´_ 19# wei9133

­Y°}¦Cªº¤¤¼Æ¦r§Yªí¥Ü§A±ý¶ñ¶i¸ê®Æªº¶¶§Ç¡A
«hAÄæ·|­pºâ°}¦C¤¤¥Ñ¥ª¦Ü¥k¡B¥Ñ¤W¦Ü¤Uªº¬Û¹ïÀ³§Ç¦C¡A
±N¸ê®Æ«ö¶¶§Ç¶ñ¤JBÄæ¡A
¦A«ö¤U¡u±Æ§Ç¡v§Y¥iÀò±o«ö¥H¤W³W«ß²£¥Íªº¸ê®Æ¶¶§Ç¡C
ªí®æ±Æ§Ç.zip (88.53 KB)
­YÁÙ¦³¤°»ò·N¥~¡A
¦A³Â·Ð§A¨p°T§Ú§AªºLine¡A
§Ú­Ì¹q¸Ü¤W°Q½×¡C
1

µû¤À¤H¼Æ

TOP

¦^´_ 23# wei9133


   §Ú¤w¸g¥[§A¤F

TOP

¦^´_ 24# ­ã´£³¡ªL

ÁÂÁ¤j¤jªÖ©w¡I

¹L¥h¦³¨Ï¥Î¹L§Aªºª÷¤d¨½·|­p±b¡A
·í®ÉÀ°§U«Ü¤j¡AÁÂÁ¡I

TOP

        ÀR«ä¦Û¦b : ¯u¥¿ªº·R¤ß¡A¬O·ÓÅU¦n¦Û¤vªº³oÁû¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD