将公式插入包含字符串和变量的单元格

Question

美好的一天我正在尝试使用 VBA 将以下公式插入到单元格中：

="last change completed: "& D2&" "&"by " &TEXT(E2;"dd-mmm-yy")

其中 D2 是姓名，E2 是日期。如果我使用宏记录我得到：

Sub Macro8()
'
' Macro8 Macro
'

'
    Range("D12").Select
   ActiveCell.FormulaR1C1 = _
    "=""last change completed: ""& R[-11]C[-1]&"" ""&""on "" &TEXT(R[-11]C,""dd-mmm-yy"")"
   ' ActiveCell.FormulaR1C1 = _
        "=""last change completed: ""& R2C4&"" ""&""on "" &TEXT(R2C5,""dd-mmm-yy"")"
    Range("D13").Select
End Sub

我遇到的问题是当我尝试将单元格位置更改为变量时我在单元格中得到了损坏的公式，例如类似于：

="last change completed: "  &@ Range(SOP1)

其中“@range(SOP1) 应该是可变单元格位置。我希望这是足够的细节。

Answer 1

请看下面的代码。希望这可以解决您的问题。

根据需要更改 sheets(1) 值（1- 指工作簿中的第一个 sheet）

Sub Macro8()

rng1 = "D12"
rng2 = "D1"

ThisWorkbook.Sheets(1).Range("A1").Formula = "=""last knifehead change: """ & " & " & rng1 & " " & " & " & """ on """ & " & " & "Text(" & rng2 & ", ""dd-mmm-yy"")"

End Sub

将公式插入包含字符串和变量的单元格

Insert formula into cell including strings and variables

excel

vba

excel-formula

excel-365