Option Explicit Sub getMemo() Dim C As Range Dim strMemo As String Range("M5").Select For Each C In ActiveSheet.UsedRange On Error Resume Next strMemo = C.Comment.Text If strMemo <> "" Then ActiveCell.Value = C.Address Selection.Offset(0, 1).Select ActiveCell.Value = C.Text Selection.Offset(0, 1).Select ActiveCell.Value = strMemo strMemo = "" Selection.Offset(1, -2).Select End If Next C End Sub
![[레벨:1]](http://abyul.com/zbxe/modules/point/icons/default/1.gif "포인트:125point (12%), 레벨:1/30"){kind=icon}
최선으로
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141861point, 레벨:30/30"){kind=icon}
아별
메모를 셀에 삽입하거나 메모를 편집할 수 있는 단축키가 있습니다.
Shift+F2를 눌러보세요. 선택 셀에 메모가 있으면 메모 편집 모드가 되고, 메모가 없으면 메모가 삽입됩니다.
메뉴에서 하는 것보다는 좀 더 편하지요.
시트내에 있는 메모들의 내용을 한번에 불러오는건.. VBA를 이용하는게 좋을 것 같습니다.
첨부파일을 참고하세요. ( 다운 받기 : abyul_20090716_GetMemo.xls )
위 첨부파일에는 아래와 같은 코드가 포함되어 있습니다.
Option Explicit
Sub getMemo()
Dim C As Range
Dim strMemo As String
Range("M5").Select
For Each C In ActiveSheet.UsedRange
On Error Resume Next
strMemo = C.Comment.Text
If strMemo <> "" Then
ActiveCell.Value = C.Address
Selection.Offset(0, 1).Select
ActiveCell.Value = C.Text
Selection.Offset(0, 1).Select
ActiveCell.Value = strMemo
strMemo = ""
Selection.Offset(1, -2).Select
End If
Next C
End Sub