s3526369

1. Private Sub CommandButton1_Click()
   
2.     If myb.Text = "" Then
   
3.         
   
4.         MsgBox ("½Ð¿é¤J¼Æ¶q")
   
5.         
   
6.         Me.myb.SetFocus
   
7.       
   
8.         Exit Sub
   
9.     Else
   
10.    
    
11.         If Sheets("µ²±b").Range("D10") = "" Then
    
12.             r = 10
    
13.         Else
    
14.             r = Sheets("µ²±b").[D65536].End(xlUp).Row + 1
    
15.         End If
    
16.             Sheets("µ²±b").Cells(r, "D") = mya.Text
    
17.             Sheets("µ²±b").Cells(r, "F") = myb.Text
    
18.             
    
19.     End If
    
20. End Sub

½Æ»s¥N½X

¸Õ¬Ý¬Ý¬O¤£¬O§A­nªº