0
Ångra
Röster
Hallå. Med bara ett av mina kalkylblad, när jag klickar på en av flikarna på skärmens vänstra sida, går den fliken till toppen av listan och mina flikar längst ned i Excel-filen ordnas om automatiskt. Detta händer inte med andra Excel-kalkylblad. I de andra kalkylbladen kan jag navigera till en eller annan flik genom att klicka på listan och allt förblir i samma ordning. Men inte på det här Excel-kalkylbladet. Jag vill förhindra att flikarna ordnas om. I skärmdumpen, till exempel, ser du 6-12 januari och 13-19 januari listade längst ner på listan, medan de tidigare var listade överst. Kan du hjälpa mig med detta? Det här är på ett Windows 10-system med Excel 2007. Jag försökte ladda upp en skärmdump genom att klicka på rutan Bilagor, men verkar inte kunna.
Detta kommer att flytta ditt dolda ark till slutet av alla synliga ark:
Sub test()
Med ark ("Sheet1")
.Visible = True
Sheets("Sheet1"). Flytta efter:=Sheets(Sheets.Count)
.Synlig = Falskt
Sluta med
End Sub
Och detta kommer att flytta ditt dolda ark till slutet av alla dolda och synliga ark:
Sub moveHiddenSheet()
Dim ws, x, lastSheet
x = 0
För ws = Worksheets.Count To 0 Steg -1
x = x + 1
If Sheets(Worksheets.Count - x).Visible = False Then
Sheets(ws).Visible = xlSheetVisible
lastSheet = Sheets(ws).Namn
Avsluta för
End If
Nästa ws
Med ark ("Sheet1")
.Visible = True
Sheets("Sheet1"). Flytta efter:=Sheets(Worksheets.Count)
.Synlig = Falskt
Sluta med
Sheets(lastSheet).Visible = False
End Sub
Sub test()
Med ark ("Sheet1")
.Visible = True
Sheets("Sheet1"). Flytta efter:=Sheets(Sheets.Count)
.Synlig = Falskt
Sluta med
End Sub
Och detta kommer att flytta ditt dolda ark till slutet av alla dolda och synliga ark:
Sub moveHiddenSheet()
Dim ws, x, lastSheet
x = 0
För ws = Worksheets.Count To 0 Steg -1
x = x + 1
If Sheets(Worksheets.Count - x).Visible = False Then
Sheets(ws).Visible = xlSheetVisible
lastSheet = Sheets(ws).Namn
Avsluta för
End If
Nästa ws
Med ark ("Sheet1")
.Visible = True
Sheets("Sheet1"). Flytta efter:=Sheets(Worksheets.Count)
.Synlig = Falskt
Sluta med
Sheets(lastSheet).Visible = False
End Sub
- Sida:
- 1
Det finns inga svar på det här inlägget än.