-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Bİr El Atalim , Sayi PaylaŞtirma
- Konbuyu başlatan zcank
- Başlangıç tarihi
- Katılım
- 21 Ekim 2005
- Mesajlar
- 17,093
- Excel Vers. ve Dili
- Excel, 365 - İngilizce
Dosyanız ekte.
Gizlenmiş 2. satırdaki formüllere bakın.
..
Gizlenmiş 2. satırdaki formüllere bakın.
..
Son düzenleme:
HOCAM EŞİT DAĞITILMAYANLARI HAFTANIN BİRİNCİ YADA SONUNCU GÜNÜNE EKLEMESİ GEREKİYOR. BAZI SAYILARI YAZINCA BUÇUKLU SONUÇ OLUYOR BUNDA ÖRNE 13 ise bunu 3 2 2 2 2 şekklinde yada 22223
gün yazılmadığında ise oraya paylaştırılmaması gerekir. örnek
diyelimki pazartesi yoksa 13 -3334 şeklinde
teşekkürler
gün yazılmadığında ise oraya paylaştırılmaması gerekir. örnek
diyelimki pazartesi yoksa 13 -3334 şeklinde
teşekkürler
tabloda birinci satırdaki formülleri diğerlerine
arkadaşlar
ekli tabloda ilk sıtra doğru fakat aşağı doğru formülleri kaydırınca hesaplamalar hatalı oluyor.
ben istiyorum ki
ilk satırdaki gibi aşağı doğru satırlara formulüleri uygulayalım sonuçlar doğru olsun
arkadaşlar
ekli tabloda ilk sıtra doğru fakat aşağı doğru formülleri kaydırınca hesaplamalar hatalı oluyor.
ben istiyorum ki
ilk satırdaki gibi aşağı doğru satırlara formulüleri uygulayalım sonuçlar doğru olsun
Fonksiyonu aşağıdaki gibi değiştirin
Function payi(aralik As Range, top As Integer, kendi As Range)
'aralik = hesaba dahil edilecek günsayısını bulmak için günlerin yazılı
' olabileceği mutlak referans verilmiş aralık. Örnekte $B$1:$F$1
'top = pay edilecek miktar Örnekte $B$2
'kendi = Hesaplama yapılacak hücrenin üstündeki günün yazılı olduğu hücre
'Boş olmayan hücre sayısını buluyoruz.
dolu = Application.Subtotal(3, aralik)
'Dolu günlere eşit olarak dağıtıyoruz.
topu = top \ dolu
'eşit olarak dağıtım yapılan toplamı buluyoruz.
toptan = topu * dolu
'Eşit dağıtım yapıldıktan sonraki, Pazartesi ve Cuma günlerine dağıtılmak üzere farkı buluyoruz.
cıkan = top - toptan
'Pazartesi ve Cuma günlerinin dışındaki günlere eşit değerleri dağıtıyoruz.
If kendi = "Salı" Or kendi = "Çarşamba" Or kendi = "Perşembe" Then
payi = topu
'Cuma gününün değerini arıyoruz
ElseIf kendi = "Cuma" Then
'Pazartesi hesaplamayacaksa
If aralik(1) = "" Then
payi = topu + cıkan
'Pazartesi hesaplanacaksa
Else
payi = Application.Ceiling((topu + cıkan / 2), 1)
End If
'Pazartesi gününün değerini arıyoruz
ElseIf kendi = "Pazartesi" Then
'Cuma hesaplamayacaksa
If aralik(5) = "" Then
payi = topu + cıkan
'Cuma hesaplanacaksa
Else
payi = Application.Floor((topu + cıkan / 2), 1)
End If
'Hiç hesaplama yapılmayacaksa
Else
payi = ""
End If
End Function
Function payi(aralik As Range, top As Integer, kendi As Range)
'aralik = hesaba dahil edilecek günsayısını bulmak için günlerin yazılı
' olabileceği mutlak referans verilmiş aralık. Örnekte $B$1:$F$1
'top = pay edilecek miktar Örnekte $B$2
'kendi = Hesaplama yapılacak hücrenin üstündeki günün yazılı olduğu hücre
'Boş olmayan hücre sayısını buluyoruz.
dolu = Application.Subtotal(3, aralik)
'Dolu günlere eşit olarak dağıtıyoruz.
topu = top \ dolu
'eşit olarak dağıtım yapılan toplamı buluyoruz.
toptan = topu * dolu
'Eşit dağıtım yapıldıktan sonraki, Pazartesi ve Cuma günlerine dağıtılmak üzere farkı buluyoruz.
cıkan = top - toptan
'Pazartesi ve Cuma günlerinin dışındaki günlere eşit değerleri dağıtıyoruz.
If kendi = "Salı" Or kendi = "Çarşamba" Or kendi = "Perşembe" Then
payi = topu
'Cuma gününün değerini arıyoruz
ElseIf kendi = "Cuma" Then
'Pazartesi hesaplamayacaksa
If aralik(1) = "" Then
payi = topu + cıkan
'Pazartesi hesaplanacaksa
Else
payi = Application.Ceiling((topu + cıkan / 2), 1)
End If
'Pazartesi gününün değerini arıyoruz
ElseIf kendi = "Pazartesi" Then
'Cuma hesaplamayacaksa
If aralik(5) = "" Then
payi = topu + cıkan
'Cuma hesaplanacaksa
Else
payi = Application.Floor((topu + cıkan / 2), 1)
End If
'Hiç hesaplama yapılmayacaksa
Else
payi = ""
End If
End Function
- Katılım
- 21 Ekim 2005
- Mesajlar
- 17,093
- Excel Vers. ve Dili
- Excel, 365 - İngilizce
Arkadaşlar yanlış anlamadı isem,konu ek ders saatlerinin haftanın günlerine dağıtılması ile ilgili. İşin aslı bence şöyle olacak, haftalık okutulan dersler öncelikle haftanın 5 gününe dengeli dağıtılacak. Artan saatler ise önce Pazartesine,sonra Cuma'ya,daha sonra Çarşamba'ya son artan ise Salı gününe dağıtılacak. 19 saatlik bir dağılım,Pazartesinden itibaren 4.4.4.3.4 gibi olacak.
doğru hocam
kendi ihiyacımıza göre bir çişzelge dizayn ettik . bazı bölümleri yapamadık. arkadaşlar sağolsunlar yardım ettiler
tamamlayınca buraya koyacağız çizelgeye ihtiyacı olanlar
kullanır belki.
Bu duruma göre örnek ekte
öğretmenin dersinin olmadığı ve gelmediği günler nasıl devre dışı bırakılacak ?
bu çizelge 1 haftalık . diğer haftalar için kopyala yapıştırla formüller çalışmıyor.
hocam teşekkür ederim
dosyanın son halini ekledim.
problemide biraz delme takma denilebilecek şekilde çözdüm.pek otomatik olmadı .
1-veri sayfasının başındaki yeşilli sütuna ekders ücret sayılarını yazıyoruz.
2-dağıtılması gereken günleri gül kurusu rengine boyuyoruz.
3-dağıtılacak haftanın üzerine gelip çift tıklıyoruz .
bu şekilde 5 haftayı dağıtıyoruz.
4-ücret sayfasına asıl çizelgeyi oluşturdum oraya hesap sonuçlarını bağladım.
5-ekstradan yazılması gerekenleri de elle giriyoruz .
diğerleri normal dört işlem problemleri ile çözüldü.
sanırım iş görür.
dosyanın son halini ekledim.
problemide biraz delme takma denilebilecek şekilde çözdüm.pek otomatik olmadı .
1-veri sayfasının başındaki yeşilli sütuna ekders ücret sayılarını yazıyoruz.
2-dağıtılması gereken günleri gül kurusu rengine boyuyoruz.
3-dağıtılacak haftanın üzerine gelip çift tıklıyoruz .
bu şekilde 5 haftayı dağıtıyoruz.
4-ücret sayfasına asıl çizelgeyi oluşturdum oraya hesap sonuçlarını bağladım.
5-ekstradan yazılması gerekenleri de elle giriyoruz .
diğerleri normal dört işlem problemleri ile çözüldü.
sanırım iş görür.
Son düzenleme: