|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):2000
3. CPU (486,PentiumI/II/III/IV...):iv
4. RAM (32,64,128,256,512MB,1G...): 512
* 아래줄에 질문을 작성하세요 >>
아래 코드는 제가 작업하고 있는 것 중 일부입니다.
질문이 간단해서 연관되는 코드값만을 적었어요.
For Each rng In .SpecialCells(xlCellTypeVisible)
Application.Goto .Offset(0, 2) '선택한 셀
Selection.FormulaArray = "=myNumtoDate(" & .offsets(0, -5).Value & ")" '윗줄의 선택한 셀에서 왼쪽으로 다섯번째 셀(상대셀참조)에 vba함수를 이용하여 계산(여기에서 myNumtoDate함수내에 상대참조셀을 입력하는게 질문입니다.)
Next rng
VBA 코드에서 '임의의 셀에 그 셀의 상대참조셀을 함수적용하여 계산된 값을 입력'하려고 하는데 원하는대로 잘 안됩니다.
고견바랍니다.
감사합니다.
==============[나연이 아빠님 글에 대한 답변입니다]==============
안녕하세요..!!
코드상에서는 이상이 없는것 같습니다만
"=myNumtoDate(" & .offsets(0, -5).Value & ")"
이 부분에서 .offsets(0, -5) 이 부분이 오타 입니다
Offset(0, -5) 로 고쳐보시고 실행 해 보세요.
안된다면 파일을 올려 주시구요 |
|