엑셀 매크로 VBA 1. 나의 함수 메모삽입 삭제 소스코드

엑셀 매크로 VBA 1. 나의 함수 메모삽입 삭제 소스코드

메모를 셀에 입력하고 , 삭제하는 함수

Option Explicit

Sub 메모삽입(strVal As String, strtxt As String)

    Application.DisplayCommentIndicator = xlCommentIndicatorOnly

On Error GoTo ErrorRtn

    Range(strVal).Select

    Range(strVal).AddComment

ErrorRtn:

    Dim rev As Integer

    retv = MsgBox(Range(strVal).Comment.Text, vbYesNo, "이미 메모가 있습니다 삭제할까요?")

    If retv = vbYes Then

        Range(strVal).ClearComments

        Range(strVal).Comment.Visible = False

        Range(strVal).Comment.Text Text:=strtxt & Chr(10) & ""   ' "Tr:" & Chr(10) & "메모 삽입." &  Chr(10) & ""

    End If

End Sub

Sub 메모삭제(strVal As String)

    Application.DisplayCommentIndicator = xlCommentIndicatorOnly

On Error Resume Next

        Range(strVal).ClearComments

End Sub

.