ªí³æ¿é¤J«á¦Û°Ê±a¤Jªí®æ

PIPI

¤U¸ü (163.92 KB)

2020-4-8 23:51

Ä~¤W¦¸µo°Ý«á
¤W¦¸ªº°ÝÃD¤w¸gºCºC¸Ñ¨M¤F
¥u®t³Ì«á¤@­Ó¨BÆJ¤@ª½¨S¦³ÀYºü

§Ú·Q«ö¤U¥[¤J«á§âText¸Ìªº¶ñ¼g¤JD10¤ÎF10¦ì¸m
µM«á¤U¤@­Ó«~¶µ·s¼Wªº±µÄòµÛ«á­±·s¼W
¦ýÂIÀ»«á¨S¦³¥ô¦ó¤ÏÀ³
¤£ª¾¹D¸Ó¦p¦ó­×¥¿...

Private Sub CommandButton1_Click()
        
    If myb.Text = "" Then
        
        MsgBox ("½Ð¿é¤J¼Æ¶q")
        
        Me.myb.SetFocus
      
        Exit Sub
        
    Else
   
        If Sheets("µ²±b").Range("D10") = "" Then
   
            r = 2
            
        Else
        
            r = Range("D9").End(xlDown).Row + 1
            
        End If
                  
            Cells(r, "D") = mya.Text
            
            'Sheets("µ²±b").Cells(r, "F") = myb.Text
            
    End If  
   

End Sub

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ªº