해결 M365윈도우10

● 메모서식 고정되게 변경하는 매크로 구현하고자 합니다.

비

비스타

2월 18일 조회 2,965

- 안녕하세요 ^^

- 아래와 같이 "메모 입력 시 마다 고정된 문자 내용이 자동으로 입력되게" 매크로 구현하고 싶습니다.

- 입력할 메모가 많고, 내용 또한 수기로 매번 입력해야 하기에 번거롭습니다.

- 고수님들의 도움을 요청드립니다^^

#VBA·매크로

김

김학동 채택된 답변 2월 18일

Sub 매크로1()
    Selection.AddComment
    ActiveCell.Comment.Visible = True
    ActiveCell.Comment.Text Text:="1. 내용1" & _
        Chr(10) & "2. 내용2" & _
        Chr(10) & "3. 내용3" & _
        Chr(10) & "4. 내용4"
        
    With Selection.Font
        .Name = "맑은 고딕"
        .FontStyle = "보통"
        .Size = 9
    End With
    
    ActiveCell.Comment.Shape.Select True
    With Selection
        .AutoSize = True
    End With
    
    ActiveCell.Select
End Sub

메모를 넣을 셀을 선택한 후 '매크로1'을 실행합니다.

댓글채택과 함께... 첨부한 코드를 참고하여 업무에 적용해 보세요.

비

비스타 작성자 2월 19일

@김학동 님 감사합니다. 덕분에 해결되었습니다.