Excel VBA：アクティブなセルに式をコピーする

Question

VBAコーディングが新しく、ここで援助を得ることができれば幸いです。ダウン10行

コピーアクティブセルの数式は、それが（記入）

• 入力：私は（ハードコーディングされたセル範囲または参照を指定せずに）任意のセルのために次の操作を実行するコードを作成しようとしていますのActiveCellに式を挿入する試みにおいて

私が試した：

Sub Test() 
ActiveCell.formula = "=IF(ISBLANK(C5)*ISBLANK(D5),"",IF(ISBLANK(D5),(C5),CONCATENATE(C5,"" ["", D5, ""]"")))" 
End Sub 

しかし、本のproduをCES 1004：アプリケーション定義またはオブジェクト定義のエラー

私はのActiveCellため範囲オブジェクトを宣言しようとしたが、それでもエラーに遭遇しました。

これに関するお問い合わせは高く評価されます。

Answer 1

ActiveCell.formula = "=IF(ISBLANK(C5)*ISBLANK(D5),"""",IF(ISBLANK(D5),(C5),CONCATENATE(C5,"" ["", D5, ""]"")))" 

埋め込み引用符の最初のセットを2倍にしていなかった。

Answer 2

次のルーチンを使用して、式をセルからVBE互換形式にコピーできます。役立つかどうかを確認してください。

Public Sub CopyExcelFormulaInVBAFormat() 
Dim strFormula As String 
Dim objDataObj As Object 

'\Check that single cell is selected! 
If Selection.Cells.Count > 1 Then 
    MsgBox "Select single cell only!", vbCritical 
    Exit Sub 
End If 

'Check if we are not on a blank cell! 
If Len(ActiveCell.Formula) = 0 Then 
    MsgBox "No Formula To Copy!", vbCritical 
    Exit Sub 
End If 

'Add quotes as required in VBE 
strFormula = Chr(34) & Replace(ActiveCell.Formula, Chr(34), Chr(34) & Chr(34)) & Chr(34) 

'This is ClsID of MSFORMS Data Object 
Set objDataObj = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") 
objDataObj.SetText strFormula, 1 
objDataObj.PutInClipboard 
MsgBox "VBA Format formula copied to Clipboard!", vbInformation 

Set objDataObj = Nothing 

End Sub 

このルーチンを挿入した後。数式をセルに通常入力するだけです。その後、セルに滞在してこのコードを実行すると、クリップボードにコピーされます。 VBEに移動し、Ctrl + Vキーを押して必要な場所にコードを貼り付けます。

もともとに掲載：

https://chandoo.org/forum/threads/copy-formula-from-excel-to-clipboard-in-vba-compatible-format.35997/