..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

ZANKA V ZANKI

Pomoč pri delu z MS Excelom

ZANKA V ZANKI

OdgovorNapisal/-a bojank » Sr nov 21, 2012 2:31 pm

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
bojank
 
Prispevkov: 3
Pridružen: Sr nov 21, 2012 2:19 pm



Matjazev.NET
 

Re: ZANKA V ZANKI

OdgovorNapisal/-a admin » Sr nov 21, 2012 2:46 pm

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

Re: ZANKA V ZANKI

OdgovorNapisal/-a bojank » Če nov 29, 2012 3:53 pm

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
bojank
 
Prispevkov: 3
Pridružen: Sr nov 21, 2012 2:19 pm

Re: ZANKA V ZANKI

OdgovorNapisal/-a admin » Če nov 29, 2012 5:10 pm

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

Re: ZANKA V ZANKI

OdgovorNapisal/-a bojank » Pe nov 30, 2012 2:48 pm

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
bojank
 
Prispevkov: 3
Pridružen: Sr nov 21, 2012 2:19 pm

Re: ZANKA V ZANKI

OdgovorNapisal/-a admin » Pe nov 30, 2012 4:49 pm

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: 3428
Pridružen: Sr jul 20, 2005 10:06 pm

Re: ZANKA V ZANKI

OdgovorNapisal/-a admin » Pe nov 30, 2012 4:49 pm

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: 3428
Pridružen: Sr jul 20, 2005 10:06 pm


Vrni se na Excel

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 2 gostov

cron