Excelde Kendi Fonksiyonunu Formülünü Oluşturma

Yazan: -

Merhaba

Excelde uzun uzadıya hesaplamalar ile uğraşmaktansa kendi fonsiyonunuzu oluşturabilirsiniz.

Bunun için Excel açıkken
Alt + F11 tuşuan basıp Visual Basic For Applications a girin.
Üstteki menüden insert > Module e tıklayın

Kod yazma bölümüne Aşağıdaki örnekten esinlenerek kendi kodunuzu yazın.
Bu örnek bir sayının dizide belirtilen aralıkta olup olmadığını denetler ve yanıt verir.

Elimizdeki Ölçü sayısal değeri 1000 olsun Değer aralığı text (String) formatında "1225-1500" değerinde olsun
Öncelikle Aralığı split ile ayırıp çıkan değerleri sayıya çevirip sayı dizesine atamak olacaktır.
Sonra Aralık değerlerini atanmış i değişekeni sayı dizesi ile ölçüyü >= <= karşılaştırması ile aralıktamı değilmi if deyimi içinde değerlendirip sonunca göre "ok" yada "no" yanıtı gönderelim.

Kodlar.


Function AralikDenetle(Olcu, Aralik As String) As String

Dim i(2) As Long 'Sayıları atayacağımız array değişken
Dim str() As String
str() = Split(Aralik, "-")  'text formatında yazılı sayısal değeri aralıktan split ile ayırıyoruz
i(0) = CLng(str(0)) 'split ile ayrılan değerleri sayıya dönüştürüp i değişkenine atıyoruz.
i(1) = CLng(str(1)) 'split ile ayrılan değerleri sayıya dönüştürüp i değişkenine atıyoruz.
If Olcu >= i(0) And Olcu <= i(1) Then ' aralık kontrülü
AralikDenetle = "Ok"
Else
AralikDenetle = "No"
End If

End Function



Excel VB içinde test modolü

Sub Test()
MsgBox AralikDenetle(1000, "1225-1500")
End Sub

Excel Kullanımı 

A1 Hücresine 1000 yazın A2 hücresine 1225-1500 (küçül rakam solda büyük sağda olacak) yazın A3 hücresine =AralikDenetle(A1;A2) yazın 
A3 hüçre değeri "No" olacaktır.
A1 hücresine 1226 yazın A3 hüçre değeri "Ok" olacaktır.
 



Yorumlar

Yorum Gönder

Bu blogdaki popüler yayınlar

LOGO GO-GO3 TIGER V.B. "ÇALIŞTIĞINIZ TERMİNAL KAYITLI DEĞİLDİR" HATASI

Yazan: -
LOGO İLKKEZ ÇALIŞTIĞI TERMİNALDE 0 DEĞERİ VARSAYILAN OLARAK GİRİLMİŞ CLIENT TASK NUMBER ILETISI GÖSTERİR. OKEY TAMAM DERSİNİZ VE KAPANIR. BU DEĞER 0 OLARAK GİRİLMEDİĞİNDE İSE O PC DEN LOGO YU AÇMAYA KALKTIĞINIZDA ÇALIŞTIĞINIZ TERMİNAL KAYITLI DEĞİLDİR HATASI ALIRSINIZ. BU HATAYI LOGO SYS DEN TERMİNAL TANITILMIŞ OLSA DAHİ ALIRSINIZ. CILIENT TASK NUMBERI 0 YAPMAK İÇİN REGEDIT DEN ILGILI PARAMETREYİ DEĞİŞTİRMELİ VEYA SİLMELİSİNİZ. SILINECEK REGEDIT ANAHTARI HKEY_CURRENT_USER / Software / LBS / ERP KOMUT SATIRINDA SILMEK İÇİN YÖNETİCİ OLARAK WİNWOS KOMUT İSTEMİNİ AÇIN BAŞLAT > ÇALIŞTIR > CMD.EXE > SAĞ TIK YÖNETİCİ OLARAK ÇALIŞTIR. AÇILAN PENCEREYE KOMUTU SAĞ TIKLAYIP YAPIŞTIRIN VE ENTERE BASIN KOMUT:  REG DELETE HKCU\Software\LBS\ERP /F ALTERNATİF YÖNETEM REDEDİT İLE SİLMEK İÇİN; BAŞLAT > ÇALIŞTIR.>REGEDIT YAZIP ENTER A BASIN . REGEDIT AÇILDIKDAN SONRA SOLDAKİ DİZİNDEN SIRASIYLA AÇIKDIKÇA TIKLAYIN HKEY_CURRENT_USER > Software > LBS...
Devamı

LOGO GO MS SQL TOPLU TABLO VE ViEW SiLME

Yazan: -
LOGO GO MS SQL TOPLU TABLO VE ViEW SiLME aşağıdaki kodu sql komutunu çalıştırınca toplu tablo ve view silme komut scriptini oluşturur. sonra scripti kopyala yapıştır ile yeni sql komut sayfasında çalıştırınız. mavi renkli kodlar table ve views ismidir. siz silmek istediğiniz isimle değiştirin. USE [lksdb] GO DECLARE @sql NVARCHAR(MAX) = N''; SELECT @sql += ' DROP VIEW '     + QUOTENAME(s.name)     + '.' + QUOTENAME(t.name) + ';'     FROM sys.views AS t     INNER JOIN sys.schemas AS s     ON t.[schema_id] = s.[schema_id]     WHERE t.name LIKE ' LV_220_02_ %'; PRINT @sql; USE [lksdb] GO DECLARE @sqlv NVARCHAR(MAX) = N''; SELECT @sqlv += ' DROP TABLE '     + QUOTENAME(s.name)     + '.' + QUOTENAME(t.name) + ';'     FROM sys.tables AS t     INNER JOIN sys.schemas AS s     ON t.[schema_id] = s.[schema_id]     WHERE t.name LIKE ' LG_220_02_ %';...
Devamı

Oğuz Kağan Destanı'na göre Oğuz boyları

Yazan: -
Oğuzlar Oğuz Kağan Destanı'na göre 24 boydan ve Kaşgarlı Mahmud'un Divân-ı Lügati't-Türk eserine göre 22 boydan oluşan Orta Asya kökenli Türk halkları. 7. yy civarında konar-göçer bir yapıyla yer değiştirmeye başlamışlar ve coğrafi olarak Bizans kayıtlarına göre önce Balkanlara yayılmışlardır. Oğuzlar, bugünkü Türkiye Türklerinin (Selçuklular, Osmanlılar, diğer Türkmen beylikleri ve boyları) atası sayılmaktadırlar. Destanlara göre, Oğuzlar Oğuz Han'ın 6 oğlu ve onların 4'er oğlundan meydana gelmişlerdir. Meydana gelen bu 24 boyun ayrı adı ve unvanları vardır. Bu bölümleme, Oğuz Kağan Efsanesi'nden kaynaklanmaktadır. Oğuz kelimesinin günümüz Türkçesindeki karşılığı Ağız'dır. Oğuz Han, doğduktan sonra anasından bir kere süt emmiştir. Bu nedenle bugün halen Anadolu'da doğum sonrası ilk süte ağız (Oğuz) sütü denir[. İneğin doğum sonrası sağılan (koyu kıvamdadır) ilk sütünün adı ağız sütüdür. Aynı biçimde, yapılan bir işin ilkine de "ağız" ...
Devamı