Chuyển từ dạng Text 1,466,990,451.00 thành dạng số 1466990451 (1 người xem)

[AnhThu-1976]

Các anh chị viết code giúp chuyển từ dạng Text 1,466,990,451.00 thành dạng số 1.466.990.451
Trong File em muốn chuyển từ dạng text sang dạng number của khối cell B423
Em có thấy công thức (hàm tự tạo) chuyển từ dạng text sang dạng number ở trên mạng, nhưng phải thiết lập cho từng cột và copy & paste, nhưng do công việc hàng ngày nên hơi lâu
Bây giờ em muốn Chọn (bôi đen) khối cell B423 và chạy code thì nó tự chuyển đổi luôn
Lưu ý: chỉ chuyển đổi dạng text xxx,xxx.00 sang dạng số, còn nếu là đã là số thì giữ nguyên
Máy tính em đang sử dụng:
Dấu . (chấm) là dấu phân cách hàng nghìn
Dấu , (phẩy) là dấu phân cách số thập phân
Em cảm ơn!

 

[vanthinh3101]

Các anh chị viết code giúp chuyển từ dạng Text 1,466,990,451.00 thành dạng số 1.466.990.451
Trong File em muốn chuyển từ dạng text sang dạng number của khối cell B423
Em có thấy công thức (hàm tự tạo) chuyển từ dạng text sang dạng number ở trên mạng, nhưng phải thiết lập cho từng cột và copy & paste, nhưng do công việc hàng ngày nên hơi lâu
Bây giờ em muốn Chọn (bôi đen) khối cell B423 và chạy code thì nó tự chuyển đổi luôn
Lưu ý: chỉ chuyển đổi dạng text xxx,xxx.00 sang dạng số, còn nếu là đã là số thì giữ nguyên
Máy tính em đang sử dụng:
Dấu . (chấm) là dấu phân cách hàng nghìn
Dấu , (phẩy) là dấu phân cách số thập phân
Em cảm ơn!

Áp dụng cho máy của bạn.
- Chọn vùng B4: D23
- Crt + H
+ Lần 1: Find what: "." và Replace with "~" --> Click Replace all
+ Lần 2: Find what: "," và Replace with "." --> Click Replace all
+ Lần 3: Find what: "~" và Replace with "," --> Click Replace all
- Xem kết quả

 

[Ba Tê]

Các anh chị viết code giúp chuyển từ dạng Text 1,466,990,451.00 thành dạng số 1.466.990.451
Trong File em muốn chuyển từ dạng text sang dạng number của khối cell B423
Em có thấy công thức (hàm tự tạo) chuyển từ dạng text sang dạng number ở trên mạng, nhưng phải thiết lập cho từng cột và copy & paste, nhưng do công việc hàng ngày nên hơi lâu
Bây giờ em muốn Chọn (bôi đen) khối cell B423 và chạy code thì nó tự chuyển đổi luôn
Lưu ý: chỉ chuyển đổi dạng text xxx,xxx.00 sang dạng số, còn nếu là đã là số thì giữ nguyên
Máy tính em đang sử dụng:
Dấu . (chấm) là dấu phân cách hàng nghìn
Dấu , (phẩy) là dấu phân cách số thập phân
Em cảm ơn!

Quét chọn vùng B4 đến D23, chạy Sub này thử xem:

Public Sub sGpe()
 Dim Rng As Range
 Set Rng = Selection
  Rng.NumberFormat = "#,##0"
  Rng.Value = Rng.Value
End Sub

 

[be_09]

Các anh chị viết code giúp chuyển từ dạng Text 1,466,990,451.00 thành dạng số 1.466.990.451
Trong File em muốn chuyển từ dạng text sang dạng number của khối cell B423
Em có thấy công thức (hàm tự tạo) chuyển từ dạng text sang dạng number ở trên mạng, nhưng phải thiết lập cho từng cột và copy & paste, nhưng do công việc hàng ngày nên hơi lâu
Bây giờ em muốn Chọn (bôi đen) khối cell B423 và chạy code thì nó tự chuyển đổi luôn
Lưu ý: chỉ chuyển đổi dạng text xxx,xxx.00 sang dạng số, còn nếu là đã là số thì giữ nguyên
Máy tính em đang sử dụng:
Dấu . (chấm) là dấu phân cách hàng nghìn
Dấu , (phẩy) là dấu phân cách số thập phân
Em cảm ơn!

Chọn vùng cần chuyển rồi thử chạy code sau.

Sub Format_So()
    With Selection
        .Value = .Value
        .NumberFormat = "0.00"
    End With
End Sub