Nhờ anh HieuCD và các anh em diễn đàn code giúp em! (1 người xem)

phamxuanyen · 12/11/20

em có danh sách khoang 500 người nhờ các anh em diễn đàn dùng code chia thành các nhóm do mình định; mỗi nhóm với số lượng do mình định.
ví dụ: nhóm 1 có 20 người ở các đơn vị khác nhau; nhóm 2 có 30 người ......................

Pro speed · 12/11/20

phamxuanyen đã viết:
em có danh sách khoang 500 người nhờ các anh em diễn đàn dùng code chia thành các nhóm do mình định; mỗi nhóm với số lượng do mình định.
ví dụ: nhóm 1 có 20 người ở các đơn vị khác nhau; nhóm 2 có 30 người ......................

Đã code xong. CHờ mọi người không ai trả lời thì tôi sẽ post sau
Nhá hàng tí

befaint · 12/11/20

......................

Viết tiếp khúc chấm chấm nha.

Danh sách có 500 người, chia thành 499 nhóm, 498 nhóm đầu có 1 người.

Mình chỉnh code tiếp nha.

SA_DQ · 12/11/20

Tạm file này trong khi chờ đợi file khác xịn hơn

Danh sách nhân sự

7

10

TT

Mã NS

HỌ VÀ TÊN

ĐƠN VỊ

9

24

BMT00

Bùi Giảng Minh Trí

Trường Đại học Y Dược Cần Thơ

Nhóm 1

Nhóm 2

Nhóm 3

Nhóm 4

Nhóm 5

Nhóm 6

Nhóm 7

Sỉ số

8

48

BQT00

Bùi Quang Trung

Trường THPT Sông Đốc

16

15

16

15

16

15

16

109

7

BVH00

Bùi Văn Hiếu

Trường THPT Phan Ngọc Hiển

BMT00

HCT00

LMT00

NLQ00

NTL00

PXY00

TNY00

6

40

BVK00

Bùi Văn Khuyến

Trường THPT Tắc Vân

BQT00

HNP00

LQT00

NLR00

NTL13

TBH00

TPD00

5

2

CMK00

Châu Minh Khoa

Trường Đại học Y Dược Cần Thơ

BVH00

HNT00

LTT00

NMT00

NTL06

TBT00

TTH00

4

57

CMT00

Cao Minh Thương

Trường THPT Phú Tân

BVK00

HTH00

LVQ00

NMT02

NTQ00

TCT00

TTH00

3

34

CVN00

Châu Vĩnh Nghiêm

Trường THPT Cà Mau

CMK00

HTN00

MKT00

NMT03

NTS00

TDL00

TTH10

2

70

DKD00

Diệp Kiều Diễm

Trường Đại học Y Dược Cần Thơ

CMT00

HVN00

NAN00

NNF00

NVB00

TFL00

TTN00

1

5

DQQ00

Dương Quốc Quang

Trường THPT Quách Văn Phẩm

CVN00

HVS00

NDT00

NNN00

NVH00

THB00

TTS00

0

85

DTT00

Dương Thanh Thuận

Trường THCS&THPT Lý Văn Lâm

DKD00

HVT00

NHA00

NPA00

NVH08

THD00

TTV00

0

45

DVK00

Dương Văn Kha

Trường THPT Trần Văn Thời

DQQ00

LCD00

NHN00

NQV00

NVH09

THL00

TVC00

0

109

FAT00

Đoàn Anh Tuấn

Trung tâm Y tế Phú Tân

DTT00

LHK00

NHP00

NTD00

NXM00

THP00

TVF00

78

FCL00

Đỗ Chúc Linh

Trường THPT chuyên Phan Ngọc Hiển

DVK00

LHT00

NHT00

NTD12

PCC00

THS00

TVG00

18

FHN00

Đoàn Hữu Nhân

Trường Đại học Y Dược Cần Thơ

FAT00

LHT01

NHT00

NTD05

