stillfish00

¦^´_ 8# kerochen
StrPtr ¬O¥¼¤½¶}ªº function , ¦³°ÝÃD¥i¥H§ï¥Î
If ST = "" Then Exit Do   '«ö¡e¨ú®ø¡f¸õ¥X

kerochen

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

Hi ­ã¤j, §Ú¤µ¤Ñ´ú¸Õ¤F, ­n­×§ï¤U¦C¤G­Ó§Y¥i¨Ï¥Î. ·PÁÂ.
¥u¬O·|¦³·í¥X²{inputbox®É¡A¥»¨­ªº¨ú®øµLªkÂ÷¶}, ­n¿é¤J0 or 000 §Y¥i¸õ¥X. «D±`ÁÂÁÂ.


Sub Find_No()
Dim ST, xF As Range
Do
¡@ST = InputBox("¼Æ¦r")
¡@If ST = 0 Then Exit Do '«ö¡e¨ú®ø¡f¸õ¥X
¡@If ST = "000" Then Exit Do '¿é¤J¡e¯S©w­È¡f¸õ¥X
¡@If ST <> "" Then
¡@¡@¡@Set xF = [®Ñ¥»²M¥U!A2:A50].Find(ST, Lookat:=xlWhole)
¡@¡@¡@If xF Is Nothing Then
¡@¡@¡@¡@¡@MsgBox "§ä¤£¨ì½s¸¹¡A½Ð­«·s¿é¤J¡I¡@"
¡@¡@¡@Else
¡@¡@¡@¡@¡@xF.Resize(1, 2).Copy [Â\©ñ²M³æ!A65536].End(xlUp)(2)
¡@¡@¡@¡@¡@Beep
¡@¡@¡@End If
¡@end If
Loop
End Sub

koo

³sÄò¿é¤J¤]¥i¥H¥Îcall¦Û¤v

1. Sub test()
   
2. Dim a As Integer
   
3. a = InputBox("½Ð¿é¤J½s¸¹", "¿é¤J")
   
4. If a = 3 Then Exit Sub    ''¿é¤J3Â÷¶}
   
5. Cells([A65536].End(xlUp).Row + 1, 1) = a   ''¤U¤@¦C¶}©l¿é¤J
   
6. Call test
   
7. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

¨SÀɮסA¥u¯à²q¡A½Ð¦Û¦æ¥h®M¡G

1. Sub Find_No()
   
2. Dim ST, xF As Range
   
3. Do
   
4. ¡@ST = InputBox("¼Æ¦r")
   
5. ¡@If StrPtr(ST) = 0 Then Exit Do '«ö¡e¨ú®ø¡f¸õ¥X
   
6. ¡@If ST = "000" Then Exit Do '¿é¤J¡e¯S©w­È¡f¸õ¥X
   
7. ¡@If ST <> "" Then
   
8. ¡@¡@¡@Set xF = [®Ñ¥»²M¥U!A2:A50].Find(ST, Lookat:=xlWhole)
   
9. ¡@¡@¡@If xF Is Nothing Then
   
10. ¡@¡@¡@¡@¡@MsgBox "§ä¤£¨ì½s¸¹¡A½Ð­«·s¿é¤J¡I¡@"
    
11. ¡@¡@¡@Else
    
12. ¡@¡@¡@¡@¡@xF.Resize(1, 2).Copy [Â\©ñ²M³æ!A65536].End(xlUp)(2)
    
13. ¡@¡@¡@¡@¡@Beep
    
14. ¡@¡@¡@End If
    
15. ¡@End If
    
16. Loop
    
17. End Sub

½Æ»s¥N½X

kerochen

¦^´_ 2# koo

ÁÂÁ¡A§Ú«Ý·|¸Õ¬Ý¬Ý. ¦ý§ó¤jªº°ÝÃD¬O¦b³sÄò¿é¤J¡K

koo

­n¤£­n§ï¥ÎTextBox¸Õ¸Õ

¦³¸ê®Æ´N´«¤U¤@¦C
Ax = Sheets(2).[A65536].End(xlUp).Row + 1
Rows(n.Row).Copy Sheets(2).Cells(Ax, 1)