采用VBA的方式,就可以实现,步骤如下:
建立关系对应表(我是在D-F列中建立的关系表)
2.按ALT+F11打开VBA界面,双击sheet1
3.复制下面公式到右面的代码区
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Target, Range("C:C")) Is Nothing Then End
If IsError(Application.VLookup(Target, Range("D:F"), 1, 0)) Then
Target = Target
Else
Target = "ID(" & Application.VLookup(Target, Range("D:F"), 2, 0) & ")面积(" & Application.VLookup(Target, Range("D:F"), 3, 0) & ")"
End If
End Sub
4.另存为“启用宏的工作薄"
完成后在C列输入的结果就如下了
在C4输入张1
按回车变成下面的
注意:Range("C:C"),是判断输入列的值,如果你需要在其他列显示,就更改成其他列
Range("D:F") 是关系表如果数据在其他列就更改成其他列,如果关系表不在此工作表中,在Range("D:F")前面加入Worksheets("工作表名称") 比如:Worksheets("sheet2").range("D:F")
简单,“=IF(C2="张1",$A$2*$B$2," ")”把它复制到D2单元格。