6个回答
假设A2单元格已经设置了数据有效性下拉选择列表，C、D列是材质和密度对应关系，当A2选择材质以后，B2自动填入密度；
1、在B2输入公式：=IFERROR(VLOOKUP(A2,C:D,2,0),) 回车；
见图一
2、显示效果：
见图二
3、如在A2选择：铸铁；
见图三
B2会自动填入符合C、D列对应关系的密度
见图四
说明：公式中 iferror是为了防止A2出现空格时，显示错误而设的，可以不要，直接用公式：=VLOOKUP(A2,C:D,2,0)
1、在B2输入公式：=IFERROR(VLOOKUP(A2,C:D,2,0),) 回车；
见图一
2、显示效果：
见图二
3、如在A2选择：铸铁；
见图三
B2会自动填入符合C、D列对应关系的密度
见图四
说明：公式中 iferror是为了防止A2出现空格时，显示错误而设的，可以不要，直接用公式：=VLOOKUP(A2,C:D,2,0)
你拖动完了后有个+里面可以选择填充样式
B2=vlookup(A2,C:D,2,0)
用VBA做一个代码，可以在选中E2单元格时弹出一个日历控件，选择日期后日历控件就自动隐藏，同时E2单元格显示刚才选中的日期值。
先在工作表中添加一个日历控件，然后点下面工作表标签名字，按鼠标右键，从弹出的快捷菜单中选“查看代码”，然后把下面代码粘贴进去，回到excel窗口就能使用了。
Private Sub Calendar1_Click()
Range(e2) = Calendar1.Value '让E2单元格显示日历控件的值
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = $E$2 Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub
先在工作表中添加一个日历控件，然后点下面工作表标签名字，按鼠标右键，从弹出的快捷菜单中选“查看代码”，然后把下面代码粘贴进去，回到excel窗口就能使用了。
Private Sub Calendar1_Click()
Range(e2) = Calendar1.Value '让E2单元格显示日历控件的值
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = $E$2 Then
Calendar1.Visible = True
Else
Calendar1.Visible = False
End If
End Sub
=VLOOKUP(A2,C:D,2,0)
B2单元格写入公式
=VLOOKUP(A2,C:D,2,)
或
=INDEX(D:D,MATCH(A2,C:C,))
下拉填充公式
=VLOOKUP(A2,C:D,2,)
或
=INDEX(D:D,MATCH(A2,C:C,))
下拉填充公式