Excel VBA INT (Tamsayı) Fonksiyonu
VBA INT , bize bir girdi sağlayan bir sayının yalnızca tam sayı kısmını vermek için kullanılan dahili bir işlevdir, bu işlev, ondalık bölümü verileri çok fazla etkilemeyen verilerde, kullandığımız hesaplamaları veya analizi kolaylaştırmak için kullanılır. INT işlevi yalnızca tam sayı değerlerini almak için kullanılır.
Bu işlev, çalışma sayfasının yanı sıra VBA'da da mevcuttur. Tamsayı işlevi, belirli bir sayıyı en yakın tam sayıya aşağı yuvarlar.
VBA Int işlevi, Alt Prosedür ve İşlev Prosedüründe kullanılabilir. Şimdi INT işlevinin VBA'daki sözdizimine bir göz atın.
Sağlayacağı tek bir argüman vardır, yani Sayı.
- Sayı , INTEGER sayıya dönüştürmeye çalıştığımız sayıdır. Sayı sağlandığında, INT işlevi onu en yakın tam sayıya yuvarlar.
Örneğin, sağlanan sayı 68,54 ise, Excel VBA Int işlevi sıfıra doğru 68'e yuvarlanır. Sağlanan sayı -68,54 ise, INT işlevi sayıyı sıfırdan uzakta olan 69'a yuvarlar.
VBA INT İşlevi nasıl kullanılır?
Örnek 1
Şimdi, VBA'daki "INT" işlevinin basit örneğine bakın. 84.55 sayısını en yakın tam sayıya yuvarlama görevini yapalım.
Adım 1: Alt prosedürü başlatın.
Adım 2: Değişkeni Tamsayı olarak bildirin .
Kod:
Sub INT_Example1 () Dim K As Integer End Sub
Adım 3: Şimdi , INT işlevini uygulayarak formülü " k " değişkenine atayın .
Kod:
Sub INT_Example1 () Dim K As Integer K = Int (End Sub
Adım 4: Numarayı 84.55 olarak girin .
Not: Sayısal bir sayı olduğu için çift tırnağa ihtiyacımız yoktur.
Kod:
Sub INT_Example1 () Dim K As Integer K = Int (84.55) End Sub
Adım 5: Şimdi değişkenin sonucunu VBA mesaj kutusuna iletin.
Kod:
Sub INT_Example1 () Dim K As Integer K = Int (84.55) MsgBox K End Sub
Tamam, kodu çalıştıralım ve ne olacağını görelim.
Dolayısıyla, sonuç 84'tür ve en yakın tam sayı değerine aşağı yuvarlanır.
Örnek 2
Şimdi eksi işaretli aynı sayı ile, en yakın tam sayı değerine dönüştürmeye çalışacağız. Negatif işaretli kod aşağıdadır.
Kod:
Sub INT_Example2 () Dim k As Integer k = Int (-84.55) 'INT fonksiyonu ile negatif sayı MsgBox k End Sub
Bu kodu çalıştırdığımda, sayıyı -85'e yuvarladı .
Örnek 3 - Tarih Kısmını Tarih ve Saatten Çıkarın
Kariyerimde birkaç kez, Tarih ve Saat kombinasyonundan ayrı olarak tarih ve saati çıkarma senaryosuyla karşılaştım.
Örneğin, aşağıdaki Tarih ve Saat verilerine bakın.
Tarih Bölümünü ve Saati nasıl çıkarırsınız?
Öncelikle Tarih kısmını Çıkarmamız gerekiyor. Bunun için INT işlevini uygulayalım. Aşağıdaki kod, yukarıdaki verilerden TARİH bölümünü çıkaracaktır.
Kod:
Sub INT_Example2 () Dim k As Integer For k = 2 to 12 Cell (k, 2) .Value = Int (Cells (k, 1) .Value) 'Bu, tarihi ikinci sütun Hücreler (k, 3)' e çıkaracaktır. Değer = Hücreler (k, 1) .Değer - Hücreler (k, 2) .Değer 'Bu, zamanı üçüncü sütuna çıkaracaktır Sonraki k End Sub
Bu kodu çalıştırın. Aşağıdaki gibi sonuç alabilirsiniz (biçimlendirme uygulanmamışsa).
Tarih sütununda, biçimlendirmeyi "GG-AA-YYYY" olarak ve saat sütunu için tarih biçimini "SS: DD: SS ÖÖ / ÖS" olarak excel olarak uygulayın.
