//-------------------------------------
* 배열 초기화 -> 루프
Dim myArray
myArray = Array(5, 6, 7, 8, 9)
For i = LBound(myArray) To UBound(myArray)
        sh = "Sheet" & CStr(myArray(i))
        Debug.Print sh
Next i


//-------------------------------------
* 시트 이름 변수로 표현
https://www.automateexcel.com/vba/sheets-worksheets
Sheet2 (설정B) : Sheet2 이 설정B 라고 이름이 설정되어 있는 상태
    Sheet2 = VBA Code Name
    설정B = Tab Name (사용자가 설정한 Sheet Name)

Sheets() 와 Worksheets()는 동일한 기능
Sheets("설정B") : 탭이름, 주의! VBA Code Name은 안됨
Sheets(2) : 위치 Index , 주의! 1부터시작, 2는 위치한 순서이므로 변한다.


//-------------------------------------
* 문자열 포맷으로 출력
    - VBA 내부 함수가 없음

Public Function StringFormat(ByVal mask As String, ParamArray tokens()) As String
    Dim i As Long
    For i = LBound(tokens) To UBound(tokens)
        mask = Replace(mask, "{" & i & "}", tokens(i))
    Next
    StringFormat = mask
End Function

    - 사용 예
Debug.Print StringFormat(" {0} => {1}", 1, 2)

 

반응형
Posted by codens