Chuyển dãy số thành text (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

Ân Nguyễn 132

Thành viên mới
Tham gia
21/11/17
Bài viết
6
Được thích
0
Giới tính
Nam
Dạ các bác cho em hỏi là em có 1 ô excel ạ, giờ em muốn nhập vô là 234 thì ô đó nó tự nhảy là 0000234 và ô đó có kiểu dữ liệu là text có được không ạ
 
cột đó mình chỉ cần gõ số thôi ví dụ 234 thì nó sẽ thành 0000234 và nó là kiểu text đó bác
Thử gõ vào cột C, (Column = 3)
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 3 Then
    Application.EnableEvents = False
        Target.Value = "'" & Format(Target.Value, "0000000")
    Application.EnableEvents = True
End If
End Sub
 

File đính kèm

File đính kèm

Thử gõ vào cột C, (Column = 3)
Mã:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Column = 3 Then
    Application.EnableEvents = False
        Target.Value = "'" & Format(Target.Value, "0000000")
    Application.EnableEvents = True
End If
End Sub
cái này phải tạo bằng VBA hả bác, chứ k làm thủ công được hả?
 
Mâu thuẫn. Muốn "tự động" bằng "thủ công" là thế nào?
 
Hì, ý em "thủ công" nghĩa là mình có thể tự điều chỉnh bằng tay mà không xài VBA đó bác
Làm thủ công thì dùng hàm TEXT, ví dụ ở cột B gõ =TEXT(A1,"00000"), kéo công thức xuống. Sau đó Copy phần công thức này Paste lại cột A, xóa công thức ở cột B.
Hoặc sử dụng công thức ở cột B (cột phụ) cho công việc cần làm.
 
Web KT

Bài viết mới nhất

Back
Top Bottom