[µo°Ý] ½Ð°Ý­n¦p¦ó§â¨â¬q¥[¦A¤@°_

john711101

½Ð°Ý­n¦p¦ó§â¤U­±³o¨â¬qµ{¦¡½X¥[¦A¤@°_

BOBend = Sheets("BOB").Columns("L").Find("*", , , , , xlPrevious).Row
Sheets("BOB").Cells(BOBend + 1, "B") = TB1.Value
Sheets("BOB").Cells(BOBend + 1, "H") = TB2.Value
Sheets("BOB").Cells(BOBend + 1, "L") = TB3.Value
Sheets("BOB").Cells(BOBend + 1, "N") = TB4.Value
ActiveCell.Offset(1, 0).Select

TB1.Value = ""
TB2.Value = ""
TB3.Value = ""
TB4.Value = ""
CoB2_1.BackColor = &H8000000F
CoB2_2.BackColor = &H8000000F
CoB2_3.BackColor = &H8000000F
CoB2_4.BackColor = &H8000000F
CoB2_1.ForeColor = &H80000012
CoB2_2.ForeColor = &H80000012
CoB2_3.ForeColor = &H80000012
CoB2_4.ForeColor = &H80000012

--------------------¤À¹j½u-------------------------------

Private Sub Cm1_Click()
Dim BOBend As Integer
If TB1.Value = "" Then
  MsgBox ("±ø½X¨S¨ê!!")
Else
  If TB2.Value = "" Then
  MsgBox ("±ø½X!§Ñ¤F¨ê?")
  Else
    If TB3.Value = "" Then
    MsgBox ("­þ¦ì?")
   Else
    If TB4.Value = "" Then
      MsgBox ("§A§Ñ¤F«ö!")

   End If
   End If
  End If
End If