Sheet 이름으로 찾은 후 변수에 넣기
우선 간단하게 Sheet 이름을 기준으로 변수에 넣는 법은 아래와 같다.
Dim shProcess As Worksheet
Set shProcess = Worksheets("Sheet1")
MsgBox shProcess.Cells(1, 1)
Set shProcess = Worksheets("Sheet1")
MsgBox shProcess.Cells(1, 1)
이렇게 하면 Sheet1의 A1 셀의 값이 출력이 된다.
좀 더 응용을 해서 현재 열린 통합문서에서 이 이름의 시트가 있는지 없는지 여부를
확인하여 변수에 저장하고 싶다면 아래와 같이 하면 된다.
Dim shData As Worksheet ' Or As Variant
Dim stFindSheetName As Stringbr
Dim bResult As Boolean
Dim shProcess As Worksheet
Set shProcess = Worksheets("Sheet1")
stFindSheetName = shProcess.Cells(1, 1) ' Sheet1의 A1에 찾고자하는 시트의 이름이 있다고 가정
bResult = False
For Each shData In ActiveWorkbook.Worksheets
If shData.Name = stFindSheetName Then
bResult = True
MsgBox shData.Cells(1, 1)
End If
Next
If bResult = False Then
MsgBox stFindSheetName & "시트 이름을 찾지 못하였습니다."
End If
Dim stFindSheetName As Stringbr
Dim bResult As Boolean
Dim shProcess As Worksheet
Set shProcess = Worksheets("Sheet1")
stFindSheetName = shProcess.Cells(1, 1) ' Sheet1의 A1에 찾고자하는 시트의 이름이 있다고 가정
bResult = False
For Each shData In ActiveWorkbook.Worksheets
If shData.Name = stFindSheetName Then
bResult = True
MsgBox shData.Cells(1, 1)
End If
Next
If bResult = False Then
MsgBox stFindSheetName & "시트 이름을 찾지 못하였습니다."
End If