[ c0de @ 31.12.2008. 18:52 ] @
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. |
[ c0de @ 31.12.2008. 18:52 ] @
[ Djuka Maricic @ 02.01.2009. 15:29 ] @
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.
[ c0de @ 05.02.2009. 21:56 ] @
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. [ timmy @ 06.02.2009. 23:41 ] @
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 [ c0de @ 08.02.2009. 17:30 ] @
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... Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|