Excel VBA Round İşlevi
VBA'daki yuvarlama işlevi, adın kendisinden de anlaşılacağı gibi, verilen sayıyı kullanıcı tarafından belirtilen belirli ondalık basamak kümesine yuvarladığını veya aşağı yuvarladığını ifade ettiği gibi, bu işlev yuvarlama mantığını kullanır; referans ve ondalık sayıdan sonra son basamağı olan herhangi bir sayı 5'in altındaysa aşağı yuvarlanır ve bunun tersi de geçerlidir.
Bir sayıyı iki basamaklı ondalık, üç basamaklı ondalık sayıya yuvarlayabilir veya hiç yuvarlayabilirsiniz. Örneğin 5,8697 numaranız varsa. Sayıyı iki basamaklı bir ondalık sayıya yuvarlarsanız, 5.87 olacaktır. Üç haneye yuvarlarsanız, 5.870'e yuvarlanır. Sıfıra yuvarlamak isterseniz, o zaman 6.-
Bankacılık rakamlarında, 0,5'ten küçük olan tüm ondalık basamaklar önceki tam sayı değerine yuvarlanacak ve 0,5'ten büyük veya eşit olan tüm ondalık basamaklar bir sonraki tam sayı değerine yuvarlanacaktır.
Umarım çalışma sayfasındaki YUVARLA işlevini kullanmışsınızdır. VBA'da da bu işlevi kullanabiliriz ancak bu işlevlerde bir farkımız var. Bu iki işlev arasındaki farkı bu makalenin ilerleyen bölümlerinde göreceğiz.
Sözdizimi
Round işlevinin sözdizimine bir göz atın.
Sayı: Bu, yuvarlamaya çalıştığımız sayıdır.
(Ondalıktan Sonraki Hane Sayısı): Ondalık değerden sonra kaç basamağa ihtiyacınız var.
Örnekler
4.534 numarasına sahip olduğunuzu ve iki haneye yuvarlamak istediğinizi varsayalım.
Aşağıdaki adımları izleyin.
Adım 1: Değişkeni Değişken olarak bildirin.
Kod:
Alt Round_Example1 () Değişken Son Alt Olarak Dim K
Adım 2: Bu " k " değişkeni için, YUVARLA işlevi aracılığıyla değeri atayın.
Kod:
Alt Round_Example1 () Dim K As Variant K = Round (End Sub
3. Adım: Sayı hiçbir şeydir, ancak yuvarlamaya çalıştığımız sayı nedir. Bu durumda sayı 4.534
Kod:
Alt Round_Example1 () Dim K As Variant K = Round (4.534, End Sub
Adım 4: Kaç basamak yuvarlamamız gerekiyor? Bu durumda 2 haneye yuvarlamamız gerekir .
Kod:
Alt Round_Example1 () Dim K Değişken K = Yuvarlak (4.534, 2) Son Alt
Adım 5: Şimdi VBA mesaj kutusunda değişken "k" değerini gösterin.
Kod:
Alt Round_Example1 () Dim K As Variant K = Round (4.534, 2) MsgBox K End Sub
Bu kodu çalıştırın ve ne alacağımızı görün.
2 haneye yuvarladığımızda sonucu 4.53 olarak aldık.
Şimdi sayıyı 4,534'ten 4,535'e değiştireceğim . Bak şimdi ne olacak.
Kod:
Alt Round_Example1 () Dim K As Variant K = Round (4.535, 2) MsgBox K End Sub
Şimdi kodu çalıştırın ve sonucun ne olduğunu görün.
Sonucu 4.54 olarak aldık, önceki 4.53 değerinden bir ondalık yüksek. Bunun nedeni, bu örnekte 4.535 gibi bir sayı vermiş olmamızdır, bu nedenle sonraki 3 numaradan sonraki sayı 5 olur, böylece bir sonraki sayıya yuvarlanır, böylece 3 4 olur.
Şimdi numarayı 2.452678 olarak sağlayacağım ve 3 haneye yuvarlamaya çalışacağım.
Kod:
Alt Round_Example2 () Dim K As Variant K = Round (2.452678, 3) MsgBox K End Sub
Sonucu görmek için bu kodu çalıştırın.
Sonuç 2.453'tür .
2.45 burada 2678 2 sonra gelen sayılar nd ondalık yer numarası 2 sonra 2678. olan, bir sonraki numara, sonraki ondalık sayıya yuvarlanır böylece veya 5'e eşit daha büyük olan 6 vardır.
Şimdi sıfıra yuvarlamak için aynı sayıyı kullanacağım ve ne olacağını göreceğim.
Kod:
Alt Round_Example3 () Dim K As Variant K = Round (2.452678, 0) MsgBox K End Sub
Kodu çalıştırın ve ne alacağımızı görün.
Turu sıfıra kadar kullandığım için sonucu 2 olarak aldık.
Sonucu 2 olarak almamızın nedeni, burada ondalık ilk sayı 4'tür, bu da 0,5'ten küçüktür, bu nedenle aşağı yuvarlanır.
Excel ve VBA ROUND İşlevi Arasındaki Fark
Esas olarak 2 farklılık vardır.
# 1 - Her İki İşlevin Sözdizimi:
Her iki fonksiyonun sözdizimine bakarsanız, burada bir farkımız var.
Excel Round Sözdizimi: Round (Sayı, Ondalık Sonrası Hane Sayısı)
VBA Round Sözdizimi: Round (Sayı, (Ondalık Sonrası Hane Sayısı))
Excel'de, her iki bağımsız değişken de zorunludur ancak VBA'da ikinci bağımsız değişken isteğe bağlıdır.
VBA'da ikinci bağımsız değişkeni yok sayarsanız, varsayılan bağımsız değişkeni sıfır olarak alır, böylece tam sayıyı elde ederiz.
# 2 - Sonuçlar:
Bu iki işlevin verdiği sonuçlar farklıdır. Aşağıda birkaç örnek verilmiştir
