Sub SapXep()
Dim BKQ, Dong, Cot
Dim KQ
Dim i, j, k, x, z, t
With Sheet1
BKQ = .Range("A1").CurrentRegion
Dong = UBound(BKQ)
Cot = UBound(BKQ, 2)
ReDim KQ(1 To (Dong / 9) * 28, 1 To 1)
For i = Dong - 6 To 1 Step -9
k = k + 1
KQ(k, 1) = BKQ(i - 2, 1)
For x = i To i + 6
For j = 2 To 7
If BKQ(x, j) <> "" Then
k = k + 1
KQ(k, 1) = BKQ(x, j)
Else
Exit For
End If
Next j
Next x
k = k + 1
KQ(k, 1) = BKQ(i - 1, 2)
Next i
.Range("V1").Resize(k, 1).ClearContents
.Range("V1").Resize(k, 1) = KQ
End With
End Subchào anh CHAOQUAY. Anh sửa giúp em đoạn VBA trên vì bị lỗi mất số 0 trước số nguyên. Ví dụ : 002 khi chạy vba bị lỗi thành 2
.Range("V1").Resize(k, 1).NumberFormat = "000"@phulien1902 anh có thể chuyển giúp em tất cả sang định dạng "Text" được không vì khi dùng hàm Right vẫn bị lỗi mất sô 0 đằng trước số nguyên. Em cảm ơn
Vậy thì bạn phải định dạng cho cột mà bạn dùng hàm Right đó chứ? Tôt nhất là bạn đưa File lên và nói điều mình muốn. Tôi không giúp được thì sẽ có người khác giúp bạn.
em đã định dạng nhưng vẫn lỗi. mục tiêu mong muốn của e là cột K là định dạng Text, trả về kết quả là 01 giống bảng kết quả 23/8(đang lỗi thừa số 0), khi dùng hàm Right cột M để lấy 2 ký tự kết quả đúng phải là 01
Trong bài #2 thêm
.Range("V1").Resize(k, 1).NumberFormat = "@".Range("V1").Resize(k, 1).ClearContentsTôi cũng thắc mắc là không có tập tin sao CHAOQUAY làm được. Nhưng sau thấy
thì nghĩ là CHAOQUAY đã có tập tin trước nên không cần có tập tin đính kèm.
Sao tôi vẫn nhìn thấy nội dung bài #1?
[QUOTE="befaint, post: 935326, member: 429354"]
File dữ liệu về xổ số, trong đó có những cái không chia sẻ được, sau khi úp file lên lại phải gỡ xuống.
Mình từng để ý, theo dõi ('follow') một số người đăng bài hỏi liên quan tới mục xổ số, lô đề này (điển hình là chủ thớt luôn - xem toàn bộ các chủ đề của họ sẽ rõ).
Họ đăng nhiều bài hỏi để hoàn thiện file của mình xây dựng rồi đem lên 'chợ' xổ số, lô đề bán. Mọi người thì cắm đầu/ tranh nhau làm miễn phí, còn họ thì kiếm bộn tiền (không hề ít nhé, họ kiếm được vài chục triệu trở lên là ít đó).
Vụ số má này đợt có ý kiến nhưng nội quy không có.. nên hôm nay vẫn có bài.
Mọi người cứ suy diễn tiêu cực cho e quá. Mục đích của e là dựa vào excel để sắp xếp dữ liệu và học hỏi excel thông qua 1 dự án xổ số (dự án này làm cho e hứng thú) Nếu em mà tính toán được kết quả lô đề thì chắc chắn sẽ có rất nhiều anh chị cao thủ trên này đã thành công và công ty xổ số phá sản rồi. Mục đích e xoá file vì không muốn phổ biến vì đề tài này hợp với người này mà có thể hại tới người khác. Nếu bác nào cùng có sở thích dùng excel tính toán như e thì cứ tạo nhóm e chia sẻ file miễn phí. Còn nếu e giỏi tính dc kết quả xổ số thì ko việc gì e phải bán nhé. Cứ ăn 1 mình thôi. Trò bán số này cổ xưa lắm r. Các trang web; ketqua.net họ cũng phân tích sẵn hết rồi. Mọi người chọn số thoải mái chứ ko cần phải tìm muaChủ đề là sắp xếp dữ liệu nội dung không phạm quy, anh CHAOQUAY va phulien1902 giúp đỡ tôi đã cảm ơn. File đính kèm hơn 1 ngày tôi mới gỡ. Chủ đề kqxs thì sao.