PDL00

TLA00

TVL00

89

FMV00

Đặng Minh Vương

Trường THPT Phú Hưng

FCL00

LHV00

NHT01

NTG00

PMH00

TMT00

TVU00

97

HBL00

Huỳnh Thị Bé Lành

Trường THPT Cà Mau

FHN00

LMA00

NKP00

NTK00

PTT00

TNQ00

TVV00

103

HCT00

Hồ Chí Tâm

Trung tâm Y tế Phú Tân

FMV00

LMH00

NLC00

NTK07

PTV00

TNT00

VBY00

26

HNP00

Hà Nhật Phương

Trường Đại học Y Dược Cần Thơ

HBL00

NLH00

PVT00

VTH00

27

HNT00

Huỳnh Thị Ngọc Thanh

Trường Đại học Y Dược Cần Thơ

PacificPR · 12/11/20

Pro speed đã viết:
Đã code xong. CHờ mọi người không ai trả lời thì tôi sẽ post sau
Nhá hàng tí
View attachment 249191

Số 16, 17 cho vào nhóm nào rồi Bạn

thuyyeu99 · 12/11/20

hihih anh @HieuCD bị gọi lên trả bài sao không thấy gì hết vậy hay là chưa thuộc bài vậy anh :{{

.

befaint · 12/11/20

thuyyeu99 đã viết:
anh @HieuCD bị gọi lên trả bài sao không thấy gì hết vậy

Do lệch múi giờ đó. Hí hí.

Pro speed · 12/11/20

PacificPR đã viết:
Số 16, 17 cho vào nhóm nào rồi Bạn

nằm khuất bên phải

VetMini · 12/11/20

befaint đã viết:
Viết tiếp khúc chấm chấm nha.

Danh sách có 500 người, chia thành 499 nhóm, 498 nhóm đầu có 1 người.

Mình chỉnh code tiếp nha.

Bộ hỏng thấy người quen hả. Coi chừng bị chửi nhe.

HieuCD · 13/11/20

phamxuanyen đã viết:
em có danh sách khoang 500 người nhờ các anh em diễn đàn dùng code chia thành các nhóm do mình định; mỗi nhóm với số lượng do mình định.
ví dụ: nhóm 1 có 20 người ở các đơn vị khác nhau; nhóm 2 có 30 người ......................

Chưa rỏ bạn muốn chia như thế nào, những dạng nầy nên đưa dữ liệu khá đầy đủ với số lượng thật và kết quả nhập tay mới có thể viết code chuẩn được

Bài đã được tự động gộp: 13/11/20

VetMini đã viết:
Bộ hỏng thấy người quen hả. Coi chừng bị chửi nhe.

Bạn nầy ở vùng sông nước cực nam đất Việt

phamxuanyen · 18/11/20

HieuCD đã viết:
Chưa rỏ bạn muốn chia như thế nào, những dạng nầy nên đưa dữ liệu khá đầy đủ với số lượng thật và kết quả nhập tay mới có thể viết code chuẩn được

Bài đã được tự động gộp: 13/11/20

Bạn nầy ở vùng sông nước cực nam đất Việt

em có danh sách 851 các anh giúp em chia thành các nhóm do mình định; mỗi nhóm với số lượng do mình định.
ví dụ: chia thành 17 hay 16 nhóm moi nhóm có số lượng người do mình định như: nhóm 1 có 20 người ở các đơn vị khác nhau; nhóm 2 có 30 người, nhóm 3 có 14 người, nhóm 5 có 50 người, nhóm 6 có 100 người, nhóm 7 có 200 người, nhóm 8 có 78 người, nhóm 9 có 98 người ............................. (số lượng người cho từng nhóm do mình tự định được không anh)

VetMini · 18/11/20

Chữ ký quảng cáo quép sai có phạm luật diễn đàn không nhỉ?

befaint · 18/11/20

VetMini đã viết:
Chữ ký quảng cáo quép sai có phạm luật diễn đàn không nhỉ?

Sao quay quay thì không được anh ạ.

Nhưng kệ thôi, giờ mà 'tố cáo, khiếu nại' là bị coi là 'sân si, lắm mồm'. @@

phamxuanyen · 19/11/20

befaint đã viết:
Sao quay quay thì không được anh ạ.

Nhưng kệ thôi, giờ mà 'tố cáo, khiếu nại' là bị coi là 'sân si, lắm mồm'. @@

View attachment 249572

Xin loi các anh! để em xóa

HieuCD · 19/11/20

phamxuanyen đã viết:
em có danh sách 851 các anh giúp em chia thành các nhóm do mình định; mỗi nhóm với số lượng do mình định.
ví dụ: chia thành 17 hay 16 nhóm moi nhóm có số lượng người do mình định như: nhóm 1 có 20 người ở các đơn vị khác nhau; nhóm 2 có 30 người, nhóm 3 có 14 người, nhóm 5 có 50 người, nhóm 6 có 100 người, nhóm 7 có 200 người, nhóm 8 có 78 người, nhóm 9 có 98 người ............................. (số lượng người cho từng nhóm do mình tự định được không anh)

Mục đích chia nhóm là gì? Nếu cần thiết mình sẽ viết code

phamxuanyen · 19/11/20

HieuCD đã viết:
Mục đích chia nhóm là gì? Nếu cần thiết mình sẽ viết code

Mục đích của em để khi phân công các giám thị của từng trường về các điểm thi không bị trùng nhau đó anh. Ví dụ: Có 851 người chia không đều cho 17 điểm thi. Có điểm thi thì 50, có điểm thi thì 80, có điểm 100 .... nó tuỳ thuộc số phòng thi tại điểm thi đó) cảm ơn anh trước nha

phamxuanyen · 24/11/20

phamxuanyen đã viết:
Mục đích của em để khi phân công các giám thị của từng trường về các điểm thi không bị trùng nhau đó anh. Ví dụ: Có 851 người chia không đều cho 17 điểm thi. Có điểm thi thì 50, có điểm thi thì 80, có điểm 100 .... nó tuỳ thuộc số phòng thi tại điểm thi đó) cảm ơn anh trước nha

