excel如何将指定数字变更为指定字符

nicholaswwg

大家好，excel能否实现我在任意单元格内输入1就自动弹出1线，输入2就自动弹出2线，

输入3就自动弹出3线

，

输入4就自动弹出4线，输入5就自动弹出5线

nicholaswwg

大家好，excel能否实现我在任意单元格内输入1就自动弹出1线，输入2就自动弹出2线， 输入3就自动弹出3线 ， 输入4就自动弹出4线，输入5就自动弹出5线

BenjaminToo

什么叫1线2线3线

nicholaswwg

Sub test()
Dim rngs As Range
Set rngs = Worksheets("Sheet1").Range("A1:C4")
For Each rng In rngs
    If rng.Value = "1" Then
    rng.Value = "1线"
    ElseIf rng.Value = "2" Then
    rng.Value = "2线"
    ElseIf rng.Value = "3" Then
    rng.Value = "3线"
    End If
Next
End Sub

tanglf188

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value > 0 And Target.Value < 6 Then Target.Value = Target.Value & "线"
End Sub

大灰狼1976

tanglf188 发表于 2023-6-7 16:20
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value > 0 And Target.Value < 6 Th ...

你这个会发生连锁反应，需要设Application.EnableEvents开关。
实际上也可以用自定义格式来实现

tanglf188

大灰狼1976 发表于 2023-6-7 17:05
你这个会发生连锁反应，需要设Application.EnableEvents开关。
实际上也可以用自定义格式来实现

没有啊，条件是1-5才会修改，
自定义格式可以实现，楼主的意思是任意单元格，如果有单元格有自定义格式冲突就头大了

大灰狼1976

你说的对，但我还是建议加Application.EnableEvents开关。