Sắp xếp chỗ ngồi tự động cho học sinh trong lớp. (4 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
T

thaily1983

Thành viên mới
Tham gia
31/10/21
Bài viết
12
Được thích
2
Chào các anh chị, e là thành viên mới, nhờ các anh chị giúp đỡ. Nội dung như sau:
1- Số liệu đầu vào:
+ Danh sách học sinh.
+ Thông tin học sinh ( giới tính, chiều cao...)
+ Danh sách chỗ ngồi ( sơ đồ)
2 - Kết quả:
Viết công thức (hoặc code) để tự động sắp xếp chỗ ngồi theo các đk ràng buộc như sau:
1/ Lớp trưởng, lớp phó ngồi bàn 4 trở xuống quản lý lớp
2/ tổ trưởng chia đều 4 tổ và theo tổ viên của mình
3/ tổ trưởng ngồi ở vị trí thích hợp để quản lý tổ (từ bàn 4-6)
4/ hsg (hoặc khá) - ngồi với hs TB- Yếu
5/ hai hsg (hoặc yếu, hoặc TB) không ngồi cùng 1 bàn
6/ học sinh bị cận thị ngồi từ bàn 1-3,..
7/ Số Nam số nữ đều giữa các tổ
8/ Ban cán sự lớp phân bố đều giữa các tổ
(có file đính kèm minh họa)
Em cám ơn.
 

File đính kèm

thaily1983 đã viết:
Chào các anh chị, e là thành viên mới, nhờ các anh chị giúp đỡ. Nội dung như sau:
1- Số liệu đầu vào:
+ Danh sách học sinh.
+ Thông tin học sinh ( giới tính, chiều cao...)
+ Danh sách chỗ ngồi ( sơ đồ)
2 - Kết quả:
Viết công thức (hoặc code) để tự động sắp xếp chỗ ngồi theo các đk ràng buộc như sau:
1/ Lớp trưởng, lớp phó ngồi bàn 4 trở xuống quản lý lớp
2/ tổ trưởng chia đều 4 tổ và theo tổ viên của mình
3/ tổ trưởng ngồi ở vị trí thích hợp để quản lý tổ (từ bàn 4-6)
4/ hsg (hoặc khá) - ngồi với hs TB- Yếu
5/ hai hsg (hoặc yếu, hoặc TB) không ngồi cùng 1 bàn
6/ học sinh bị cận thị ngồi từ bàn 1-3,..
7/ Số Nam số nữ đều giữa các tổ
8/ Ban cán sự lớp phân bố đều giữa các tổ
(có file đính kèm minh họa)
Em cám ơn.
Nhấp chuột vào đây để mở rộng...
1./ Có điều kiện gì về số lượng nam nữ trong 1 bàn?
2./ Sơ đồ là cố định hay là sau 1 thời gian thì thay đổi?
3./ Là cấp học nào?
 
dạ :
1. ko có điều kiện số lượng nam nữ trong 1 bàn.
2. Bàn ghế không thay đổi, vị trí chỗ ngồi học sinh sẽ thay đổi trong 1 tháng.
3. Dạ là học sinh cấp 2 ạ.
Nhờ anh chị nghiên cứu nghiên cứu giúp!
 
Bài toán kiểu tối ưu này khó viết code lắm.
 
thaily1983 đã viết:
dạ :
1. ko có điều kiện số lượng nam nữ trong 1 bàn.
2. Bàn ghế không thay đổi, vị trí chỗ ngồi học sinh sẽ thay đổi trong 1 tháng.
3. Dạ là học sinh cấp 2 ạ.
Nhờ anh chị nghiên cứu nghiên cứu giúp!
Nhấp chuột vào đây để mở rộng...
Chạy thử file đính kèm, các tiêu chí sẽ điều chỉnh bổ sung sau khi test.
Thứ tự ưu tiên sắp xếp: Học lực, bệnh về mắt, chiều cao, giới tính, số thứ tự
Mã: 
Option Explicit

Sub Xepcho()
Dim Nguon
Dim Thongke
Dim Nm0, Nm1, N0, N1, Hl 'Hl = hocluc
Dim Gt0, Gt1, Gt 'gioitinh
Dim Kq
Dim TgBan, Ban, Vt, Ten
Dim rws, cls
Dim i, j, k, t

Nguon = Sheet2.Range("A1").CurrentRegion
rws = UBound(Nguon)
cls = UBound(Nguon, 2)

ReDim Thongke(1 To rws - 1)
N0 = rws: N1 = rws: Nm0 = rws: Nm1 = rws
TgBan = rws \ 8 + 1
For i = 2 To rws
    If Nguon(i, 6) <> "" Then 'canthi
        Nguon(i, 6) = 1
    Else
        Nguon(i, 6) = 0
    End If
    
    Nguon(i, 5) = 100 - Mid(Nguon(i, 5) & 0, 3, 2) * 1 'chieucao
    
    If Nguon(i, 7) = "Kh" & ChrW(225) Or Nguon(i, 7) = "Gi" & ChrW(7887) & "i" Then 'hocluc
        If Nguon(i, 3) = 0 Then
            N0 = N0 - 1
            Hl = N0
        Else
            N1 = N1 - 1
            Hl = N1
        End If
    Else
        If Nguon(i, 3) = 0 Then
            Nm0 = Nm0 - 1
            Hl = Nm0
        Else
            Nm1 = Nm1 - 1
            Hl = Nm1
        End If
    End If
    
    If Nguon(i, 3) = 0 Then 'gioitinh
        Gt0 = Gt0 + 1
        Gt = Gt0
    Else
        Gt1 = Gt1 + 1
        Gt = Gt1
    End If
    
    k = (((Hl * 10 + Nguon(i, 6)) * 100 + Nguon(i, 5)) * 10 + Gt) * 100 + i
    
    Thongke(i - 1) = k
Next i
sortZA1D Thongke

ReDim Kq(1 To UBound(Nguon) \ 8 + 1, 1 To 9)
For i = 1 To rws - 1
    Ban = (i - 1) \ 8 + 1
    Ban = TgBan - Ban + 1
    Vt = (i - 1) Mod 8 + 1
    If Vt > 4 Then Vt = Vt + 1
    
    k = Thongke(i) Mod 100
    Ten = Nguon(k, 2) & "_" & Nguon(k, 3) & "_" & "1m" & 100 - Nguon(k, 5) & "_" & Nguon(k, 7)
    'Ten = Nguon(k, 2)
    Kq(Ban, Vt) = Ten
Next i
    
With Sheet3
    .UsedRange.Clear
    .Range("A6").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
    .Range("A6").Resize(UBound(Kq), UBound(Kq, 2)).Borders.LineStyle = 1
    .UsedRange.ColumnWidth = 2
    .UsedRange.Columns.AutoFit
End With
End Sub
 

File đính kèm

thấy danh sách có 41 học sinh, tức là 1 học sinh có thể ngồi 41 chỗ ngồi khác nhau,
nhưng 1 học sinh không thể ngồi 1 lúc 2 chỗ , vậy bài này thuộc dạng tổ hợp không lặp ,
tuy tổ hợp không lặp nhưng với 41 phần tử cũng là quá nhiều ,
8 điều kiện bên trên (nhánh cận) cũng loại trừ được kha khá trường hợp rồi ,
nên bài này có khả năng tính đc !

giả xử lớp có 3 học sinh thì có thể có các trường hợp !
123
132
213
231
312
321
tức là số trường hợp xảy ra trong trường hợp không có ràng buộc là 3!
 
Lần chỉnh sửa cuối:
CHAOQUAY đã viết:
Chạy thử file đính kèm, các tiêu chí sẽ điều chỉnh bổ sung sau khi test.
Thứ tự ưu tiên sắp xếp: Học lực, bệnh về mắt, chiều cao, giới tính, số thứ tự
Mã: 
Option Explicit

Sub Xepcho()
Dim Nguon
Dim Thongke
Dim Nm0, Nm1, N0, N1, Hl 'Hl = hocluc
Dim Gt0, Gt1, Gt 'gioitinh
Dim Kq
Dim TgBan, Ban, Vt, Ten
Dim rws, cls
Dim i, j, k, t

Nguon = Sheet2.Range("A1").CurrentRegion
rws = UBound(Nguon)
cls = UBound(Nguon, 2)

ReDim Thongke(1 To rws - 1)
N0 = rws: N1 = rws: Nm0 = rws: Nm1 = rws
TgBan = rws \ 8 + 1
For i = 2 To rws
    If Nguon(i, 6) <> "" Then 'canthi
        Nguon(i, 6) = 1
    Else
        Nguon(i, 6) = 0
    End If
   
    Nguon(i, 5) = 100 - Mid(Nguon(i, 5) & 0, 3, 2) * 1 'chieucao
   
    If Nguon(i, 7) = "Kh" & ChrW(225) Or Nguon(i, 7) = "Gi" & ChrW(7887) & "i" Then 'hocluc
        If Nguon(i, 3) = 0 Then
            N0 = N0 - 1
            Hl = N0
        Else
            N1 = N1 - 1
            Hl = N1
        End If
    Else
        If Nguon(i, 3) = 0 Then
            Nm0 = Nm0 - 1
            Hl = Nm0
        Else
            Nm1 = Nm1 - 1
            Hl = Nm1
        End If
    End If
   
    If Nguon(i, 3) = 0 Then 'gioitinh
        Gt0 = Gt0 + 1
        Gt = Gt0
    Else
        Gt1 = Gt1 + 1
        Gt = Gt1
    End If
   
    k = (((Hl * 10 + Nguon(i, 6)) * 100 + Nguon(i, 5)) * 10 + Gt) * 100 + i
   
    Thongke(i - 1) = k
Next i
sortZA1D Thongke

ReDim Kq(1 To UBound(Nguon) \ 8 + 1, 1 To 9)
For i = 1 To rws - 1
    Ban = (i - 1) \ 8 + 1
    Ban = TgBan - Ban + 1
    Vt = (i - 1) Mod 8 + 1
    If Vt > 4 Then Vt = Vt + 1
   
    k = Thongke(i) Mod 100
    Ten = Nguon(k, 2) & "_" & Nguon(k, 3) & "_" & "1m" & 100 - Nguon(k, 5) & "_" & Nguon(k, 7)
    'Ten = Nguon(k, 2)
    Kq(Ban, Vt) = Ten
Next i
   
With Sheet3
    .UsedRange.Clear
    .Range("A6").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
    .Range("A6").Resize(UBound(Kq), UBound(Kq, 2)).Borders.LineStyle = 1
    .UsedRange.ColumnWidth = 2
    .UsedRange.Columns.AutoFit
End With
End Sub
Nhấp chuột vào đây để mở rộng...
Nhờ anh (chị) CHAOQUAY có thể giúp mình thêm là cứ 2 tuần mình sắp xếp một kết quả khác với ạ.
 
thaily1983 đã viết:
Nhờ anh (chị) CHAOQUAY có thể giúp mình thêm là cứ 2 tuần mình sắp xếp một kết quả khác với ạ.
Nhấp chuột vào đây để mở rộng...
Bạn thay code trên = code dưới đây.
Mã: 
Option Explicit

Sub Xepcho_()
Dim Nguon
Dim Thongke
Dim Nm0, Nm1, N0, N1, Hl 'Hl = hocluc
Dim Gt0, Gt1, Gt 'gioitinh
Dim Kq
Dim TgBan, Ban, Vt, Ten
Dim rws, cls
Dim i, j, k, t

With Sheet2
    Thongke = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
    rws = UBound(Thongke)
    ReDim Nguon(1 To rws + 1, 1 To 7)
    Randomize
    For i = 1 To UBound(Thongke)
        k = Rnd() * 100 Mod rws + 1
        t = Thongke(k, 1)
        Thongke(k, 1) = Thongke(rws, 1)
        rws = rws - 1
        For j = 1 To 7
            Nguon(i + 1, j) = .Cells(t + 1, j).Value
        Next j
    Next i
End With
rws = UBound(Nguon)
cls = UBound(Nguon, 2)

ReDim Thongke(1 To rws - 1)
N0 = rws: N1 = rws: Nm0 = rws: Nm1 = rws
TgBan = rws \ 8 + 1
For i = 2 To rws
    If Nguon(i, 6) <> "" Then 'canthi
        Nguon(i, 6) = 1
    Else
        Nguon(i, 6) = 0
    End If
    
    Nguon(i, 5) = 100 - Mid(Nguon(i, 5) & 0, 3, 2) * 1 'chieucao
    
    If Nguon(i, 7) = "Kh" & ChrW(225) Or Nguon(i, 7) = "Gi" & ChrW(7887) & "i" Then 'hocluc
        If Nguon(i, 3) = 0 Then
            N0 = N0 - 1
            Hl = N0
        Else
            N1 = N1 - 1
            Hl = N1
        End If
    Else
        If Nguon(i, 3) = 0 Then
            Nm0 = Nm0 - 1
            Hl = Nm0
        Else
            Nm1 = Nm1 - 1
            Hl = Nm1
        End If
    End If
    
    If Nguon(i, 3) = 0 Then 'gioitinh
        Gt0 = Gt0 + 1
        Gt = Gt0
    Else
        Gt1 = Gt1 + 1
        Gt = Gt1
    End If
    
    k = (((Hl * 10 + Nguon(i, 6)) * 100 + Nguon(i, 5)) * 10 + Gt) * 100 + i
    
    Thongke(i - 1) = k
Next i
sortZA1D Thongke

ReDim Kq(1 To UBound(Nguon) \ 8 + 1, 1 To 9)
For i = 1 To rws - 1
    Ban = (i - 1) \ 8 + 1
    Ban = TgBan - Ban + 1
    Vt = (i - 1) Mod 8 + 1
    If Vt > 4 Then Vt = Vt + 1
    
    k = Thongke(i) Mod 100
    Ten = Nguon(k, 2) & "_" & Nguon(k, 3) & "_" & "1m" & 100 - Nguon(k, 5) & "_" & Nguon(k, 7)
    'Ten = Nguon(k, 2)
    Kq(Ban, Vt) = Ten
Next i
    
With Sheet3
    .UsedRange.Clear
    .Range("A6").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
    .Range("A6").Resize(UBound(Kq), UBound(Kq, 2)).Borders.LineStyle = 1
    .UsedRange.ColumnWidth = 2
    .UsedRange.Columns.AutoFit
End With
End Sub

---
Về cán bộ lớp: Cả 2 code trên đều chưa có ưu tiên khi xếp chỗ. Có lẽ vị trí cán bộ lớp cần phải xếp = tay, sau đó sẽ sắp xếp cho các học sinh còn lại. Việc này bạn cân nhắc, nếu cần sẽ hiệu chỉnh
 
Hay thật, code khá gọn, cám ơn bác ChaoQuay.
Em xin hỏi vài câu để nắm thêm vấn đề, nếu bác có thời gian thì hoàn thiện luôn cũng được ;)
1/ Thứ tự ưu tiên khi sắp xếp có thể đưa ra bên ngoài để người dùng lựa chọn không? (hiệu chỉnh code)
2/ Về điều kiện "cán bộ lớp": lỡ tự động rồi thì tự động luôn, đề xuất đưa vào mức độ ưu tiên đầu tiên, sắp xếp cuối lớp, lớp trưởng và lớp phó ở 02 dãy bàn riêng biệt. Như vậy có được không anh? (hiệu chỉnh code)
3/ Nếu không giả sử thứ tự ưu tiên (thỏa mãn cùng lúc 08 điều kiện) thì có sắp xếp được không? (tính khả thi)
4/ Nếu không dùng code, chỉ dùng công thức hàm Excel có sẵn + Solve thì có thể giải bài toán này được không anh? (tính khả thi)
Nhờ bác tư vấn giúp, em cám ơn.
 
thaoeqn1983 đã viết:
Hay thật, code khá gọn, cám ơn bác ChaoQuay.
Em xin hỏi vài câu để nắm thêm vấn đề, nếu bác có thời gian thì hoàn thiện luôn cũng được ;)
1/ Thứ tự ưu tiên khi sắp xếp có thể đưa ra bên ngoài để người dùng lựa chọn không? (hiệu chỉnh code)
2/ Về điều kiện "cán bộ lớp": lỡ tự động rồi thì tự động luôn, đề xuất đưa vào mức độ ưu tiên đầu tiên, sắp xếp cuối lớp, lớp trưởng và lớp phó ở 02 dãy bàn riêng biệt. Như vậy có được không anh? (hiệu chỉnh code)
3/ Nếu không giả sử thứ tự ưu tiên (thỏa mãn cùng lúc 08 điều kiện) thì có sắp xếp được không? (tính khả thi)
4/ Nếu không dùng code, chỉ dùng công thức hàm Excel có sẵn + Solve thì có thể giải bài toán này được không anh? (tính khả thi)
Nhờ bác tư vấn giúp, em cám ơn.
Nhấp chuột vào đây để mở rộng...
3: Tính sơ sơ thì đây là bài tổ hợp chập 4 của 41 ( 4 học sinh 1 bàn ). Có khoảng >100000 kết quả.
Giả sử 1 tiết học sử dụng 1 sơ đồ xếp chỗ, tạm tính cho 1 năm học như sau:
1 năm học là 10 tháng, 1 tháng là 31 ngày, 1 ngày 2 buổi, 1 buổi 5 tiết = 10*31*2*5 = 3100 tiết

Với cách tinh trên, nếu 1 tiết học sử dụng 1 sơ đồ xếp chỗ, cần khoáng >32 năm mới dùng hết các sơ đồ.
Cái này có lẽ để mấy bác chuyên giáo dục đánh giá tính khả thi là hợp lý hơn cả

4: Solver + công thức + bảng phụ có thể giải được, nhưng 1 lần tính chắc chỉ ra được 1 sơ đồ.

1 & 2: Chắc code này chủ thớt chỉ làm tham khảo nên 2 mục này chỉ làm tới đây thôi.
 
nếu tính theo bàn thì giả xử có 12 học sinh !
bàn 1 là tổ hợp chập 4 của 12 , bàn 2 là tổ hợp chập 4 của 8,
2 kết quả bàn 1 , bàn 2 nhân với nhau sẽ ra số trường hợp @@
 
anhtuanle123 đã viết:
nếu tính theo bàn thì giả xử có 12 học sinh !
bàn 1 là tổ hợp chập 4 của 12 , bàn 2 là tổ hợp chập 4 của 8,
2 kết quả bàn 1 , bàn 2 nhân với nhau sẽ ra số trường hợp @@
Nhấp chuột vào đây để mở rộng...
Bài trên chỉ là tính sơ sơ thôi bạn.
Như của bạn có lẽ còn phải thêm cả hoán vị vào nữa bạn nhỉ.

code giúp chủ thớt đi bạn
 
Bài này làm code là chuẩn, và bác ChaoQuay xử lý được 99% khối lượng rồi, 1% để chủ thớt tự hoàn thiện.
Anh em học hỏi được nhiều, cám ơn.:bye1:
 
E cảm ơn ban CHAOQUAY rất nhiều ạ.
Anh ( chị) có thể giup e: e thấy kết quả ko sắp xếp
1/ hsg (hoặc khá) - ngồi với hs TB- Yếu
2/ học sinh bị cận thị ngồi từ bàn 1-3
3/ Chiều cao. Mình vẫn thấy sao vẫn 2 Hs giỏi và cao ngồi bàn đầu. Nhờ bạn xem lại giúp mình.
 
thaily1983 đã viết:
E cảm ơn ban CHAOQUAY rất nhiều ạ.
Anh ( chị) có thể giup e: e thấy kết quả ko sắp xếp
1/ hsg (hoặc khá) - ngồi với hs TB- Yếu
2/ học sinh bị cận thị ngồi từ bàn 1-3
3/ Chiều cao. Mình vẫn thấy sao vẫn 2 Hs giỏi và cao ngồi bàn đầu. Nhờ bạn xem lại giúp mình.
Nhấp chuột vào đây để mở rộng...
1./ Sơ đồ bài 1 của bạn là 2 dãy bàn, mỗi bàn 4 chỗ -> 1 bàn có 2 TB- & 2 khá+, cái này bạn kiểm tra lại kết quả. code này chỉ xếp TB- & khá+ cùng bàn mà chưa xét xếp xen kẽ.

2./ Bạn tìm dòng trên thay = dòng dưới là được.
Mã: 
'k = (((Hl * 10 + Nguon(i, 6)) * 100 + Nguon(i, 5)) * 10 + Gt) * 100 + i
 k = (((Nguon(i, 6) * 100 + Hl) * 100 + Nguon(i, 5)) * 10 + Gt) * 100 + i

3./ Tiêu chí này có đưa vào code nhưng xem lại bài 1 thấy không đặt vấn đề về yếu tố này, có lẽ để sau đi bạn
 
CHAOQUAY đã viết:
1./ Sơ đồ bài 1 của bạn là 2 dãy bàn, mỗi bàn 4 chỗ -> 1 bàn có 2 TB- & 2 khá+, cái này bạn kiểm tra lại kết quả. code này chỉ xếp TB- & khá+ cùng bàn mà chưa xét xếp xen kẽ.

2./ Bạn tìm dòng trên thay = dòng dưới là được.
Mã: 
'k = (((Hl * 10 + Nguon(i, 6)) * 100 + Nguon(i, 5)) * 10 + Gt) * 100 + i
 k = (((Nguon(i, 6) * 100 + Hl) * 100 + Nguon(i, 5)) * 10 + Gt) * 100 + i

3./ Tiêu chí này có đưa vào code nhưng xem lại bài 1 thấy không đặt vấn đề về yếu tố này, có lẽ để sau đi bạn
Nhấp chuột vào đây để mở rộng...
Chào anh ( chị ), em cần nhờ anh ( chị) tư vấn thêm một số vấn đề để hoàn thiện bài tập này. Anh ( chị) cho e xin số điện thoại để tiện trao đổi. cám ơn!
 
CHAOQUAY đã viết:
Bạn thay code trên = code dưới đây.
Mã: 
Option Explicit

Sub Xepcho_()
Dim Nguon
Dim Thongke
Dim Nm0, Nm1, N0, N1, Hl 'Hl = hocluc
Dim Gt0, Gt1, Gt 'gioitinh
Dim Kq
Dim TgBan, Ban, Vt, Ten
Dim rws, cls
Dim i, j, k, t

With Sheet2
    Thongke = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
    rws = UBound(Thongke)
    ReDim Nguon(1 To rws + 1, 1 To 7)
    Randomize
    For i = 1 To UBound(Thongke)
        k = Rnd() * 100 Mod rws + 1
        t = Thongke(k, 1)
        Thongke(k, 1) = Thongke(rws, 1)
        rws = rws - 1
        For j = 1 To 7
            Nguon(i + 1, j) = .Cells(t + 1, j).Value
        Next j
    Next i
End With
rws = UBound(Nguon)
cls = UBound(Nguon, 2)

ReDim Thongke(1 To rws - 1)
N0 = rws: N1 = rws: Nm0 = rws: Nm1 = rws
TgBan = rws \ 8 + 1
For i = 2 To rws
    If Nguon(i, 6) <> "" Then 'canthi
        Nguon(i, 6) = 1
    Else
        Nguon(i, 6) = 0
    End If
   
    Nguon(i, 5) = 100 - Mid(Nguon(i, 5) & 0, 3, 2) * 1 'chieucao
   
    If Nguon(i, 7) = "Kh" & ChrW(225) Or Nguon(i, 7) = "Gi" & ChrW(7887) & "i" Then 'hocluc
        If Nguon(i, 3) = 0 Then
            N0 = N0 - 1
            Hl = N0
        Else
            N1 = N1 - 1
            Hl = N1
        End If
    Else
        If Nguon(i, 3) = 0 Then
            Nm0 = Nm0 - 1
            Hl = Nm0
        Else
            Nm1 = Nm1 - 1
            Hl = Nm1
        End If
    End If
   
    If Nguon(i, 3) = 0 Then 'gioitinh
        Gt0 = Gt0 + 1
        Gt = Gt0
    Else
        Gt1 = Gt1 + 1
        Gt = Gt1
    End If
   
    k = (((Hl * 10 + Nguon(i, 6)) * 100 + Nguon(i, 5)) * 10 + Gt) * 100 + i
   
    Thongke(i - 1) = k
Next i
sortZA1D Thongke

ReDim Kq(1 To UBound(Nguon) \ 8 + 1, 1 To 9)
For i = 1 To rws - 1
    Ban = (i - 1) \ 8 + 1
    Ban = TgBan - Ban + 1
    Vt = (i - 1) Mod 8 + 1
    If Vt > 4 Then Vt = Vt + 1
   
    k = Thongke(i) Mod 100
    Ten = Nguon(k, 2) & "_" & Nguon(k, 3) & "_" & "1m" & 100 - Nguon(k, 5) & "_" & Nguon(k, 7)
    'Ten = Nguon(k, 2)
    Kq(Ban, Vt) = Ten
Next i
   
With Sheet3
    .UsedRange.Clear
    .Range("A6").Resize(UBound(Kq), UBound(Kq, 2)) = Kq
    .Range("A6").Resize(UBound(Kq), UBound(Kq, 2)).Borders.LineStyle = 1
    .UsedRange.ColumnWidth = 2
    .UsedRange.Columns.AutoFit
End With
End Sub

---
Về cán bộ lớp: Cả 2 code trên đều chưa có ưu tiên khi xếp chỗ. Có lẽ vị trí cán bộ lớp cần phải xếp = tay, sau đó sẽ sắp xếp cho các học sinh còn lại. Việc này bạn cân nhắc, nếu cần sẽ hiệu chỉnh
Nhấp chuột vào đây để mở rộng...
Code vô cùng hay ạ. Nhưng nếu số dãy bàn nó thay đổi thành 3 dãy chẳng hạn, số học sinh ngồi 1 dãy là 3, hoặc số dãy bàn là 2 nhưng số học sinh là 3 học sinh trên 1 bàn. vậy thay đổi điều này làm sao ạ. cảm ơn
 
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

vsitcnh
Hỗ trợ công thức tính điểm dựa theo điều kiện. (5 người xem)
Trả lời
7
Đọc
66
vsitcnh
vsitcnh
1
Hỏi về đánh dấu hàng ngang hàng dọc bằng màu khi kích chuột vào 1 ô
Trả lời
7
Đọc
168
Gà Công Nghệ
Gà Công Nghệ
PhanTuHuong
Sách Lập trình VBA trong AutoCAD đã có mặt
    • Thích
    • Yêu thích
2
Trả lời
20
Đọc
1K
Mr.hieudoanxd
Mr.hieudoanxd
P
Excell code vba : Tìm Cell để sửa dữ liệu
    • Buồn
2
Trả lời
26
Đọc
512
Phạm Trường 80
P
L
Lỗi font khi convert từ pdf
Trả lời
1
Đọc
47
Hoàng Tuấn 868
H
D
Nhờ anh em giúp đỡ. (1 người xem)
    • Buồn
Trả lời
2
Đọc
74
SA_DQ
SA_DQ
00029591
Cần hỗ trợ công thức tổng hợp dữ liệu không cần cột phụ Vlookup
Trả lời
2
Đọc
72
DeTong
D
H
Đổi số thành chữ trong office 365
Trả lời
19
Đọc
1K
HoangTan891026
H
Gà Công Nghệ
Lấy dữ liệu file excel từ sheet này sang sheet khác
Trả lời
4
Đọc
125
Gà Công Nghệ
Gà Công Nghệ
N
Mong mọi người giúp đỡ
Trả lời
1
Đọc
58
minhminh27
minhminh27
minhduc1o2
Excel lỗi font Time New Roman+
Trả lời
7
Đọc
113
minhduc1o2
minhduc1o2
F
  • Question Question
Tự động Merge Mail bằng VBA
Trả lời
0
Đọc
69
fujishima
F
H
Lọc dữ liệu trong XL
    • Cười
Trả lời
0
Đọc
44
huong.dinh
H
giaiphap
Add-Ins hổ trợ Word trộn danh sách và lưu ra nhiều tệp tin khác nhau.
    • Thích
    • Yêu thích
    • Cảm ơn
2
Trả lời
39
Đọc
9K
fujishima
F
K
xin file excel bảng đấu bóng đá
    • Yêu thích
2 3
Trả lời
40
Đọc
25K
subin1905
S
B
Xin giải pháp chống sửa, xóa dữ liệu đã nhập vào từ ngày hôm trước.
    • Thích
2
Trả lời
24
Đọc
7K
chihuumvc
C
Trungvt3
Công thức trả về định dạng không như mong muốn và viết phân số trong 1 ô.
Trả lời
1
Đọc
64
bebo021999
B
G
Hướng dẫn Lập danh sách File
    • Không thích
Trả lời
16
Đọc
266
thanhhuy_hvnh
thanhhuy_hvnh
baolong240793
Nhờ Anh/Chị hỗ trợ em hàm Randbetween() với ạ.
Trả lời
4
Đọc
360
bebo021999
B
Y
  • Question Question
Khóa VBA với mật khẩu mở
    • Thích
2 3 4
Trả lời
60
Đọc
5K
PhanTuHuong
PhanTuHuong
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian

000
Ngày
00
Giờ
00
phút
00
giây
TALK SHOW: CÙNG NHẢY LAM BA ĐA VỚI HÀM LAMBDA (λ) EXCEL 365
Back
Top Bottom