將值從一個工作表填充到另一個工作表

Question

我想在另一個工作表上填充我的前台值。

我試過這樣的事情：

Sub THPlow()
    If Range("D39").Value < 24 Then
    Sheets("BoM").Range("E7").Value = D39
    End If
End Sub

但宏沒有返回任何內容：

沒有注釋也沒有調試，所以看起來代碼沒問題，但肯定是哪里出錯了。

Answer 1

顯式范圍引用的完美示例：

Sub THPlow()

Dim ws1 as worksheet: Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Dim ws2 as worksheet: Set ws2 = ThisWorkbook.Worksheets("Sheet2")

If ws1.Range("D39").Value < 24 Then 
    ws2.Range("E7").Value = ws1.Range("D39").Value
End If

End Sub

或者也許使用.Evaluate （不太傳統）

Sub THPlow()

Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Worksheets("Sheet1")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Worksheets("Sheet2")

If ws1.[D39] < 24 Then ws2.Cells(7, 5).Value = ws1.[D39]

End Sub

顯然，根據需要更改工作表名稱。 您還可以包含一個變量來保存您的Workbook對象，因為它可能並不總是ThisWorkbook 。