Sao anh biết tôi chưa học tổ hợp. Học là 1 chuyện áp dụng công thức vào excel là 1 chuyện. Chính những gì anh nói nên. Tôi có ý là tạo ra sơ đồ lớp để các lớp mỗi tuần thay đổi. Cuối tuần có những sơ đồ khác nhau chuyển đến các lớp. Hoặc có thể 2;3 tuần gì thay đổi cũng được........Không phải thích ngồi chổ nào thì ngồi mà học tốt, chổ ngồi không ảnh hưởng tới việc học, phải tuân thủ theo nội qui của trường lớp. File em đính kèm những số thứ tự chuyển sang 1 cái tên, ý diễn tả như vậy thôi mà anh.
Cảm ơn chị Hải Yến nhiều, chị dùng visua em không rành chị ạ, em đã sắp các tên theo số ngẩu nhiên rồi vậy chị có thể sắp xếp lại dùm em cho vào sơ đồ lớp được chứ chị.
Dùng hàm RAND như bạn tuy khả năng bị TRÙNG rất thấp nhưng không phải là không xảy ra! Khi ấy tính sao ta?
Để chắc ăn vụ TRÙNG không xảy ra, nếu là tôi thì tôi sẽ dùng cách đơn giản hơn: Hàm Rand tại 1 cột phụ rồi Sort 1 phát là xong (mỗi lần sort sẽ cho 1 cách sắp xếp khác nhau)
Mình không biết gì về lĩnh vực này bạn ạ.
Cảm ơn bạn, bạn biết ai có thể giúp được không ạ.
Lĩnh vực này ít bài nên mình cũng không rõ bạn ạ.
Có tính đến chiều cao, cận loạn thị không?
Chỉ xếp theo yêu cầu xen kẽ ...
Sub XYZ()
Dim sArr(), aHL(1 To 4, 1 To 2), res(1 To 6, 1 To 8)
Dim n&, i&, r&, c&, r2&, c2&, k&
With Sheets("Sheet1")
i = .Range("C" & Rows.Count).End(xlUp).Row
If i < 10 Then MsgBox ("Hos sinh qua it, giai tan lop!"): Exit Sub
sArr = .Range("A3:C" & i).Value
End With
For i = 1 To UBound(sArr)
aHL(sArr(i, 3), 1) = aHL(sArr(i, 3), 1) & "," & i
Next i
For n = 1 To 4
aHL(n, 1) = Split(aHL(n, 1), ",")
Next n
k = 0: r = 1: c = -1
For n = 1 To 2
For i = 1 To UBound(aHL(n, 1))
k = k + 1
If c = 7 Then c = 1: r = r + 1 Else c = c + 2
res(r, c) = aHL(n, 1)(i)
If k = 24 Then i = i + 1: Exit For
Next i
aHL(n, 2) = i - 1
If aHL(n, 2) < UBound(aHL(n, 1)) Then Exit For
Next n
k = 0: r2 = 1: c2 = 0
For n = 4 To 3 Step -1
For i = 1 To UBound(aHL(n, 1))
k = k + 1
If c2 = 8 Then c2 = 2: r2 = r2 + 1 Else c2 = c2 + 2
res(r2, c2) = aHL(n, 1)(i)
If k = 24 Then Exit For
Next i
aHL(n, 2) = i
Next n
If aHL(2, 2) < UBound(aHL(2, 1)) Then
For n = 1 To 2
For i = aHL(n, 2) + 1 To UBound(aHL(n, 1))
If c2 = 8 Then c2 = 2: r2 = r2 + 1 Else c2 = c2 + 2
res(r2, c2) = aHL(n, 1)(i)
Next i
Next n
Else
For n = 4 To 3 Step -1
For i = aHL(n, 2) + 1 To UBound(aHL(n, 1))
If c = 7 Then c = 1: r = r + 1 Else c = c + 2
res(r, c) = aHL(n, 1)(i)
Next i
Next n
End If
Sheets("Sheet1").Range("E3").Resize(6, 8) = res
End Sub
