VBA Yuvarlak
VBA Round Function, sayıları belirtilen sayıda basamağa yuvarlar.
VBA Yuvarlak İşlevinin Sözdizimi
VBA Round İşlevinin sözdizimi şöyledir:
Round(Expression, [Decimal_places]) burada:
- İfade - Yuvarlanacak sayı.
- Ondalık (İsteğe bağlı) - Yuvarlanacak ondalık basamak sayısını belirten bir tam sayı. Değer 0'dan büyük veya 0'a eşit olmalıdır (>=0). Boşsa, varsayılan 0 kullanılır; bu, işlevin en yakın tam sayıya yuvarladığı anlamına gelir.
Öyleyse, 1 ondalık basamağa yuvarlayarak VBA Round işlevinin nasıl çalıştığını görebilmeniz için bir örneğe bakalım:
12345 | Alt Tur1()Msgbox Yuvarlak(7.25, 1)Alt Bitiş |
Ortaya çıkan MessageBox:
VBA Yuvarlak Bir Değişken
Yukarıdaki örnekte, yuvarlanacak sayıyı doğrudan fonksiyona girdik, ancak genellikle bunun yerine bir değişkeni yuvarlarsınız. Bunun yerine bir değişken kullanan bir örnek aşağıdadır:
Not: Ondalık değerleri saklamak için Double değişken türünü kullanıyoruz.
123456789 | Alt RoundUsingVariable()birim sayısını Çift olarak karartbirim sayısı = 7.25MsgBox "Değer" & Round(unitcount, 1)Alt Bitiş |
Sonuç:
VBA Yuvarlama Sonuçları
Gerçek Sayı | Ondalık Basamak Sayısı | Sonuç |
---|---|---|
7.25 | 0 | 7 |
7.25 | 1 | 7.2 |
7.25 | 2 | 7.25 |
-7.25 | 1 | -7.2 |
-7.25 | 2 | -7.25 |
VBA Kodu Örnekleri Aramaktan Bıktınız mı? AutoMacro'yu deneyin!
VBA Yuvarlak Hücre Değeri
Bir hücre değerini doğrudan VBA'da da yuvarlayabilirsiniz:
123 | Alt YuvarlakHücre()Aralık("A1").Değer = Yuvarlak(Aralık("A1").Değer, 2)Alt Bitiş |
VBA Yuvarlama İşlevi
VBA kullanarak bir sayıyı yuvarlamak istediğinizi varsayalım. Yerleşik VBA RoundUp eşdeğer işlevi yoktur, bunun yerine yapabileceğiniz şey VBA kodunuzdan Excel RoundUp Çalışma Sayfası işlevini çağırmaktır:
1 | roundupUnitcount = Application.WorksheetFunction.RoundUp(birim sayım, 3) |
Excel'in çalışma sayfası işlevleri, VBA'da kullanılabilir. Çalışma SayfasıFonksiyonu nesne. Çağıramayacağınız tek çalışma sayfası işlevleri, zaten yerleşik bir VBA eşdeğerine sahip olanlardır.
Excel Çalışma Sayfası Toparlama İşlevinin sözdiziminin bir hatırlatıcısı:
ROUNDUP(Sayı, Rakamlar) burada:
- Sayı - Yuvarlanmasını istediğiniz sayı.
- Rakamlar - Sayıyı yuvarlamak istediğiniz basamak sayısı.
Öyleyse, VBA kodunuzda RoundUp Worksheet işlevine nasıl erişeceğinizi görebilmeniz için bir örneğe bakalım:
12345678910111213 | Alt RoundUp()birim sayısını Çift olarak karartLoş toparlamaBirim Sayısı Çift Olarakbirim sayısı = 7.075711roundupUnitcount = Application.WorksheetFunction.RoundUp(birim sayım, 4)MsgBox "Değer" & RoundupUnitcountAlt Bitiş |
Sonuç:
En Yakın Tam Sayıya Yuvarlama
Ondalık basamak sayısı olarak 0 belirterek en yakın tam sayıya yuvarlayabilirsiniz:
12345 | Alt RoundUpWhole()MsgBox Application.WorksheetFunction.RoundUp(7.1, 0)Alt Bitiş |
Teslim edilen sonuç:
VBA Programlama | Code Generator sizin için çalışıyor!
Yuvarlama İşlevi Sonuçları
Gerçek Sayı | Rakamlar | Sonuç |
---|---|---|
7.075711 | 0 | 8 |
7.075711 | 1 | 7.1 |
7.075711 | 2 | 7.08 |
7.075711 | 3 | 7.076 |
7.075711 | -1 | 10 |
7.075711 | -2 | 100 |
7.075711 | -3 | 1000 |
VBA Yuvarlama İşlevi
VBA kullanarak bir sayıyı aşağı yuvarlamak istediğinizi varsayalım. Yerleşik VBA RoundDown eşdeğer işlevi de yoktur, bunun yerine yine yapacağınız şey VBA kodunuzdan Excel RoundDown Çalışma Sayfası işlevini çağırmaktır.
Excel Çalışma Sayfası RoundDown İşlevinin sözdiziminin bir hatırlatıcısı:
ROUNDDOWN(Sayı, Rakamlar) burada:
• Sayı - Aşağıya yuvarlanmasını istediğiniz sayı.
• Rakamlar - Sayıyı yuvarlamak istediğiniz basamak sayısı.
Öyleyse, VBA kodunuzda RoundDown Çalışma Sayfası işlevine nasıl erişeceğinizi görebilmeniz için bir örneğe bakalım:
12345678910111213 | Alt RoundDown()birim sayısını Çift olarak karartSoluk yuvarlamaBirim Sayısı Çift Olarakbirim sayısı = 5.225193rounddownUnitcount = Application.WorksheetFunction.RoundDown(birim sayım, 4)MsgBox "Değer" & rounddownUnitcountAlt Bitiş |
Sonuç:
En Yakın Tam Sayıya Yuvarlama
Ondalık basamak sayısı olarak 0 belirterek en yakın tam sayıya yuvarlayabilirsiniz:
12345 | Alt RoundDownWhole()MsgBox Application.WorksheetFunction.RoundDown(7.8, 0)Alt Bitiş |
Sonuç:
Yuvarlama İşlevi Sonuçları
Gerçek Sayı | rakamlar | Sonuç |
---|---|---|
5.225193 | 0 | 5 |
5.225193 | 1 | 5.2 |
5.225193 | 2 | 5.22 |
5.225193 | 3 | 5.225 |
5.225193 | -1 | 0 |
5.225193 | -2 | 0 |
5.225193 | -3 | 0 |
VBA Programlama | Code Generator sizin için çalışıyor!
Diğer VBA Yuvarlama İşlevleri
VBA Tavan - Belirli Bir Öneme Yuvarlama
VBA'nın bir Ceiling.Math işlevi eşdeğeri yoktur, bu nedenle bir sayıyı en yakın tam sayıya veya belirtilen en yakın anlamlılık katına yuvarlamak istiyorsanız, VBA kodunuzdan Excel'in Ceiling.Math çalışma sayfası işlevini çağırabilirsiniz.
Excel Çalışma Sayfası Ceiling.Math İşlevinin sözdiziminin bir hatırlatıcısı:
CEILING.MATH(Sayı, [Önem], [Mod]) burada:
- Sayı - Yuvarlamak istediğiniz sayı.
- Önemi (İsteğe bağlı) - Numaranızın yuvarlanmasını istediğiniz kat.
- mod (İsteğe bağlı) - Negatif sayıların sıfıra doğru veya sıfırdan uzağa yuvarlanıp yuvarlanmadığını kontrol eder.
Öyleyse, VBA kodunuzdaki Ceiling.Math Worksheet işlevine nasıl erişeceğinizi görebilmeniz için bir örneğe bakalım:
12345678910111213 | Alt RoundUpToSignificance()birim sayısını Çift olarak karartLoş tavanmathBirim Sayısı Çift Kişilikbirim sayısı = 4.1221tavanmathUnitcount = Application.WorksheetFunction.Ceiling_Math(birim sayı, 5)MsgBox "Değer" & tavanmathUnitcountAlt Bitiş |
Sonuç:
Belirtilen Önem Sonuçlarına VBA RoundUp
Gerçek Sayı | Önemi | mod | Sonuç |
---|---|---|---|
4.1221 | 5 | ||
4.1221 | 3 | 6 | |
4.1221 | 50 | 50 | |
-4.1221 | 3 | -3 | |
-4.1221 | 3 | -1 | -6 |
VBA Floor - Belirli Bir Öneme Yuvarlama
VBA'nın Floor.Math işlevi eşdeğeri de yoktur. Ancak, bir kez daha, bir sayıyı en yakın tam sayıya veya belirtilen en yakın anlamlılık katına yuvarlamak istiyorsanız, Excel'in Floor.Math çalışma sayfası işlevini VBA'dan çağırabilirsiniz.
Excel Çalışma Sayfası Floor.Math İşlevinin sözdiziminin bir hatırlatıcısı:
FLOOR.MATH(Sayı; [Anlam], [Mod]) burada:
• Sayı - Aşağı yuvarlamak istediğiniz sayı.
• Önem (İsteğe bağlı) - Numaranızın yuvarlanmasını istediğiniz kat.
• Mod (İsteğe bağlı) - Negatif sayıların sıfıra doğru veya sıfırdan uzağa yuvarlanıp yuvarlanmadığını kontrol eder.
VBA kodunuzdaki Floor.Math Worksheet işlevine nasıl erişeceğinizi görebilmeniz için bir örneğe bakalım:
1234567891011 | Alt RoundDownToSignificance()birim sayısını Çift olarak karartDim floormathUnitcount As Doublebirim sayısı = 4.55555559floormathUnitcount = Application.WorksheetFunction.Floor_Math(birim sayı, 2)MsgBox "Değer" & floormathUnitcountAlt Bitiş |
Sonuç:
Belirtilen Önem Sonuçlarına VBA RoundDown
Gerçek Sayı | Önemi | mod | Sonuç |
---|---|---|---|
4.55555559 | 4 | ||
4.55555559 | 3 | 3 | |
4.55555559 | 50 | 0 | |
-4.55555559 | 3 | -6 | |
-4.55555559 | 3 | -1 | -3 |