premikanje po straneh enega lista

[direndaj]

Zanima me ali je v excelu možno, da bi se avtomatsko premikal po listu. Na listu imam 100 vrstic, katere pa ne morem videti naenkrat na ekranu. Rad bi, da se pokaže prva stran, čez nekaj sekund avtomatsko preklopi na drugo in tako naprej in spet od začetka. Za pomoč se zahvaljujem. Roman.

[cedra]

In kaj je narobe s tipkama PageUp in Page Down? Namenjeni sta ravno takim potrebam kot jih imate vi!

[direndaj]

Ja ampak jaz ne bi pritiskal, rabil bi kot predstavitev na TV-ju.

[cedra]

Kaj pa, če bi posamezno stran, ki jo želite predstaviti na TV, kopirali v PowerPoint. Le-ta je namenjen predstavitvam in z lahkoto določite koliko časa se naj stran prikazuje, saj ima vse to vgrajeno v osnovnih menijih. Ni potrebno nikakršnega pisanja makrov...

[direndaj]

Tudi na to sem pomislil in probal, ampak je nekako preveč dela. Gre namreč za rezultate na tekmi, ki jih je treba osvežiti vsake pol ure in mi vzame preveč časa.

[cedra]

Napisal sem vam makro, ki se vam bo pomikal in označeval vrstice od 1 do 100, oz. do 99, saj se makro potem vrne na prvo vrstico. Sicer pa je koda dokaj enostavna...in vam bo vse jasno!

Koda: Izberi vse

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Pomik()
Dim i As Integer

For i = 1 To 100
    Cells(i, 1).EntireRow.Select
        Dalje
    If i = 99 Then i = 1
Next i

End Sub
Private Sub Dalje()

    Sleep 500 'Premik za eno vrstico na pol sekunde
    
End Sub

Pozor: makro se vrti neprestano. Ustavite ga s pritiskom na CTRL+Pause(break). Lahko pa naredite še svojo dodatno zanko, ki bo makro ustavila...Vse po želji. Pa tudi delati na listu v času izvajanja makra se ne da nič. Mislim pa da za samo predstavitev bo v redu.

[direndaj]

Najlepša hvala, odlično deluje, ampak imam še en problem, kako narediti, da bi, ko pride do 100 vrstice namesto, da gre spet od začetka šel na drug list in tam prehodil vseh 100 vrstic in na koncu nazaj na prvi list. Hvala za Vašo pomoč. Lep pozdrav Roman.

[cedra]

Vso prejšnjo kodo zamenjajte s to:

Koda: Izberi vse

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Pomik()
Dim i, j, hitrost_vrstic As Integer
hitrost_vrstic = 300  '''Povečanje ali zmanjšanje hitrosti pomikanja _
        po vrsticah. Številka mora biti celo število
ponovi:
For i = 1 To 100
    Cells(i, 1).EntireRow.Select
        Sleep hitrost_vrstic
Next i
    Sheets("Drugi list").Activate  '''Spremenite ime lista z vašim
For j = 1 To 100
    Cells(j, 1).EntireRow.Select
        Sleep hitrost_vrstic
Next j
    Sheets("Prvi list").Activate '''Spremenite ime lista z vašim

GoTo ponovi
End Sub

Je zdaj to tisto kar želite?

[direndaj]

To je to, hvala.