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

VB ¿z¿ï«á§PÂ_µL¸ê®Æªº»yªk

VB ¿z¿ï«á§PÂ_µL¸ê®Æªº»yªk

½Ð°ÝVB »yªk¦p¦ó¼g¡A¦]¬°¤p§Ì¥u·|¥Î¿ý»s ¹ïµ{¦¡¤£¤ÓÀ´
±ø¥ó:AÄæ³£¬O¼Æ¦r¡A¨BÆJ¦p¤U
1. ¦bA1·|¥ý±ø¥ó¿z¿ï«á
2. ¿ï¾ÜA1©¹¤U§ä¨ì²Ä¤@µ§¸ê®Æ¦ì¸m   Offset(1,0)
3. ½Æ»s¨ì³Ì«á¤@µ§¸ê®Æ

°ÝÃD¨Ó¤F¡A¦³®É­Ô±ø¥ó¿z¿ï«á¬O¨S¦³¸ê®Æ
§Ú·Q¥ý°µ¤@­Ó§PÂ_¦b¨BÆJ2©M3
´N¬O¨S¸ê®Æ®É´N¤£­n°õ¦æ¨BÆJ3
¨Ò¦p¦p¤U¡A·íµM¬O¤£¥¿½Tªº»yªk
If .Cells( Range("A1").offset(1,0), ) .value <>Empty then
...
..
End if

¦^´_ 1# samwang
¸Õ¸Õ¬Ý
  1. If Range("A1").End(xlDown).Row <> Rows.Count Then  '±ø¥ó¦¨¥ß: ¿z¿ï«á¦³¸ê®Æ
  2.     'End(xlDown);©¹¤U¨ì³Ì«á¦³¸ê®ÆªºÀx¦s®æ,Row:Àx¦s®æªº¦C¸¹
  3.     'Rows.Count:¤u§@ªíªºÁ`¦C¼Æ
  4.    
  5. End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 2# GBKEE

ÁÂÁª©¥D¡A¤w¸g¥i¥H¤F¡A¤£¤@¼Ëªº«ä¸ô¸ÑÃD¦ýµ²ªG¬O¬Û¦Pªº

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD