Giúp code chuyển kiểu Number sang kiểu Text (1 người xem)

[minhtuan55]

Chào cả nhà GPE !
Em cần 1 đoạn code để chuyển 1 vủng dữ liệu từ kiểu Number sang kiểu text ( và ngược lại ). Em có gửi File mọi ngưởi xem giúp em

 

[Ba Tê]

Chào cả nhà GPE !
Em cần 1 đoạn code để chuyển 1 vủng dữ liệu từ kiểu Number sang kiểu text ( và ngược lại ). Em có gửi File mọi ngưởi xem giúp em

Bạn xem file....................................

 

[Kiều Mạnh]

Chào cả nhà GPE !
Em cần 1 đoạn code để chuyển 1 vủng dữ liệu từ kiểu Number sang kiểu text ( và ngược lại ). Em có gửi File mọi ngưởi xem giúp em

Nếu thích đơn giản thì vầy đi ...còn lại Bạn muốn là gì thì làm ...

Sub NumberToText()
    Dim Rng As Range
    Set Rng = ActiveSheet.Range("B3", ActiveSheet.Range("B3").End(xlDown))
    Rng.NumberFormat = "@"
    'Rng.NumberFormat = "General"
End Sub

 

[minhtuan55]

Bạn xem file....................................

dạ em cảm ơn anh nhiều lắm.

 

[minhtuan55]

Nếu thích đơn giản thì vầy đi ...còn lại Bạn muốn là gì thì làm ...

Sub NumberToText()
    Dim Rng As Range
    Set Rng = ActiveSheet.Range("B3", ActiveSheet.Range("B3").End(xlDown))
    Rng.NumberFormat = "@"
    'Rng.NumberFormat = "General"
End Sub

dạ em cảm ơn anh nhiều lắm. Trường hợp từ Text sang Number sửa lại sao anh

 

[Kiều Mạnh]

dạ em cảm ơn anh nhiều lắm. Trường hợp từ Text sang Number sửa lại sao anh

Bạn tập làm nha

1/ chèm 1 cái command Button đặt tên nó là ChangeFormat

2/ Code hoàn chỉnh cho nó như sau:

Private Sub ChangeFormat_Click()
    Dim Dk As Boolean, Rng As Range
    Set Rng = ActiveSheet.Range("B3", ActiveSheet.Range("B3").End(xlDown))
    Dk = ChangeFormat.Caption = "Text"
    ChangeFormat.Caption = IIf(Dk, "Number", "Text")
    If Dk Then
        Rng.NumberFormat = "@"
    Else
        Rng.NumberFormat = "General"
    End If
End Sub

 

[AnhThu-1976]

Em muốn chuyển từ text sang number
Em muốn chuyển ở cột E & F
Số liệu của 2 cột này không liên tục
Số liệu còn dài xuống dưới
Em có áp dụng các code trên nhưng chưa được
Nhờ anh chị viết code giúp, em cảm ơn!

 

[phulien1902]

Em muốn chuyển từ text sang number
Em muốn chuyển ở cột E & F
Số liệu của 2 cột này không liên tục
Số liệu còn dài xuống dưới
Em có áp dụng các code trên nhưng chưa được
Nhờ anh chị viết code giúp, em cảm ơn!

Bạn thử:

Sub abc()
    [E4:F12] = [e4:f12*1]
End Sub

 

[VetMini]

Em muốn chuyển từ text sang number
Em muốn chuyển ở cột E & F
Số liệu của 2 cột này không liên tục
Số liệu còn dài xuống dưới
Em có áp dụng các code trên nhưng chưa được
Nhờ anh chị viết code giúp, em cảm ơn!

Trong tất cả các cách chuyển text thành số thì cách Data > Text to Columns là dễ nhất. Bạn đã thử cách ấy chưa?

 

[ndu96081631]

Em muốn chuyển từ text sang number
Em muốn chuyển ở cột E & F
Số liệu của 2 cột này không liên tục
Số liệu còn dài xuống dưới
Em có áp dụng các code trên nhưng chưa được
Nhờ anh chị viết code giúp, em cảm ơn!

- Copy 1 cell trắng
- Chọn vùng cần chuyển Paste Special\Values + Add