[Yardım]  Döngü oluşturmak

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Döngü oluşturmak

İleti#1)  k005 » 11 Tem 2018 16:25

mesafe : 500
eksen aralığı : 50
nokta sayısı : 10

Kod: Tümünü seç
Dim sonuc, sonuc1 As Double
sonuc = (msafe - eksen_ara) / kac_nokta
sonuc1 = FormatNumber(sonuc, 2)

Print #1, "1.Nokta = " & sonuc1 & vbCrLf

For nokta = 2 To kac_nokta
say = say + eksen_ara + sonuc1
Print #1, nokta & ".Nokta = " & say & vbCrLf
Next


bu şekilde bir kod oluşturmaya çalışıyorum...

1.Nokta = ok
2.nokta = ok
3.nokta ve diğer noktalar sadece bir önceki noktadaki değere eksen aralığını ekleyerek gitmesi gerekiyor..?

yardımcı arkadaşa şimdiden teşekkürler.
Kullanıcı avatarı
k005
Siteye Alışmış
 
Adı Soyadı:ERTAN KALAY
Kayıt: 14 Arl 2010 17:56
Konum: *************
Meslek: Inşaat teknikeri
Yaş: 39
İleti: 110
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DÜZCE/Merkez

Cevap: Döngü oluşturmak

İleti#2)  k005 » 11 Tem 2018 20:26

[quote="k005"]mesafe : 500
eksen aralığı : 50
nokta sayısı : 10

Kod: Tümünü seç
Dim sonuc, sonuc1 As Double
sonuc = (msafe - eksen_ara) / kac_nokta
sonuc1 = FormatNumber(sonuc, 2)

Print #1, "1.Nokta = " & sonuc1 & vbCrLf
[facebook][/facebook]
For nokta = 2 To kac_nokta
say = say + eksen_ara + sonuc1
Print #1, nokta & ".Nokta = " & say & vbCrLf
Next


bu şekilde bir kod oluşturmaya çalışıyorum...

1.Nokta = ok
2.nokta = ok
3.nokta ve diğer noktalar sadece bir önceki noktadaki değere eksen aralığını ekleyerek gitmesi gerekiyor..?

yardımcı arkadaşa şimdiden teşekkürler


************* BU KONU ÇÖZÜLMÜŞTÜR. ******************
Kullanıcı avatarı
k005
Siteye Alışmış
 
Adı Soyadı:ERTAN KALAY
Kayıt: 14 Arl 2010 17:56
Konum: *************
Meslek: Inşaat teknikeri
Yaş: 39
İleti: 110
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DÜZCE/Merkez


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 2 misafir

Bumerang - Yazarkafe