Najprej bi rad pohvalil MATJAŽEV NET - je enkraten in ga vsem priporočam.
Z makri nimam izkušenj, ker sem si jih bolj iz radovednosti ogledoval na tej strani, zato so
formule nepopolne, le da se okvirno vidi, kaj bi sploh rad izvedel.
stolpec F iskanje vrednost v stlopcih F15 do F40 z zanko - z povečevanjem vrednosti stolpca F za 0,01
dokler ni v stolpcu Q vrednost enaka 0 ali manjša
stolpec P nastavljena je končna vrednost , katera se v stlpcu M ne sme preseči (vsaka vrstica ima drugo vrednost)
stolpec Q stolpec P - M (odštevanje - ko je razlika 0 ali manjša od 0 išče razliko v naslednji vrsti)
stolpec M z iskanim količnikom F se izračunava iskana vrednost
F = 3
$B1$ = 2,5
1. r = 15 določim, da se postopek prične v vrstici 15
2. For i = 1 to 25 Nastavim zanko (vrstica 15 do 40)
3. Do while ???
4. M15 = $B1$ X F15
5. Q15 = P15 - M15
6. IF Q15=>0 GOTO (točka 10)
7. Fi = F + 0,01
8. Loop
9. r = r + 1
10. Next i
Za makro se vam lepo zahvaljujem
ZANKA V ZANKI
Re: ZANKA V ZANKI
Uf, na podlagi tega opisa pa vam ne znam pomagati... Boste morali biti mnogo bolj konkretni in napisati par konkretnih primerov, kaj sploh želite. Sicer pa bi takole na hitro rekel oz. razumel, da iščete neko ničlo funkcije ali nekaj podobnega, kar pomeni, da si mogoče najprej poglejte vgrajeno Excelovo orodje Reševalec (Solver), ki je sicer namenjeno temu.
PS: Hvala za pohvale.
PS: Hvala za pohvale.
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: ZANKA V ZANKI
Pozdravljen
Še stalno sem pri istem problemu - upam, da bom sedaj lahko bolj nazorno prikazal, kaj iščem.
Iskano število je v stolpcu F, do katerega pridem, ko predhodno izračunam stolpec G
Makro, s katerim dobim želeni rezultat za eno vrstico deluje, makro s
katerim bi dobil rezultate v več vrstich pa mi ne deluje in mi vse skupaj zablokira.
Za nasvet bi vam bil zelo hvaležen.
Lep pozdrav in lep dan
A B C D E F G
3.291,50 2,37891 474,35 152 1,135 6,88 (b * f * d) * e + C
2.801,60 2,37891 328,54 168 1,120 ????? (b * f * d) * e + C
3.857,40 2,37891 257,60 144 1,005 ????? (b * f * d) * e + C
5.210,87 2,37891 875,56 184 1,170 ????? (b * f * d) * e + C
TABELA - žal je ne morem vnesti, da bi bila bolj pregledna
Prilagam makro, ki mi deluje za eno vrstico in makro, ki mi ne deluje
DELUJOČI MAKRO - posamezne vrednosti so vpisane v makru
Sub try()
d = 152
f = 1
b = 2.37891
A = 3291.5
C = 474.35
e = 1.135
Do While (G <= A)
G = (b * f * d) * e + C
f = f + 0.01
Loop
Cells(4, 6) = f
End Sub
NEDELUJOČI MAKRO - vrednosti bere iz tabele
Sub try()
f=1
r=1
for r=4 to 8
Do While Cells(r,7)<=Cells(r,1)
Cells(r,7)=Cells(r,2)*Cells(r,6)*Cells(r,4)*Cells(r,5)+Cells(r,3)
f=f+0.01
Cells(r,6)=f
Loop
r=r+1
Next r
End Sub
MATJAŽEV NET JE ČISTA DESETKA
Še stalno sem pri istem problemu - upam, da bom sedaj lahko bolj nazorno prikazal, kaj iščem.
Iskano število je v stolpcu F, do katerega pridem, ko predhodno izračunam stolpec G
Makro, s katerim dobim želeni rezultat za eno vrstico deluje, makro s
katerim bi dobil rezultate v več vrstich pa mi ne deluje in mi vse skupaj zablokira.
Za nasvet bi vam bil zelo hvaležen.
Lep pozdrav in lep dan
A B C D E F G
3.291,50 2,37891 474,35 152 1,135 6,88 (b * f * d) * e + C
2.801,60 2,37891 328,54 168 1,120 ????? (b * f * d) * e + C
3.857,40 2,37891 257,60 144 1,005 ????? (b * f * d) * e + C
5.210,87 2,37891 875,56 184 1,170 ????? (b * f * d) * e + C
TABELA - žal je ne morem vnesti, da bi bila bolj pregledna
Prilagam makro, ki mi deluje za eno vrstico in makro, ki mi ne deluje
DELUJOČI MAKRO - posamezne vrednosti so vpisane v makru
Sub try()
d = 152
f = 1
b = 2.37891
A = 3291.5
C = 474.35
e = 1.135
Do While (G <= A)
G = (b * f * d) * e + C
f = f + 0.01
Loop
Cells(4, 6) = f
End Sub
NEDELUJOČI MAKRO - vrednosti bere iz tabele
Sub try()
f=1
r=1
for r=4 to 8
Do While Cells(r,7)<=Cells(r,1)
Cells(r,7)=Cells(r,2)*Cells(r,6)*Cells(r,4)*Cells(r,5)+Cells(r,3)
f=f+0.01
Cells(r,6)=f
Loop
r=r+1
Next r
End Sub
MATJAŽEV NET JE ČISTA DESETKA
Re: ZANKA V ZANKI
Ah... da zdaj pa razumem.
V sam izračun se nisem popolnoma nič spuščal, samo preoblikoval sem vam makro tako, da deluje...
PS: Tekst pa lahko oblikujete če ga zaprete v CODE tag...
V sam izračun se nisem popolnoma nič spuščal, samo preoblikoval sem vam makro tako, da deluje...
Koda: Izberi vse
Option Explicit
Sub IzvediZaVrstico(v As Long)
Dim f As Double: f = 1
Cells(v, 7) = 0
Do While (Cells(v, 7) < Cells(v, 1))
Cells(v, 7) = (Cells(v, 2) * f * Cells(v, 4)) * Cells(v, 5) + Cells(v, 3)
f = f + 0.01
Loop
Cells(v, 6) = f
End Sub
Sub izvajaj()
Dim v As Long
For v = 4 To 8
IzvediZaVrstico v
Next
End Sub
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: ZANKA V ZANKI
Pozdravljeni
Zahvaljujem se vam za makro, vendar žal zadeva še ne deluje.
Ko zaženem programček, se ustavi , Dim v As long (plavo obarva) in izpiše Compile error:
Syntax error
Ker sem pri VBA začetnik mi ni jasno, kako bi lahko zadevo uredil.
Programček sem prilepil, zato ni mogoče, da bi narobe prepisal.
V upanju, da nisem preveč tečen, vas lepo pozdravljam in želim lep dan.
lp Bojan
Zahvaljujem se vam za makro, vendar žal zadeva še ne deluje.
Ko zaženem programček, se ustavi , Dim v As long (plavo obarva) in izpiše Compile error:
Syntax error
Ker sem pri VBA začetnik mi ni jasno, kako bi lahko zadevo uredil.
Programček sem prilepil, zato ni mogoče, da bi narobe prepisal.
V upanju, da nisem preveč tečen, vas lepo pozdravljam in želim lep dan.
lp Bojan
Re: ZANKA V ZANKI
S samim ukazom ni nič narobe, verjetno se kje spredaj skriva kakšen neviden znak... Predlagam da pobrišete vse pred besedico DIM...
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator
Re: ZANKA V ZANKI
S samim ukazom ni nič narobe, verjetno se kje spredaj skriva kakšen neviden znak... Predlagam da pobrišete vse pred besedico DIM...
lp,
Matjaž Prtenjak
Administrator
Matjaž Prtenjak
Administrator