» Poradna » Programy

Visual basic v excelu

 |   | 

Zdarec lidi mohli by jste mi prosim poradit mam tenhle kod:

Private Sub Workbook_Open()
Dim spravne As Integer
Dim spatne As Integer



'If Range("F1") > -1 Then

If Range("F1") > -1 Then
spravne = spravne + 1
Else
spatne = spatne + 1
End If

If spatne = 0 Then
MsgBox "Kontrola softwaru probihla v pooádku"
Else
MsgBox "Pozor byl poesáhnut poeet možných instalací. A to " & spatne & "x" _
& vbNewLine & "Problémové buoky byly oznaeeny"
End If
End Sub

a tedka bych potreboval poradit jak mam udelat aby prochazel treba od bunky F1 do bunky treba F15. Jestli to delat nejak for cyklem nebo jak. Vim ze ve visual basicu slo udelat objekty jako pole a pak je prochazel for cyklem a pak slo reagovat na kazdy prvek. Ale tady jak to je moc netusim. Mohl by prosim nekdo poradit, diky.

Odpovědi na otázku

 |   | 

je to v helpu excelu stačí si ho zobrazit
funkce for each

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

juknu na to diky kdyzta jeste pisnu :)

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

no koukam na syntaxy

For Each element In group
[statements]
[Exit For]
[statements]

Next [element]

ale nejak jsem nepochopil z toho jak to tam muzu vlozit pokud mam treba prvky od F1:F10 co mam dat do "element" a co do "group"

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Dim X As Integer

For X = 1 To 15

If Cells(X,6) > -1 Then
spravne = spravne + 1
Else
spatne = spatne + 1
End If

Next A

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

pardon, chybka se vloudila na konec

Dim X As Integer

For X = 1 To 15

If Cells(X,6) > -1 Then
spravne = spravne + 1
Else
spatne = spatne + 1
End If

Next X

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

diky kouknu na to

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

jop funguje to bezvadne diky moc

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Visual Basic


Určitě si přečtěte

AMD uvádí grafické karty Radeon RX 6800, 6800 XT a 6900 XT. Útočí přímo na modely od Nvidie

AMD uvádí grafické karty Radeon RX 6800, 6800 XT a 6900 XT. Útočí přímo na modely od Nvidie

** AMD představilo tři nové grafické karty ** Všechny s architekturou RDNA2, kterou používají i PS5 a Xbox Series ** Karty útočí přímo na GeForce RTX 3000

Karel Javůrek | 77

Vybrali jsme 12 programovatelných hraček a stavebnic pro děti a jejich rodiče

Vybrali jsme 12 programovatelných hraček a stavebnic pro děti a jejich rodiče

** Získejte děti pro matematiku a základy techniky ** Kupte jim hračku nebo stavebnici, které vdechnou vlastní život ** Vybrali jsme stavebnice pro malé caparty i budoucí experty

Jakub Čížek | 9

Přehled: Kdo má nejlevnější internet VDSL? Jak jsou na tom veřejné IP a Terminátor?

Přehled: Kdo má nejlevnější internet VDSL? Jak jsou na tom veřejné IP a Terminátor?

** Srovnali jsme nabídku VDSL u 19 internetových poskytovatelů ** Ceny tarifů se liší i o stokoruny ** Různá je také nabídka doplňkových služeb

Lukáš Václavík | 44


Aktuální číslo časopisu Computer

Megatest mobilů do 5 500 Kč

Test levných herních notebooků

Hrajeme na Xbox Series X

Programy pro kontrolu dětí na počítači