khi nào các anh có thời gian rảnh giúp em nha!

Lê Duy Thương · 24/11/20

phamxuanyen đã viết:
khi nào các anh có thời gian rảnh giúp em nha!

dùng công thức được không ?

SA_DQ · 24/11/20

phamxuanyen đã viết:
Mục đích của em để khi phân công các giám thị của từng trường về các điểm thi không bị trùng nhau đó anh. Ví dụ: Có 851 người chia không đều cho 17 điểm thi. Có điểm thi thì 50, có điểm thi thì 80, có điểm 100 .... nó tuỳ thuộc số phòng thi tại điểm thi đó) cảm ơn anh trước nha

Vậy là số diểm trường đã biết & số HS ở mỗi điểm trường cũng đã biết.

Lên danh sách đầy đủ & gạt ngang theo thứ tự cũng OK mà!

HieuCD · 25/11/20

phamxuanyen đã viết:
Mục đích của em để khi phân công các giám thị của từng trường về các điểm thi không bị trùng nhau đó anh. Ví dụ: Có 851 người chia không đều cho 17 điểm thi. Có điểm thi thì 50, có điểm thi thì 80, có điểm 100 .... nó tuỳ thuộc số phòng thi tại điểm thi đó) cảm ơn anh trước nha

Nhập dữ liệu vào Sheet1 và Sheet2
Code phân công theo tỷ lệ số Giám thị của từng đơn vị và chọn Giám thị ngẫu nhiên, mỗi lần chạy Sub Main sẽ có kết quả khác nhau

Mã:

  Dim eRow&, sRow&, i&, iR&, j&, jC&
  Dim soGV&, soNhom&, soDV&, DV$, tmp
 
