Bir tamsayı, VBA'da tam sayı değerlerini tutmak için herhangi bir değişkene verilen bir veri türüdür, bir tamsayı değişkeninin tutabileceği sınırlamalar veya parantez VBA'da diğer dillerinkine benzerdir, herhangi bir değişken tamsayı olarak tanımlanır değişken, VBA'daki DIM deyimini veya anahtar sözcüğünü kullanarak.
Excel VBA Tamsayı
Veri türleri, herhangi bir kodlama dilinde çok önemlidir çünkü tüm değişken açıklamasını, bu değişkenlere atanan veri türü takip etmelidir. Çalıştığımız çeşitli veri türlerimiz var ve her veri türünün kendisiyle ilişkili kendi avantajları ve dezavantajları var. Değişkenleri bildirirken, belirli veri türleriyle ilgili ayrıntıları bilmek önemlidir. Bu, VBA'daki "Tamsayı" veri türüne adanmış makaledir. Size "Tamsayı" veri türünün tam resmini göstereceğiz.
Tamsayı Veri Türü nedir?
Tam sayılar, pozitif, negatif ve sıfır olabilen ancak kesirli sayı olmayan tam sayılardır. VBA bağlamında, "Tamsayı" değişkenlere atadığımız bir veri türüdür. Tam sayıları ondalık konumlar olmadan tutabilen sayısal bir veri türüdür. Tamsayı veri türü VBA LONG veri türünün yarısı olan 2 baytlık depolama, yani 4 bayt.
Excel VBA Tamsayı Veri Türü Örnekleri
Aşağıda VBA Tamsayı Veri türü örnekleri verilmiştir.
Örnek 1
Bir değişkeni tanımladığımızda, ona bir veri türü atamak ve bunlardan birini tamsayı yapmak gerekir ki bu, tüm kullanıcılar tarafından gereksinimlere göre yaygın olarak kullanılır.
Dediğim gibi, bir tamsayı sadece tam sayıları tutabilir, kesirli sayıları değil. Bir VBA tamsayı veri türü örneğini görmek için aşağıdaki adımları izleyin.
Adım 1: Değişkeni Tamsayı olarak bildirin.
Kod:
Sub Integer_Example () Dim k As Integer End Sub
2. Adım: "k" değişkenine 500 değerini atayın.
Kod:
Sub Integer_Example1 () Dim k As Integer k = 500 End Sub
Adım 3: VBA mesaj kutusunda değeri gösterin.
Kod:
Sub Integer_Example1 () Dim k As Integer k = 500 MsgBox k End Sub
Kodu F5 tuşunu kullanarak veya manuel olarak çalıştırdığımızda, mesaj kutusunda 500 görebiliriz.
Örnek 2
Şimdi değeri -500 olarak "k" değişkenine atayacağım.
Kod:
Sub Integer_Example2 () Dim k As Integer k = -500 MsgBox k End Sub
Bu kodu manuel olarak çalıştırın veya F5 tuşuna basın. Daha sonra mesaj kutusunda -500 değerini de gösterecektir.
Örnek 3
VBA'ya söylediğim gibi, Tamsayı veri türü 25.655 veya 47.145 gibi kesir sayılarını değil yalnızca tam sayıları tutabilir.
Bununla birlikte, kesir numarasını bir VBA Tamsayı veri türüne atamaya çalışacağım. Örneğin, aşağıdaki koda bakın.
Kod:
Sub Integer_Example3 () Dim k As Integer k = 85.456 MsgBox k End Sub
"K" değişkenine 85.456 atadım. Sonucun ne olduğunu görmek için bu VBA kodunu çalıştıracağım.
- Kesir sayısının değerini atamama rağmen sonucu 85 olarak döndürdü. Bunun nedeni, VBA'nın kesir sayılarını en yakın tam sayıya yuvarlamasıdır.
- 0,5'ten küçük olan tüm kesir sayıları en yakın tam sayıya aşağı yuvarlanacaktır. Örnek olarak 2.456 = 2, 45.475 = 45.
- 0,5'ten büyük olan tüm kesir sayıları en yakın tam sayıya yuvarlanacaktır. Bir örnek için 10.56 = 11, 14.789 = 15.
Yuvarlama tamsayısına bir kez daha bakmak, "k" değerinin 85.58'e gelmesini sağlar.
Kod:
Sub Integer_Example3 () Dim k As Integer k = 85.58 MsgBox k End Sub
Bu kodu F5 tuşunu kullanarak veya manuel olarak çalıştırdığımda 86 döndürecektir çünkü 0,5'ten fazla olan herhangi bir şey bir sonraki tam sayıya yuvarlanacaktır.
Excel VBA'da Tamsayı Veri Türü Sınırlamaları
Taşma Hatası: Tam sayı veri türü, atanan değer -32768 ile 32767 arasında olduğu sürece düzgün çalışmalıdır. Her iki taraftaki sınırı aştığı anda, size bir hataya neden olur.
Örneğin, aşağıdaki koda bakın.
Kod:
Sub Integer_Example4 () Dim k As Integer k = 40000 MsgBox k End Sub
40000 değerini "k" değişkenine atadım.
Kesin olarak Tamsayı Veri Türü bilgisine sahip olduğumdan, çalışmadığını biliyorum çünkü tamsayı veri türü değeri 32767'den daha fazla tutamaz.
Kodu manuel olarak veya F5 tuşu ile çalıştıralım ve ne olacağını görelim.
Hata !!!
Hatayı "Taşma" olarak aldım çünkü Tamsayı veri türü pozitif sayılar için 32767'den ve negatif sayılar için -32768'den fazlasını tutamaz.
Tür Uyuşmazlığı Hatası: Tam sayı verileri yalnızca -32768 ila 32767 arasındaki sayısal değerleri tutabilir. Bu sayılardan daha fazla atanan herhangi bir sayının bir Taşma hatası göstereceğini varsayalım.
Şimdi ona metin veya dize değerleri atamaya çalışacağım. Aşağıdaki örnek kodda, değeri "Merhaba" olarak atadım.
Kod:
Sub Integer_Example4 () Dim k As Integer k = "Merhaba" MsgBox k End Sub
Bu kodu çalıştır seçeneği üzerinden veya manuel olarak çalıştıracağım ve ne olacağını göreceğim.
Hatayı "Tür uyuşmazlığı" olarak gösteriyor çünkü "tamsayı veri türü" değişkenine bir metin değeri atayamıyoruz.
