Resim Kredisi: mavoimages/iStock/Getty Images
Yerleşik programlama dili VBA'dan veya Visual Basic for Applications'dan Excel'in "Toplama" işlevinin nasıl kullanılacağını öğrenmek, VBA'dan herhangi bir Excel işlevini çalıştırmanıza yardımcı olur. Excel, VBA'nın sahip olmadığı ve bir VBA programından başvurmanız gerekebilecek birçok işleve sahip olduğundan, bu beceri yararlıdır. "Toplama" işlevine dokunmanıza izin veren VBA özelliğinin, standart çalışma sayfası arabirimini kullanırken olduğu gibi, yanlış bir sözdizimi veya bağımsız değişken konusunda sizi uyarmayacağını unutmayın.
Amaç
Excel "Toplama" işlevi, bir sayıyı belirttiğiniz basamak sayısına yuvarlar. Örneğin, "Toplama (2.2, 0)" komutunu çalıştırmak Excel'e 2,2 sayısını bir sonraki tam sayıya yuvarlamasını istediğinizi söyler. İkinci argümandaki "0", Excel'e ondalık noktadan sonra herhangi bir rakam istemediğinizi söyler; bu, bir tamsayı yanıtı istediğinizi söylemeye eşdeğerdir.
Günün Videosu
VBA Yuvarlak İşlevi
VBA'nın yerleşik bir "Toplama" işlevi yoktur. Sahip olduğu en yakın işlev, yuvarladığınız sayının bitiş basamağının 5'ten büyük veya küçük olmasına bağlı olarak yukarı veya aşağı yuvarlayan "Yuvarla" işlevidir. Örneğin, VBA "Hemen" penceresine "Yuvarlak (2.2, 0)" yazmak, Excel "Toplama" işlevinin yuvarlayacağı 3 yerine 2 ile sonuçlanır.
"Formül" Özelliği
VBA'nın kendine ait bir "Toplama" işlevi olmamasına rağmen, Excel'in "Toplama" işlevini kullanabilir. VBA'ya bunu yapmasını söylemek için, "Range" sanal nesnesinin "Formula" özelliğini "Roundup" işlevine ayarlayın. Aşağıdaki örnek, bunun nasıl yapılacağını gösterir. Excel içinden "Alt" ve "F11" tuşlarına aynı anda basarak VBA geliştirme ortamını açın. "Hemen" penceresinde fareyi tıklayın, ardından aşağıdaki ifadeyi yazın: "Range ("A1").Formula = "=Roundup (2.2, 0)"." Az önce açıklanan "Alt-F11" tuşuna basarak Excel'e dönün. A1 hücresinde, ifadenizin Excel'in "Toplama" işlevini başarıyla uyguladığını gösteren "3" sonucunu göreceksiniz.
Etkileşimli Örnek
Bir kullanıcıdan "Toplama" işlevi için argümanları kabul eden ve bu işlevin sonucunu görüntüleyen etkileşimli bir VBA programı yapabilirsiniz. VBA geliştirme ortamını açtıktan sonra aşağıdaki programı pencereye yapıştırın:
Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Yuvarlamak istediğiniz sayıyı girin")) a2 = CInt (InputBox("Hangi az önce girdiğiniz sayıyı yuvarlamak istiyorsunuz.")) s = "=Roundup(" & a1 & "," & a2 & ")" Range("A1").Formül = s Range("A1") .MsgBox (Range("A1").Value) End Alt
Programı, ifadelerinden birine ve ardından "Çalıştır" menüsünün "Çalıştır" komutuna tıklayarak çalıştırın. Excel sizden işlevin bağımsız değişkenlerini istediğinde, bunları yazın ve "Enter" tuşuna basın. Programınız, girdiğiniz argümanlar için "Toplama" fonksiyonunun sonucunu gösterecektir.
