| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
아까도 올려서 죄송하지만...해결이 안되고 있어 이렇게 다시올려봅니다.
아래의 코드를 사용했는데,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With MessageForm
.CaseNumBox.Value = Target.Value
.MessageIDBox.Value = Target.Offset(, 2).Value
.DateBox.Value = Target.Offset(, 3).Value
.MessageIDBox.Value = "ladsfjlksdfj"
.CaseNumBox.Value = Target.Offset(, 4).Value
.DateBox.Value = Target.Offset(, 5).Value
.FromBox.Value = Target.Offset(, 10).Value
.ToBox.Value = Target.Offset(, 39).Value
.CCBox.Value = Target.Offset(, 40).Value
.SubjectBox.Value = Target.Offset(, 1).Value
.MessageBox.Value = Workbooks("emailtable").Worksheets("Message").Range("B2").Value
End With
End Sub
자꾸 마지막, .MessageBox.Value = Workbooks......
이부분에서 subscript out of range 라는 에러가 나옵니다. 분명히 화일 이름도 맞고, 시트이름도 맞고한데...왜그럴까요? 답변좀 부탁드려요...ㅠ.ㅠ 지금 몇시간째 검색만 해보지만 아직도 답을 못찾았습니다..
==============[키라님 글에 대한 답변입니다]==============
파일을 올립니다. emailtable.xls 라는 파일은 내용이 아무거나 있어도 상관없을거 같아
굳이 안올리구요... 중요한건 어떤 화일이던간에 마지막 커맨드에서 "다른화일의 내용을"가져와서 messageBox 에 넣고싶은거니까요...
감사감사감사합니다 ;;; |
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
