[es] - vba zadacic.Mathematic

c0de
Aleksej Slobodnjikov
Pc Serviser
Moskow

Član broj: 190673
Poruke: 66
*.bratunac.zona.ba.

Profil

^{31.12.2008. u 18:52 - pre 186 meseci}

Evo za sve one koji imaju vremena jedan mali zadacic.

Potrebno je izracunat parabolu,da se nepoznate unose preko forme a da se grafik iscrtava na radnom listu excel-a.

Odgovor na temu

Djuka Maricic
Djuka Maricic
Mirijevo

Član broj: 71362
Poruke: 18
93.86.7.*

+2 Profil

Re: vba zadacic.Mathematic

^{02.01.2009. u 15:29 - pre 186 meseci}

Mogao bi da ostavis jednacinu parabole, tj kazi sta su nepoznate, pa mozda ti neko i pomogne. Ovako trazis da ti neko samo servira gotovo resenje.

Odgovor na temu

c0de
Aleksej Slobodnjikov
Pc Serviser
Moskow

Član broj: 190673
Poruke: 66
*.bratunac.zona.ba.

Profil

Re: vba zadacic.Mathematic

^{05.02.2009. u 21:56 - pre 185 meseci}

Evo na ovom linku ima formula.
http://www.holo.hr/Formule/Pre.../M45/fid/Mat25-01/Default.aspx

Znaci potrebno mi je da preko forme unosim x,y,p...Kada unesem to da se nacrta parabola kao na slici.Ja znam ovo sve teoretski kako ide ali ne znam kako u excel-u da crta grafik?

Jel moze sa shape?

Mislim da bi se ovo moglo uraditi na sledeci nacin:

Da se smanje sve celije na 1" i da se odredi RANGE za X i za Y pa da kroz petlju offsetuje i boji svaka celije koja je 1" sve to da se izvrsava dok ne dodje do promjenjive "p"....Ovo je metoda bez shape.

Nadam se da ste me razumeli.

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: vba zadacic.Mathematic

^{06.02.2009. u 23:41 - pre 185 meseci}

Nije bas odgovor na tvoje pitanje, ali evo neceg slicnog - malo sam se igrao.

Mozda ti to da ideju kako da nastavis dalje. Istina nisam namerno pravio formu vec
se parametri funkcije unose u celije.

U A3 i B3 se unose vrednosti X-intervala grafikona, u C3 broj tacaka crtanja krive,
a makro izracunava X i Y vrednosti na osnovu kojih iscrtava XYScatter grafikon.

Vise kao ideja, nego kao konkretno resenje tvog zadatka.

I malo koda

Code:

Sub NapraviNiz()
Dim i As Integer
    Range("A7:B10000").ClearContents
    For i = 0 To [c3] - 1
        Cells(i + 6, 1) = [a3] + i * ([b3] - [a3]) / ([c3] - 1)
        ' If i > 0 Then Cells(6, 2).Copy Destination:=Cells(i + 6, 2)
        If i = 0 Then
            [b6] = "=" & Replace([d3], "x", "A6", 1)
        Else
            Cells(6, 2).Copy Destination:=Cells(i + 6, 2)
        End If
    Next i
End Sub

Pozdrav

Prikačeni fajlovi

01.gif - 9.39k

02.gif - 12.51k

Grafikoni.xlsm - 27.54k

Odgovor na temu

c0de
Aleksej Slobodnjikov
Pc Serviser
Moskow

Član broj: 190673
Poruke: 66
*.bratunac.zona.ba.

Profil

Re: vba zadacic.Mathematic

^{08.02.2009. u 17:30 - pre 185 meseci}

Hvala timmy!!! Ovo je dobro,mada ja sam mislio na ovaj nacin da uradim.Dosao sam u situaciju gdje nemam izlaza

Code:
Sub kod()

'deklaracija
Dim i As Integer
Dim wb As Worksheet
Dim x As Range
Dim y As Range
Dim p As Range
Dim x1 As Integer
Dim y1 As Integer
Dim a As Integer

'Cistcenje svih celija u sheet1

Application.Worksheets("sheet1").Cells.Clear

Set wb = Sheet1

'smanjuju se redovi i kolone kako bi grafik bio pregledniji

wb.Cells.RowHeight = "1"
wb.Cells.ColumnWidth = "0.2"

'Dodjeljuje se range za ose(x,y) i boji, "p" je mjesto gdje se sjeku(x,y)

Set x = wb.Range("B71:CB71")
Set y = wb.Range("AO02:AO143")
Set p = wb.Range("AO71")

'Bojenje x i y ose sa crnom bojom

x.Interior.Color = RGB(0, 0, 0)
y.Interior.Color = RGB(0, 0, 0)

'x1 i y1 su tacke na x i y koordinatnom sistemu, Preko forme unosim "forma.x_txt.Value" i "forma.y_txt.Value"

x1 = p.Column + forma.x_txt.Value
y1 = p.Row - forma.y_txt.Value

'uslov za bojenje parabole
While Not Cells(y1, x1) = p

x1 = x1 - 1
y1 = y1 + 1

Cells(y1, x1) = Cells(y1, x1).Offset(1, -1)
Cells(y1, x1).Interior.Color = RGB(255, 0, 0)

Wend
MsgBox ("kraj")

End Sub

E ovaj dio me buni

Code:
While Not Cells(y1, x1) = p

x1 = x1 - 1
y1 = y1 + 1

Cells(y1, x1) = Cells(y1, x1).Offset(1, -1)
Cells(y1, x1).Interior.Color = RGB(255, 0, 0)

Wend
MsgBox ("kraj")

Mozda bi lakse bilo da offset krene od sredine (x,y),tj tacke "p" pa kad dodje do mjesta gdje se sjeku x1,y1 da stane....

Takodje da li ja mogu nekako da napravim da offset ide po nekad i za dva polja kako bi napravio uvijenu parabolu.Ovo je tek pocetak zadatka znam da moram ovo da preslikam i sa lijeve strane tj da(x1=-x1,y1=-y1) a da offset promjeni pravac...

Odgovor na temu