[Yardım]  Kullanıcı tanımlı fonksiyon ile hücre dolgu rengi değiştirme

Excel sayfalarında kullandığımız yerleşik fonksiyonlar ya da kendi yazabileceğiniz fonksiyonlar ile ilgili bilmek istedikleriniz, sorunlar ve çözümleri

Kullanıcı tanımlı fonksiyon ile hücre dolgu rengi değiştirme

İleti#1)  joker61tr » 24 Eyl 2018 15:28

Merhaba Arkadaşlar, aşağıda detayı bulunan kodlar ile bir fonksiyon oluşturdum.
Bu fonksiyon ile baktığı hücrelerin değerlerine göre otomatik metin hazırlıyor.
Yapmak istediğim, aynı zamanda ifadelere göre hücre dolgu rengini de değiştirmek.
Yani örnek veriyorum, birinci koşul gerçekleşirse kırmızı, ikinci olursa mavi, üçüncü olursa sarı gibi…
Yada örnek veriyorum, pH<7 ise dolgu kırmızı, konst>10 dolgu sarı ….
Bunu koşullu biçim ile de yapabiliyorum fakat bu sefer dosya kasılıyor ve bir süre sonra çalışmaz hale geliyor.
Şimdiden teşekkürler.

Function OtoMetin(Konst As Currency, Min As Currency, Max As Currency, pH As Currency, iletkenlik As Currency, imax As Currency)
Dim a As String
Dim i As String
'Dim imax As String
If iletkenlik > imax Then i = (", xxxxxxxxxxx")
If pH < ("xx") Then a = ", xxxxxxxx"
If Konst < Min Then OtoMetin = ("%Kxxxxxxx") + a + i
If Konst > Max Then OtoMetin = ("%Kxxxxxxx") + a + i
If Konst >= Min And Konst <= Max Then OtoMetin = ("xxxxxxxxxx") + a + i
End Function
Kullanıcı avatarı
joker61tr
 
Kayıt: 13 Haz 2018 17:41
Meslek: uzman
Yaş: 42
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli / gebze

Cevap: Kullanıcı tanımlı fonksiyon ile hücre dolgu rengi değ

İleti#2)  Ozan İLGÜN » 24 Eyl 2018 17:21

Dosyanızı eklemeniz mümkün mü?
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2606
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



Cevap: Kullanıcı tanımlı fonksiyon ile hücre dolgu rengi değ

İleti#3)  joker61tr » 25 Eyl 2018 17:55

Dosya çok büyük ve karışık olduğundan farklı bir dosya oluşturdum.
Umarım işinizi görür.
Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
joker61tr
 
Kayıt: 13 Haz 2018 17:41
Meslek: uzman
Yaş: 42
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli / gebze

Cevap: Kullanıcı tanımlı fonksiyon ile hücre dolgu rengi değ

İleti#4)  joker61tr » 27 Eyl 2018 11:50

Pek mümkün gözükmüyor herhalde!
Fonksiyon ile değilde Makro ile yapmak mümkün mü acaba?
Kullanıcı avatarı
joker61tr
 
Kayıt: 13 Haz 2018 17:41
Meslek: uzman
Yaş: 42
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli / gebze

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Kullanıcı tanımlı fonksiyon ile hücre dolgu re

İleti#5)  joker61tr » 09 Ekm 2018 11:36

Ozan İLGÜN yazdı:Dosyanızı eklemeniz mümkün mü?


Yükleme yaptım ama bakama fırsatınız oldu mu acaba?
Kullanıcı avatarı
joker61tr
 
Kayıt: 13 Haz 2018 17:41
Meslek: uzman
Yaş: 42
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli / gebze

Cevap: Kullanıcı tanımlı fonksiyon ile hücre dolgu rengi değ

İleti#6)  Ozan İLGÜN » 11 Ekm 2018 13:24

Bu şekilde kullanıp yazı rengini değiştirebilirsiniz.
Kod: Tümünü seç
Function OtoMetin(Konst As Currency, Min As Currency, Max As Currency, pH As Currency, iletkenlik As Currency) ', imax As Currency)
Dim a As String
Dim i As String

'Dim imax As String
'If iletkenlik > imax Then i = (", iletkenlik Yüksek")
If pH < ("8,5") Then a = ", pH Düşüktür"
If Konst < Min Then OtoMetin = ("%Konst.Düşük") + a + i: Application.Caller.Font.ColorIndex = 3
If Konst > Max Then OtoMetin = ("%Konst.Yüksek") + a + i: Application.Caller.Font.ColorIndex = 6
If Konst >= Min And Konst <= Max Then OtoMetin = ("%Konst. uygundur") + a + i:: Application.Caller.Font.ColorIndex = 4
End Function

Yada koşullu biçimlendirme kullanabilirsiniz.
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2606
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Kullanıcı tanımlı fonksiyon ile hücre dolgu re

İleti#7)  joker61tr » 11 Ekm 2018 14:12

Ozan İLGÜN yazdı:Bu şekilde kullanıp yazı rengini değiştirebilirsiniz.
Kod: Tümünü seç
Function OtoMetin(Konst As Currency, Min As Currency, Max As Currency, pH As Currency, iletkenlik As Currency) ', imax As Currency)
Dim a As String
Dim i As String

'Dim imax As String
'If iletkenlik > imax Then i = (", iletkenlik Yüksek")
If pH < ("8,5") Then a = ", pH Düşüktür"
If Konst < Min Then OtoMetin = ("%Konst.Düşük") + a + i: Application.Caller.Font.ColorIndex = 3
If Konst > Max Then OtoMetin = ("%Konst.Yüksek") + a + i: Application.Caller.Font.ColorIndex = 6
If Konst >= Min And Konst <= Max Then OtoMetin = ("%Konst. uygundur") + a + i:: Application.Caller.Font.ColorIndex = 4
End Function

Yada koşullu biçimlendirme kullanabilirsiniz.


Merhaba, ilgi ve alakanız için teşekkürler.

Koşullu biçimlendirme ile yapmıştım. Fakat dosya boyutu ve sayfa sayısı arttıkça koşullu biçimlen çok fazla kasmaya başladı. Programı kitlediği bile oldu. Bu nedenle fonksiyonla yapmak istemiştim.
Eklediğiniz kodları denedim ve işe yaradı, tekrar teşekkür ederim.
Elinize emeğinize sağlık.
Kullanıcı avatarı
joker61tr
 
Kayıt: 13 Haz 2018 17:41
Meslek: uzman
Yaş: 42
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: kocaeli / gebze

Cevap: Kullanıcı tanımlı fonksiyon ile hücre dolgu rengi değ

İleti#8)  Ozan İLGÜN » 11 Ekm 2018 16:30

Rica ederim. İyi günler.
ozanilgun@mynet.com

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2606
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul




Forum Kullanıcı Tanımlı Fonksiyonlar ( KTF )

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe