11 in 3 lü kombinasyonuyla ilgili?

[dotcom]

Merhaba ,

Her öğrencimiz için 3 adet ders kodu bulunmakta.

Mesela 511 , 571 ve 551.

Buna göre
aynı dersleri seçmiş olanların sayısını nasıl buldurabilirim?

571
572
573
seçenler bir grup

531
541
542
seçenler başka bir grup olacak.

sıralama önemli değil

531
541
542

ile

541
531
542
aynı grup.

 

[excelci1]

merhaba
j sütunundaki hücreleri birleştirmişsin ya onları çöz
j4 e

=TOPLA.ÇARPIM(--($D$4:$D$75=I4))

yaz ve aşağı doğru kopyala

 

[dotcom]

Cevap için teşekkürler ancak istediğim sonucu vermiyor tam olarak. Sizin gösterdiğiniz yöntem Eğersay ile buldurabiliyorum. 521 kodun kaç kişide olduğunu gösteriyor.

Paket 1 i kaç kişi seçmiş onu buldurmam lazım.

 

[excellcan]

Cevap için teşekkürler ancak istediğim sonucu vermiyor tam olarak. Sizin gösterdiğiniz yöntem Eğersay ile buldurabiliyorum. 521 kodun kaç kişide olduğunu gösteriyor.

Paket 1 i kaç kişi seçmiş onu buldurmam lazım.

Aşağıdaki kodları sayfada butona atayıp dener misiniz. Sizin dosyanızda paket1'i 328 nolu öğrenciye de verdim. Sonuç J4 de yazılıyor. Saydırma işlemini
I4:I6 aralığından yaptırıyor. Yani paket2 saydırmak isterseniz bu aralıktaki verileri değiştireceksiniz. Tabii benimkisi biraz acemi bülbül bu kadar öter misali.

Private Sub CommandButton1_Click()
Dim syf1 As Worksheet
Set syf1 = Sheets("Sayfa1")
Dim i As Integer
Dim bul As Integer
Dim say As Integer

With syf1


For i = 4 To 73 Step 3
bul = WorksheetFunction.CountIf(.Range("D" & i & ":D" & i + 2), .Range("I4")) + _
WorksheetFunction.CountIf(.Range("D" & i & ":D" & i + 2), .Range("I5")) + _
WorksheetFunction.CountIf(.Range("D" & i & ":D" & i + 2), .Range("I6"))
If bul = 3 Then
say = say + 1
End If
.Cells(i, "E") = bul
.Range("J4") = say
Next


End With
End Sub

 

[dotcom]

Teşekkürler kodlama için.

İstenilen sayıyı hesaplayabiliyor.

 

[turist]

Alternatif olabilir; formül ve macro ile çözüm ekli dosyadadır.