Makro İçinde Tamsayı Ve Tavana Yuvarlama isimli içerikte, bir sayıyı tamsayıya ve tavana (yukarıya) yuvarlamak için kullanılan VBA kodu yer almaktadır.
Hazır Kodlar
VBA:
Sub YuvarlamaIslemi()
Dim sayi As Double
Dim tamSayi As Integer
Dim tavanSayi As Double
' Örnek bir sayı
sayi = 7.3
' Sayıyı tamsayıya yuvarla
tamSayi = Int(sayi)
MsgBox "Tamsayıya yuvarlanmış hali: " & tamSayi
' Sayıyı tavana (yukarıya) yuvarla
tavanSayi = Application.WorksheetFunction.Ceiling(sayi, 1)
MsgBox "Tavana (yukarıya) yuvarlanmış hali: " & tavanSayi
End SubAçıklama
Bu kod, verilen bir sayıyı önce tamsayıya, ardından tavana (yukarıya) yuvarlar. `Int` fonksiyonu sayıyı en yakın alt tamsayıya yuvarlarken, `Ceiling` fonksiyonu sayıyı belirtilen katlara (bu örnekte 1) yuvarlar. Kod çalıştırıldığında, her iki yuvarlama işlemi için sonuçlar mesaj kutusunda gösterilir.Kullanım
- Kodu çalıştırarak tamsayıya ve tavana yuvarlama işlemini gerçekleştirin.
- Kod çalıştığında, verilen sayının hem tamsayıya hem de tavana yuvarlanmış halleri mesaj kutusu ile gösterilecektir.
