Hüseyin Tepe

MAKRO EXCEL KODLAR VE FORMÜLLERİ:
Excel bilginizi bir adım ileri taşımak için excel'de makro yazma ile örnekler vereceğim.

Bende makro konusunda çok yeni olduğumdan halen kendimi geliştirmeye çalışıyorum.

ÇALIŞMA :01 ( RAKAMI METNE ÇEVİRME ) (Makro Kodlu)

Merhaba:
Bu Bölümde Makro eklentisi eklemeyi çalışacağız.
Excelde bir hücrede bulunan rakamı referans vererek başka bir hücrede rakamı yazıya Çevirme İşlemi Nasıl Yapılır. soruların cevabını bu bölümde anlatmaya çalışacağız.

Fatura işleri ile uğraşan kişiler excel programında herhangi bir hücredeki rakamı otomatik formülsüz olarak nasıl yazıya çeviririm diye merak etmekte, bu sorunun çözümü oldukça basit adımlarla anlatmaya çalışacağım.

Boş bir excel sayfası açalım ve A1 hücresine rakam ile bir değer girelim ve bu değeri B1 hücresinde otomatik olarak A1 hücresine girdiğim rakamı B1 hücresine otomatik olarak yazı ile yazsın. Bir excel çalışma sayfası açın ve aşağıdaki gibi A sütununa rakamları giriniz.

İkinci adımda, aşağıda gösterilen resimdeki gibi "GÖRÜNÜM" menüsünden "Makro" sekmesini açınız..

Makro Kaydete basın bir isim verip geçin.
Sonra alt+F8 tuşuna basarak düzenle deyiniz ve açılan alana önce aşağıdaki kodu yerleştiriyoruz.
Kod için Basit Çözüm Kod sitesine teşekkür ederiz.

Function tl_yaz(sayi)
On Error Resume Next
Dim deg(3), s(3), deger(2)
a = Array("", "Bir", "İki", "Üç", "Dört", "Beş", "Altı", "Yedi", "Sekiz", "Dokuz")
b = Array("", "On", "Yirmi", "Otuz", "Kırk", "Elli", "Altmış", "Yetmiş", "Seksen", "Doksan")
c = Array("", "", "Bin", "Milyon", "Milyar", "Trilyon")
deger(1) = Int(sayi)
deger(2) = Round(sayi - deger(1), 2) * 100
If sayi = 0 Then son = "sıfır"
For g = 1 To 2
yazi = deger(g)
For d = 1 To Len(yazi) Step 3
e = e + 1
deg(1) = Mid(yazi, Len(yazi) - d - 1, 1)
deg(2) = Mid(yazi, Len(yazi) - d, 1)
deg(3) = Mid(yazi, Len(yazi) - d + 1, 1)
If deg(1) <> 0 Then s(1) = Replace(a(deg(1)) & "Yüz", "BirYüz", "Yüz")
s(2) = b(deg(2))
s(3) = a(deg(3)) & c(e)
If deg(1) + deg(2) + deg(3) = 0 Then s(3) = ""
son = s(1) & s(2) & s(3) & son
If Left(son, 6) = "BirBin" Then son = Replace(son, "BirBin", "Bin")
For f = 1 To 3
deg(f) = ""
s(f) = ""
Next: Next
If g = 1 And deger(1) <> 0 Then tl = son & " -Türk Lirası"
If g = 2 And deger(2) <> 0 Then kr = " " & son & " Kuruş"
son = ""
e = 0
Next
tl_yaz = tl & kr
End Function

Hazır kodu ekledikten sonra makro penceresini kapatıyoruz.
Daha sonra rakam yazan hücreyi metin ile yazacağımız hücreye formülü giriyoruz. Bizim örnek çalışma sayfamızda rakam (A1) hücresinde yazılı metin (B1) hücresinde olacak.
Formül:=TL_YAZ(A1) Sonra formül girdiğiniz (B1) hücresini aşağı doğru mouse ile kaydırın.

İşte bu kadar;
Bu uygulamayı makbuz ve Faturalarda kullanabilirsiniz.
DİP NOT bu çalışmanızı kaydederken Farklı Kaydet yaparak "Makro İçerebilenExcel Çalışma Kitabı (*.xlsm) olarak kaydediniz"
Bu çalışmamızı sizde uygulayınız.

ÇALIŞMA :02 ( AKTİF HÜCRE RENKLİ VE SATIR SUTUN TAKİBİ OLSUN ) (Makro Kodlu)

Merhaba:
Bu Bölümde Makro eklentisi eklemeyi çalışacağız.
Makro kullanarak Excelde aktif satır ve sütunu renklendirerek hücre takibi yapmayı kolaylaştırılabilir.
Excel çalışma sayfasında, yatayda ve dikeyde oldukça uzun bir dosyada çalışırken böyle birşeye çok ihtiyaç duyacaksınız.
Aynı şekilde, fazla satır ve sütunların içinde kaybolan exel kullanıcıları için vazgeçilmez bir uygulamadır.

İlk olarak aşağıda gösterilen resimdeki gibi "GELİŞTİRİCİ" menüsünden "Kod Görüntüle" sekmesini tıklatınız.

Açılan kod alanına aşağıdaki makro kodunu kopyalayarak yapıştırın.
Sutun rengi ve Satyr ile Hücre rengi değerlerini (rakamları) değiştirerek kendinize göre renk seçimi yapabileceğiniz gibi sütın veya Satyr değerlerini "0" yaparak sadece o uygulamayı kaldırabilirsiniz.

Kod alanında kayıt formatının "Worksheet" olmasına dikkat ediniz.

Son olarak excel sayfasını "Makro İçerebilenExcel Çalışma Kitabı (*.xlsm) olarak kaydediniz"

İşte bu kadar;
Şimdi excel sayfasını açarak mausenizi hücreler üzerinde tıkladıkça, aşağıdaki görselde olduğu gibi satır ve sutun izlemenizde kolaylık sağlayabilirsiniz

Bu çalışmamızı sizde uygulayınız.

Bilgi Teknolojileri Hakkında Çalışmalar

HTML Dersleri

CSS Dersleri

Network Dersleri

PC Teknikleri

Excel Kullanımı

İş veya Gezi Seyahatleim Anılar ve Oluşan Dostluklar

SAP Meterial (SAP Malzeme Modülü)

MAKRO EXCEL KODLAR VE FORMÜLLERİ: