Chuyển định dạng một cột dãy số thành định dạng text bằng code và cố định không thay đổi (1 người xem)

[210914101]

Chào cả Nhà!
Mình có một khó khăn mong mọi người giúp đỡ với.
Mình có một cột dãy số kiểu number, giờ mình muốn dùng code để chuyển nó qua định dạng text có dấu nháy xanh phía trước và khi có dữ liệu update mới vào
nó tự động chuyển qua dạng text và có dấu nhanh xanh phía trước.
Mong mọi người giúp đỡ với.

Đây lày dãy số của mình.
1401
1401
1401
1401
1401
1401
1401
1401
1401
1401
1401
7551
1006
1701
1003
2801
1006
2801
1006
2801
1006
2801
1006
2801
1006
2801
1701
1003
1006
2801
1006
2801
4944
2862
1006
2801
1006
2801
1006
1401

 

[nlbx]

Tham khảo:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ra As Range
Dim cllItem As Range
Set ra = Range("F6:F45")
For Each cllItem In ra
If InStr(1, cllItem, "'") = 0 Then cllItem = "''" & cllItem
cllItem.Font.ColorIndex = 0
cllItem.Characters(1, 1).Font.ColorIndex = 5
Next cllItem
End Sub

 

[phulien1902]

Chào cả Nhà!
Mình có một khó khăn mong mọi người giúp đỡ với.
Mình có một cột dãy số kiểu number, giờ mình muốn dùng code để chuyển nó qua định dạng text có dấu nháy xanh phía trước và khi có dữ liệu update mới vào
nó tự động chuyển qua dạng text và có dấu nhanh xanh phía trước.
Mong mọi người giúp đỡ với.

Đây lày dãy số của mình.
1401
1401
1401
1401
1401
1401
1401
1401
1401
1401
1401
7551
1006
1701
1003
2801
1006
2801
1006
2801
1006
2801
1006
2801
1006
2801
1701
1003
1006
2801
1006
2801
4944
2862
1006
2801
1006
2801
1006
1401

Thử:

Sub abc()
    Dim cll As Range
    For Each cll In Selection.SpecialCells(xlCellTypeConstants)
        If IsNumeric(cll) Then cll.Value = "'" & cll
    Next
End Sub

 

[210914101]

Mình cảm ơn hai bạn rất nhiều!
Mình sẽ copy về và áp dụng thử.
Trân Trọng!

 

[210914101]

Cảm ơn hai bạn!
Nhưng mình test thử rồi.
Code của hai bạn không chạy được.
Và khi thay đổi số liệu thì nó cũng không cố định định dạng được.
Code của bạn phulien1902 thì mình không biết đặt vào vùng nào.
Hai bạn xem giúp mình với. Cảm ơn nhiều.

 

[phulien1902]

Cảm ơn hai bạn!
Nhưng mình test thử rồi.
Code của hai bạn không chạy được.
Và khi thay đổi số liệu thì nó cũng không cố định định dạng được.
Code của bạn phulien1902 thì mình không biết đặt vào vùng nào.
Hai bạn xem giúp mình với. Cảm ơn nhiều.

Bạn quét chọn vùng dữ liệu rồi chạy Code.
Vậy thôi.

 

[Hau151978]

Bạn record macro, dùng chức năng text to columns rồi chuyển định dạng cột thành text là được. Code ví dụ, bạn chạy thử xem, mình viết trên điện thoại nên không thử được.
Sub xxx()
Columns(1).texttocolumns fieldinfo:=array(1,2)
Columns(1).numberformat="@"
end sub
Nếu bạn chỉ muốn sửa cột A thì ngoài bảng tính bạn bấm Alt-F11, Ctrl-G, nhập "Columns(1).texttocolumns fieldinfo:=array(1,2):Columns(1).numberformat="@"" (không có cặp dấu nháy kép ở ngoài), bấm enter là xong. Nếu bạn muốn sửa cột B thì thay columns(1) thành columns(2)

 

[210914101]

Bạn quét chọn vùng dữ liệu rồi chạy Code.
Vậy thôi.

Bạn thêm giúp mình điều kiện vùng được không. Vì nếu quét vùng thì nó hơi thủ công. hihi

 

[phulien1902]

Bạn thêm giúp mình điều kiện vùng được không. Vì nếu quét vùng thì nó hơi thủ công. hihi

Bạn thử Code và tùy biến nhé

Sub abc2()
    Dim Cll As Range
    For Each Cll In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeConstants, 1)
        Cll.Value = "'" & Cll
    Next
End Sub

 

[210914101]

Mình cảm ơn tất cả mọi người nghe.
Cảm ơn rất nhiều đã giúp đỡ mình!
Trân Trọng!