這個程式哪裡錯誤
目前自己寫第二個IF 但怎麼輸入都會跑出訊息框
不知道是邏輯還是要把文字轉數字 不過我還沒寫第二個IF就正常也可以相加
且不會變成文字相加那樣 譬如Cells(i, "F").Value=10 TB4.Text=10
他傳回的結果是20是正確的 而不是文字相加的值1010
If data1.Text = Cells(i, "B") And TB1.Value = Cells(i, "A") Then
If TB4.Text > Cells(i, "D").Value Or Cells(i, "F").Value + TB4.Text > Cells(i, "D") Then MsgBox "輸入數量或估驗數量超出契約數量"
Else
If Cells(i, "F") = "" Then
Cells(i, "F") = TB4.Text
Cells(i, "G") = TB5.Text
Else
Cells(i, "F") = Cells(i, "F").Value + TB4.Text
Cells(i, "G") = Cells(i, "G").Value + TB5.Text
End If
End If
End If
假設 TB1 和 TB4,TB5 是相同的資料型態
你有的使用 .Value;有的使用 .Text
你知道為什麼嗎?
我猜可能的原因是
1.短一點的版本,用 Val()
2.長一點的版本,認真想看再看