Bazen Excel’in kendi formülleri işinizi görmez. Karmaşık bir işlemi ya da süreci kendi algoritmanızla tanımlayıp formülize edersiniz. Ya da iç içe excel formülleri yerine temiz bir makro yazıp dışarıdan formül olarak bunu çağırmak istersiniz. Bu durumda şu linkten yazdığım kodlarla kendi formülünüzü oluşturabilirsiniz.
Kategori: Excel VBA
Tahmin ettiğinizin aksine histogramı excel’de çizmek herzaman kolay değildir. Sürümden sürüme bazı problemler çıkabilmektedir. İşte kesin çözüm (Excel 2010 için):
Excel’inizde “Çözücü” ya da İngilizce olararak kullanıyorsanız “Solver” eklentisi(add-on) kurulu olmalıdır. Bunun için şu adresten nasıl kurulacağını öğrenebilirsiniz. Daha sonra excel dosyası içinden Veri> Veri çözümleyicisi’ni seçim oradan açılan pencere’den Histogram‘ı seçin.
Kolay gelsin
Çok spesifik durumlar dahilinde Excel dosyanız içindeki bir veriyi makro yordamı ile web sunucusuna yollamak isterseniz aşağıdaki makro işinizi görecektir. Makro çalıştırıldığında data sunucuya yollanmakta ve cevap ekrana mesaj olarak yansıtılmaktadır.
Google App ile excel tablolarının Google dökümanlardaki muadili olan Google e-tablolara entegre formlar yazabiliriz:
Aşağıdaki gibi:
Bunu oluşturabilmek için Araçlar> Komut dosyası yöneticisini kullanıyoruz.
Aşağıdaki gibi kodlarımızı yazıyoruz:
Kodlarımızı yazdıktan sonra üçgene basarak form_goster fonksiyonumuzu çalıştırınca ilk resimdek form çıkıyor. Bu forma girilen veri form_isle fonksiyonu ile A1 hücresine yazdırılacak.
Açıklamalı kodlarımız aşağıda:
function form_goster() {
//Uygulama oluştur
var app=UiApp.createApplication();
app.setTitle(“Suat Google Apps Form”);
//panel oluştur
var panel=app.createVerticalPanel();
//texbox oluştur
var tf=app.createTextBox();
//Ekle butonu oluştur
var bt=app.createButton(“Ekle”);
//oluşturulan texbota isim ata
tf.setName(“ad”).setId(“ad”);
//bu elemanları panele yerlestir
panel.add(tf);
panel.add(bt);
//form submit edilince yapilacak islem
var formtetik=app.createServerHandler(“form_isle”);
//tetigi butona atadik
bt.addClickHandler(formtetik);
//is bitince panele don.
formtetik.addCallbackElement(panel);
//paneli de uygulamaya yerlerstir
app.add(panel);
//uygulamayi goster
var doc=SpreadsheetApp.getActive();
doc.show(app);
}
function form_isle(e){
//calisan uygulamay ele al
var app=UiApp.getActiveApplication();
//formdan gelen veriyi cek
var formdan_gelen_ad=e.parameter.ad;
//bu veriyi ne yapalim. alip A1’e yazdiralim
var sheet=SpreadsheetApp.getActiveSpreadsheet();
sheet.getRange(“A1”).setValue(formdan_gelen_ad);
}
Google App Script ile aşağıda yazdığım fonksiyonlarla A sütununda sıralanmış parasal tutarların risk değerleri için 1 ila 5 arası değerleme yapılıp B sütununa otomatik olarak yazdırılır.
İşte script:
function risk_test(tutar){
var x=tutar;
var risk=0;
if ((x>10000) && (x
risk=1;
}
else if ((x>100000) && (x
risk=2;
}
else if ((x>500000) && (x
risk=3;
}
else if ((x>1000000) && (x
risk=4;
}
else if (x>2000000){
risk=5;
}
else
{
risk=0;
}
return risk;
}
function risk_hesabi_yap_suat_atan_abi(){
var ss=SpreadsheetApp.getActiveSpreadsheet();
var sheet=ss.getSheets()[0];
for(i=2;i
var kaynak=sheet.getRange(i,1).getValue();
var hedef=sheet.getRange(i,2);
var sonuc=risk_test(kaynak);
hedef.setValue(sonuc);
}
Browser.msgBox(“Risk hesaplandı”);
}
Google Drive (Docs) kullanıyorsanız excel makroları muadili olarak kullanılan ve saf Javascriptle yazılan “Google App Script” kodlamayla üstün ve karmaşık işlemler yapabilirsiniz. Buna mail gönderimi, google data servislerine erişim de dahildir. Bu yönüyle excel makrolarından daha fazla şey vadediyor. Ve daha kolay…
Script A1 hücresindeki değeri alıp kdv’sini hesaplayıp B1’e yazıyor.
İşte ilk scriptim:
function kdv_hesapla(deger) {
var kdv=deger*0.18;
return kdv;
}
function run(){
var ss=SpreadsheetApp.getActiveSpreadsheet();
var sheet=ss.getSheets()[0];
var kaynak=sheet.getRange(“A1”);
var hedef=sheet.getRange(“B1”);
var deger=kdv_hesapla(kaynak.getValue());
hedef.setValue(deger)
}
Bazen excel’deki formüllerin yetmediği durumlar olabilir. Mesela içiçe 5 eğer fonksiyonu veya karmaşık matematiksel hesaplamalar gibi. Bu durumlarda excel makrolarını kullanabilirsiniz.
Aşağıdaki ekte bulunan makro bundan evvel şu makalede anlattığımız python ile yaptığımız parasal değere karşılık risk analizi yapan formülasyonun excel makrosu dili (VBA) ile yazılmış halidir.
Şu adresten indirip makro alanına import edebilirsiniz.
https://docs.google.com/open?id=0B2QbjSFSlgaMX2NJWkU2U0dhT28
Makro kaynak kodları ise şöyle:
Sub VeriKontrol()
‘For dongumuzu acalim
For i = 1 To 99
‘Parasal degerimizi tanimliyoruz
Dim parasal_deger As Long
‘Sonra bu degere A1,A2,A3… hucremizden aldigimiz degeri atiyoruz her seferinde
parasal_deger = Range(“A” & i)
‘Parasal degerimizi checkediyoruz.
‘Bunun icin parasal degeri x sayalim
Dim x As Long
x = parasal_deger
‘Risk degerimizi varsayian olarak 0 atayalim
Dim risk As Integer
risk = 0
‘If blogumuz pythondaki : yerine Then ve sonda Endif kullandik
If x > 10000 And x
risk = 1
ElseIf x > 100000 And x
risk = 2
ElseIf x > 500000 And x
risk = 3
ElseIf x > 1000000 And x
risk = 4
ElseIf x > 2000000 Then
risk = 5
Else:
risk = 0
End If
‘Simdi hesaplanan risk degerimizi B sutunumuza siraliyoruz
Range(“B” & i) = risk
‘For dongumuzu guzel guzel next ile devam ettiryoruz
Next i
End Sub
