- ©«¤l
- 15
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 54
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2015-2-13
- ³Ì«áµn¿ý
- 2024-3-1
|
[µo°Ý] ½Ð°Ýn¦p¦ó§â¨â¬q¥[¦A¤@°_
½Ð°Ý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 |
|