À do mình nhằm chổ VĐV Thoa nằm ở các sơ đồ, còn số 1 & 5 mình ví dụ thôi. Bạn thông cảm nhé. Câu hỏi của mình ở bài 3, cảm ơnVậy sao trong file chỉ có số 1 & 5 mà bên sơ đồ chị Thoa nằm chình ình tại vị trí số 1 ở cả 23 đội ???Híc
Thân
Bạn thử cái này xem, thực tình mình chưa nắm được cách bạn làm. Hình như mỗi lần nhập số vào cột F ở sheet "DKDS" thì xếp, sau đó tiếp tục.
Thì mình đang nghi ngờ chỗ này, thí dụ khi chọn 8 VĐV thì bên shett "SODO" sẽ ghép vào bảng 8 đội, sau chọn 13 thì bên sheet "SODO" sẽ xóa trắng và ghép danh sách này vào bảng 13 đội ????
Vâng đúng vậy bạn à, có mấy VĐV thì cho vào sơ đồ đó, có 10 vđv thì ghép vào sơ đồ 10, có 15 vđv thì ghép vào sơ đồ 15...
Cảm ơn bạn nhiều lắm, đúng rồi bạn à. Chúc bạn vui vẻ và hạnh phúc.
Híc. Phải đưa vào sự kiện Worksheet_Activate() chứ
Bạn ơi như mình cập nhật dữ liệu là ở cột B7 trong DSDK bây giờ mình cập nhật DSDK ở cột C7 thì sửa code làm sao vậy bạn, sao mình đổi B7 thành C7 không được, cảm ơn bạn
Sửa thành 'zì" nè, mấy chỗ màu đỏ í, hông thôi chép em này đè lên em cũ
Public Sub Xep()
Dim DanhSach, Vung, I, SoNguoi, NhayCaTung, Wf, K
Set Wf = Application.WorksheetFunction
Set Vung = Sheets("SODO").Range(Sheets("SODO").[B6], Sheets("SODO").[B10000].End(xlUp))
Set DanhSach = Sheets("DKDS").Range(Sheets("DKDS").[[COLOR=#ff0000][B]C7[/B][/COLOR]], Sheets("DKDS").[[COLOR=#ff0000][B]C7][/B][/COLOR].End(xlDown)).Offset(, [COLOR=#ff0000][B]3[/B][/COLOR])
With Vung.Offset(1, -1)
.AutoFilter Field:=1, Criteria1:="<>"
.SpecialCells(12).Offset(, 1).ClearContents
.AutoFilter
End With
SoNguoi = Wf.Count(DanhSach)
If SoNguoi > 3 Then
NhayCaTung = Wf.Match(SoNguoi & " " & ChrW(272) & ChrW(7896) & "I", Vung, 0)
End If
For I = 1 To SoNguoi * 2
If Vung(NhayCaTung + I).Offset(, -1) > 0 Then
Vung(NhayCaTung + I) = DanhSach(Wf.Match(Vung(NhayCaTung + I).Offset(, -1), DanhSach, 0)).Offset(, [COLOR=#ff0000][B]-3[/B][/COLOR]): K = K + 1
End If
If K = SoNguoi Then Exit For
Next I
End Sub1) Bên sheet "DSDK" lên đến bi nhiêu người cũng được, miễn dữ liệu liên tục
Public Sub Xep()
Dim DanhSach, Vung, I, SoNguoi, NhayCaTung, Wf, K
Set Wf = Application.WorksheetFunction
[I][COLOR=#ff0000][B]Set Vung = Sheets("SODO").Range(Sheets("SODO").[A6], Sheets("SODO").[A10000].End(xlUp)).Offset(, 1)[/B][/COLOR][/I]
Set DanhSach = Sheets("DKDS").Range(Sheets("DKDS").[C7], Sheets("DKDS").[C7].End(xlDown)).Offset(, 3)
........
For I = 1 To SoNguoi * 2For I = 1 To SoNguoi * 6Đúng rồi anh bạn ơi. Do sơ đồ mình chưa vẽ ra hết. Sơ đồ của mình có tới 50 vđv (đội) mà code chỉ cập nhật dữ liệu tới 22 vđv, mong bạn mở rộng phát triển thêm vùng cập nhật danh sách vđv thêm giúp mình với nhé. Cảm ơn bạn rất rất nhiều.
Hãy vẽ sơ đồ đủ 50 đội đi
Viết không khó, nhưng phải nhìn vào cách bố trí dữ liệu của bạn mới viết chính xác được
Còn yêu cầu gì thì ghi rõ, làm một lần luôn, khỏi lắt nhắt sửa hoài
Thân
Chia 2 bảng thì chơi em "đít- to" là ok rồi, vùng dữ liệu ở sheet "SODO" chỉ khai báo 1 vùng thôi cho đỡ rối, vòng lặp cứ cho chạy "mát-xi-cà- mum", đếch sợ, vì khi biến K đếm đủ số người nó sẽ thoát ( 2 bảng luôn có chung hàng cuối )Hỏi xong bác Cò ra tay lúc 1 thể, em đề nghị xử lý bằng Dic luôn đi Bác Cò
Xem file nhen lúc test quen đổi biến lại
Trong sheet SODO bạn nhớ làm dư 1 sơ đồ ví dụ 24 đội thì làm thêm 1 sơ đồ 25 đội lúc đó bỏ trống cũng được
Cái này Cò hổng hiểu chú Hùng đẹp trai bắt làm dư ra 1 bảng để làm gì. Híc
Tại muốn xác định vòng lặp đủ vùng của một đổi nên trong đó có nhaycatung1 với vung1 thêm đó Bác Cò he...he... thật ngại quá cướp code của Bác Cò nên làm đại
. Tác giả đưa dữ liệu đầy đủ lên đi rồi tính tiếp hen. Sắp tới Noel chúc Bác Cò 1 mùa Noel vui vẻ bên gia đình. Ngoài lề 1 chúc
Đại khái là thế này
Khi bốc thăm các số không theo liên tục được, các số được trộn ngẩu nhiên bác à.
Hihi, mình viết chưa được rõ, ý "liên tục" ở đây là các lá số thăm, thí dụ 10 đội thì các số thăm phải từ 1==> 10, 45 đội thì từ 1==> 45......
Chuẩn quá rồi bác ơi. Rất rất cảm ơn bác nhiều. Thật là ái ngại quá, không biết trả ơn bác như thế nào nữa. Một lần nữa cảm ơn bác nhiều lắm. Chúc bác vui vẻ và hạnh phúc.
Trân trọng cảm ơn chú cò nhiều.
Bác nào giải thích dùm C7 thì tôi thấy là 3 và -3, vậy muốn ở cột J7 thì là số mấy.. sao mình thử hoài không được, cảm ơn các bác.
