c_c_lai

¦^´_ 23# ÂŤÑÄR¦À
¦p§A¤£¥h¯S§O«ü©wÄæ¦ìªºÄ²µoªº¸Ü¡A¨º¥u­n¥ô¦óÄæ¦ì¦³²§°Ê§¡·|IJµo¨Æ¥óªº¡C

c_c_lai

¦^´_ 26# ÂŤÑÄR¦À
§A¬O«ü "ªÑ²¼0.xlsm" ¶Ü¡H
ÄR¤G¦Cªº°é°Ó°Ó«~ªº¹ïÀ³¤½¦¡¦³¥[¤J¶Ü¡H

c_c_lai

¦^´_ 28# ÂŤÑÄR¦À
²Ä¤G¦Cªº¥ô¦óÁ`¶q¦³²§°Ê®É¡A§¡¥¼¦³¼g¤J¸ê®Æ¶Ü¡H
§A¬O¥Î§¹¾ãªº "ªÑ²¼0.xlsm" ¨Ó´ú¸Õªº¶Ü¡H
¦p¤´¤@¼Ë¡A¤W¶Ç§A¥Ø«e¥¿¦b´ú¸ÕªºÀɮסC
§_«h§Úªþ¤Wªº¹Ï¥Ü¬O¦p¦ó²£¥Íªº¡H

c_c_lai

¦^´_ 28# ÂŤÑÄR¦À

¤U¸ü (18.89 KB)

2016-4-8 11:59

c_c_lai

¦^´_ 31# ÂŤÑÄR¦À
§Ú¶¶¤â¼g¤F¤@°¦´ú¸Õµ{¦¡¡A§A±N¥¦©ñ¤J¦Ü Module1 ¤º°õ¦æ¬Ý¬O§_¦³¼W¥[¼g¤J¦C¡A
¦pªG¨S¦³³o¤~¥sÆF²§¡C

1. Sub Test()
   
2.     Dim cts As Integer
   
3.    
   
4.     For cts = 3 To 13 Step 2
   
5.         Cells(2, cts) = Cells(2, cts) + 1
   
6.     Next cts
   
7. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 33# ÂŤÑÄR¦À

¤U¸ü (73.29 KB)

2016-4-8 13:21

c_c_lai

¦^´_ 33# ÂŤÑÄR¦À

¤U¸ü (61.09 KB)

2016-4-8 13:33

c_c_lai

¦^´_ 36# ÂŤÑÄR¦À
½Ð¥ý§â§A¨ººÝ¾ã­Ó´ú¸Õªºµ{§Çµ²ªG¸Ô²Ó¦a´y­z¤@¤U¡A
¥]§t¨é°Ó³nÅ骺±Ò°Ê¡A¥H¤Î¬O§_¦b¶}½L´Á¶¡¹B§@¡H
¨Ã§â°õ¦æ«áªºµe­± (¤@¤ÀÄÁ«e«áªº°õ¦æªºµe­±)
Hard Copy ¥X¨Ó¤W¶Ç¡A§Ú·QÁA¸Ñ³o¤§«e§AªºÂ¦³µ{¦¡
¬O¦p¦ó°õ¦æOKªº¡C¦]¬°µ{¦¡µ²ºc¥¼ÅÜ¡AÅܰʪº¶È¶È¬O
ÅÞ¿è§PÂ_¤£¦P¦Ó¤w¡A¦b§ÚºÝµL½×·s§¡¯à¥¿±`¹B§@¡A
¬°¦ó§A¨ººÝ´N¤£¦æ¡H

c_c_lai

¦^´_ 40# ÂŤÑÄR¦À
²×©ó°lÂܨì°ÝÃDÂI¤F¡G
½Ð­×§ï RecordPrice ªº WR §PÂ_

1.     '  WR = Range(TG).End(xlDown).Row + 1        '  ­×§ï¦¨¥HIJµo¤§Äæ¦ì¬°§PÂ_°òÂI (WR=1048577 ?)
   
2.     '  ·í¸ê®Æ¦C¶È¦³¨â¦C®É¡A¦p±q²Ä¤G¦C§@¬°§PÂ_¡A«h WR ªºµ²ªG­È¬° 1048577¡A¦Ó«D¥¿½T­È 3
   
3.     '  ¬G±N End(xlDown) ­×¥¿¬° End(xlUp)¡A¦p¦¹©l¯à¥¿½TµL»~¦a¨ú±o¥¿½T­È 3
   
4.     '  ³]­Y¹ïÀ³­È¤º®e¤w¦s¦b¦³¤T¦C¡B©Î¥H¤WªÌ¡AµL½×¬O¨Ï¥Î xlDown ©Î xlUp §¡µL®t²§¡A¬Ò¯à¥¿½T¨ú­È¡C
   
5.     WR = Range(Left(TG, Len(TG) - 1) & Rows.Count).End(xlUp).Row + 1

½Æ»s¥N½X

¦]¬°§Ú³£¬O¦b¶W¹L²Ä¤T¦C¼w±¡ªp¤U°õ¦æ¡A¨S¯d·N¨ì§A­ì©lªº xlDown »yªk¡A©Ò¥H·|·Ó¦¨µLªk°õ¦æ¡C
²Ä 1048577 ¦C ??????¡A Oh My God!
©êºp¡I

c_c_lai

¦^´_ 47# ÂŤÑÄR¦À
100 ·íµM³£¦³¨ä¥¦¦U¦Û¹ïÀ³ªº 100  ¡y ®É¶¡    ªÑ²¼¦WºÙ    ¦¨¥æ    Á`¶q¡z¡A
¨Æ«e¼ÐÃD³]©w¤u§@¬OµLªk¥þ¥Ñ¹q¸£¨Ó³B²z­Ó§O¤§ DDE ¶×¤J¤½¦¡ªº¡C
®õ°ê¤H¦³¥y¦W¨¥¡u¦b¦y¦y¡v¡A·N«ä¬O¡uºCºC¨Ó¡v¡A§Ú¥¿¦b«ä¦Ò¨Ó
»´ÃP³B²z¥¦¡C