ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

Excel VBA ¥Îtextbox·s¼Wªí³æ¸ê®Æ°ÝÃD

¦^´_ 3# Sofie


    Private Sub CommandButton1_Click()
n = Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row + 1 '©¹³Ì«á¦³¸ê®Æ¦C+1¶K¤W

   
    If Range("b" & n) = "" Then

   
    Sheets("Sheet1").Range("b" & n).Value = TextBox1.Value
   
    End If
     If Range("c" & n) = "" Then

   
    Sheets("Sheet1").Range("c" & n).Value = TextBox2.Value
   
    End If
End Sub

TOP

¦^´_ 5# Sofie
    If Range("B" & n) = "" And TextBox2.Value > 60 Then
    If Range("C" & n) = "" And TextBox2.Value > 60 Then

§PÂ_¦~ÄÖªº¦a¤è¿ù¤F....
±q20¦C¶}©l·s¼W..¨S·Q¨ì«ç»ò°µ
¦]¬°¥Ø«e¬O¥H²Ä20¦C+³Ì«á¤@¦CªºÁ`¦C¼Æ ©Ò¥H¤¤¶¡·|¤@ª½ªÅ«Ü¤j®æ

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD