Question

EXCEL如何实现输入一个数字代码，显示一个单位名称题

如图，怎么设置输入一个代码，在同一单元格显示一个单位名称
针对B纵列，在B1输入“1”显示“单位A”
在B2输入“2”显示“单位B”
以此类推、但不影响纵列如A、C、D....（因为工具里的自动更正项是影响整个表格的）

Answer 1

1、下载最新版的excel，打开Excel表格。

2、用鼠标选中所需要加单位的数字。

3、在选中处点击右键设置单元格格式。

4、在下面菜单点击自定义。

5、类型处选择0。

6、0后面输入单位，自己所需要的单位。

7、点击确定，单位就加上了，如图所示。

Answer 2

1、打开我们设计好的工作表格，输入我们需要的最直观的文字内容，便于我们的操作和学习理解。

2、选择我们需要添加单位的数值，然后点击右键菜单，选择设置单元格格式项。

3、运行后立即可以看到，我们添加的单位已经显示在数值的后面。

4、总的来说，此函数使用相当方便，也为我们节省大把的时间，提高做事效率。

5、不管是单个计算，还是整个计算，不管是横着计算还是竖着计算，此函数都能够轻松应对，保质保量的计算出结果。

Answer 3

这样的？

追问

对，就是这种，求怎么弄啊？？？？

追答

右键SHEET名
复制
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
For Each c In Target.Cells
With c
For i = 1 To 30
If Cells(i, 1) = 1 Then '判断是否在第1列(a列)输入数据.

.Value = "A公司"
End If

If Cells(i, 1) = 2 Then

.Value = "B公司"
End If

If Cells(i, 1) = 3 Then

.Value = "C公司"
End If

Next
End With
Next
Application.EnableEvents = True
End Sub

Answer 4

选择B列，格式>单元格格式>自定义，例 ：“类型“设置如图所示，自定义单元格详细设置表达方式自己在网上搜一下吧

Answer 5

一定要vba，参考代码如下（你可以修改cell中的位置，用循环语句）
这个代码是：A1中输入1，则自动改为 单位1
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets(1).Cells(1, 1).Value = 1 Then Worksheets(1).Cells(1, 1).Value = "单位1"
End Sub

追问

具体怎么操作啊？

追答

打开 excel
ALT+F11
F7
把代码输入
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
for i=1 to 100 ' 100个单位
If Worksheets(1).Cells(i, 1).Value = i Then Worksheets(1).Cells(i, 1).Value = "单位"&i
next
End Sub

excel存盘