Sub Main()
  Dim aNhom(), aGV(), aPhanBo(), Res()
 
  Sheets("KetQua").UsedRange.Offset(3).ClearContents
  With Sheets("Sheet2")
    eRow = .Range("B" & Rows.Count).End(xlUp).Row
    If eRow < 5 Then MsgBox ("Khong chia nhom"): Exit Sub
    aNhom = .Range("B5:C" & eRow).Value 'Mang Nhom
    soGV = .Range("C4").Value 'So Giao Vien
    soNhom = UBound(aNhom) 'So Nhom
  End With
  With Sheets("Sheet1")
    eRow = .Range("B" & Rows.Count).End(xlUp).Row
    If eRow < 4 Then MsgBox ("Khong co Giao Vien"): Exit Sub
    .Range("A4:E4").Resize(soGV).Copy Sheets("KetQua").Range("A4")
  End With
  With Sheets("KetQua")
    .Range("A3:F" & eRow).Sort .Range("E3"), 1, Header:=xlYes
    aGV = .Range("E4:E" & eRow).Value 'Mang Giao Vien
    If UBound(aGV) <> soGV Then MsgBox ("So Luong GV Chia Nhom Khong Dung"): Exit Sub
    
    Call TaoMang_aPhanBo(aNhom, aGV, aPhanBo) 'Tao Bang Phan Bo Giao Vien theo ty le
    ReDim Res(1 To soGV, 1 To 1)
    Call PhanBoGiaoVien(aNhom, aPhanBo, Res) 'Phan bo Giao Vien
    .Range("F4").Resize(soGV) = Res 'Xep thu tu theo Don Vi
    
    .Range("B4:F4").Resize(soGV).Copy .Range("I4") 'Xep thu tu theo Nhom
    .Range("H3:M" & eRow).Sort .Range("M3"), 1, Header:=xlYes
    .Range("A4").Resize(soGV).Copy .Range("H4")
  End With
End Sub

Private Sub PhanBoGiaoVien(aNhom, aPhanBo, Res)
  Dim Arr() As Long, k As Long
  For j = 1 To soDV 'Phan bo Giao Vien tung Don Vi
    ReDim Arr(1 To aPhanBo(0, j))
    Call TaoMangNgauNhien(Arr, aPhanBo(0, j))
    jC = 0
    For i = 1 To soNhom
      For iR = 1 To aPhanBo(i, j)
        jC = jC + 1
        Res(k + Arr(jC), 1) = aNhom(i, 1)
      Next iR
    Next i
    k = k + jC
  Next j
End Sub

Private Sub TaoMangNgauNhien(Arr, ByVal N&)
  Randomize
  For i = 1 To N
    iR = Int(N * Rnd() + 1)
    If Arr(iR) = 0 Then tmp = iR Else tmp = Arr(iR)
    If Arr(N) = 0 Then Arr(iR) = N Else Arr(iR) = Arr(N)
    Arr(N) = tmp
    N = N - 1
  Next i
End Sub

Private Sub TaoMang_aPhanBo(aNhom, aGV, aPhanBo)
  soDV = 0
  For i = 1 To soGV 'Tao Mang Phan Bo
    If DV <> aGV(i, 1) Then
      DV = aGV(i, 1)
      soDV = soDV + 1 'So Don vi
      ReDim Preserve aPhanBo(-2 To soNhom, 0 To soDV)
      aPhanBo(-2, soDV) = DV: aPhanBo(-1, soDV) = 1
    Else
      aPhanBo(-1, soDV) = aPhanBo(-1, soDV) + 1
    End If
  Next i
  For j = 1 To soDV 'Phan bo Giao Vien theo Ty Le
    tmp = aPhanBo(-1, j) / soGV 'Ty le Phan Bo
    For i = 1 To soNhom
      aPhanBo(i, j) = Round(aNhom(i, 2) * tmp, 0)
      aPhanBo(0, j) = aPhanBo(0, j) + aPhanBo(i, j)
      aPhanBo(i, 0) = aPhanBo(i, 0) + aPhanBo(i, j)
    Next i
  Next j

  For j = 1 To soDV 'Dieu chinh tong so theo Don Vi (Cot)
    If tmp < aPhanBo(0, j) Then tmp = aPhanBo(0, j): jC = j 'Don Vi co so Giam Thi Nhieu nhat
    If aPhanBo(0, j) > aPhanBo(-1, j) Then
      i = 0
      Do While aPhanBo(0, j) > aPhanBo(-1, j)
        If i = soNhom Then i = 1 Else i = i + 1
        If aPhanBo(i, 0) > aNhom(i, 2) Then
          aPhanBo(i, j) = aPhanBo(i, j) - 1
          aPhanBo(0, j) = aPhanBo(0, j) - 1
          aPhanBo(i, 0) = aPhanBo(i, 0) - 1
        End If
      Loop
    ElseIf aPhanBo(0, j) < aPhanBo(-1, j) Then
      i = 0
      Do While aPhanBo(0, j) < aPhanBo(-1, j)
        If i = soNhom Then i = 1 Else i = i + 1
        If aPhanBo(i, 0) < aNhom(i, 2) Then
          aPhanBo(i, j) = aPhanBo(i, j) + 1
          aPhanBo(0, j) = aPhanBo(0, j) + 1
          aPhanBo(i, 0) = aPhanBo(i, 0) + 1
        End If
      Loop
    End If
  Next j

  For i = 1 To soNhom 'Dieu chinh tong so theo Nhom (Dong)
    If aPhanBo(i, 0) > aNhom(i, 2) Then
      Do While aPhanBo(i, 0) > aNhom(i, 2)
        If iR = soNhom Then iR = 1 Else iR = iR + 1
        If aPhanBo(iR, 0) < aNhom(iR, 2) Then
          aPhanBo(i, jC) = aPhanBo(i, jC) - 1
          aPhanBo(i, 0) = aPhanBo(i, 0) - 1
          aPhanBo(iR, jC) = aPhanBo(iR, jC) + 1
          aPhanBo(iR, 0) = aPhanBo(iR, 0) + 1
        End If
      Loop
    ElseIf aPhanBo(i, 0) > aNhom(i, 2) Then
      Do While aPhanBo(i, 0) < aNhom(i, 2)
        If iR = soNhom Then iR = 1 Else iR = iR + 1
        If aPhanBo(iR, 0) < aNhom(iR, 2) Then
          aPhanBo(i, jC) = aPhanBo(i, jC) + 1
          aPhanBo(i, 0) = aPhanBo(i, 0) + 1
          aPhanBo(iR, jC) = aPhanBo(iR, jC) - 1
          aPhanBo(iR, 0) = aPhanBo(iR, 0) - 1
        End If
      Loop
    End If
  Next i
End Sub

Sub XoaKetQua()
  Sheets("KetQua").UsedRange.Offset(3).ClearContents
End Sub

phamxuanyen · 25/11/20

HieuCD đã viết:

Nhập dữ liệu vào Sheet1 và Sheet2
Code phân công theo tỷ lệ số Giám thị của từng đơn vị và chọn Giám thị ngẫu nhiên, mỗi lần chạy Sub Main sẽ có kết quả khác nhau

Mã:

  Dim eRow&, sRow&, i&, iR&, j&, jC&
  Dim soGV&, soNhom&, soDV&, DV$, tmp

