Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 63880 Skopiuj do schowka Odkrycie arkuszy stając na odpowiednią komórkę
Autor Wiadomość
RafiG41
Stały bywalec Excelforum


Posty: 398
Wysłany: 22-01-2019, 07:15   Odkrycie arkuszy stając na odpowiednią komórkę

Witajcie,
Czy mogę prosić o napisanie makro, dzięki, któremu jak w arkuszu "start" stanę na żółte komórki to będą otwierać się poszczególne arkusze, w zależności od tego na jakiej komórce stanę i jednocześnie będzie ukrywać się arkusz "start".
Jak stanę na komórce B8, to niech otworzy się "ArluszA" i zaznaczona zostanie w nim komórka A1, a arkusz "start" niech zostanie ukryty.
Jak stanę na komórce C8, to niech otworzy się "ArluszB" i zaznaczona zostanie w nim komórka A1, a arkusz "start" niech zostanie ukryty.
Jak stanę na komórce D8, to niech otworzy się "ArluszC" i zaznaczona zostanie w nim komórka A1, a arkusz "start" niech zostanie ukryty.
Jak stanę na komórce E8, to niech otworzy się "ArluszD" i zaznaczona zostanie w nim komórka A1, a arkusz "start" niech zostanie ukryty.
Nie chcę używać hiperłącza, gdyż on nie ukryje mi arkusza "start" i nie chcę też przycisków w arkuszu "start".
Z góry dziękuję za pomoc.

przykład.xlsx
Pobierz Plik ściągnięto 9 raz(y) 9.79 KB

ID posta: 360991 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1465 razy
Posty: 4725
Wysłany: 22-01-2019, 08:17   

Można np. takim makrem:
Kod:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("B8:E8")) Is Nothing And Target.Count = 1 Then
    Select Case Target.Column
        Case 2
        With Sheets("ArkuszA")
            .Visible = True
            .Activate
            .Range("A1").Select
        End With
        Case 3
        With Sheets("ArkuszB")
            .Visible = True
            .Activate
            .Range("A1").Select
        End With
        Case 4
        With Sheets("ArkuszC")
            .Visible = True
            .Activate
            .Range("A1").Select
        End With
        Case 5
        With Sheets("ArkuszD")
            .Visible = True
            .Activate
            .Range("A1").Select
        End With
    End Select
    Sheets("start").Visible = False
End If
End Sub


przykład (2).xlsm
Pobierz Plik ściągnięto 9 raz(y) 16.86 KB

ID posta: 360994 Skopiuj do schowka
 
 
Artik 



Pomógł: 2602 razy
Posty: 8571
Wysłany: 22-01-2019, 10:07   

RafiG41 napisał/a:
Nie chcę używać hiperłącza, gdyż on nie ukryje mi arkusza "start"
Eee tam, zaraz nie ukryje. ;-)
Linki w komórkach B8:E8 odwołują się do samych siebie, tzn. do komórek w których dodano hyperlink.
Potem kawałek procedury zdarzeniowej i arkusz Start ukrywa się jak złoto. :-)
Kod:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
  Dim Sh As Object
 
  Select Case Target.Range.Address(0, 0)
    Case "B8"
      Set Sh = Worksheets("ArkuszA")
    Case "C8"
      Set Sh = Worksheets("ArkuszB")
    Case "D8"
      Set Sh = Worksheets("ArkuszC")
    Case "E8"
      Set Sh = Worksheets("ArkuszD")
  End Select
 
  If Not Sh Is Nothing Then
    Application.Goto Sh.Range("A1"), True
    Worksheets("Start").Visible = xlSheetHidden 'xlSheetVeryHidden
  End If
End Sub

Artik

przykład RafiG41.xlsm
Pobierz Plik ściągnięto 12 raz(y) 18.47 KB

_________________
Persistence is a virtue in the world of programming.
ID posta: 360998 Skopiuj do schowka
  Wersja Office-a: Win Office 365
 
Piotreku 
Exceloholic


Pomógł: 1 raz
Posty: 198
Wysłany: 26-01-2019, 12:24   

A jak wrócić do arkusza "START" bez odkrywania arkuszy?
ID posta: 361344 Skopiuj do schowka
 
 
Tadek
Excel Expert


Pomógł: 1465 razy
Posty: 4725
Wysłany: 27-01-2019, 07:54   

Np. tak:
Kod:
Sub odkryj()
    With Sheets("Start")
    .Visible = True
    .Activate
    .Range("A1").Select
    End With
End Sub
ID posta: 361384 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe