excel表如何写填写数字后,自动变符号

发布网友发布时间：2022-05-01 19:07

共5个回答

热心网友时间：2022-06-21 16:12

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim tr, tc
tr = Target.Row
tc = Target.Column
   If tr >= 1 And tc = 1 Then
      If Cells(tr, tc) = 1 And Cells(tr, tc) <> "" Then Cells(tr, tc) = "D1"
      If Cells(tr, tc) = 2 And Cells(tr, tc) <> "" Then Cells(tr, tc) = "D2"
      If Cells(tr, tc) = 3 And Cells(tr, tc) <> "" Then Cells(tr, tc) = "D3"
      If Cells(tr, tc) = 4 And Cells(tr, tc) <> "" Then Cells(tr, tc) = "D4"
      End If
End Sub

可以用vba完成，复制到代码窗口，A列（只是A列，其他列不执行）输入1，就是D1，类推

热心网友时间：2022-06-21 16:12

首先选择这一列，鼠标右键--单元格格式，设置自定义："D"0

在这一列里面输入数字1，就会自动变成D1，以此类推。

热心网友时间：2022-06-21 16:12

自定义格式中y、m、d、h，s都是Excel格式中内置的特有的格式表达式，y为年，m为月，d为

日，h为小时，s为秒，所以在数字前面加这些个字符表达式，并不能产生添加前缀“D”的效

果。除过以上5个字母外其它字母都可以添加成功。

但是还有一个办法，就是进行强制显示，在自定义中输入强制符号“!”,如图：

热心网友时间：2022-06-21 16:13

在A1输入数字1，在B1输入公式 ="D"&A1 就得到D1了，向下复制填充即可。

热心网友时间：2022-06-21 16:14

右键单元格格式
自定义
"D"#追问我上面说了D#不行，不行你自己试试

追答我自己试了可以的
我用的是Excel，WPS不太清楚了
"D"#不是D#
你看清楚了
刚才试了WPS，"D"#可以的