Cập nhật dữ liệu mất số 0 ở đầu (1 người xem)

[baquang1984]

Chào anh chị GPE hiện tại em có vấn đề như sau:
Chương trình do các anh chị trên diện đàn giúp đỡ tuy nhiên có mật vấn đề gặp phải là khi tổng hợp dữ liệu từ file excel "DS_CapmoiGCN2" của em ở cột sổ CMND có số 0 ở đầu, khi chạy chương trình thì bị mất số 0 ở cột Số CMND em đã bôi vàng các cột bị mất số 0. Nhờ anh chị sửa Code VBA giúp để để làm sao khi cập nhật dữ liệu từ file excel "DS_CapmoiGCN2" và chuyển dữ liệu sang Sheets"DATA" số 0 không bị mất.
Cảm ơn anh chị trên diễn đàn nhiều!

 

[thaibinh_excel]

Chỉ cần chỉnh định dạng trong cột CMND thành dạng text là được nhé bạn!

Thân

 

[baquang1984]

Cảm ơn bạn nhé mình đã làm được!

 

[quocphuoc88]

Trong sub TongHop_GPE
bạn sữa chỗ này

For J = 1 To 10
dArr(K, J) = sArr(I, tArr(1, J))
Next J

Thành

For J = 1 To 10
if j=3 or j=8 then
dArr(K, J) = Cstr(Format(sArr(I, tArr(1, J)),"000000000")
Else
dArr(K, J) = sArr(I, tArr(1, J))
End if
Next J