Dizi Hk.

[Mdemir63]

Selamlar

Dosyada detaylı açıklamaya çalıştım.
Aynı anda iki sonucu da yazdırmak için kodlarda ne gibi değişiklik yapmalıyım.

Sub Dizi_Ornegi()
Dim ws As Worksheet: Dim ss As Long: Dim i As Integer
Dim dizi() As Variant: Dim dizi2 As Variant
Set ws = ThisWorkbook.Worksheets("Diziler")
ss = ws.Range("A" & Rows.Count).End(xlUp).Row
dizi = ws.Range("A2:B" & ss).Value
ReDim dizi2(LBound(dizi, 1) To UBound(dizi, 1), 1 To 2)
For i = LBound(dizi, 1) To UBound(dizi, 1)
      dizi2(i, 1) = Int(dizi(i, 2) / 2)   '-Diziyi 2 böl
'      dizi2(i, 1) = Sqr(dizi(i, 2))      '-Dizinin karekökünü al
Next i
ws.Range("B2:B" & ss).Offset(0, 1) = dizi2
'ws.Range("B2:B" & ss).Offset(0, 2) = dizi2
End Sub

 

[Necdet]

Merhaba,

Sub Dizi_Ornegi()

Dim ws As Worksheet: Dim ss As Long: Dim i As Integer
Dim dizi() As Variant: Dim dizi2 As Variant
Set ws = ThisWorkbook.Worksheets("Diziler")
ss = ws.Range("A" & Rows.Count).End(xlUp).Row
dizi = ws.Range("A2:B" & ss).Value
ReDim dizi2(LBound(dizi, 1) To UBound(dizi, 1), 1 To 3)
For i = LBound(dizi, 1) To UBound(dizi, 1)
      dizi2(i, 1) = Int(dizi(i, 2) / 2)   '-Diziyi 2 böl
      dizi2(i, 2) = Sqr(dizi(i, 2))      '-Dizinin karekökünü al
Next i

ws.Range("B2:C" & ss).Offset(0, 1) = dizi2

End Sub

 

[Necdet]

Bu da benim önerim bu konu ile ilgili.

Sub DiziOrnek()

Dim arr As Variant
Dim i   As Long

[C1] = "Bolum"
[D1] = "Karekök"

arr = Range("A1").CurrentRegion.Value

For i = 2 To UBound(arr, 1)
    arr(i, 3) = arr(i, 2) \ 2
    arr(i, 4) = Sqr(arr(i, 2))
Next i

Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

End Sub

 

[Mdemir63]

Selamlar

@Necdet Hocam öncelikle çok teşekkür ederim.
Benim kodlarımda siz değişiklik yapmışsınız ama yine sadece 1 sutunu yazıyor.

sizin öneriniz içinde ayrıca çok teşekkür ediyorum.

Saygılar

 

[Necdet]

Merhaba,
Ben denedim doğru çalışıyor.

 

[Mdemir63]

Merhaba,
Ben denedim doğru çalışıyor.

Evet Hocam özür dilerim.
Ben hata yapmışım.
Tekrar çok teşekkür ederim.

Saygılar

 

[Mdemir63]

Selamlar
@Necdet Hocam
şöyle bir şey var; Her iki kodda düzgün işlemleri yapıyor
Ancak, sayılar içindeki bazı sayıları tam bölmüyor
örneğin:
91/2=45 , 167/2=83 , 25/2=12 sonuçlarını örnekteki gibi yazıyor halbuki tam ikiye bölmesi gerekir
bu sorunu nasıl çözebilirim?

Saygılar

 

[Necdet]

Tam bölmek derken küsuratlı mı demek istiyorsunuz? anlamadım.

 

[Mdemir63]

Evet Hocam

 

[Haluk]

dizi2(i, 1) = dizi(i, 2) / 2

.

 

[Mdemir63]

dizi2(i, 1) = dizi(i, 2) / 2

.

@Haluk Hocam çok teşekkür ederim.

Saygılar