main 시트의 정열된 시트이름을 참조하여 각 시트의 특정위치의 값을 정열하여
가져 올려면 어떻게 해야 하나요? 세로로 정열된 시트이름 옆 가로로 원하는 각 시트의 원하는 cell
위치의 값을 가져 오고 싶은데요...
가져 올려면 어떻게 해야 하나요? 세로로 정열된 시트이름 옆 가로로 원하는 각 시트의 원하는 cell
위치의 값을 가져 오고 싶은데요...
번호 | 카테고리 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|---|
6 | P/C | 시작프로그램(msconfig)에 프로그램 등록하는 법 - 2 1 | 콩이아빠 | 2010.03.01 | 700 |
5 | P/C | 시작프로그램(msconfig)에 프로그램 등록하는 법!! 40 | 콩이아빠 | 2010.02.20 | 539 |
4 | P/C | 숨겨진 파일 및 폴더 보이게(설정) 하기 1 | 콩이아빠 | 2010.02.19 | 583 |
3 | P/C | 비스타 시작및 실행프로그램 | 콩이아빠 | 2010.02.19 | 358 |
2 | P/C | 비스타 시작프로렘 폴더 1 | 콩이아빠 | 2010.02.19 | 561 |
1 | P/C | 비스타 네트워크 프린트 설정 방법 | 콩이아빠 | 2010.02.18 | 246 |
Dim sCnt As Integer
Dim i As Integer
vRng = 2
sCnt = ActiveWorkbook.Worksheets.Count
For i = 2 To sCnt
If Sheets(i).Visible Then
Sheets("main").Range("a" & vRng) = Sheets(i).Name
Sheets("main").Range("b" & vRng) = Sheets(i).Range("b1")
vRng = vRng + 1
End If
Next
End Sub