Sub Main()
  Dim aNhom(), aGV(), aPhanBo(), Res()

  Sheets("KetQua").UsedRange.Offset(3).ClearContents
  With Sheets("Sheet2")
    eRow = .Range("B" & Rows.Count).End(xlUp).Row
    If eRow < 5 Then MsgBox ("Khong chia nhom"): Exit Sub
    aNhom = .Range("B5:C" & eRow).Value 'Mang Nhom
    soGV = .Range("C4").Value 'So Giao Vien
    soNhom = UBound(aNhom) 'So Nhom
  End With
  With Sheets("Sheet1")
    eRow = .Range("B" & Rows.Count).End(xlUp).Row
    If eRow < 4 Then MsgBox ("Khong co Giao Vien"): Exit Sub
    .Range("A4:E4").Resize(soGV).Copy Sheets("KetQua").Range("A4")
  End With
  With Sheets("KetQua")
    .Range("A3:F" & eRow).Sort .Range("E3"), 1, Header:=xlYes
    aGV = .Range("E4:E" & eRow).Value 'Mang Giao Vien
    If UBound(aGV) <> soGV Then MsgBox ("So Luong GV Chia Nhom Khong Dung"): Exit Sub
  
    Call TaoMang_aPhanBo(aNhom, aGV, aPhanBo) 'Tao Bang Phan Bo Giao Vien theo ty le
    ReDim Res(1 To soGV, 1 To 1)
    Call PhanBoGiaoVien(aNhom, aPhanBo, Res) 'Phan bo Giao Vien
    .Range("F4").Resize(soGV) = Res 'Xep thu tu theo Don Vi
  
    .Range("B4:F4").Resize(soGV).Copy .Range("I4") 'Xep thu tu theo Nhom
    .Range("H3:M" & eRow).Sort .Range("M3"), 1, Header:=xlYes
    .Range("A4").Resize(soGV).Copy .Range("H4")
  End With
End Sub

Private Sub PhanBoGiaoVien(aNhom, aPhanBo, Res)
  Dim Arr() As Long, k As Long
  For j = 1 To soDV 'Phan bo Giao Vien tung Don Vi
    ReDim Arr(1 To aPhanBo(0, j))
    Call TaoMangNgauNhien(Arr, aPhanBo(0, j))
    jC = 0
    For i = 1 To soNhom
      For iR = 1 To aPhanBo(i, j)
        jC = jC + 1
        Res(k + Arr(jC), 1) = aNhom(i, 1)
      Next iR
    Next i
    k = k + jC
  Next j
End Sub

Private Sub TaoMangNgauNhien(Arr, ByVal N&)
  Randomize
  For i = 1 To N
    iR = Int(N * Rnd() + 1)
    If Arr(iR) = 0 Then tmp = iR Else tmp = Arr(iR)
    If Arr(N) = 0 Then Arr(iR) = N Else Arr(iR) = Arr(N)
    Arr(N) = tmp
    N = N - 1
  Next i
End Sub

