Kết quả xổ số tải về excel bị mất số "0" xin chỉ cách cho đừng mất.

[duynhatgpe]

Xin chào mọi người , mình muốn tải về xem kết quả Miền bắc bằng macro vba trong excel ,khi tải về kết quả nào mà có số 0 ở đằng trước đều bị mất ,không biết code nào cho có đủ số của kết quả ,xin cám ơn nhiều

 

[cuongbui]

Xin chào mọi người , mình muốn tải về xem kết quả Miền bắc bằng macro vba trong excel ,khi tải về kết quả nào mà có số 0 ở đằng trước đều bị mất ,không biết code nào cho có đủ số của kết quả ,xin cám ơn nhiều

Dùng công thức hoặc code đếm số ký tự nếu < 5 thì bù số 0 vào cho nó là xong

 

[HeSanbi]

Dò vé số 3 miền, và thu thập kết quả sổ xố siêu nhanh với Excel

*** Ứng dụng Bài viết giúp các bạn học và tham khảo code VBA hiệu quả *** Hôm nay tôi chia sẻ cho những ai đam mê mua vé số nhưng muốn dò vé số nhanh chóng với ứng dụng Excel, thì đã có ứng dụng dò kết quả xổ số 3 miền dưới đây giúp các bạn đơn giản hóa việc dò vé số cũng như thu thập kết quả...

www.giaiphapexcel.com

 

[VetMini]

Định dạng custom 00000. Hết.

 

[cuongbui]

Xin chào mọi người , mình muốn tải về xem kết quả Miền bắc bằng macro vba trong excel ,khi tải về kết quả nào mà có số 0 ở đằng trước đều bị mất ,không biết code nào cho có đủ số của kết quả ,xin cám ơn nhiều

Sau khi tải về sẽ tách số thành các số nhỏ sau đó thống kê đường đi của các chạm, bộ đúng không ? Nếu chỉ thể hiện thôi thì dùng định dạng Format Cell / custom / 00000 là đủ, Nhưng nếu thống kê thì phải bù số 0 cho những số có độ dài <5 thì mới có thể tách chuỗi ra đúng

 

[CHAOQUAY]

Dùng công thức hoặc code đếm số ký tự nếu < 5 thì bù số 0 vào cho nó là xong

Cái này có lẽ còn tùy theo giải nữa chứ bạn

 

[cuongbui]

Xin chào mọi người , mình muốn tải về xem kết quả Miền bắc bằng macro vba trong excel ,khi tải về kết quả nào mà có số 0 ở đằng trước đều bị mất ,không biết code nào cho có đủ số của kết quả ,xin cám ơn nhiều

Mình cũng đang chập chững mò học VBA . Mạn phép viết thử 1 đoạn coi như có bài để thực hành. Bạn xem có phù hợp thì sửa nhé

Function buso(kqsx As Range)
If VBA.Len(kqsx) = 4 Then
buso = "0" & kqsx
    ElseIf VBA.Len(kqsx) = 3 Then
buso = "00" & kqsx
  ElseIf VBA.Len(kqsx) = 2 Then
buso = "000" & kqsx
    Else
buso = kqsx

    End If
 
End Function

 

[duynhatgpe]

Dùng công thức hoặc code đếm số ký tự nếu < 5 thì bù số 0 vào cho nó là xong

Định dạng custom 00000. Hết.

khi định dạng rồi khi tải về cũng không được , chỉ khi nào mình viết thì được ,ở đây mình cần khi tải về không bị mất số 0

Bài đã được tự động gộp: 25/11/21

Cái này có lẽ còn tùy theo giải nữa chứ bạn

Đúng rồi anh à,khi tải về giải nào có số 0 ở trước là thiếu ,có khi có giải thiếu 2,3 số o luôn ,ở đây mình muốn khi tải về nó không bị thiếu số 0 mà không phải làm lại ,chỉ làm sao với địa chỉ này mình tải bằng excel