Vba'da kat fonksiyonu nasıl kullanılır (örneklerle)

Bir hücredeki sayıyı en yakın anlamlı kata yuvarlamak için VBA’daki Kat yöntemini kullanabilirsiniz.

Bu işlevi pratikte kullanmanın yaygın bir yolu aşağıda verilmiştir:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

Bu özel makro, A2:A10 aralığındaki her değeri B2:B10 aralığında belirtilen en yakın önemli kata yuvarlayacak ve sonuçları C2:C10 aralığında görüntüleyecektir.

Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.

Örnek: VBA’da Kat işlevi nasıl kullanılır?

A sütununda bir değerler listemiz ve B sütununda her değeri yuvarlamak istediğimiz başka bir önemli katlar listemiz olduğunu varsayalım:

A sütunundaki her değeri B sütunundaki anlamlı kata yuvarlamak için VBA’da Floor yöntemiyle aşağıdaki makroyu oluşturabiliriz:

 SubToFloor ()

Dim i As Integer

For i = 2 To 10
    Range("C" & i) = WorksheetFunction.Floor(Range("A" & i), Range("B" & i))
Next i

End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

C sütunu, A sütunundaki her bir değer için Taban yönteminin kullanılmasının sonucunu gösterir.

Örneğin şunu görebiliriz:

• 12.2452, 0.001’in en yakın katına yuvarlandığında 12.245 olur.
• 14,927, 0,01’in en yakın katına yuvarlandığında 14,92 olur.
• -5,23, 0,1’in en yakın katına yuvarlandığında -5,3 olur.

Ve benzeri.

Not : VBA Floor yöntemine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA’da değerler nasıl yuvarlanır?
VBA’da değerler nasıl yuvarlanır?
VBA’da değerler 2 ondalık basamağa nasıl yuvarlanır