
セルのコンテンツの隣にテキストを挿入するマクロを設定しようとしています。問題は、コードがセルのコンテンツをコピーしているのですが、数式を下にドラッグして続行できないことです。数式を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)