Excel VBA 편지로 열을

Question

메시지 상자에 반환 할 텍스트로 활성 열을 얻는 방법이 있습니까?

나는 확인 상자를 보여줍니다이 매크로, 내가 원하는 그러나

Dim mycell 
mycell = ActiveCell.Address 

    response = MsgBox("Are you sure you want to trim column " & mycell & "?", vbYesNo) 

If response = vbNo Then 
    Exit Sub 
End If 

`code` 

그것이 셀을 반환 순간에, 예를 들어, "당신이 열 F 트림 하시겠습니까"질문이 형식 $ F $ 1. 열 이름 만 가져올 수 있습니까?

Answer 1

당신은 사용할 수 있습니다

response = MsgBox("Are you sure you want to trim column " & Split(mycell, "$")(1) & "?", vbYesNo) 

Answer 2

대체를 @Rory에 의해 주어진 솔루션에 Mid(mycell, 2, 1)에 의해 Split(mycell, "$")(1)을 대체하고있다.

If ActiveCell.Column > 26 Then 
    response = MsgBox("Are you sure you want to trim column " & Mid(mycell, 2, 2) & "?", vbYesNo) 
Else 
    response = MsgBox("Are you sure you want to trim column " & Mid(mycell, 2, 1) & "?", vbYesNo) 
End If