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

[µo°Ý] ¦p¦ó¿ï¾Ü¿z¿ï«á¤U¤@¦Cªº¥i¨£Àx¦s®æ(¤w¸ÑµªSendKeys "{DOWN}")

[µo°Ý] ¦p¦ó¿ï¾Ü¿z¿ï«á¤U¤@¦Cªº¥i¨£Àx¦s®æ(¤w¸ÑµªSendKeys "{DOWN}")

¥»©«³Ì«á¥Ñ av8d ©ó 2011-8-30 11:35 ½s¿è

A    B    C
21
33
45


¨C·í¿z¿ï«á
¦C¼Æ³£¬O¤£©T©wªº¡A¦p¤W¡C

·í§Ú³]©w¿ï¾ÜB1
Range("B1").Select

µM«á¦V¤U¤@®æ¡A·|¸õ¨ì²Ä2¦C¡A¦ý¬O§Úªº»Ý¨D¬O¸õ¨ì21¦C
Range("B" & ActiveCell.Row + 1).Select

§Ú¥uª¾¹D¿ï¨ú¥i¨£Àx¦s®æ
Selection.SpecialCells(xlCellTypeVisible).Select

¿ï¨ú¤U¤@¦C¥i¨£Àx¦s®æ¸Ó«ç»ò°µ©O?

¥»©«³Ì«á¥Ñ av8d ©ó 2011-8-29 16:34 ½s¿è

¦^´_ 2# GBKEE


    ÁÂÁª©¤j~½Ð°Ý¦pªGªí2¥h³]©wªí1~¤èªk¤]¬O¤@¼Ë¶Ü?

¦]¬°³o¦æ                  .Areas(2).Cells(1).Select

¥¦·|¥X²{"À³¥Îµ{¦¡©Îª«¥ó©w¸q¤Wªº¿ù»~"
----------------------------------------------------------------
¦pªG©Ò¿ï¨ìªº¦C=1001ªº®É­Ô°µ¬O³o¼Ë¼g¶Ü?
If ActiveCell.Row = 1001 Then
'°µ
End If

TOP

¦^´_ 4# GBKEE


    ®¦ ¬Oªº §Ú©ú¥Õ  §Ú¥ý¦Û¦æ°£¿ù¬Ý¬Ý¦n¤F ÁÂÁÂ!!

TOP

¦^´_ 6# oobird


    ¤j¤j±z¦n~½Ð°Ý¨Ï¥Î¤èªk¬O?

§Ú§â¥L¥[¤J«ö¶s´ú¸Õ~¥i¬O¨S¦³¥ô¦ó®ÄªG!

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2011-8-31 09:32 ½s¿è

oobird ¤j¤j §Ú¬d¸ß¤F¤@¤U±zªº¤èªk~¸Ñ¶}¤F!
¤]«D±`·PÁÂGBKEE ¤j¤jªº¦^ÂÐ¥H¤Î´£¨Ñªºµª®×~¨ÌµM¥i¦æ!

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD