Question

VBA结合EXCEL有效性下拉框：Private Sub Worksheet_SelectionChange(ByVal Target As Range)用法

想实现以下功能：当某个单元格，设定为有效性下拉框（已绑定数据库），当选择不同的下拉框内容时，对应的另一个单元格变化成不同的值，比如说选择品号（有效性下拉框），旁边的单元格会显示品名，求简单的例子。

若以下回答无法解决问题，邀请你更新回答

Answer 1

何必用VBA用个公式不就搞定

追问

用公式当然简单呀。我这个是要根据选中的数据，然后在后台数据库中查询到匹配的数据来显示在对应的单元格中，主要是Private Sub Worksheet_SelectionChange(ByVal Target As Range)用法问题

追答

如果是简单的用用，可以调用excel内部函数applictoin.vlookup().
如果要在程序中查找，可以使用字典。昨天刚学的，对付查找还是很好用。
如果是找第二个单元格，用target的问题，target是一个单元格对象，有row()行属性，column()列性。target.offset(1,1)表示相对寻址的属性。你要用哪个。

追问

我不是简单的在EXCEL里面操作，我是需要连接SQLserver数据库，然后根据单元格（有效性下拉框，并不是控件COMBOBOX,如果是COMBOBOX,我早就做好了）选择的内容，来从SQL数据库中查找等于选择数据的行的另外一项属性值，然后返回此值到EXCEL单元格中。你可能不是编程人员吧，但还是非常感谢你的用心和你的回答！

追答

你是要这个吗?A1单元格为要显示的字段,查找姓名=张三的,当然,张三也可以用单元格数值代替.
需要显示属性值的单元格是sheet(1).[d2],因为查找到的记录无法直接显示,需要用到CopyFromRecordset把记录拷到单元格中显示.如果是在SelectionChange事件中,条件单元格用Target ,要显示的单元格用Target .offset(1,2),这样可以不.顺便说一下,我的确不是程序员,但我爱好编程,有空多交流.

Set conn = CreateObject("ADODB.Connection")
conn.Open "dsn=excel files;dbq=" & ThisWorkbook.Path & "/001.xls"
Sql = "select " & Range("A1") & " from [sheet1$] where 姓名 = '张三'"
Sheets(1).[d2].CopyFromRecordset conn.Execute(Sql)
conn.Close: Set conn = Nothing

Answer 2

baidu一下下拉框如何做,然后就内容进行处理以符合要求