- ©«¤l
- 472
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 485
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows
- ³nÅ骩¥»
- MS Office
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »´ä
- µù¥U®É¶¡
- 2010-7-4
- ³Ì«áµn¿ý
- 2014-12-28
|
¥»©«³Ì«á¥Ñ kimbal ©ó 2012-6-20 22:57 ½s¿è
½Ð±Ð¦U¦ì¥ý®vÌ¡A¦p¦ó¦bªí³æ¸ÌªºTextBox1¿é¤JAÄæ¸Ìªº¤å¦r¡A«ö¶s«á§âµe±±a¨ì¸ÓÄæÄæ¦ì¡C
³Â·Ð«ü¾É¤@¤U¡A ...
man65boy µoªí©ó 2012-6-20 19:36 - Private Sub CommandButton1_Click()
- On Error Resume Next
-
- Set tar = Cells.Find(What:=TextBox1.Text, After:=Range("A1"), LookIn:=xlFormulas, _
- LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext)
- If Not tar Is Nothing Then
- tar.Activate
- Unload Me
- Else
- MsgBox ("§ä¤£¨ìÃþ¦ü¦r¼Ë")
- End If
-
- End Sub
½Æ»s¥N½X |
|