1. 아별툴
  2. 아별툴 패밀리
  3. 엑셀 질문하기
  4. 엑셀 강좌
  5. 엑셀 팁
  6. 엑셀 자료실
  7. 엑셀 연구과제
  8. 엑셀 북마크
  9. 관련 프로그램 소개

바로 옆셀의 메모값 가져 오기

조회 수 5529 추천 수 0 2008.10.20 13:39:12

옆 셀의 메모 값을 갖고 오는 vba를 간단히 만들어봤다.

메모에 줄 바꿈이 있을 경우, 제거하고 갖고 왔다.

참고하시길..

 '바로 옆 셀의 메모 값을 갖고 오는 Macro
Sub edit_GetMemo()

On Error GoTo ERROR

  Dim memoString As String

    memoString = ActiveCell.Offset(0, -1).Range("A1").Comment.Text
    'Carriage return과 Line Feed를 제거해준다.
    memoString = Replace(memoString, vbCrLf, "")
    'Line Feed를 제거해준다.
    memoString = Replace(memoString, vbLf, "")

    ActiveCell.FormulaR1C1 = memoString
   
    ActiveCell.Offset(1, 0).Range("A1").Select

If False Then
ERROR:
        ActiveCell.Offset(1, 0).Range("A1").Select
End If

End Sub







댓글 '1'

[레벨:0]aaaaaafffff

2013.01.25 13:24:41
*.44.25.93

메모값 불려오기를 했는데요 처음에는 값이 그냥 불려오는데요 다음에 메모를 변경하면 메모값이 변하지 않고 그대로 있습니다.

셀를 더블클릭하여 변경하는 방법말고 자동으로 변하는 법이 없을 까요.???  한두개는 그렇게 변경하면 되지만 여러게 일때...좀..곤란한거 같습니다.

문의 부탁드립니다.

 

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 기타 엑셀 VBA 간단한 팁 모아놓기.. +_+ [레벨:30]아별 2007-01-24 34154