- ©«¤l
- 27
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 69
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-4-19
- ³Ì«áµn¿ý
- 2012-6-26
|
ÁÂÁ¤j¤j̪ºÀ°§U¡A¤p§Ì¬Ý§¹¤j¤jªºµ{¦¡«á¦³¤@¨Ç°ÝÃD·Q°Ý
§Ú¸ÕµÛ°µ¤@¤Uµù¸ÑÂç²MÆ[©À ¶¶«K½Ð±Ð¤@¤U
¦Û°Ê½s¸¹ªº:
Range("A2:A65536").ClearContents
//¬O«ü±qA2~AnÓÄæ¦ì clear³oÓ¬O²M°£¤½¦¡«O¯d®æ¦¡³]©w¶Ü???
Range("A2") = 1
//A2ªº¬°°_ÂI1
Range("A2:A" & Range("B65536").End(xlUp).Row).DataSeries
// A2:A ¤£À´ B(65536)¬O«üB¾ã¦æ .end(xlup)¬O«ü¨ú±o³sÄò°Ï°ì¤WºÝªºÈ
//.DataSeries³o¦æF1¸ÑÄÀ¬°¦b«ü©w½d³ò¤º«Ø¥ß¸ê®Æ¼Æ¦C¡C ¦ý¦b³o¥Îªº·N«ä¬O??
§R°£ªº:
Dim myrange As Range //©w¸qmyrange
Set myrange = Columns("A:A").Find(TextBox1.Value)
//¦C("A:A") "A:A"¸ò¤W±¤@¼Ë¤£À´(À³¸Ó¬O¤@¼Ëªº«Å§i¤è¦¡) ´M§ä¿é¤JtxtªºÈ
If myrange Is Nothing Then
Exit Sub
//¦pªG¨S¨Æ´NÂ÷¶}
Else
Rows(myrange.Row).Delete
//§_«h´N§R°£myrange¿é¤Jªº¨º¦C
End If
µù¸Ñ³o¼Ë¹ï¶Ü????
½s¸¹ªº°ÝÃD¤ñ¸û¦h¡A§R°£ªº¤Ö¤@¨Ç
Áٳ·Фj¤jªÈ¥¿¤p§ÌªºÆ[©À |
|