iT邦幫忙

0

Vba表單填寫數值後無法自動加總價格

Private Sub NewB_Click()

ActiveSheet.Unprotect

LF = Range("J1").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

https://ithelp.ithome.com.tw/upload/images/20210422/20136917KUuNytIQiJ.png
https://ithelp.ithome.com.tw/upload/images/20210422/201369176rsKH1pMee.png
正常執行後 第二行會開始無法計算 而變#VALUE!
Q3公式是=$C$2K3+$D$2L3+$E$2M3+$F$2N3+$G$2O3+$H$2P3

2 個回答

2
paicheng0111
iT邦高手 1 級 ‧ 2021-04-23 08:54:59
最佳解答

你的寫法出錯是因為L3N3的值不是blank,是""

Q3改寫為

=SUMPRODUCT($C$2:$H$2,K3:P3)
看更多先前的回應...收起先前的回應...
teachterv iT邦新手 5 級 ‧ 2021-04-23 12:37:02 檢舉

感謝馬上解決我的問題

teachterv iT邦新手 5 級 ‧ 2021-04-23 12:40:54 檢舉

https://ithelp.ithome.com.tw/upload/images/20210423/20136917TQjB88vvwI.png

再麻煩您一個問題 我點餐選單每案1個數字按下ENTER自動跳下一格的時候芋泥跳到馬鈴薯的時候,都會直接跳到oreo 而錯過馬鈴薯

最簡單的作法,把馬鈴薯與oreo的位置對調。

teachterv iT邦新手 5 級 ‧ 2021-04-24 02:05:51 檢舉

感謝您 多次幫助

2
小魚
iT邦大師 1 級 ‧ 2021-04-23 08:06:13

你好像還引用了其他物件.
而且你那一格到底寫了甚麼?

...Deleted...

不明
【**此則訊息已被站方移除**】

我要發表回答

立即登入回答