将公式作为字符串插入单元格答案

【问题标题】：Inserting formula as string into a cell将公式作为字符串插入单元格
【发布时间】：2020-08-30 13:28:21
【问题描述】：

好像有些字符有问题

我在工作表中的原始公式（工作）：

ThisWorkbook.Worksheets("Zazmluvnenia").Cells("3", "AM").Value = "=Výkony!M4 & ", " & TEXT(Výkony!J4;"d.m.yyyy") & ", " & TEXT(Výkony!K4;"hh:mm")"

由于引号，将其放入 VBA 不起作用。我尝试通过这种方式解决问题：How do I put double quotes in a string in vba?

我根据上面问题的答案更改了我的代码：

"=Výkony!M3 & " & Chr(34) & ", " & Chr(34) & " & TEXT(Výkony!J3;" & Chr(34) & "d.m.yyyy" & Chr(34) & ") & " & Chr(34) & ", " & Chr(34) & " & TEXT(Výkony!K3;" & Chr(34) & "hh:mm" & Chr(34) & ")"

并且发生错误“1004”。

【问题讨论】：

标签： excel vba excel-formula quotes

【解决方案1】：

双引号 vs CHR(34)

您的 CHR 解决方案几乎没问题，但您不知道 VBA 无法将分号 (;) 识别为像 Excel 这样的分隔符强>确实。在 VBA 中，您总是需要用逗号替换每个分号（用作分隔符）。
同样，VBA 使用点 (.) 作为小数分隔符。

守则

Option Explicit

Sub SEMI()

    Dim strF As String
    
    ' Double double-quotes ("") in several rows.
    strF = "=Výkony!M4&"", """ _
         & "&TEXT(Výkony!J4,""d.m.yyyy"")&"", """ _
         & "&TEXT(Výkony!K4,""hh:mm"")"
    
    ' CHR(34) in several rows.
    strF = "=Výkony!M4&" & Chr(34) & ", " & Chr(34) _
         & "&TEXT(Výkony!J4," & Chr(34) & "d.m.yyyy" & Chr(34) & ")&" _
         & Chr(34) & ", " & Chr(34) _
         & "&TEXT(Výkony!K4," & Chr(34) & "hh:mm" & Chr(34) & ")"
    
    ' Double double-quotes ("") in one row.
    strF = "=Výkony!M4&"", ""&TEXT(Výkony!J4,""d.m.yyyy"")&"", ""&TEXT(Výkony!K4,""hh:mm"")"
    
    ' CHR(34) in one row.
    strF = "=Výkony!M4&" & Chr(34) & ", " & Chr(34) & "&TEXT(Výkony!J4," & Chr(34) & "d.m.yyyy" & Chr(34) & ")&" & Chr(34) & ", " & Chr(34) & "&TEXT(Výkony!K4," & Chr(34) & "hh:mm" & Chr(34) & ")"
    
    ThisWorkbook.Worksheets("Zazmluvnenia").Cells("3", "AM").Value = strF

End Sub

【讨论】：