napisał: batory
postów: 4
 umieszczony:
21 kwietnia 2008
10:58
|
|
Rozróżniam 
Wielkie dzięki! AVE! |
|
|
napisał: batory
postów: 4
umieszczony:
18 kwietnia 2008
10:20
|
|
Jeśli myślałeś, że się 'wykpisz' ctrl+pg, to faktycznie się nie udało :)
Jeśli chodzi o załączony kod, to nie działa :(
A za cienki (na razie) jestem, żeby go udoskonalać. |
|
|
napisał: batory
postów: 4
umieszczony:
16 kwietnia 2008
15:49
|
|
| Tradycyjny sposób oznacza właśnie ctrl+pgup (pgdn). Ale ja chcę obsługiwać przejście pomiędzy arkuszami wyłacznie lewą ręką, stąd procedura. |
|
|
napisał: batory
postów: 4
umieszczony:
16 kwietnia 2008
11:16
|
|
Witam,
niewygodnie jest mi przechodzić w tradycyjny sposób pomiędzy arkuszami dlatego napisałem sobie taki prosty kod:
Sub Sheet_next1()
On Error Resume Next
ActiveSheet.Next.Select
End Sub
Sub Sheet_next2()
Application.OnKey "%2", "Sheet_next1"
End Sub
(analogicznie jest do tyłu, previous)
Problem występuje wtedy, gdy wśród arkuszy trafi się arkusz ukryty, wówczas procedura staje.
Zapewne wystarczy dodać prosty if, który pominie ukryty arkusz, ale nie wiem jak.
Z góry dziękuję za pomoc. |
|
|
 wstecz 1 dalej  wszystkich stron: 1
|
