vé số đây bà con

[ongtrungducmx25]

muốn dò vé số vào đây! cầu may nhé!
link download

 

[boong]

File của bác cũng hay đấy nhưng bác có thể cho nó cập nhật liên tục theo từng ngày được không? Còn CheckBox3_Click() thì em thêm vài dòng lệnh để xử lý tình huống nhấn Cancel khi người ta không muốn in (vì bị báo lỗi đó).

Private Sub CheckBox3_Click() [COLOR=red]On Error GoTo baoloi: [/COLOR]ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _         :=True [COLOR=red]baoloi: End[/COLOR] End Sub

Bác anhtuan1066 ơi, bác có thể chỉ cho checkbox khi chọn thì chạy khi bỏ chọn thì không chạy lệnh được không bác. Em nhấp bỏ chọn nhưng nó cứ chạy hoài à! Em không biết phải làm sao cả? Còn file này em gửi cho mọi người xem đây.

 

[ongtrungducmx25]

em đã làm nâng cấp thêm rồi, xin các anh chị cho thêm ý kiến nhé!
link

 

[boong]

Hay hơn thì có nhưng còn nhiều điều phải chỉnh sửa lắm. Như: +Khi chuyển qua lại giữa các Sheet thì gặp lỗi ở đây.

.Characters(Start:=1, Length:="" & Len(Text) - i & "").Font.ColorIndex = 5

+Lúc mới mở lên nhấn vào checkbox thì hiện báo lỗi ở đây.

Private Sub Workbook_Open()        [COLOR=red]Call Sheet1.StartRunText[/COLOR] End Sub

+Chưa khắc phục tính chất chọn 2 lần ở checkbox "In sổ số". -Bác nên cho bảng kết quả sổ số vào một bảng tính khác khi hiện lên. -Đặt thêm vài lệnh chống lỗi ở các vị trí trên. -Nếu có thể thì khi nhấn vào checkbox "In sổ số" thì khi thực hiện xong nên cho nó tắt để chờ hoạt động lần sau luôn cho tiện.. (Giống như một nút lệnh vậy). -Còn lỗi ở Text chạy thì chưa biết cách khắc phục. -Còn hiện tượng báo lỗi lúc thực hiện thao tác đầu tiên thì chẳng rõ nguyên nhân tại sao cả. Không biết mọi người có bị như em không? Có cách nào khắc phục tình trạng trên không?

 

[ongtrungducmx25]

hiện bây giờ mình chưa khắc phục được về Chưa khắc phục tính chất chọn 2 lần ở checkbox "In sổ số". không biết tạo sao chuyển đổi qua lại giửa các sheet bị lỗi các pác nào chỉ thêm cho em không nhỉ!

 

[ongtrungducmx25]

em cập nhật ngày tháng rồi! pác nào cho em thêm ý kiến để hoàn thiện công việc nhé!
chý ý khi copy web xổ số và chép vào excel(chep) chọn past special...chọn unicode text thiế là xong! xem file