Tự động chèn thêm ký tự đặc biệt khi gõ số vào cell

[xuanhoaa412]

Mình đang có 1 bảng thống kê về thép, thì trong cột các loại thép, mình muốn nhập số thì ô đó tự động hiện ký tự Φ trước số đó thì phải làm như thế nào. Cảm ơn mọi người!

 

[ndu96081631]

Mình đang có 1 bảng thống kê về thép, thì trong cột các loại thép, mình muốn nhập số thì ô đó tự động hiện ký tự Φ trước số đó thì phải làm như thế nào. Cảm ơn mọi người!

Vào Custom Format gõ đoạn mã này: "Φ" #;-General;General

 

[phulien1902]

Mình đang có 1 bảng thống kê về thép, thì trong cột các loại thép, mình muốn nhập số thì ô đó tự động hiện ký tự Φ trước số đó thì phải làm như thế nào. Cảm ơn mọi người!

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D4", Range("D" & Rows.Count).End(xlUp))) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Target.Value = Chr(216) & Target.Value
    End If
End Sub

 

[bebo021999]

Tại 1 ô trống, bạn vào Insert, bên phải có biểu tượng symbol, click vào, tại khung chọn, phía dưới có ô "Character code:" nhập vào 0424, sau đó click "Insert"
Ô này sẽ hiện ra biểu tượng Ф
Lên thanh công thức bôi đen, copy.
Chọn cột loại thép, Ctrl-1 (Format cell) /custom/Type: xóa chữ General đi, paste lệnh copy nãy vào sẽ có Ф, và gõ thêm số 0 đằng sau thành "Ф0", nhấn OK

 

[xuanhoaa412]

Tại 1 ô trống, bạn vào Insert, bên phải có biểu tượng symbol, click vào, tại khung chọn, phía dưới có ô "Character code:" nhập vào 0424, sau đó click "Insert"
Ô này sẽ hiện ra biểu tượng Ф
Lên thanh công thức bôi đen, copy.
Chọn cột loại thép, Ctrl-1 (Format cell) /custom/Type: xóa chữ General đi, paste lệnh copy nãy vào sẽ có Ф, và gõ thêm số 0 đằng sau thành "Ф0", nhấn OK

Tks bạn nhé, mình làm đc rồi

 

[xuanhoaa412]

Vào Custom Format gõ đoạn mã này: "Φ" #;-General;General

View attachment 187642

Tks bạn nhé!

 

[Ba Tê]

Vào Custom Format gõ đoạn mã này: "Φ" #;-General;General

View attachment 187642

Tks bạn nhé!
Tiếng Việt mới đọc là "tao không sợ bạn nhé"

 

[khoa186]

Bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D4", Range("D" & Rows.Count).End(xlUp))) Is Nothing Then Exit Sub
    If IsNumeric(Target) Then
        Target.Value = Chr(216) & Target.Value
    End If
End Sub

các bạn cho mình hỏi , nếu ô đó là text thì code này không chạy , vậy mình muốn nếu nhập số hoặc text vào code chạy mình phải sửa như thế nào , cảm ơn các bạn

 

[giaiphap]

các bạn cho mình hỏi , nếu ô đó là text thì code này không chạy , vậy mình muốn nếu nhập số hoặc text vào code chạy mình phải sửa như thế nào , cảm ơn các bạn

Bỏ dòng kiểm tra là số đi, cụ thể là bỏ dòng If và End if