Lấy Thống Kê Mới Chuyển sang định dạng số. (1 người xem)

[Thien]

Thân chào các bạn!.

Tôi lấy sổ phụ ngân hàng từ trên web về thì con số không định dạng đúng number.
Nay nhờ viết hộ code chuyển đổi sang đúng dạng number.

Rất cảm ơn.

Thân.

 

[Hai Lúa Miền Tây]

Thử dùng cách củ chuối của mình nè
Sau khi record mình được macro như sau: Nhớ tô khối vùng trước khi chạy, và ĐK là máy bạn định dạng số là #,###.##

Sub Chuyen()
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Thân

 

[dunglev]

bạn có thể dùng tạm đoạn code này

 

[duchuynh103]

Góp chút cho zui cửa zui nhà:
Dùng phuong pháp thay thế: Chọn khối C415 → Ctrl+H → Find what: . (dấu chấm) → click Replace all
vậy là OK sau đó tùy sở tích định dạng kiểu số

 

[ndu96081631]

File này tôi mở trên máy tôi thì thấy tất cả dử liệu đều là Number ---> Vậy có gì đâu mà chuyển!
(Có lẽ do Settings trong Regional language Options của bạn bị thay đổi thành kiểu VN rồi)

 

[Thien]

File này tôi mở trên máy tôi thì thấy tất cả dử liệu đều là Number ---> Vậy có gì đâu mà chuyển!
(Có lẽ do Settings trong Regional language Options của bạn bị thay đổi thành kiểu VN rồi)

Mình đang sài Wesmosis' Windows XP Pre-SP3 v2.5
Vô Settings trong Regional language Options thì mặc định là Eng (United Sates). Trong customize number chọn Decimal là ".".

Code của domfootwear sau khi chạy thì phải vô format cell định dạng lại number thì mới được.

Hiện tại mình đang sử dụng code này, các bạn xem hộ có gì cần cải tiến (bẫy lỗi)

Sub ChuyenDinhDangNumber()
    Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    Selection.NumberFormat = "#,##0"
End Sub

Thân.

 

[link43]

Tớ cũng bị vướng trường hợp này. Khi xuất báo cáo sang excel, cột MBRNO là định dạng General. Dùng format font để chuyển sang định dạng số không được mà phải click đúp vào từng cel mới chuyển sang định dạng số. Có ai biết cách làm chỉ giùm tớ với.

 

[QuocPhong]

Tớ cũng bị vướng trường hợp này. Khi xuất báo cáo sang excel, cột MBRNO là định dạng General. Dùng format font để chuyển sang định dạng số không được mà phải click đúp vào từng cel mới chuyển sang định dạng số. Có ai biết cách làm chỉ giùm tớ với.

Mình nghĩ chỉ cần chọn hết vùng đó và click và biểu tượng dấu chấm ! và chọn Convert to number là OK mà.

 

[link43]

Cũng phải sửa từng ô 1 nhưng mà nhanh hơn là click đúp. )

 

[Hai Lúa Miền Tây]

Cũng phải sửa từng ô 1 nhưng mà nhanh hơn là click đúp. )

Bạn QuocPhong nói đúng, mình thấy đâu có sửa lại từng ô đâu.
Tô khối vùng text, trên cùng ô text có hiện dấu ! bạn click vào đó và chọn Convert to number một phát là xong.

 

[link43]

Sao lạ thế nhỉ? Tớ cũng chọn cả khối. Nhưng đến khi nhấn vào dấu ! thì nó chỉ chọn có 1 ô. Nhấn convert to number xong thì nó mới chuyển đến ô tiếp theo.