makro çalıştırma

[mahmud]

selamlar
arkadaşlar bana makronun nasıl çalıştığını lütfen basit bir örnekle anlatır mısınız?
yeniyim
çok uğraştım ama nafile

 

[baknediycem]

exceli açın
bir çizim nesnesi olabilir (görünüm, arac cubukları , çizim) burdan bir dikdörtgen alın
excelde bir dikdörtgen yapın
sağ tıklayın
makro ata deyin
yeni deyin
yeni bir sayfa acılır (VBA penceresi, excele gömülü çalışan programlama programı)
dikdörtgene makro ata dediğiniz için o sayfa otomatik olarak (işinizi kolaylaştırmak için şu şekilde açılır

Sub Dikdörtgen1_Tıklat()

End Sub

bu iki satırın arasına makroya ne görev vereceginizi yazarsınız.
bir userformunuz varsa (bunu yapmayı biliyorsanız)

bu iki satırın arasına userform1.show yazarsanız.
dikdörtgene tıkladıgınızda userform1 açılır

Sub Dikdörtgen1_Tıklat()
userform1.show
End Sub

burada önemli olan yapılacak görevi nasıl yazacagınızı bilmektir.

Sub Dikdörtgen1_Tıklat()

End Sub

bu iki satırın arasına yazdıgınız kodla A1 hücresini kırmızı yapabilirsiniz, içindeki veriyi silebilirsiniz.daha neler neler..

not: onca üstadlarımız varken haddim olmayarak en basit biçimiyle anlatmaya calıstım.

 

[baknediycem]

Sn. mahmud
şu linkte binlerce açıklamalı kod mevcut.

IŞIK EXCEL
http://www.excel.web.tr/f127/isik-excel-vb-kod-bank-1-0-0-t68097.html

 

[mahmud]

hocam sabahtan beri inat ettim deneye deneye gözlerim şişti, omzum koptu..userform vs.. bana bir yol göster hele....
bunları herkes anlayamaz dersen bırakacam
kendimi geri zekalı gibi his.ed...
çok saol... bu işi bir öğrenirsem...

 

[baknediycem]

zamanla öğrenirsin. istediğin sey defalarca anlatıldı. birçok başlık var bu konuda. forumu iyi incele. bu sayfanın üstünde arama butonu var, ordan "arama" yap. yavaş yavaş, acele etme. Excele yeni başlayanlar başlığını incele.
şuna da bak,iyi geceler
http://www.excel.web.tr/f157/userform-olusturmak-resimli-anlat-m-t59269.html

 

[fedeal]

Öncelikle makro çalıştırmak için kafamızda yapmamız gereken bir iş olmalı diyelimki a sütununda 1 ila 9 arası degerler var bunları karıştırmamamız için herbirine ayrı renklendirme yapmak istiyoruz.
soru 1 a sütununda kaç deger var bellimi
cevap evet 10 satır oldugunu kabul edelim,

başlıyalım sayfa sekmesinin üstünde sağ tıklayalım kod görüntüleye tıklayıp sayfanın kod bölümünü açalım.
bir isim verelim makromuza örneğin mahmut olsun

sub mahmut()

şimdi 10 satırdaki degeri sorgulayacagımız için bir döngü oluşturacagız

for i=1 to 10
next
bu satır i harfine 1 ila 10 arasında deger atamamızı sağlar şöyleki bir yuvarlak etrafında deöndügünü düşünün ilk turda i=1 olacak ikincide 2 ........ gibi 10 olunca döngü duracak bu ne işimize yarayacak onuda şöyle anlatayım

for i=1 to 10
If Cells(i, 1).Value = 1 Then Cells(i, 1).Interior.ColorIndex = 6
next
yukarıdaki kodda kırmızı satırda formüllerde kullandıgımız eğer gibi bir sorgu var
if(eğer) cells(i,1).value ("i".satır yani ilk turda 1.satır , 1.sütun)degeri = 1 then(ise) Cells(i, 1).Interior.ColorIndex = 6(bu satırı 6 numaralı renk yap)

burda 1 den 10.satıra kadar bakaılacak eger 1 ise hücre degeri hücre sarı olacak ama bize her degere ayrı renk lazım ozaman

Sub mahmut()
For i = 1 To 10
If Cells(i, 1).Value = 1 Then Cells(i, 1).Interior.ColorIndex = 6
If Cells(i, 1).Value = 2 Then Cells(i, 1).Interior.ColorIndex = 7
If Cells(i, 1).Value = 3 Then Cells(i, 1).Interior.ColorIndex = 8
If Cells(i, 1).Value = 4 Then Cells(i, 1).Interior.ColorIndex = 9
If Cells(i, 1).Value = 5 Then Cells(i, 1).Interior.ColorIndex = 10
If Cells(i, 1).Value = 7 Then Cells(i, 1).Interior.ColorIndex = 11
If Cells(i, 1).Value = 8 Then Cells(i, 1).Interior.ColorIndex = 12
If Cells(i, 1).Value = 9 Then Cells(i, 1).Interior.ColorIndex = 13
If Cells(i, 1).Value = 6 Then Cells(i, 1).Interior.ColorIndex = 14
Next
End Sub

olarak yazmalıyız kodları aşagıdaki ek dosyada çalışması var inceleyin ama yapmak istediginizişlem önemli burda sadece for next döngüsünü sorgulamayı gördük daha bir çok yöntem var.ihtiyacınıza göre formda arayıp sorular sorarak çokçabuk ögrenirsiniz bence ,saygılar.