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.
Chào bạn: Ở bài 11 đó, bạn xem lại nội dung xem giống nhau không.
Tôi cũng nhiều lần tháo file mình đưa lên; nhưng khác với bạn là đưa file khác lên để mọi người còn đọc cho liền mạch;
[QUOTE="leonguyenz, post: 935351, member: 354632"]
Theo tôi là có sự hiểu nhầm.
Bài #1 viết từ tháng 8, trước đó xem như trong thời gian 24 giờ bạn [USER=156210]@lealong[/USER] đã gỡ file.
Bài #4 được viết từ sáng sớm hôm qua lúc 00:03, đến 21:15 trả lời bài #6, trước 00:03 ngày hôm nay thì bạn [USER=156210]@lealong[/USER] có thể sửa được bài #4 và gỡ file. Lý do gỡ file bạn ấy viết ở bài #19
[ATTACH type="full" alt="224004"]224004[/ATTACH]
Nếu lý do này được ghi chú ở bài đính kèm file (#1 hoặc #4) thì chắc sẽ không có hiểu nhầm này.
Gửi bạn [USER=156210]@lealong[/USER]
Diễn đàn GPE là nơi trao đổi, chia sẽ kiến thức về Excel, một bài viết có file đính kèm thì người khác xem - học hỏi dễ dàng. Các bài viết chia sẽ kiến thức hoặc trao đổi trong chủ đề sẽ có giá trị hơn. Ví dụ như bài #2, code của anh [USER=1172506]@CHAOQUAY[/USER] có ý nghĩa gì nữa không? Anh ấy đã mất thời gian và trí não để giúp bạn và kiến thức đó không được chia sẽ đến người khác.
[/QUOTE]
tôi chỉ gỡ file ở #1 trước hoặc sau 24h tôi ko nhớ rõ. Vì tôi thường đăng bài hỏi vào buổi tối, sáng đi làm ko ngồi máy tính. Còn bài #4 tôi ko post file nào lên cả, tôi chỉ đưa ví dụ mô tả 1 lỗi nhỏ còn tồn tại mà anh CHAOQUAY đã code giúp và bạn Phulien1902 đã giúp nhưng vẫn chưa đúng và sau đó bạn Phulien1902 yêu cầu gửi file lên mới giúp dc
Bạn chỉ cần góp ý với tôi như đoạn đầu bạn nói thì tôi sẵn sàng gửi 1 file khác để cho mọi người đọc hiểu liền mạch. Tôi cũng ko xoá bài đăng đầu tiên gì cả. Nội dung cần hỏi chỉ có 1 yêu cầu như thế. Sân chơi GPE là chung với những ai không phạm quy, bạn ko là cái gì cả nên đừng ăn nói xúc phạm ng khác
Tôi biết là bài #1 có từ lâu. Cái tôi hiểu lầm là cứ nghĩ là không bao giờ có tập tin đính kèm. Nhưng hóa ra là có và đã bị xóa.
Cảm ơn anh đã góp ý. chuyện gỡ file cũng là bài học cho e do e cũng không rõ quy định vì không thường xuyên hoạt động trên forums. Chuyện e bực vì bị nói xúc phạm vì gỡ file. mặc dù e hoàn toàn có thể tạo file rút gọn để ghim lên bài nếu được ai đó nhắc nhở.
Đỏ: ở đây nhiều người viết code là tại vì thích viết code và thích giúp ngừoi cần code. Người muốn code đã viết xong và người cần code đã lấy rồi. Cả hai đều thoả mãn. Vậy thì nói rằng "vô bổ" là vô căn cớ.
Tiếc là tôi không chụp lại hình lúc bài 1 bị gỡ bỏ hoàn toàn; Nhưng vẫn cam đoan là bài 1 đã bị gỡ bỏ hoàn toàn trong thời gian sau khi tôi có bài 11 nêu trên & trước thời gian tôi đăng bài báo BĐH về chuyện thiếu bài 1
Cái phần xanh thì tôi viết đầy đủ thế này bác ạ.
Sau đó thì hành xử thế nào là tùy từng người. Với cá nhân tôi khi thấy đúng mức thì thôi.
Tôi cũng chả hiểu cái vụ "bút tích" ra sao nữa. Hình như database có vấn đề.
Mục đích tham gia GPE của bạn có phải là chia sẻ và học hỏi ko? bạn luôn muốn hỏi người lập topic về mục đích của họ? liệu bạn nghĩ rằng họ sẽ muốn trả lời và trả lời thật lòng. Bạn muốn áp dụng cả luật cấm của XHCN vào forum nữa ah. Nếu bạn ở các tỉnh mienf bắc và Hà Nội bạn đi đánh đề, lô còn nhanh hơn mua mớ rau muống đấy. Bạn suy nghĩ dân chủ tích cực lên. Bạn không thể nói số lô, số đề như thế dc. Tôi nói tôi dùng excel tính toán để tôi mua vé số đấy. như thế có sai ko? Cuối cùng, tôi nói bạn SAI khi nói người khác viết code giải đáp khó khăn bài toán excel là tò mò, háo danh yên hùng. Như thế chắc cả GPE này ko ai dám giúp người khác vì sợ dc khen là yên hùng. lúc đó chỉ còn mình bạn. Bạn cũng nên tham gia các 4rum jaibreak ios, bẻ khóa window, hack, tips để kêu gọi mọi người dừng tiếp tay cho băng hoại xã hội giúp xã hội tốt hơn nhé. Nọc độc rắn vào tay người xấu là giết ng, vào tay ng tốt lại là cứu người đấy bạn ah
Tôi nói lại với bạn là bài 1 bị gỡ và bài 2 đăng lên chỉ khác nhau về câu chữ diễn giải cho mọi người đọc hiểu ý tôi viết. Nội dung yêu cầu mong muốn chỉ là 1
1/ Tại bài 6 của Topic kia tôi có khuyên là chúng ta không nên xóa nội dung và xóa File và tôi khuyên thành viên @lealong nếu có thành ý thì nên có lời xin lỗi, đây là Link bài viết: Sao chủ bài đăng lại có thể xóa hết nội dung bài đầu của mình vậy BĐH?
Đúng rồi bác. 50 bên này và 50 bên kia. nhưng hình như có 1 bên 50 được nhắc nhở rồi và cũng nhận ra lỗi sai của mình rồi, nhưng tệp dữ liệu giả lập mà bên ấy hoàn toàn có thể tạo được để tạo sự liền mạch cho chủ đề vẫn chưa được đăng lên thì phải.
Chắc là bạn chủ thớt sợ làm băng hoại xã hội nên không gửi lên đó bạn.
mình không ngại gì cả và mình cũng không cần giả lập tệp dữ liệu làm gì. VÌ bài #1 ko cho sửa nữa nên mih không đăng được, cũng ko thấy ai nói cần đến khi bạn comment vào. Nếu bạn nào ở HN muốn ngồi trà đá bàn về số học thì cứ pm tôi nhé
em ko sợ băng hoại xã hội bác ợ. Bác có thể giúp e copy nhanh dữ liệu theo điều kiện mà e đã lập topic được ko? tks bác
.Range("V1").Resize(k, 1).ClearContents
.Range("V1").Resize(k, 1) = KQ.Range("V1").Resize(k, 1).ClearContents
.Range("V1").Resize(k, 1).NumberFormat = "@"
.Range("V1").Resize(k, 1) = KQCảm ơn anh nhiều kết quả ok rồi. Htrc lỗi nhỏ định dạng 1 ít nên e sửa thủ công tay bo luôn. Tks a nhiều
Êêê, bài nó nằm tơ hơ thế thì chắc chắn người ta đọc rồi. Nhưng người ta cố tình lờ đi thôi.
Cái này chỉ có bác biết, thớt biết, và tác giả bài #2 biết.
Cái tôi giúp mọi người cũng biết được mà. Câu hỏi của chủ thớt ở bài #7.
