Vòng lặp đặt ở đâu?

[emgaingayngo]

Mình có 1 đọan mã như sau dùng để copy kết qủa của đài TPHCM (thứ hai) từ sheet(KQ2007) qua sheet(KQ), nhưng mình không biết đặt vòng lặp ở đâu để Excel tự động chép hết Kq của đài TP, mỗi lần muốn chép phải click 1 cái thật là bát tiện!!!. Các bạn giúp mình với.

Sub FindDate()
Dim MyDate, MyString

With S00.Range("A1:IV1")
MyDate = S01.Range("IV1").End(xlToLeft).Value + 7
MyString = Format(MyDate, "dd/mm/yy")
Set c = .Find(MyString, LookIn:=xlValues)
c.Resize(20, 1).Copy S01.Range("IV1").End(xlToLeft).Offset(0, 1)
End With

End Sub

 

[phamduylong]

Mình có 1 đọan mã như sau dùng để copy kết qủa của đài TPHCM (thứ hai) từ sheet(KQ2007) qua sheet(KQ), nhưng mình không biết đặt vòng lặp ở đâu để Excel tự động chép hết Kq của đài TP, mỗi lần muốn chép phải click 1 cái thật là bát tiện!!!. Các bạn giúp mình với.

Bạn có thể sử dụng Sub TPHCM này để copy kết quả TPHCM thứ hai.
Với các đài khác, bạn cũng làm tương tự bằng cách chỉnh 2 biến:
thu=1, 2, 3, ... tương ứng chủ nhật, thứ hai, thứ ba, ...
Sheets("KQ2007").Cells(2, c) ="TPHCM", "ANGIANG", "SOÂNG BEÙ" tùy theo đài.

Sub TPHCM()
Sheets("KQ").Select
Cells.ClearContents
ckq = 1
For c = 1 To 256
  thu = Weekday(Sheets("KQ2007").Cells(1, c))
  If Sheets("KQ2007").Cells(2, c) = "TPHCM" And thu = 2 Then
    For r = 1 To 20
      Cells(r, ckq) = Sheets("KQ2007").Cells(r, c)
    Next
    ckq = ckq + 1
  End If
Next
End Sub

 

[anhtuan1066]

Nếu trích KQXS của TPHCM thì tôi thấy hình như là sai thì phải... Tôi ko chơi xổ số nhưng nếu tôi nhớ ko lầm thì XS TPHCM mở vào 2 ngày trong tuần, là thứ 7 và thứ 2...
Có lẽ sửa đoạn code:

If Sheets("KQ2007").Cells(2, c) = "TPHCM" And thu = 2

thành:

If Sheets("KQ2007").Cells(2, c) = "TPHCM" And (thu = 2 Or thu = 7)

Thì kết quả sẽ chính xác hơn
Mến
ANH TUẤN

 

[phamduylong]

If Sheets("KQ2007").Cells(2, c) = "TPHCM" And (thu = 2 Or thu = 7) Thì kết quả sẽ chính xác hơn
Mến
ANH TUẤN

Mình không rành về ngày sổ số. Tại emgaingayngo yêu cầu thứ hai thì viết theo thuhai.

 

[ThuNghi]

Nhờ Bác SA update thành CT luôn, thống kê từ ngày -> ngày số nào, đài nào đã ra số đầu (giải 7), số đuôi (2 số cuối đặc biệt).
Dạo này vật giá tăng quá, không đủ ... để nộp vợ và ăn nhậu.
Cám ơn SA tiên sinh nhiều lắm.

 

[SA_DQ]

Nhờ Bác SA update thành CT luôn, thống kê từ ngày -> ngày số nào, đài nào đã ra số đầu (giải 7), số đuôi (2 số cuối đặc biệt).
Dạo này vật giá tăng quá, không đủ ... để nộp vợ và ăn nhậu.
Cám ơn SA tiên sinh nhiều lắm.

To ThuNghi: Vì dữ liệu của bạn NgayNgo này khác í nên mình sẽ chỉ cách lập lại CSDL mà thôi; thông cảm nha: Già hay bảo thủ!!!
CSDL có các trường:
Ngay : MaDF : DBiet : GNhat : . . . . ., GBet;
Cứ cho rằng mỗi ngày có hai kết quả sổ số KT, thì (65533 / 365.25 / 2) sẽ xài 89,71389459 năm mới hết 1 sheet thôi!

 

[Mr Okebab]

To ThuNghi: Vì dữ liệu của bạn NgayNgo này khác í nên mình sẽ chỉ cách lập lại CSDL mà thôi; thông cảm nha: Già hay bảo thủ!!!
CSDL có các trường:
Ngay : MaDF : DBiet : GNhat : . . . . ., GBet;
Cứ cho rằng mỗi ngày có hai kết quả sổ số KT, thì (65533 / 365.25 / 2) sẽ xài 89,71389459 năm mới hết 1 sheet thôi!

Hoặc nếu không thì chỉ cần

CSDL có các trường:
Ngay : MaDF : KQ :LoaiGiai

Thì dùng cũng thoải mái.

Thân!