naruto018

¦^´_ 2# spensers

°Ñ¦Ò¬Ý¬Ý
¤£½T©w¬O§_¬O§A­nªº

1. Private Sub B1_Click()
   
2.     Cells(4, "A") = myA.Text
   
3.     Cells(5, "B") = myB.Text
   
4.     Cells(6, "B") = myC.Text
   
5.     Cells(8, "B") = myD.Text
   
6.     Cells(9, "B") = myE.Text
   
7.     Cells(10, "B") = myF.Text
   
8.     Cells(9, "F") = myG.Text
   
9.     Cells(10, "F") = myH.Text
   
10.     If Range("B24") <> "" Then
    
11.         MsgBox "¤w¶ñº¡12¶µ"
    
12.     Else
    
13.         r = Range("B24").End(xlUp).Row + 1
    
14.         Cells(r, "B") = myI.Text
    
15.         Cells(r, "C") = myJ.Text
    
16.         Cells(r, "D") = myK.Text
    
17.         Cells(r, "E") = myL.Text
    
18.         Cells(r, "G") = myM.Text
    
19.     End If
    
20. End Sub

½Æ»s¥N½X