para küpürleri hk

[ugurakin]

herkese günaydın,
excel de bir çalışmam var. a kolonunda maaş rakamları mevcut. diğer kolonlara para küpür analizini yapmak istiyorum. makro yada fonksiyon yardımıyla çözüme ulaşabilir miyiz?
teşekkürler...

not : örnek dosya ektedir.

 

[kenangulal]

merhaba, maaş girdiğinizde hangi küpürlerden oluştuğunumu görmek istiyorsunuz.

 

[mehmett]

Sn ugurakin

Dosyanız ektedir.

 

[ugurakin]

evet kenan bey, aynen öyle.

 

[balca]

Merhaba;

Ekteki örneği çalışmanıza uyarlayabilirsiniz..

 

[ugurakin]

sn. zerige elinize sağlık güzel olmuş, yaptığınız formül çalışmasını daha önce ben de hazırlamıştım. benim istediğim makro yada fonksiyon yardımıyla çözüme ulaşmak...

 

[ugurakin]

merhaba balca, vermiş olduğum örnekte olduğu gibi küpürlerin ilgili hücrelere yazılmasını istiyorum.

 

[Necdet]

Sayın ugurakin,

Ekteti dosyayı inceler misiniz, bakalım olmuş mu?

Geç Kalmışım

 

[danersin]

ugurakin, sn. zerige'nin çözümü tam çözüm ve kullandığı TAMSAYI zaten bir fonksiyon :? ..Sizin kastettiğiniz kullanıcı tanımlı fonksiyon yazmak mı?


edit : Necdet beyin çözümüde aynı.

 

[Necdet]

Sayın zerige'den tek farkı 1 YTL lik bölümde tamsayı yok, cünkü gerek yok

 

[ugurakin]

evet sn.danersin kullanıcı tanımlı fonksiyon yazmak istiyorum. biraz saçma olacak ama önceleri qbasic te hazırlanan küçük bir uygulama vardı. onu ekliyorum. oradaki mantığa uygun bir çözüm bulabilirsek benim için yeterli olacak.

 

[danersin]

ugurakin, şu an bas dosyanızı açamıyorum (işyerinde)..
açıklarmısınız. sn. zerige ve sn. necdet beyin yaktıkları doğru ama bunun yerine kullanıcı tanımlı fonksiyon yazmak istiyorsunuz. anlamadığım neticeyi sn.balca'nın verdiği gibi tek hücrede istiyor olsaydınız kullanıcı rtanımlı fonksiyon yazmak istemenizi anlardım ama neticeyi ayrı ayrı hücrelere yazmak istediğinize göre tamsayı (veya aşağıyuvarla) fonksiyonu ile yapılan çözüm kendi fonksiyonunuzu yazmaktan daha iyi.. yanlış anlamayın, anlamaya çalışıyorum.

 

[Haluk]

danersin; dosya uzantısını *.txt yapıp, açabilirsin.

ugurakin; "Function" olarak değil de, "Sub" olarak bir şey hazırladım. Ekteki dosyaya bir ara bakarsın.

 

[htsumer]

Başka bir örnekte benden olsun.
Sayın Haluk'un ki kadar güzel olmadı ama sadece A2 Hücresi için

Sub ayır()
Dim i, j
i = [a2]
j = Int(i / 100)
[b2] = j
i = i Mod 100
j = Int(i / 50)
[c2] = j
i = i Mod 50
j = Int(i / 20)
[d2] = j
i = i Mod 20
j = Int(i / 10)
[e2] = j
i = i Mod 10
j = Int(i / 5)
[f2] = j
i = i Mod 5
j = Int(i / 1)
[g2] = j
End Sub

 

[ugurakin]

yardımlarını esirgemeyen tüm arkadaşlara şükranlarımı sunuyorum. sn. haluk bey le sn. htsumer in vermiş oldukları örnekleri biraz daha geliştireceğim. tekrar teşekkürler.

 

[unb71]

teşekkürler