Private Sub TaoMang_aPhanBo(aNhom, aGV, aPhanBo)
  soDV = 0
  For i = 1 To soGV 'Tao Mang Phan Bo
    If DV <> aGV(i, 1) Then
      DV = aGV(i, 1)
      soDV = soDV + 1 'So Don vi
      ReDim Preserve aPhanBo(-2 To soNhom, 0 To soDV)
      aPhanBo(-2, soDV) = DV: aPhanBo(-1, soDV) = 1
    Else
      aPhanBo(-1, soDV) = aPhanBo(-1, soDV) + 1
    End If
  Next i
  For j = 1 To soDV 'Phan bo Giao Vien theo Ty Le
    tmp = aPhanBo(-1, j) / soGV 'Ty le Phan Bo
    For i = 1 To soNhom
      aPhanBo(i, j) = Round(aNhom(i, 2) * tmp, 0)
      aPhanBo(0, j) = aPhanBo(0, j) + aPhanBo(i, j)
      aPhanBo(i, 0) = aPhanBo(i, 0) + aPhanBo(i, j)
    Next i
  Next j

  For j = 1 To soDV 'Dieu chinh tong so theo Don Vi (Cot)
    If tmp < aPhanBo(0, j) Then tmp = aPhanBo(0, j): jC = j 'Don Vi co so Giam Thi Nhieu nhat
    If aPhanBo(0, j) > aPhanBo(-1, j) Then
      i = 0
      Do While aPhanBo(0, j) > aPhanBo(-1, j)
        If i = soNhom Then i = 1 Else i = i + 1
        If aPhanBo(i, 0) > aNhom(i, 2) Then
          aPhanBo(i, j) = aPhanBo(i, j) - 1
          aPhanBo(0, j) = aPhanBo(0, j) - 1
          aPhanBo(i, 0) = aPhanBo(i, 0) - 1
        End If
      Loop
    ElseIf aPhanBo(0, j) < aPhanBo(-1, j) Then
      i = 0
      Do While aPhanBo(0, j) < aPhanBo(-1, j)
        If i = soNhom Then i = 1 Else i = i + 1
        If aPhanBo(i, 0) < aNhom(i, 2) Then
          aPhanBo(i, j) = aPhanBo(i, j) + 1
          aPhanBo(0, j) = aPhanBo(0, j) + 1
          aPhanBo(i, 0) = aPhanBo(i, 0) + 1
        End If
      Loop
    End If
  Next j

  For i = 1 To soNhom 'Dieu chinh tong so theo Nhom (Dong)
    If aPhanBo(i, 0) > aNhom(i, 2) Then
      Do While aPhanBo(i, 0) > aNhom(i, 2)
        If iR = soNhom Then iR = 1 Else iR = iR + 1
        If aPhanBo(iR, 0) < aNhom(iR, 2) Then
          aPhanBo(i, jC) = aPhanBo(i, jC) - 1
          aPhanBo(i, 0) = aPhanBo(i, 0) - 1
          aPhanBo(iR, jC) = aPhanBo(iR, jC) + 1
          aPhanBo(iR, 0) = aPhanBo(iR, 0) + 1
        End If
      Loop
    ElseIf aPhanBo(i, 0) > aNhom(i, 2) Then
      Do While aPhanBo(i, 0) < aNhom(i, 2)
        If iR = soNhom Then iR = 1 Else iR = iR + 1
        If aPhanBo(iR, 0) < aNhom(iR, 2) Then
          aPhanBo(i, jC) = aPhanBo(i, jC) + 1
          aPhanBo(i, 0) = aPhanBo(i, 0) + 1
          aPhanBo(iR, jC) = aPhanBo(iR, jC) - 1
          aPhanBo(iR, 0) = aPhanBo(iR, 0) - 1
        End If
      Loop
    End If
  Next i
End Sub

Sub XoaKetQua()
  Sheets("KetQua").UsedRange.Offset(3).ClearContents
End Sub

Rất ok anh! em cảm ơn anh rất nhiều!

phamxuanyen · 27/11/20

phamxuanyen đã viết:
Rất ok anh! em cảm ơn anh rất nhiều!

anh có thể giúp em code từ danh sách chung khi chay chương trình có ra các sheet như file đính kèm được không anh. Điều kiện trong sheet thống kê là những điểm thi đánh dấu x thì giáo viên ở trường đó không được coi thi tại điểm thi đó. ví dụ: Số lượng cán bộ coi thi phải theo ma trận ở Bảng thống kê (lưu ý cán bộ, giáo viên ko được làm thi tại nơi có học sinh thi); có chức năng để add thêm Trưởng điểm, Phó Trưởng điểm, thư ký, giám sát, cán bộ coi thi dự phòng, công an, y tế, bảo vệ, phục vụ; thêm phần hỗ trợ thay đổi cán bộ làm thi khi có sự cố xin vắng hoặc hoán đổi địa điểm làm thi. rất mong các anh trên diễn đàn giúp em.

HieuCD · 27/11/20

