Theo dõi kết quả xổ số!

[hnonline]

Sheet DATA cập nhật bằng tay hả bạn?
Sao kg làm cho nó lấy động từ trang web nào đó luôn

 

[hnonline]

TO : bác anhtuan1066 đồng hương góp ý cái này

Cái này mình lập trình lấy kết quả tự động từ XS Bình Dương
Format : Excel 2003
File có macro
Download : http://www.giaiphapexcel.com/forum/attachment.php?attachmentid=10481&stc=1&d=1211271171
Các bạn lấy về và bun nén làm các thao tác sau:

Tool->macro->macros chọn GetLotteryResultVersion2 -> Run

Nhập ngày bắt đầu lấy kqxs măc định nó lấy 01/01/2008

Nhập đài cần lấy kqxs, mặc đinh lấy đài B.Dương

Ngồi chờ nó lấy tự động khoảng từ ngày bạn nhập bên trên đến ngày hiện tại trên hệ thống của bạn

Khi lấy xong nhấn CTRL A, chọn Data->fillter-> auto fillter

Tại Cột A bấm ô chọn và chọn "Tên giải"

Chọn Edit-> Delete

Chọn tiếp data->fillter->auto fillter

tại cột B nhấn combobox chọn custom và bấm OK

Chọn Menu Edit=> delete

Sau các thao tác trên ta đã có dữ liệu sạch chỉ có tên giải , kq và ngày xổ


Có những giải gồm nhiều dãy sắp cùng một hàng ngang nên làm tiếp cái này

Menu tool -> macro -> macros chọn "ReFix" -> Run

Kết quả sẽ cho ra từng dãy số nằm trên một row

sau đó các bạn muốn chặt 1 ,2 hay 3 số từ bên fảii sang để thống kê thì tùy các bạn,mình có viết sẵn mấy macro lấy 1 , 2 ,3 số từ bên fảii sang, để ở nhg cột riêng biệt

Sau đó dùng chức năng sort các bạn có thể thống kê được những số hay xổ nhất, cái dữ liệu này mà import vào MS access viết mấy câu SQL phục vụ cho nghiên cứu rất hay

----------------
Các bạn cứ thoải mái góp ý , để thêm tính năng thì cứ tự nhiên, hoặc y/c minh lấy kết quả của bất cứ đài nào

 

[Anti-Plus]

- Bro ơi macro của bro có thể áp dụng cho nhu cầu của mình có được không ?
- Theo hình ảnh minh họa bên dưới, thì từ ô E2 mình sẽ chạy macro của bro, sau khi Run xong sẽ xuất hiện hộp thoại & mình sẽ nhập vào là 20-may-2008 & 16:Bac Lieu, khi nhấp vào nút OK sẽ tự động cho kết quả đúng đài Bạc Liêu (20/05/2008) & kết quả này sẽ được tự động điền vào Insert Comment của ô E2 (như hình minh họa). Hiện tại không có macro này thì mình phải vào trang web xổ số Bình Dương xem kết quả đài Bạc Liêu (20/05/2008) & copy dữ liệu paste vào Comment của ô E2.

- Rất mong bro nghiên cứu giúp mình xem có thể áp dụng được với file của mình không nhé ... Xin cám ơn rất nhiều !

Mình có kèm theo file demo đó, bro download về nghiên cứu nhé.

 

[hnonline]

To Anti-Plus

File mà bạn yêu cầu, mình đã làm y như ý của bạn (download bên dưới)
Nếu bạn muốn insert kết quả của một ngày duy nhất và của một đài duy nhất vào một comment của một ô thì cứ để con trỏ tại ô bạn cần insert và bấm vào cái nút Lấy kết quả xổ số


Chạy xong sẽ có kq như bạn cần

Thân chào

 

[Anti-Plus]

- Cám ơn hnonline rất nhiều, kết quả thành công 100% như mong muốn.

- Bro ơi, có cách nào để tự động cho bo viền xung quanh comment tự ôm sát dữ liệu khi Run macro xong không ?

Thanks !

 

[hnonline]

OK, kg có gì mà làm kg được cả

Bạn lấy cái file mới về đi, bo góc cạnh và ôm sát hơn

 

[Anti-Plus]

hnonline ơi, sao nguyên cả khung viền của comment vẫn chưa sát với dữ liệu vậy, khung viền hiện tại vẫn còn rộng quá. Bro chỉnh giúp mình cho khung viền đừng rộng quá mà hãy sát với dữ liệu luôn & đồng thời bo viền đừng cong nhiều quá ... Thanks !

