¦p¦óÅýinputbox ³sÄò²£¥Í

kerochen

¦U¸ô¯«¤H¡A¤p§Ì²{¦³¤@§xÂZ¡A´N¬O·í¦b®Ö¹ï®Ñ¦W®É±Æ¤W¬[®É(Â\©ñ²M³æ)¡AÁ`¬O­n°Å°Å¶K¶K¡C©Ò¥H·Q¥Îexcel ¼g¤@­Ó°j°éµ{¦¡¡AÅý©±ªø¯àª½±µ¿é¤J¼Æ¦r«á¡A¯à¹ïÀ³¨ìªí®æ°Å¤U¨Ó¡A²£¥Í¥t¤@¥÷ªºÂ\©ñ²M³æ¡C¦ý¤£ª¾­n«ç»òÅýinputbox ¯à¦³³sÄò¿é¤Jªº¥\¯à¡A¤Î·í¿é¤J¨ì¯S©w­È®É¯à¦Û°ÊÃö±¼¡C·Ð½Ð«ü¾É¤F¡AÁÂÁÂ

dim n as page
st = application.inputbox("¼Æ¦r", type:=1)
for each n in page("A2"A50")
if n.value=st then
range(Cells(st+1,"A"),Cells(st+1,"B")).select
(¤w¿ï¤Wªº«þ¨©¨ìsheet(2), ¶K¤W(°²³]¦³¤å¦rªº¸Ü¸õ¨ì¤U¤@¦æ) '³o¬q¤£·|¼g
msgbox"¤w¿ï¤W   " & Cells(st+1,"B").text

else
if st=0
msgbox"¤w§¹¦¨¿ï¶µ"

end if
next

koo

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

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

kerochen

¦^´_ 2# koo

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

­ã´£³¡ª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

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

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

­ã´£³¡ªL

¦^´_ 8# kerochen


If StrPtr(ST) = 0 Then Exit Do '«ö¡e¨ú®ø¡f¸õ¥X
±zªºª©¥»µLªk¨Ï¥Î¶Ü¡H

stillfish00

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

kerochen

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

¬Oªº= =. ÁÙ¬OÁÂÁ­ã¤j. !

kerochen

¦^´_ 8# stillfish00

·PÁÂ!!  Still fish, §Ú©ú¤Ñ¤W¯Z¸Õ¬Ý¬Ý.