phamxuanyen đã viết:
anh có thể giúp em code từ danh sách chung khi chay chương trình có ra các sheet như file đính kèm được không anh. Điều kiện trong sheet thống kê là những điểm thi đánh dấu x thì giáo viên ở trường đó không được coi thi tại điểm thi đó. ví dụ: Số lượng cán bộ coi thi phải theo ma trận ở Bảng thống kê (lưu ý cán bộ, giáo viên ko được làm thi tại nơi có học sinh thi); có chức năng để add thêm Trưởng điểm, Phó Trưởng điểm, thư ký, giám sát, cán bộ coi thi dự phòng, công an, y tế, bảo vệ, phục vụ; thêm phần hỗ trợ thay đổi cán bộ làm thi khi có sự cố xin vắng hoặc hoán đổi địa điểm làm thi. rất mong các anh trên diễn đàn giúp em.

1/ Bảng thống kê không khớp số lượng giáo viên các trường
2/ Yêu cầu của bạn khá cao, cần nhiều thời gian mới hoàn thành dự án. Bạn trình dự án cho giám đốc sở, đặt hàng viết phần mềm từ công ty tin học hoặc bộ phận IT của sở

tigertiger · 27/11/20

phamxuanyen đã viết:
anh có thể giúp em code từ danh sách chung khi chay chương trình có ra các sheet như file đính kèm được không anh. Điều kiện trong sheet thống kê là những điểm thi đánh dấu x thì giáo viên ở trường đó không được coi thi tại điểm thi đó. ví dụ: Số lượng cán bộ coi thi phải theo ma trận ở Bảng thống kê (lưu ý cán bộ, giáo viên ko được làm thi tại nơi có học sinh thi); có chức năng để add thêm Trưởng điểm, Phó Trưởng điểm, thư ký, giám sát, cán bộ coi thi dự phòng, công an, y tế, bảo vệ, phục vụ; thêm phần hỗ trợ thay đổi cán bộ làm thi khi có sự cố xin vắng hoặc hoán đổi địa điểm làm thi. rất mong các anh trên diễn đàn giúp em.

Bên giáo dục có phần mềm hết rồi, bạn (chủ topic) nên liên hệ với các sở ban ngành , bộ phận IT tin học hóa của các cơ quan đó, để được trợ giúp - Excel không giúp được những điều đòi hỏi đó đâu.
Và cá nhân làm mất công

phamxuanyen · 28/11/20

HieuCD đã viết:
1/ Bảng thống kê không khớp số lượng giáo viên các trường
2/ Yêu cầu của bạn khá cao, cần nhiều thời gian mới hoàn thành dự án. Bạn trình dự án cho giám đốc sở, đặt hàng viết phần mềm từ công ty tin học hoặc bộ phận IT của sở

cảm ơn anh rất nhiều.

Bài đã được tự động gộp: 28/11/20

HieuCD đã viết:
1/ Bảng thống kê không khớp số lượng giáo viên các trường
2/ Yêu cầu của bạn khá cao, cần nhiều thời gian mới hoàn thành dự án. Bạn trình dự án cho giám đốc sở, đặt hàng viết phần mềm từ công ty tin học hoặc bộ phận IT của sở

nếu có thời gian rảnh anh nghiên cứu giúp em cái nha anh!

Nhờ anh HieuCD và các anh em diễn đàn code giúp em! (1 người xem)

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

Thành viên mới

File đính kèm

Thành viên bị đình chỉ hoạt động

|||||||||||||

/(hông là gì!

File đính kèm

Thành viên mới

Trùm Nhiều Chuyện

|||||||||||||

Thành viên bị đình chỉ hoạt động

Đang đi tìm hòn đá

Chuyên gia GPE

Thành viên mới

File đính kèm

Đang đi tìm hòn đá

|||||||||||||

Thành viên mới

Chuyên gia GPE

Thành viên mới

Thành viên mới

Cạo lấy gì gội (Dịch quá không gội được)

/(hông là gì!

Chuyên gia GPE

File đính kèm

Thành viên mới

Thành viên mới

File đính kèm

Chuyên gia GPE

Coming back ...

Thành viên mới

Thời gian đếm ngược.