ZANKA V ZANKI

Pomoč pri delu z MS Excelom
Odgovori
bojank
Prispevkov: 3
Pridružen: Sr Nov 21, 2012 2:19 pm

ZANKA V ZANKI

Odgovor Napisal/-a bojank »

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
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: ZANKA V ZANKI

Odgovor Napisal/-a admin »

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.
lp,
Matjaž Prtenjak
Administrator
bojank
Prispevkov: 3
Pridružen: Sr Nov 21, 2012 2:19 pm

Re: ZANKA V ZANKI

Odgovor Napisal/-a bojank »

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
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: ZANKA V ZANKI

Odgovor Napisal/-a admin »

Ah... da zdaj pa razumem.

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
PS: Tekst pa lahko oblikujete če ga zaprete v CODE tag...
lp,
Matjaž Prtenjak
Administrator
bojank
Prispevkov: 3
Pridružen: Sr Nov 21, 2012 2:19 pm

Re: ZANKA V ZANKI

Odgovor Napisal/-a bojank »

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
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: ZANKA V ZANKI

Odgovor Napisal/-a admin »

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
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: ZANKA V ZANKI

Odgovor Napisal/-a admin »

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
Odgovori