Tổng hợp kết quả sổ xố miền Bắc (5 người xem)

[quanthienhan]

Em chào các Anh chị trên DD..các A,C trên DD xem giúp em có công thức hay code nào để có thể giúp em ( Tổng hợp kết quả sổ xố miền Bắc Từ ngày 1-1-2007 đến ngày 10-1-2015 không ạ..) Như hiện tại em đang làm thủ công từng bước một ..
1…sheet layketqua…em coppy kết quả từ trang ketqua888.
2... sau đó coppy dữ liệu kết quả vào sheet DulieuKetQua...
* mong muốn của em ..nhờ các A,C trên này có thể giúp em , tổng hợp kết quả như sheet DLKQ từ năm 2007 đến 2015, không phải làm thủ công như em ah...
* mong muốn thứ 2 nữa là có thể thêm các sheet tổng hợp kết quả theo thứ riêng nữa ah..từ thứ 2 đến chủ nhật..
*** em xin chân thành cảm ơn các Anh Chị nhiều ***

 

[SA_DQ]

Trang 'LayKetQua' của bạn quá ít số liệu

 

[quanthienhan]

Cám ơn bạn HYen17..trang đó mình làm thủ công coppy từng ngày 1 bạn ah, nên số liệu ít, không biết có cách nào ,tự động upload kết quả như mình muốn không các A,C ơi..

 

[quanthienhan]

 

[HungQuoc49]

Cám ơn bạn HYen17..trang đó mình làm thủ công coppy từng ngày 1 bạn ah, nên số liệu ít, không biết có cách nào ,tự động upload kết quả như mình muốn không các A,C ơi..

Bạn vào đây mà xem, chắc tìm kiếm được ít nhiều
http://www.giaiphapexcel.com/forum/showthread.php?91473-Dùng-VBA-để-dự-đoán-LOTTO

 

[quanthienhan]

Bạn vào đây mà xem, chắc tìm kiếm được ít nhiều
http://www.giaiphapexcel.com/forum/showthread.php?91473-Dùng-VBA-để-dự-đoán-LOTTO

Xin cám ơn bạn nhiều..nhưng ý mình không phải như thế..mình chi cần dữ liệu kết quả thôi. chứ không dự đoán hay ....

 

[HungQuoc49]

Xin cám ơn bạn nhiều..nhưng ý mình không phải như thế..mình chi cần dữ liệu kết quả thôi. chứ không dự đoán hay ....

Kết quả từ 2005, có cả thứ ngày tháng đầy đủ

 

[quanthienhan]

Kết quả từ 2005, có cả thứ ngày tháng đầy đủ

Cám ơn bác nhiều .đúng là dữ liệu em cần rồi ...nhưng Bác cho hỏi, có cách nào chuyển dữ liệu file kết quả trên sang kiểu dữ liệu như file của em không ah, xin cảm ơn bác nhiều.

 

[HungQuoc49]

Cám ơn bác nhiều .đúng là dữ liệu em cần rồi ...nhưng Bác cho hỏi, có cách nào chuyển dữ liệu file kết quả trên sang kiểu dữ liệu như file của em không ah, xin cảm ơn bác nhiều.

Chuyển sang cũng không có gì quá phức tạp.
Bạn làm một vài kết quả mẫu rồi đính kèm gửi lên xem sao.

 

[quanthienhan]

Chuyển sang cũng không có gì quá phức tạp.
Bạn làm một vài kết quả mẫu rồi đính kèm gửi lên xem sao.

Vâng bác em làm thử mẫu mời Bác xem, em dựa trên dữ liệu kết quả bác gửi, có điều em sắp xếp lại chút thứ tự các giá trị theo điều em cần ah. mời bác xem giúp em

 

[SA_DQ]

[Thongbao]Cám ơn bác nhiều .đúng là dữ liệu em cần rồi ...
Nhưng có cách nào chuyển dữ liệu file kết quả trên sang kiểu dữ liệu như file của em không ah, xin cảm ơn bác nhiều.[/thOngbao]

Cảm ơn HungQuoc49 do file!

 

[quanthienhan]

[Thongbao]Cám ơn bác nhiều .đúng là dữ liệu em cần rồi ...
Nhưng có cách nào chuyển dữ liệu file kết quả trên sang kiểu dữ liệu như file của em không ah, xin cảm ơn bác nhiều.[/Thongbao]

Cảm ơn HungQuoc49 do file!

em Xin cảm ơn Bác nhiều nha...
làm phiền bác chút nữa nếu có thể được.. bác giúp em hiểu chút code bác viết cho em được không ..thanhk Bác nhiều

 

[ChanhTQ@]

Option Explicit
Sub ChuyenDuLieu()
 Dim Sh As Worksheet, Rng As Range, Cls As Range
 Dim J As Byte, Col As Byte, Rws As Integer, Tmr As Double
 
1 Set Sh = ThisWorkbook.Worksheets("SoLieu")
 Set Rng = Sh.Range(Sh.[f11], Sh.[f11].End(xlDown))
3 Columns("A:o").ClearContents:                          Tmr = Timer()
 For Each Cls In Rng
5    With [a65500].End(xlUp).Offset(2)
        .Value = Cls.Offset(, 2).Value                  'Nhát'
7        .Offset(, 13).Value = Cls.Value                 'Ngày'
        .Offset(, 14).Value = Cls.Offset(, -4).Value    'Thú'
9        For J = 1 To 26
            Rws = Choose(J, 1, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 6, 6, 7, 7, 7, 8, 8, 8, 9, 9, 9, 10, 10, 10, 10)
11            Col = Choose(J, 0, 0, 2, 0, 3, 4, 0, 3, 4, 0, 2, 0, 2, 0, 2, 4, 0, 2, 4, 0, 2, 4, 0, 2, 4, 6)
            .Offset(Rws, Col).Value = Cls.Offset(, 2 + J)
13        Next J
    End With
15 Next Cls
 Randomize:                                             [N1].Value = Timer() - Tmr
 Union([h1].Resize(110), [j1].Resize(110)).Interior.ColorIndex = 34 + 9 * Rnd() / 1
End Sub

