±±¨î¶s¿é¤J«á´«¦C¦b¿é¤J?

john711101

¦p¹Ï½Ð°Ý§Ú¥Î±±¨î¶s¿é¤J¦b²Ä3¦C«á¦p¦óÅý¥L¸õ¤U¤@¦C¦b²Ä4,5,6,7,8..........¦CÄ~Äò¿é¤J?

·PÁ¦^µª!

john711101

µ{¦¡¬O³o¼Ë
Private Sub Cm1_Click()

Sheets("BOB").Range("L3").Value = TextBox1.Value
Sheets("BOB").Range("B3").Value = TB3.Value
Sheets("BOB").Range("H3").Value = TB4.Value
Sheets("BOB").Range("N3").Value = TB5.Value
ActiveCell.Offset(1, 0).Select

TB3.Value = ""
TB4.Value = ""
TB5.Value = ""
TextBox1.Value = ""


End Sub

lpk187

BOBend = Sheets("BOB").Columns("L").Find("*", , , , , xlPrevious)
Sheets("BOB").Cells(BOBend + 1, "L") = TextBox1.Value
Sheets("BOB").Cells(BOBend + 1, "B") = TB3.Value
Sheets("BOB").Cells(BOBend + 1, "H") = TB4.Value
Sheets("BOB").Cells(BOBend + 1, "N") = TB5.Value

ActiveCell.Offset(1, 0).Select

TB3.Value = ""
TB4.Value = ""
TB5.Value = ""
TextBox1.Value = ""

lpk187

¤Ö¥´¤F¤@­Ó¦r¡A³o­Ó¤~¹ï
BOBend = Sheets("BOB").Columns("L").Find("*", , , , , xlPrevious).Row
Sheets("BOB").Cells(BOBend + 1, "L") = TextBox1.Value
Sheets("BOB").Cells(BOBend + 1, "B") = TB3.Value
Sheets("BOB").Cells(BOBend + 1, "H") = TB4.Value
Sheets("BOB").Cells(BOBend + 1, "N") = TB5.Value

ActiveCell.Offset(1, 0).Select

TB3.Value = ""
TB4.Value = ""
TB5.Value = ""
TextBox1.Value = ""

lpk187

BOBend = Sheets("BOB").Columns("L").Find("*", , , , , xlPrevious).Row '³o¦æ¬O·|¥h§ä L Ä檺³Ì«á¦³¤å¦rªºÀx¦s®æªº¨º¤@¦C¡A«eÃD¬O­n³o®æ¨C¦¸³£·|¿é¤JªF¦è¶i¥h¡A­Y¤£·|ªº¸Ü´N´«¨C¦¸³£·|¿é¤J¶i¥hªº¨º¤@Äæ

changxxx

¸Õ¸Õ+1

1. Private Sub CommandButton1_Click()
   
2.     x = Sheets("BOB").[B65536].End(xlUp).Row + 1
   
3.     Cells(x, 2) = TextBox1.Text
   
4.     Cells(x, 3) = TextBox2.Text
   
5.     Cells(x, 4) = TextBox3.Text
   
6.     Cells(x, 5) = TextBox4.Text
   
7.     TextBox1.Text = ""
   
8.     TextBox2.Text = ""
   
9.     TextBox3.Text = ""
   
10.     TextBox4.Text = ""
    
11.     TextBox1.SetFocus
    
12. End Sub

½Æ»s¥N½X

john711101

·PÁÂlpk187¤j¸òchangxxx¤j!