수식입력줄 자동확장 관련

Question

Excel 2010에서는 여러 줄의 내용이 있는 셀을 선택했을 때 수식입력줄이 셀의 내용을 전부 보여질 수 있도록 하는 자동확장 기능이 없어져다고 알고 있읍니다.

그래서 아래와 같은 수식입력줄 자동확장 관련 매크로를 작성했읍니다.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Dim Posi As Long

Dim Count As Integer

Dim vText As String

' 2012.05.01

' 작성자 : 대석(bigstone)

' Excel 2003에서는 있었으나 2010에서는 수식입력줄의 자동확장 기능이 없어졌다.

' 그래서 여러줄의 내용이 있는 셀을 보려는 경우 굉장히 불편하다.

' 방법은 매크로의 작성으로 이 기능을 구현해야 한다.

' Application.FormulaBarHeight가 수식입력줄에서 보여줄 수 있는 행 수를나타내는 속성이다.

Posi = 0

Count = 1

If (Not IsNull(Target.Text)) Then

    vText = Target.Text

    Do

        Posi = InStr(Posi + 1, vText, vbLf, vbTextCompare)

        If (Posi > 0) Then

            Count = Count + 1

        End If

    Loop While (Posi > 0)

End If

Application.FormulaBarHeight = Count

End Sub

질문은 내가 앞으로 열려는 모든 Excel파일에 이 이벤트 핸들러를 자동으로 할당하고 싶읍니다. 어떠한 방법이 있을까요?

그리고

Workbook의 SheetSelectionChange라는 이벤트에 대해서 이벤트핸들러를 코딩으로 할당하는 방법은 무엇일까요?

Answer 1

안녕하십니까? 구르는 돌 님

Microsoft Office의 Excel 사이트를 방문해 주셔서 감사합니다.

문의 하신 Excel의 수식 입력줄 자동 확장에 대한 답변을 드리겠습니다.

말씀해 주신 VBA 매크로의 경우 해당 사이트에서는 안내해 드리기 어렵습니다. 매크로에 대해서는 아래 링크의 MSDN 개발자 포럼에서 도움을 드리고 있으니 그쪽에 문의해 보시기 바랍니다.

http://msdn.microsoft.com/ko-kr/office/

http://social.msdn.microsoft.com/Forums/ko-KR/vsto/threads

제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

제시해 드린 답변이 도움이 되었기를 바랍니다.

응답이 문제 해결에 도움이 되었다면, 아래에 있는 답변으로 [표시] 버튼을 눌러 주시기 바랍니다. 이는 유사한 증상을 겪는 다른 사용자들에게 도움이 될 수 있습니다.