//-------------------------------------
* 배열 초기화 -> 루프
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)
'Tips' 카테고리의 다른 글
윈도우 10 랜카드 레지스트리 경로 (0) | 2023.03.11 |
---|---|
Adobe Premiere Pro에서 VR 편집하기 (0) | 2023.03.11 |
[엑셀] 셀이 참조하는 셀 주소 얻기 (0) | 2023.02.28 |
엑셀 커서 이동 안되는 현상 해결 방법 (0) | 2023.02.27 |
윈도우 명령어 이용 파일, 폴더 삭제 (0) | 2023.02.13 |