범위(예: A1)의 셀과 A1의 내용으로 수식을 설정합니다.

Question

셀 내용 옆에 텍스트를 삽입하는 매크로를 설정하려고 합니다. 문제는 코드가 옆에 있는 셀의 내용을 복사하지만 수식을 아래로 끌어 계속할 수 없다는 것입니다. 나는 공식이 1111인 A1의 내용이 아닌 A1로 끝나기를 원합니다. 예를 들어 공식은 일반적으로 다음과 같지만 ="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'''''

Answer 1

값이 아닌 문자열에 주소를 넣기를 원합니다.

clloffset.Value

해야한다

clloffset.Address(0,0)