|
|
|
|
|
|
Sub 주소()
Dim rngmyrange As Range
Dim c As Range
Dim addcell() As String
Dim intnum As Integer
Set rngmyrange = Worksheets("포지션").Range("c8: c30")
For Each c In rngmyrange
If Not IsEmpty(c) Then
ReDim Preserve addcell(intnum)
addcell(intnum) = CStr(c.Address)
intnum = intnum + 1
MsgBox addcell(intnum)
Else
End If
Next c
End Sub
위와 같은 코딩문이 있습니다. addcell(intnum) = CStr(c.Address)
"아래첨자 사용이 잘못되었습니다 " 라는 에러가 뜨는데 왜 그런지요.
c.address 가 주소로 나타남으로 문자로 변형시키고, addcell을 string으로 변수를 주었습니다.
무엇이 잘못되었는지 고참님들의 답변 부탁합니다.
제가 하고 싶은것은. addcell(intnum)에 각각의 주소를 동적배열을 사용하여 주소를 담고 싶은 것입니다.
==============[복대리님 글에 대한 답변입니다]==============
안녕하세요?
아무 문제없는데요?????
구문그대로 복사한
첨부화일도 에러나는지 확인해보세요..
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2003-09-08(18:30)
최종수정일 : 2003-09-08(18:30) |
|
|
|
|