P/S: Mình hiểu tại sao khung viền không sát rồi, vì khi điền dữ liệu vào comment thì phía sau mỗi hàng đều xuất hiện 1 khoảng trống (có lẽ từ khoảng trống này nên khung viền không được ôm sát dữ liệu).

 

[Anti-Plus]

àh, bro hnonline ơi ... bro giúp mình tạo thêm bóng đỗ (Shadow) cho khung viền Comment nữa nhé. Thanks !

 

[hnonline]

OK, cải tiến

Không bị giật khi lấy kq
Trim khoảng trắng
Shaddow cho comment

à 2 button lọc kết quả và so sánh dùng thuật toán gì mà đọc khó hiểu quá vậy?
Cái so sánh kq thì hiểu là 2 con đã về hôm trước nếu hôm sau có về nữa thì đánh dấu đỏ. Còn cái lọc kết quả sao lại cho ra kq như thế ? Bạn giải thích hộ nhé

 

[Anti-Plus]

Còn cái lọc kết quả sao lại cho ra kq như thế ? Bạn giải thích hộ nhé

Cám ơn bro rất nhiều,

Lọc kết quả trong ứng dụng của mình ở đây dùng để: sẽ lọc trong Comment loại bỏ qua những số có 2 số cuối cùng là 1 (cụ thể là những cặp số : 01, 11, 21, 31, 41, 51, 61, 71, 81, 91) & 2 số cuối cùng là những số cặp lẻ (cụ thể là những cặp số : 11, 33, 55, 77, 99).

- Vd theo hình ảnh mình họa dưới đây thì ô B2 sẽ tự động lọc ra là : 19 25 19 45 63

 

[Anti-Plus]

OK, cải tiến

Không bị giật khi lấy kq
Trim khoảng trắng
Shaddow cho comment

Bro test lại giùm mình xem, cái chức năng Trim khoảng trắng mình vẫn chưa thấy tác dụng trong file demo bro đính kèm theo.

Mình Run thử thì trong Comment vẫn còn những khoảng trắng sau mỗi hàng.

 

[Anti-Plus]

OK, cải tiến

Không bị giật khi lấy kq
Trim khoảng trắng
Shaddow cho comment

Mình đã tìm ra cách xóa khoảng trắng trong Comment rồi bro ơi, dưới đây là code mình đã chỉnh sửa lại 1 chút.

Thanks !

Sub GetLotteryResultVersion2()
On Error GoTo ERH
    Dim strTP As String 'Ma tinh/thanh pho
    Dim strDateInput As String
 
    strDateInput = InputBox("Tu ngay : (la ngay bat dau lay ket qua xo so, nhap theo dang dd-MMM-yyyy" & vbCrLf & "VD : 01-Jan-2008" & vbCrLf & "Neu kg nhap se lay mac dinh la ngay 01-Jan-2008", "Tu ngay", "01-jan-2008")
 
    strTP = InputBox("Ma Tinh/Thanh Pho : chi tiet ma Tinh va ma Thanh Pho xem trong wwww.xosobinhduong.com.vn" & vbCrLf _
                    & "1 : Binh Duong" & vbCrLf _
                    & "9 : Vinh Long" & vbCrLf _
                    & "10: Tra Vinh" & vbCrLf _
                    & "11: Dong Nai" & vbCrLf _
                    & "12: Can Tho" & vbCrLf _
                    & "13: Soc Trang" & vbCrLf _
                    & "14: Ben Tre" & vbCrLf _
                    & "15: Vung Tau" & vbCrLf _
                    & "16: Bac Lieu" & vbCrLf _
                    & "17: Binh Thuan " & vbCrLf _
                    & "18: Tay Ninh" & vbCrLf _
                    & "19: An Giang" & vbCrLf _
                    & "20: TP.HCM" & vbCrLf _
                    & "21: Dong Thap" & vbCrLf _
                    & "22: Ca Mau" & vbCrLf _
                    & "23: Tien Giang" & vbCrLf _
                    & "24: Kien Giang" & vbCrLf _
                    & "25: Binh Phuoc" & vbCrLf _
                    & "27: Hau Giang" & vbCrLf _
                    & "......................" _
                    , "Ma Tinh/TP", "1") '1= Binh Duong
 
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.xosobinhduong.com.vn/Forms/XemKetQuaXoSo.aspx?Ngay=" & Format(strDateInput, "dd/mm/yyyy") & "&TP=" & strTP _
        , Destination:=Range("AA1"))
        .Name = "kqxs"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlAllTables
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
 
   '================================================================
   Dim sComment As String
 
   sComment = Trim(Cells(2, "ab")) & Chr(10) _
                & Trim(Cells(3, "ab")) & Chr(10) _
                & Trim(Cells(4, "ab")) & Chr(10) _
                & Trim(Cells(5, "ab")) & Chr(10) _
                & Trim(Cells(6, "ab")) & Chr(10) _
                & Trim(Cells(7, "ab")) & Chr(10) _
                & Trim(Cells(8, "ab")) & Chr(10) _
                & Trim(Cells(9, "ab")) & Chr(10) _
                & Trim(Cells(10, "ab"))
 
   Dim nRow As Integer
 
   With ActiveCell
        nRow = .Row
 
        .ClearComments
        .AddComment
        With .comment
            .Visible = True
            .Text Text:=sComment
            .Shape.Select True
 
            With Selection
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlTop
                .ReadingOrder = xlContext
                .Orientation = xlHorizontal
                .Font.FontStyle = "Bold"
                .Font.Size = 10
            End With
            .Shape.AutoShapeType = msoShapeRectangle
            .Shape.Shadow.Visible = msoTrue
            .Shape.TextFrame.AutoSize = True
            .Visible = False
        End With
 
    End With
 
    '================================================================
    Application.ScreenUpdating = False
    Range("AA1:AC10").Select
    Selection.EntireColumn.Delete
 
 
    '================================================================
 
    Range("E" & nRow, "E" & nRow).Select
 
 
    Exit Sub
