sayı piramiti

[keskin535]

Merhaba, şu vba de sayı piramiti yapıcamda nasıl yapıcam acaba yardımcı olabilirmisiniz şuanda anca şu şekil yapabiliyorum http://hizliresim.com/EgVnDD yardım edinn ??

 

[alicimri]

Sizin yazdığınızın tek döngülüsü

Sub a()
For i = 1 To 6
Range(Cells(i, i), Cells(i, 1)).Value = "x"
Next
End Sub

Herhalde böyle bir şey istediniz

Sub a()
sonu = 10
For i = 1 To sonu
Range(Cells(i, sonu).Offset(0, -(i - 1)), Cells(i, sonu).Offset(0, i - 1)).Value = "x"
Next
End Sub

 

[keskin535]

Sizin yazdığınızın tek döngülüsü

Sub a()
For i = 1 To 6
Range(Cells(i, i), Cells(i, 1)).Value = "x"
Next
End Sub

Herhalde böyle bir şey istediniz

Sub a()
sonu = 10
For i = 1 To sonu
Range(Cells(i, sonu).Offset(0, -(i - 1)), Cells(i, sonu).Offset(0, i - 1)).Value = "x"
Next
End Sub

çok teşekkür ederim yaptıgınız kod oldu ancak ben tam şu offset i bilmiyorumda acaba başka yoluda varmı ?

 

[alicimri]

Offset özeliğinin, aşağıdaki kullanış biçimlerini inceleyiniz.
Range("C2").Offset(0, 1) >>>>> "D2"
Range("C2").Offset(0, -1) >>>>> "B2"
Range("C2").Offset(1, 0) >>>>> "C3"
Range("C2").Offset(-1, 0) >>>>> "C1"

 

[alicimri]

Offset kullanmadan.

Sub c()
sonu = 10
For i = 1 To sonu
Range(Cells(i, sonu - (i - 1)), Cells(i, sonu + (i - 1))).Value = "x"
Next
End Sub

 

[keskin535]

Offset kullanmadan.

Sub c()
sonu = 10
For i = 1 To sonu
Range(Cells(i, sonu - (i - 1)), Cells(i, sonu + (i - 1))).Value = "x"
Next
End Sub

Çok çok teşekkür ederim sağolun ????