0
취소
투표
여보세요. 내 워크시트 중 하나만 사용하여 화면 왼쪽에 나열된 탭 중 하나를 클릭할 때마다 해당 탭이 목록의 맨 위로 이동하고 Excel 파일의 맨 아래에 있는 탭이 자동으로 재정렬됩니다. 이것은 다른 Excel 워크시트에서는 발생하지 않습니다. 다른 워크시트에서 목록을 클릭하여 한 탭이나 다른 탭으로 이동할 수 있으며 모든 것이 동일한 순서로 유지됩니다. 그러나 이 하나의 Excel 워크시트에는 없습니다. 탭이 다시 정렬되지 않도록 하고 싶습니다. 예를 들어 스크린샷에서 목록 하단에 6월 12-13일과 19월 10-2007일이 나열되어 있는 반면 이전에는 상단에 나열되어 있는 것을 볼 수 있습니다. 이 일을 도와주시겠습니까? 이것은 Excel XNUMX이 설치된 Windows XNUMX 시스템에서입니다. 첨부 파일 상자를 클릭하여 스크린샷을 업로드하려고 했지만 할 수 없는 것 같습니다.
이렇게 하면 숨겨진 시트가 보이는 모든 시트의 끝으로 이동합니다.
하위 테스트 ()
시트 포함("Sheet1")
.Visible = True
Sheets("Sheet1").다음 이후로 이동:=Sheets(Sheets.Count)
.Visible = 거짓
끝
최종 하위
그러면 숨겨진 시트가 모든 숨겨진 시트와 보이는 시트의 끝으로 이동합니다.
하위 이동HiddenSheet()
희미한 ws, x, lastSheet
X = 0
ws의 경우 = Worksheets.Count ~ 0 단계 -1
엑스 = 엑스 + 1
If Sheets(Worksheets.Count - x).Visible = False then
시트(ws).Visible = xlSheetVisible
lastSheet = Sheets(ws).이름
종료
END IF
다음 ws
시트 포함("Sheet1")
.Visible = True
Sheets("Sheet1").Move After:=Sheets(Worksheets.Count)
.Visible = 거짓
끝
시트(lastSheet).Visible = False
최종 하위
하위 테스트 ()
시트 포함("Sheet1")
.Visible = True
Sheets("Sheet1").다음 이후로 이동:=Sheets(Sheets.Count)
.Visible = 거짓
끝
최종 하위
그러면 숨겨진 시트가 모든 숨겨진 시트와 보이는 시트의 끝으로 이동합니다.
하위 이동HiddenSheet()
희미한 ws, x, lastSheet
X = 0
ws의 경우 = Worksheets.Count ~ 0 단계 -1
엑스 = 엑스 + 1
If Sheets(Worksheets.Count - x).Visible = False then
시트(ws).Visible = xlSheetVisible
lastSheet = Sheets(ws).이름
종료
END IF
다음 ws
시트 포함("Sheet1")
.Visible = True
Sheets("Sheet1").Move After:=Sheets(Worksheets.Count)
.Visible = 거짓
끝
시트(lastSheet).Visible = False
최종 하위
- 페이지 :
- 1
이 게시물에 대한 답변이 없습니다.