正常添寫完數據後會自動往下一欄,然後再重複著個動作。但是偶爾會出現沒有自動往下一欄格,而覆蓋掉原本欄位。

這個是點餐的公式
Private Sub NewB_Click()

ActiveSheet.Unprotect

LF = Range("J4").End(xlDown).Row + 1

Cells(LF, 10) = NText.Text
Cells(LF, 11) = CText.Text
Cells(LF, 12) = RText.Text
Cells(LF, 13) = MText.Text
Cells(LF, 14) = MtText.Text
Cells(LF, 15) = PText.Text
Cells(LF, 16) = OText.Text
Cells(LF, 9).Select
結帳Text.Text = Cells(LF, 17)

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

NText.Text = " "
CText.Text = " "
RText.Text = " "
MText.Text = " "
MtText.Text = " "
PText.Text = " "
OText.Text = " "

End Sub

這個是庫存的公式

Private Sub NewB_Click()

ActiveSheet.Unprotect

LF = Range("C4").End(xlDown).Row + 1

Cells(LF, 3) = 奶油Text.Text
Cells(LF, 4) = 紅豆Text.Text
Cells(LF, 5) = 麻糬Text.Text
Cells(LF, 6) = 芋泥Text.Text
Cells(LF, 7) = 馬鈴薯Text.Text
Cells(LF, 8) = OREOText.Text

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True

奶油Text.Text = " "
紅豆Text.Text = " "
麻糬Text.Text = " "
芋泥Text.Text = " "
馬鈴薯Text.Text = " "
OREOText.Text = " "
End Sub