Açı (Başlangıç noktası verilince sonraki hücrelere 45 derece karşılıkların gelmesi)

[engin.kilic.73]

Merhaba hocalarım

c1/c2/c3/c4/c5 hücrelerinde 10/11/12/13/14 değerleri vardır.

yapmak istediğim, c1=10 hücresinden sonra 30 derecelik açının karşılığını d2 den itibaren d5.e kadar yazdırıp grafik oluşturmak.

 

[engin.kilic.73]

2-3 saattir google.da dolaşıyorum(
Ararken şunu buldum hocam.
Ama formüldeki *5+15 kısmı neyi ifade ediyor onu anlayamadım.
$E$4+SATIRSAY($F$4:F4)*5+15

Derece hesaplama nasıl yapılır.

Hocalarım selamlar, yapmak istediğim a1=100 ise b1/b2/b3/b4/b5 hücrelerine bunun 45 derece karşılığını düşürmek istiyorum hesaplama a1 hücresine göre yapılacak. Örneğin. a1=100 iken 45 derece karşılığı b1=102 a1=100 iken 45 derece karşılığı b2=102,5 a1=100 iken 45 derece karşılığı b3=103 a1=100...

www.excel.web.tr

 

[DoğanD]

Dikey eksende her bir aralık 10 birim artıyor. (10/(90/45))=5 Formülde de 5'erli arttırarak aslında 45 dereceyi bulmuş diye anladım.

Sizin örneğiniz için de (2/(90/30)) = 0.6666 ile deneyebilir misiniz?

 

[Ouzz_z]

Açının satır sayısıyla ne alakası var? Bir önceki nokta ile olan mesafesi olmasın o?

 

[engin.kilic.73]

Ekli dosyayı görüntüle 257564 Açının satır sayısıyla ne alakası var? Bir önceki nokta ile olan mesafesi olmasın o?

Abi çok doğru söylüyorsunuz. sadece bende biraz ifade zorluluğu var. bu doğrudur

 

[Ouzz_z]

İnceler misin lütfen

 

[engin.kilic.73]

İnceler misin lütfen

Abi altın üyelik yok üye olayım bakayım. Teşekkür ederim.

 

[alicimri]

Bu açı belirleme grafikle olmasa olur mu?
Çizgi ile olabiliyorsa aşağıdaki kodu kullanın
aciDerece = 45 olan değerini değiştirerek deneyin,
NOT Sinüs, Kosinüs hesaplamasını bilmediğimden, Gemini'ye yaptırdım.

Sub AciCiz()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sayfa1") ' Çalışma sayfanızı belirtin

    Dim x1 As Single, y1 As Single ' Köşe noktası
    Dim x2 As Single, y2 As Single ' İlk kenarın bitiş noktası
    Dim x3 As Single, y3 As Single ' İkinci kenarın bitiş noktası
    Dim uzunluk As Single ' Kenar uzunluğu (isteğe bağlı)
    Dim aciDerece As Single
    Dim aciRadyan As Double

    ' Başlangıç noktasını belirleyin
    x1 = 100
    y1 = 100
    uzunluk = 100 ' İsteğe bağlı kenar uzunluğu

    ' İlk kenarı yatay olarak çizin
    x2 = x1 + uzunluk
    y2 = y1
    ws.Shapes.AddLine x1, y1, x2, y2
ws.Shapes(ws.Shapes.Count).Name = "alt" & ws.Shapes.Count
    ' İkinci kenarın bitiş noktasını 60 derecelik açıyla hesaplayın
    aciDerece = 45
    aciRadyan = Application.WorksheetFunction.Radians(aciDerece)

    x3 = x1 + uzunluk * Cos(aciRadyan)
    y3 = y1 - uzunluk * Sin(aciRadyan) ' Yukarı doğru açı için '-' kullanın, aşağı için '+'
    ws.Shapes.AddLine x1, y1, x3, y3
ws.Shapes(ws.Shapes.Count).Name = "üst" & ws.Shapes.Count - 1
ActiveSheet.Shapes.Range(Array("üst" & ws.Shapes.Count - 1, "alt" & ws.Shapes.Count - 1)).Select
    Selection.ShapeRange.Group.Select
    Selection.Name = aciDerece & "°"
End Sub