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

excel+vba的問題

teachterv 2021-04-22 23:32:11 ‧ 931 瀏覽

分享至

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

正常執行後第二行會開始無法計算而變#VALUE!
Q3公式是=$C$2K3+$D$2L3+$E$2M3+$F$2N3+$G$2O3+$H$2P3

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

paicheng0111

iT邦大師 5 級 ‧ 2021-04-23 08:54:59

最佳解答

你的寫法出錯是因為L3與N3的值不是blank，是""

把Q3改寫為

=SUMPRODUCT($C$2:$H$2,K3:P3)

回應 4
分享
檢舉

看更多先前的回應...收起先前的回應...

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

感謝馬上解決我的問題

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

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

paicheng0111 iT邦大師 5 級 ‧ 2021-04-23 13:20:17 檢舉

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

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

感謝您多次幫助

登入發表回應

小魚

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

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

回應 2
分享
檢舉

stephen3342 iT邦新手 2 級 ‧ 2021-04-23 08:39:47 檢舉

...Deleted...

不明

【＊＊此則訊息已被站方移除＊＊】

登入發表回應

我要發表回答

立即登入回答

參賽組數

1123 組

團體組數

52 組

累計文章數

23096 篇

完賽人數

656 人

15th鐵人賽 13th鐵人賽 14th鐵人賽 12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 2018鐵人賽 javascript 2017鐵人賽 python windows php c# windows server linux css 程式設計 react vue.js

IT邦幫忙