Neregistrovaný Přihlásit Registrovat

Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno Excel - makro

Dobrý den, rád bych požádal o radu v Excelu (makra + Visual Basic).

Rád bych udělal tzv. pendl mezi buňkami, např.: 10x za sebou se mi v intervalu "0:00:03" mi bude okénko poskakovat z jedné buňky do další buňky (v mém případě G6 a G12). Přesně toto potřebuji do excelu. Byl by někdo tak hodný a sehnal-napsal- mi ty příkazy, co mám napsat do Visual Basicu u Excelu ? Jsem laik a moc se v tom nevyznám. Zkoušel jsem googlit, ale to co požaduji jsem nenašel.

Předem děkuji.
Fandar.

Předmět Autor Datum
Neviem či som pochopil to čo chceš ale skús toto: Public Sub ExcelTimer() Dim PauseTime, Start, Fin… nový
pme 11.11.2009 22:17
 pme
Ano, to je ono ! Děkuji mnohokrát ! Sice nás učili úplně jiný zápis, ale i toto funguje, děkuji. nový
Fandar 11.11.2009 22:43
 Fandar
Ja by som to spravil radšej takto: Dim aCounter As Integer Sub Test() If ActiveSheet Is Sheet1 And… nový
los 11.11.2009 22:53
 los
Děkuji, schovám si to pro "strýčka Příhodu". :-) poslední
Fandar 11.11.2009 23:00
 Fandar

Neviem či som pochopil to čo chceš ale skús toto:

Public Sub ExcelTimer()
Dim PauseTime, Start, Finish, TotalTime
Finish = 1
TotalTime = 10
PauseTime = 3
Start = Timer
[g6].Select
Do While Timer < Start + (PauseTime * TotalTime)
DoEvents
If Timer >= Start + (PauseTime * Finish) Then
If ActiveCell.Address = Range("g6").Address Then
[g12].Select
Finish = Finish + 1
ElseIf ActiveCell.Address = Range("g12").Address Then
[g6].Select
Finish = Finish + 1
End If
End If
Loop
End Sub

Ja by som to spravil radšej takto:

Dim aCounter As Integer

Sub Test()
    If ActiveSheet Is Sheet1 And aCounter < 10 Then
        aCounter = aCounter + 1
        If aCounter Mod 2 = 1 Then Range("G6").Select Else Range("G12").Select
        Application.OnTime Now + TimeValue("0:00:03"), "Sheet1.Test"
    Else
        aCounter = 0
    End If
End Sub

Sheet1 je meno listu, na ktorom chceš prechádzať medzi bunkami G6 a G12. "Sheet1.Test" je meno tej procedúry, takže ak si tú procedúru premenuješ na niečo iné alebo ju presunieš na iný list, tak musíš zmeniť aj toto meno.

Zpět do poradny Odpovědět na původní otázku Nahoru