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...
AS