Hsieh

¦^´_ 1# givigan
°ÝÃD¦b©ó¸ê®Æ®wªº®æ¦¡
½Ð¤W¶Ç²³æªºdbfÀÉ®×¥H¨Ñ´ú¸Õ

Hsieh

¦^´_ 3# givigan


    ¬JµMdbf¸ê®Æ¥Î½Æ»sªº¡A´N¶K¦b¦PÀɮתº¤u§@ªí¤º
¦bªí®æªº¤u§@鷺³]¸m¤@­Ó«ö¶s«ö¶sªºµ{¦¡½X¦p¤U

1. Private Sub CommandButton1_Click()
   
2. 10
   
3. n = InputBox("¿é¤J¥D¯Á¤Þ", , "U952")
   
4. ar = Array("½s¸¹", "«~¦W", "°â»ù")
   
5. With Sheets("¤u§@ªí2")
   
6. Set a = .[A:A].Find(n, lookat:=xlWhole)
   
7. If a Is Nothing Then MsgBox "µL¦¹½s¸¹": GoTo 10
   
8. Do Until n = ""
   
9. If Application.CountBlank([A1:I24]) = 0 Then MsgBox "A4¯È±i¤wº¡": Exit Sub
   
10. Set b = Range("A1:I24").SpecialCells(xlCellTypeBlanks).Cells(1)
    
11. b.Resize(, 3) = ar
    
12. b.Offset(1, 0).Resize(, 3) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 7).Value)
    
13. n = InputBox("¿é¤J¥D¯Á¤Þ", , "U952")
    
14. Loop
    
15. End With
    
16. End Sub

½Æ»s¥N½X

Hsieh

1. Private Sub push()
   
2. 10
   
3. n = InputBox("¿é¤J°Ó«~½s¸¹", , "")
   
4. ar = Array("½s¸¹", "«~¦W", "°â»ù")
   
5. With Sheets("¸ê®Æ®w")
   
6. Set a = .[A:A].Find(n, lookat:=xlWhole)
   
7. If a Is Nothing Then MsgBox "µL¦¹½s¸¹": GoTo 10
   
8. Do Until n = ""
   
9. If Application.CountBlank([A1:I18]) = 0 Then MsgBox "A4¯È±i¤wº¡": Exit Sub
   
10. Set b = Range("A1:I18").SpecialCells(xlCellTypeBlanks).Cells(1)
    
11. b.Resize(, 3) = ar
    
12. b.Offset(1, 0).Resize(, 3) = Array(a.Value, a.Offset(, 1).Value, a.Offset(, 7).Value)
    
13. n = InputBox("¿é¤J°Ó«~½s¸¹", , "")
    
14. Set a = .[A:A].Find(n, lookat:=xlWhole)
    
15. If a Is Nothing Then MsgBox "µL¦¹½s¸¹": GoTo 10
    
16. Loop
    
17. End With
    
18. End Sub

½Æ»s¥N½X