☰

数式を範囲のセル（例：A1）とA1の内容に設定する

tag-icon • tag-icon microsoft-excel vba
数式を範囲のセル（例：A1）とA1の内容に設定する

セルのコンテンツの隣にテキストを挿入するマクロを設定しようとしています。問題は、コードがセルのコンテンツをコピーしているのですが、数式を下にドラッグして続行できないことです。数式をA1で終わらせたいのですが、A1の内容である1111で終わらせたいわけではありません。たとえば、数式は通常="ADDTOFRONT"&A1は="ADDTOFRONT"&1111

例えば： ここに画像の説明を入力してください

'''''PUBLICVARS'''''
Public cll As Variant
Public clloffset As Variant

'''''ENDPUBVARS'''''
'''''MAINSUB'''''
Public Sub Add_BINWH()

cll = Application.InputBox(Prompt:="Which Cell To Add Formula? Eg: B1", Default:="B1")
Set clloffset = Range(cll).Offset(0, -1)
ActiveWorkbook.ActiveSheet.Range(cll).Formula = "=" & Chr(34) & "ADDTOFRONT" & Chr(34) & "&" & clloffset.Value

End Sub
'''''ENDMAINSUB'''''

答え1

文字列には値ではなくアドレスを入れます。

clloffset.Value

すべきだ

clloffset.Address(0,0)

関連情報