Hai dòng lệnh trên số 1: Khai báo các loại biến cần dùng;
D1: Đem trang tính chứa dữ liệu gán vô 1 biến đối tượng;
D2: Đem vùng các ô thuộc cột [F] (Trường ngày-tháng) gán vô 1 biến vùng;
D3: Mệnh đề 1: Xóa vùng số liệu do macro chạy lần trước đưa ra;
Mệnh đề sau: Ghi thời gian hiện tại vô biến;
D4: Thiết lập vòng lặp duyệt tất thẩy các ô trong biến vùng; Vòng lặp này kết thúc ở dòng lệnh D15;
D5: Tuyên cáo (TC) làm việc với ô cách ô dưới cùng có dữ liệu thuộc cột [A] 2 ô;
(Tuyên cáo này kết thúc tại D14)
D6: Gán số liệu giải Nhất vô ô đã TC;
D7& D8: Gán trị ngày-tháng & thứ vô cột qui định theo cùng dòng TC
D9: Thiết lập vòng lặp khác để duyệt 26 giải thưởng còn lại; Vòng lặp này kết thúc tại D13;
D10: Cho biến Rws nhận những giá trị tương ứng với những hàng (dòng) cách với dòng đã TC
D11: Tương tự cho biến Col nhận những trị cách với cột đã TC về fía fải;
D12: (Quả tim của macro) Lấy trị tương ứng lần lượt từ các giải gán lên trang tính hiện hành (Trang có nút lệnh macro)
. . . . . (Mấy dòng còn lại bạn tự tìm hiểu, vì chúng cũng chỉ là fù fiếm

Chúc ngày cuối tuần vui vẻ & thành công!

 

[quanthienhan]

Các bác có thể giúp em thêm tí nữa được không ạ..dữ liệu cột D có thể dịch vô cột C được không vậy..giúp em code thêm nốt mấy sheet tổng hợp , các thứ trong tuần như file em gửi được không a..xin cảm ơn các bác rất nhiều..

 

[SA_DQ]

[thongbao]Các bác có thể giúp em thêm tí nữa được không ạ:
(2). Dữ liệu cột D có thể dịch vô cột C được không vậy..
(1) Giúp em code thêm nốt mấy sheet tổng hợp , các thứ trong tuần như file em gửi được không a....[/ThongBao]


(1) Xem file đính kèm; Chọn 1 ngày trong tuần để có kết quả; Macro nớ đã tăng tốc bỡi xử trong Array
(2) Chưa hiểu chuyển bảng dữ liệu nào, nguồn hay đích?
(Nếu đích mà chỉ chuyển cột trống thì có nghĩa gì cơ chứ?)

 

[quanthienhan]

[thongbao]Các bác có thể giúp em thêm tí nữa được không ạ:
(2). Dữ liệu cột D có thể dịch vô cột C được không vậy..
(1) Giúp em code thêm nốt mấy sheet tổng hợp , các thứ trong tuần như file em gửi được không a....[/thongbao]


(1) Xem file đính kèm; Chọn 1 ngày trong tuần để có kết quả; Macro nớ đã tăng tốc bỡi xử trong Array
(2) Chưa hiểu chuyển bảng dữ liệu nào, nguồn hay đích?
(Nếu đích mà chỉ chuyển cột trống thì có nghĩa gì cơ chứ?)

Xin cám ơn bạn Hyen17 rất nhiều..rất nhiều ah, có một chút thắc mác nữa bạn HYen17 sửa giúp tí nữa được không ah..các ô có dữ liệu số ( 0 ) ở trước thì không hiện lên..bạn có thể chỉnh code một chút nữa để ô giá trị có số 0 đứng trước vẫn hiện lên số 0 như bên sheet1 được không bạn..chân thành cảm ơn bạn nhiều.

 

[quanthienhan]

Các Anh Chị trên DĐ xem giúp em nốt cái code bên sheet thứ này nha.
xin cảm ơn rất nhiều

 

[quanthienhan]

Các Anh Chị trên DĐ xem giúp em nốt cái code bên sheet thứ này nha.
xin cảm ơn rất nhiều

Em quên gửi file, mong nhờ các bác chỉ giúp

 

[SA_DQ]

Có một chút thắc mác nữa bạn sửa giúp tí nữa được không ah..các ô có dữ liệu số ( 0 ) ở trước thì không hiện lên..bạn có thể chỉnh code một chút nữa để ô giá trị có số 0 đứng trước vẫn hiện lên số 0 như bên sheet1 được không bạn..chân thành cảm ơn bạn nhiều.

Bạn tìm đến dòng lệnh của macro sự kiện của trang nớ
& thêm vố dòng lệnh

    ReDim dArr(1 To 65500, 1 To 8)

thành ra là:

    ReDim dArr(1 To 65500, 1 To 8) As String

(húc thành công!

 

[quanthienhan]

Bạn tìm đến dòng lệnh của macro sự kiện của trang nớ
& thêm vố dòng lệnh

    ReDim dArr(1 To 65500, 1 To 8)

thành ra là:

    ReDim dArr(1 To 65500, 1 To 8) As String

(húc thành công!

vâng em cám ơn Bác nhiều, có điều em không biết nhiều về excel. em thay vào như bác nói, ok chạy rồi ạ đúng như em muốn. có điều chỉ hiện được mỗi dữ liệu thứ 7 thôi ah..hay do em không biết cách làm....nếu được xin bác có thể giúp em được không a..em xin cảm ơn rất nhiều.