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

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

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

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

·PÁ¦^µª!
111.jpg

µ{¦¡¬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

TOP

¥»©«³Ì«á¥Ñ lpk187 ©ó 2015-2-13 16:28 ½s¿è

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 = ""

TOP

¤Ö¥´¤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 = ""

TOP

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ªº¨º¤@Äæ

TOP

¸Õ¸Õ+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

TOP

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

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD