Cumartesi 09 Mayıs 2020
  1 Cevaplar
  2.4K Ziyaret
Merhaba. Çalışma sayfalarımdan yalnızca biri ile, ekranın sol tarafında listelenen sekmelerden birine tıkladığımda, o sekme listenin en üstüne gidiyor ve Excel dosyasının altındaki sekmelerim otomatik olarak yeniden sıralanıyor. Bu, diğer Excel çalışma sayfalarında meydana gelmez. Bu diğer çalışma sayfalarında, listeye tıklayarak bir sekmeye veya diğerine gidebilirim ve her şey aynı sırada kalır. Ama bu tek Excel çalışma sayfasında değil. Sekmelerin yeniden sıralanmasını durdurmak istiyorum. Örneğin, ekran görüntüsünde, 6-12 Ocak ve 13-19 Ocak tarihlerinin listenin altında listelendiğini, oysa daha önce listenin en üstte yer aldığını göreceksiniz. Bu konuda bana yardım edebilir misin? Bu, Excel 10 yüklü bir Windows 2007 sisteminde. Ekler kutusuna tıklayarak bir ekran görüntüsü yüklemeye çalıştım, ancak mümkün görünmüyor.
2 yıl önce
·
#2132
Bu, gizli sayfanızı tüm görünür sayfaların sonuna taşır:
Alt test ()
    Sayfalarla ("Sayfa1")
        .Visible = True
        Sayfalar("Sayfa1").Sonra Taşı:=Sayfalar(Sayfalar.Sayı)
        .Görünür = Yanlış
    İle bitmek
End Sub
Ve bu, gizli sayfanızı tüm gizli ve görünür sayfaların sonuna taşıyacaktır:
Alt moveHiddenSheet()
Dim ws, x, lastSheet
X = 0
ws için = Worksheets.Count To 0 Adım -1
    x = x + 1
    If Sheets(Worksheets.Count - x).Visible = False O zaman
        Sheets(ws).Visible = xlSheetVisible
        lastSheet = Sayfalar(ws).Ad
        Çıkış
    Eğer son
Sonraki ws
Sayfalarla ("Sayfa1")
    .Visible = True
    Sheets("Sheet1").Move After:=Sheets(Worksheets.Count) 
    .Görünür = Yanlış
İle bitmek
Sheets(lastSheet).Visible = False
End Sub
  • Sayfa:
  • 1
Bu gönderi için henüz cevap yok.