ERH:
    MsgBox Err.Description, vbOKOnly
End Sub

 

[nhatminh_fff]

Em muốn: 1 hàm tự lọc ra 2 số cuối - để lấy kết quả lô mà
1 hàm đếm các giá trị vừa lọc được - để xem trong tháng (hoặc tuần) con nào hay về
Bác nào có Kết Quả Xổ Số từ năm 2007 đến giờ cho em với

Đúng là cái em đang tìm http://www.giaiphapexcel.com/forum/showthread.php?t=10290
cám ơn Bác: anhtuan1066

 

[hnonline]

Mình đã sửa theo ý ANTI Plus

 

[hung007007]

Pác hnonline ơi! Pác giúp em cái vụ lấy kết quả xổ số tự động của đài Hà Nọi có được không?
www.xosothudo.com.vn

Bạn dùng cái XSBD, vào code, sửa như sau:
thêm
strTP = 53 trước strTP = InputBox ....
thêm ' vào đầu dòng strTP = InputBox .... để nó thành
' strTP = InputBox .....
thế là nó lấy KQXSMB

 

[emgaingayngo]

Sub refix bị đảo ngược KQXS

To Hnonline :

Chạy Sub Refix cho ra KQ bị ngược như sau
Bình Dương Ngày 11/07/2008 :
88 336 5276 7914 2553 8065 89519 67326 49606 96376 51022 18416 19165 28359 28344 53843 11230 64241

Kết quả đúng như sau :
Bình Dương
88 336 2553 7914 5276 8065 19165 18416 51022 96376 49606 67326 89519 28344-28359 53843 11230 64241

Mong bạn chỉnh lại cho chính xác. Thanks Much!

 

[emgaingayngo]

File dowload kqxs

Dựa vào bài của Hnonline mình đưa ra file dùng để dowload kqxs, các bạn xem và cho ý kiến!

 

[swordsman305]

Mong cac bác giúp đỡ

Bài này em ko được dùng cột phụ, VBA thì mù tịt nên chẳng bít đếm thế nào

 

[ndu96081631]

Bài này em ko được dùng cột phụ, VBA thì mù tịt nên chẳng bít đếm thế nào

C11 =SUMPRODUCT(($B$2:$B$10=1995)*(C$2:C$10="T"))

và

C12 =SUMPRODUCT(($B$2:$B$10=1995)*(C$2:C$10="G"))

Kéo fill 2 công thức này sang phải

 

[pnhuynh]

Xin chào các thành viên GPE . Mình có file thống kê XS tính bằng những hàm đơn giản theo đây và muốn nhờ các cao thủ chỉ giúp công thức tính số ngày chưa ra trên cột AL , trong file này có thể thay thế hàm nào khác để cho kết quả như trong sheet1 không ? các bác có cao kiến hay chỉ giúp nhé

Theo bảng dưới thống kê kq đài thủ đô trong 14 ngày liên tục , cột D là kết quả của ngày hôm qua , cột C có 100 hàng cho các số từ 00 đến 99 ( chỉ lấy 2 số cuối của mỗi giải ) , cột B là tổng số lần xuất hiện trong 14 ngày . mình muốn tính số ngày chưa ra ở cột A như kết quả trong bảng , Các bác có công thức tính được thì chỉ giúp mình nhé .
thanks