İSTATİSTİK

[Ongun]

ÝSTATÝSTÝK

Arkadaşlar, çalışmalarınızda başarılar dilerim.

İstatistik ile ilgili daha önce bir çalışma yapmıştım. Bu defa şöyle bir sorunum var.
ekli dosyada görüleceği üzere aynı aya ait isimlerden(aynı isimden olursa bunu 1 sayacak) ve dönemlerden (aynı dönemden olursa bunuda 1 sayacak) kaç adet olduğunu tespit etmek istiyorum. gerekli açıklamayı dosyada yaptım. Bana yardım ederseniz sevinirim. Saygılarımla.

 

[Ongun]

Herkese selamlar, kodlarda bir türlü düzenleme yapamadım.

Saygılarımla.

 

[Ongun]

Arkadaşlar lütfen yardımcı olurmusunuz. Akşam çok uğraştım ama bir türlü çözemedim. Saygılarımla

 

[Ongun]

Arkadaşlar hiç olmasa ilgilenen varsa bilgim olsun. Bu son mesajım olacak. Daha fazla meşgul etmek istemiyorum.Saygılarımla

 

[mehmett]

Doğrusunu isterseniz uzun uzun düşündüm ama sorunuza bir çözüm bulamadım. Yine de elimden gelirse çözmeye çalışırım.

 

[Ongun]

Sayın mehmett, ilginize teşekkür ederim. Saygılarımla

 

[Ongun]

Arkadaşlar çok zor bir sorumu, ekli dosyada kodlar var, bu kodların neresine ilave yapmam gerektiğini bir türlü çözemiyorum. Lütfen bana yardımcı olun.

Saygılarımla

 

[Merhum İdris SERDAR]

Dosyanız ekte olmuş mu?

 

[Ongun]

Sayın yurttas, ilginiz için çok teşekkürler, ancak eklediğiniz dosyanın kodlarını inceledim benim eklediğim dosyaların kodları hiç bir değişiklik göremedim. Yani isimlerin sayısını tespit ediyor. Fakat dönem sayısını tespit etmiyor.
Bu nedenle, dosyanın kodlarını gönderiyorum. Saygılarımla.

Not: Bu kodlar bana ait değil sitemiz üyesi sayın Exelans`a ait kendisine teşekkür ederim.

Private Sub ComboBox1_Click()
Dim Yüzler As String
Dim Onlar As String
Dim Besler As String
Dim Donem As String
Dim a As Integer, say As Integer, ffc As Integer, ffd As Integer, ffe As Integer
Dim bb As Integer, cc As Single, dd As Single, ee As Single, ff As Integer
Dim bbc As Single
Dim bbd As Single
Dim bbe As Single
ReDim Adlar(100)
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
s1.[B511].ClearContents
s1.[a2] = ComboBox1.Value
s2.[a19] = ComboBox1.Value
For a = 2 To 15
If UCase(Format(s2.Cells(a, 1), "mmmm")) = ComboBox1.Value Then
For say = 1 To bb
If Adlar(say) = s2.Cells(a, 2) Then GoTo BIR
Next say
If say = bb + 1 Then
Adlar(say) = s2.Cells(a, 2)
bb = bb + 1
End If
BIR:
cc = cc + s2.Cells(a, 3).Value
dd = dd + s2.Cells(a, 4).Value
ee = ee + s2.Cells(a, 5).Value
ff = ff + 1
If s2.Cells(a, 3).Value > 0 Then
bbc = bbc + 1
ffc = bbf + 1
End If
If s2.Cells(a, 4).Value > 0 Then
bbd = bbd + 1
ffd = ffd + 1
End If
If s2.Cells(a, 5).Value > 0 Then
bbe = bbe + 1
ffe = ffe + 1
End If
End If
Next a
s2.[b19] = bb
s2.[c19] = Round(cc, 2)
s2.[d19] = Round(dd, 2)
s2.[e19] = Round(ee, 2)
s2.[f19] = ff
For i = 7 To 9
Cells(i, 2) = bb
Cells(i, 3) = ff
Cells(i, 4) = s2.Cells(19, i - 4)
Next i
End Sub

 

[Merhum İdris SERDAR]

Eklediğim dosyayı çalıştırdınız mı? Ben baktım hatta tüm ayları denedim. Dönemlerin sayısını da veriyor.
İlk dosyanızdaki kodlarda yer alan ' işareti kaldırıldı. Fark burada.

's2.[b19] = bb

's2.[f19] = ff

 

[Ongun]

Sayın yurttas, ilginiz için çok teşekkürler. Ancak benim istediğim tam olarak o değildi. Sorunumu çözdüm kodlarda düzenleme yaptım istediğim oldu. Fakat kodlar uzun oldu. örnek dosya gönderiyorum. Kodları daha kısa yazmam için ne yapmam gerekiyor bana yardımcı olursanız sevinirim. Saygılarımla.

For a = 2 To 15
If UCase(Format(s2.Cells(a, 1), "mmmm")) = ComboBox1.Value Then
For say = 1 To bb
If Adlar(say) = s2.Cells(a, 2) Then GoTo BIR
Next say
If say = bb + 1 Then
Adlar(say) = s2.Cells(a, 2)
bb = bb + 1
End If
BIR:
cc = cc + s2.Cells(a, 3).Value
dd = dd + s2.Cells(a, 4).Value
ee = ee + s2.Cells(a, 5).Value
End If
Next a
For a = 2 To 15
If UCase(Format(s2.Cells(a, 1), "mmmm")) = ComboBox1.Value Then
For say = 1 To ff
If Adlar(say) = s2.Cells(a, 6) Then GoTo iki
Next say
iki:
If say = ff + 1 Then
Adlar(say) = s2.Cells(a, 6)
ff = ff + 1
End If
End If
Next a

Yukarıdaki kodda for döngüsü iki kez kullanılca istediğim oldu bunu içiçe nasıl yapabilirim. Yani nasıl kısalta bilirim.

 

[Ongun]

İlgilenen arkadaşlara duyurulur. Lütfen yardımcı olun. Saygılarımla.

İstediğim sadece For-Next Döngüsünü daha kısa nasıl yazabiliriz.

 

[Merhum İdris SERDAR]

Sayın Ongun,
Benim fikrim yok. Değerli Ustadlarımız ilgilenirler herhalde.

Saygılarımla...

 

[Ongun]

Sayın Ongun,
Benim fikrim yok. Değerli Ustadlarımız ilgilenirler herhalde.

Saygılarımla...

Sayın üstadlarım lütfen yardımcı olurmusunuz. Saygılarımla