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

[µo°Ý] ¥Î®É¶¡±±¨îªºµ{¦¡¡A®É¶¡­n¸ó¹L¹j¤éªº VBA­n¦p¦ó¼g?

¦^´_ 10# ABK


Sub ²M°£°O¿ý¸ê®Æ()
Dim xE As Range
If MsgBox("¡°½T©w­n²M°£¡eSheet1¡fªº°O¿ý¶Ü¡H¡@", 4 + 32 + 256) = vbNo Then Exit Sub
Call ¦@¥Î°Ñ·Ó
Set xE = Sht1.[a65536].End(xlUp)
If xE.Row <= 9 Then Exit Sub
Range(Sht1.[A9], xE(0)).EntireRow.Delete
If ActiveSheet.Name = Sht1.Name Then ActiveWindow.ScrollRow = 1
End Sub

TOP

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


ÁÂÁ­ã³ö¤j!     ¥Ñ©ó§Ú¹w­p¦b NÄ椧«á ¥[¤J¤@¨Çªí®æ¡A©Ò¥H¾ã¦Cªº§R°£·| §R¨ìNÄæ«á­±ªº¸ê®Æ¡C
§Ú¥u­n AÄæ¨ìNÄæ³o¤@°Ï¶ôªº¬ö¿ý §R°£ ¡A «O¯d³Ì«á¤@µ§¬ö¿ý©ñ¨ì²Ä9¦C [A9:N9]¡A ³o¤@¬q­n¦p¦ó­×¥¿?

TOP

¦^´_ 12# ABK


Range(Sht1.[N9], xE(0)).Delete Shift:=xlUp

TOP

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


   ÁÂÁ­㴣¤j!  
   ¦Aµ¹§Ú°Ý¤@¤U!  (¤£¦n·N«ä! ¬ðµM·Q¨ì)
   ¦pªG°Ï¶¡¬O DÄæ¨ìNÄæ³o¤@°Ï¶ôªº¬ö¿ý ­n§R°£ ¡A «O¯d³Ì«á¤@µ§¬ö¿ý©ñ¨ì²Ä9¦C [D9:N9]¡A ¤S­n¦p¦ó¼g?
   
¤£¦n·N«ä!  ·Q»¡¥H«á¼gµ{¦¡·|¸I¨ì¤£¬O±qAÄæ¶}©lªº¸ê®Æ°Ï¡A ¥ý°Ý°_¨Ó©ñ !

TOP

¦^´_ 14# ABK


Set xE = Sht1.[a65536].End(xlUp) §ï¦¨D

TOP

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

ÁÂÁ­㴣¤j!  
°²³] §Úªº§Y®É¸ê®Æ¬O§e²{¦b C8: N8
§Ú·Q­n¥H«á¦b¦P¤@±i¹Ïªí¤W¤@°_§e²{"§Y®É¸ê®Æ"»P"¬ö¿ý¸ê®Æ",
¤]´N¬O·í§Ú"²M°£¬ö¿ý¸ê®Æ"«á¡AC9:N9ªº¼Æ­Èµ¥©ó C8:N8ªº¼Æ­È(§Y®Éªº),
¦b"°õ¦æ¬ö¿ý"±Ò°Ê«á:
·í²Ä¤@¤ÀÄÁµ²§ô®É, §Y®É¸ê®Æ«K°O¿ý¦bC9:N9¡A¥BÅܦ¨C10:N10»PC8:N8 ¦P¨B,
·í²Ä¤G¤ÀÄÁµ²§ô®É, §Y®É¸ê®Æ«K°O¿ý¦bC10:N10¡A¥BÅܦ¨C11:N11»PC8:N8 ¦P¨B,
·í²Ä¤T¤ÀÄÁµ²§ô®É, §Y®É¸ê®Æ«K°O¿ý¦bC11:N11¡A¥BÅܦ¨C12:N12»PC8:N8 ¦P¨B, ...............¡C
(¤]´N¬O¦b¬ö¿ý¸ê®Æ°Ïªº³Ì«á¤@¦C»P¤@ª½»P§Y®É¼Æ¾Ú¦P¨B)

¤@ª½¨ì§Ú¦A¦¸"²M°£¬ö¿ý¸ê®Æ"®É¡A ¤SÅܦ¨C9:N9»PC8:N8 ¦P¨B¤F¡C
³o¼Ëªºµ{¦¡½X­n¦p¦ó¼g ?

TOP

¤w¸g¸Ñ¨M¤F!

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD