Dạ được như thế nữa thì quá tốt bác ạ.
Trên 5 phút là cả thế kỷ đối với dân vòi code.
6 cũ thành 7 mới, số lớp vẫn không đổi đúng ko bạn?
Bạn thử code này.
Option Explicit
Private Function UniqueRandomNum(Bottom As Long, Top As Long, Amount As Long)
On Error Resume Next
If Amount > Top - Bottom + 1 Then Amount = Top - Bottom + 1
With CreateObject("Scripting.Dictionary")
Do
.Add Int(Rnd() * (Top - Bottom + 1)) + Bottom, ""
Loop Until .Count = Amount
UniqueRandomNum = .Keys
End With
End Function
Private Function LayDS(Rng As Range, Optional aCot = 5, Optional LOAI As String = "Trung bình")
Dim aRow%, aCol%, i&, j&, k&
Dim Arr, TempDes, Des, TT
aRow = Rng.Rows.Count: aCol = Rng.Columns.Count
Arr = Rng.Value
aRow = UBound(Arr, 1): aCol = UBound(Arr, 2)
ReDim TempDes(1 To aRow, 1 To aCol + 2)
For i = 1 To aRow
If Arr(i, aCot) = LOAI Then
k = k + 1: TempDes(k, 1) = k
For j = 1 To aCol
TempDes(k, j + 1) = Arr(i, j)
Next j
End If
Next i
If k = 0 Then Exit Function
TT = UniqueRandomNum(1, k, k)
ReDim Des(1 To k, 1 To aCol + 2)
aCol = UBound(TempDes, 2)
For i = 1 To k
For j = 1 To aCol
If j = aCol Then
Des(i, j) = TT(i - 1)
Else
Des(i, j) = TempDes(i, j)
End If
Next j
Next i
LayDS = Des
End Function
Private Function WorksheetExists(shtName As String, Optional wb As Workbook) As Boolean
Dim sht As Worksheet
If wb Is Nothing Then Set wb = ThisWorkbook
On Error Resume Next
Set sht = wb.Sheets(shtName)
On Error GoTo 0
WorksheetExists = Not sht Is Nothing
End Function
Private Function TachDS(DS, SL As Integer, aIndex As Integer, TT As Integer)
Dim i%, j%, k%, Max%, Des
k = 0: Max = SL + aIndex - 1
If Max > UBound(DS, 1) Then Max = UBound(DS, 1)
ReDim Des(1 To (Max - aIndex + 1), 1 To UBound(DS, 2))
For i = aIndex To Max
k = k + 1: Des(k, 1) = TT + k - 1
For j = 2 To UBound(DS, 2)
Des(k, j) = DS(CInt(DS(i, 7)), j - 1)
Next j
Next i
TachDS = Des
End Function
Sub ChiaLop()
Const SOLOP = 7
Dim sh As Worksheet, DS(1 To 3) As Variant, TENLOP, LOAI, i%, j%
Dim Rng As Range, SoHS%, ViTri%, TT%, TTLoai%, aStep%
Dim Tach_DS
TENLOP = Array("LOP1", "LOP2", "LOP3", "LOP4", "LOP5", "LOP6", "LOP7")
LOAI = Array("Gi" & ChrW(7887) & "i", "Khá", "Trung bình")
Set Rng = Sheet1.Range("C10:G" & Sheet1.Range("G10000").End(xlUp).Row)
SoHS = Rng.Rows.Count \ SOLOP
For i = 1 To 3
DS(i) = LayDS(Rng, , CStr(LOAI(i - 1)))
Next i
For i = LBound(TENLOP) To UBound(TENLOP)
If WorksheetExists(CStr(TENLOP(i))) Then
Application.DisplayAlerts = False
ThisWorkbook.Sheets(CStr(TENLOP(i))).Delete
Application.DisplayAlerts = True
End If
ThisWorkbook.Sheets("Sheet1").Copy after:=Sheets(Sheets.Count)
Set sh = ThisWorkbook.Sheets(Sheets.Count)
sh.Name = CStr(TENLOP(i))
sh.Range("A10:G10").Resize(Rng.Rows.Count).ClearContents
TT = 1
For j = 1 To 3
ViTri = UBound(DS(j), 1) \ SOLOP
TTLoai = ViTri: aStep = ViTri
If UBound(DS(j), 1) Mod SOLOP > i Then
ViTri = i * (ViTri + 1) + 1
TTLoai = TTLoai + 1
Else
ViTri = i * (ViTri + 1)
End If
Tach_DS = TachDS(DS(j), TTLoai, ViTri, TT)
If IsArray(Tach_DS) Then
sh.Range("A9:G10").Offset(TT).Resize(UBound(Tach_DS, 1)).Value = Tach_DS
TT = TT + UBound(Tach_DS, 1)
End If
Next j
Next i
End SubBạn siêu thật. Ngần ấy giải thuật và code mà hoàn thành dưới 10 phút.
Giải thuật làm tay (dùng để viết code cũng được)Bạn siêu thật. Ngần ấy giải thuật và code mà hoàn thành dưới 10 phút.
Giải thuật của tôi thì vầy:
"Rải" random có vẻ đơn giản như rải thóc ra sân cho gà ăn nhỉ?
1. Code ở đây có cả đống.
Tương đối thôi. Chứ khó nhìn trước mọi khía cạnh.
Họ cũng phải có 1 thuật toán.
1. Thường thường chứ không hẳn luôn luôn.
Chính bản thân thớt, người không muốn làm việc thủ công thì là thầy hay là thợ?
Đúng rồi bạn, vẫn là 6 lớp
Cảm ơn bác nhiều nhé, Code chạy quá OK.
Bài 1 "thành 7 lớp mới", giờ biến thànhh 6 rồi.
Thầy hay thợ đoán vậy?
Tôi là thợ, nên không dám nhận định người khác là thầy hay thợ.
Sai rồi. Ở đâu có mặc định rằng thợ thì không thể nhận định người khác vậy?
Sao bạn khẳng định chuyển 6 lớp 6 lên thành 7 lớp bảy lại là sai? Bạn có trong ngành này không vậy?
Em không làm ngành này ạ.
Không hẳn luôn cố định bạn. Tuỳ trường hợp do quy định mà nhà trường đó vẫn giữ nguyên số lớp (7->7), hoặc phải ép lớp (7->6) hoặc giãn lớp (6->7).
6 lớp 7 mới + 7A1 chứ? Lại nhầm lẫn rồi.
Vâng, cảm ơn vì bác đã hiểu.
Ở Việt Nam có thể đối phó kiểu đó chứ ở nơi khác thì khó. Vợ tôi cũng là giáo viên. Có 2 "cấp" kiểm tra: ban giám hiệu kiểm tra giáo viên bất kỳ, và thanh tra cấp trên kiểm tra lớp bất kỳ với giáo viên bất kỳ. Ban giám hiệu nhà trường đầu năm làm một danh sách cần kiểm tra những giáo viên nào trong năm học. Các giáo viên được gọi tên phải làm việc với ban giám hiệu và thống nhất ngày giờ dự lớp. Cấp nữa là đại diện của đơn vị giám sát (không là bộ phận của UBND mà là bộ phận của hệ thống giáo dục). Thanh tra có quyền chọn lớp bất kỳ. Vậy là không thể có gà được. Thanh tra mà vào đúng lớp có học sinh hư thì lộ ra hết bởi nhiều học sinh này cố tình "chứng tỏ mình" bằng cách "hư" khi thanh tra dự lớp: nói chuyện, nghịch di động, ném giấy, thậm chí đánh bạn. Những học sinh này tất nhiên sẽ nhận được điểm đánh giá trong "học bạ" kém, nhưng chả đứa nào ngại. Kiểu như phạm nhân ấy: càng nhiều "chiến tích" thì càng được các bạn tù nể phục và tôn là đại ca.
Khi một giáo viên tiếng Anh tuyên bố rằng "Ok" có thể chấp nhận là tiếng "Dạ" thì cả xã hội hư đốn chứ nói gì ngành giáo dục.
Trong tiếng Anh, "Ok" dùng trong các câu sau:Khi một giáo viên tiếng Anh tuyên bố rằng "Ok" có thể chấp nhận là tiếng "Dạ"
Lâu lâu chọc tức lão Xê-Tê chơi giải sầu
Chắc là do "Chọi" hôn?
