excel VBA范圍或cells（）？

Question

因此，我試圖編寫一個用戶友好的宏以方便進行銷售記錄。
我已經完成了所有的輸入和計算部分，但是當我嘗試使用cell（）函數將結果寫入excel電子表格時，我只能寫成字符串。

Range("A2").Select
ActiveCell.End(xlToRight).Select
lastcolumn = ActiveCell.Column
'MsgBox lastcolumn
If lastcolumn = 16384 Then
lastcolumn = 1
End If
Cells(16, lastcolumn + 1).Select
If lbl_scfe = "" Then
Cells(2, lastcolumn + 1).Value = 0
Else
Cells(2, lastcolumn + 1).Value = lbl_scfe
End If

我還編寫了一個簡短的代碼來測試range函數是否可以工作...

Private Sub CommandButton1_Click()
val_cfe_1 = Val(TextBox1)
val_cfe_2 = Val(TextBox2)
coffee = val_cfe_1 * 10 + val_cfe_2
Label1 = coffee
Range("a1") = coffee
Range("a2") = Label1
Cells(2, 1) = coffee
Cells(2, 2) = Label1
End Sub

這兩個代碼都有一個用戶窗體， 范圍函數都以double數據類型輸出，cells（2,2）以字符串輸出，並且

Cells(2, 1) = coffee

在單元格中沒有輸出。
所以我應該假設Cells（）函數只能輸入字符串嗎？ 還是我沒有正確使用該功能...
如果我不能使用cells（）函數，那么我該如何編寫一個可以自動轉到最后一列並轉到單個行的范圍函數？ 謝謝

Answer 1

你應該用

Cells(2, 1).Value = coffee

而不只是

Cells(2, 1) = coffee

否則，您將單元格與coffee而不是單元格值進行比較。