excel怎么写代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Count 1 Then Exit Sub

If Target.Value = "" Then Exit Sub

If Not Intersect(Selection, Range("a2:a200")) Is Nothing Then

Sheets（"询价明细"）.Range("L2") = Target.Value ' 取值之后复制给B2 单元格……要如何自己改下吧

End If

End Sub

上面的代码 你按住alt键 然后 再按F11 功能键 打开vbe窗口，在左边的 工程窗口中双击 询价列表 然后把代码复制到 右边的窗口中……

1. 从Excel工具栏中插入一个VBA的控件-编辑框。

2. 双击这个编辑框，进入VBA编程窗口。

3. 删除原来的所有内容，输入以下内容：

Private Sub TextBox1_LostFocus()

Range("A1").Value = TextBox1.Text

End Sub

4. 关闭编程窗口，回到Excel界面。

5. 在编辑框中输入一个字串。

6. 用鼠标点击编辑框之外的其它地方，看看所输入的字串是不是出现在A1

1、在D:E列建立代码和名称对应表

2、在A2单元格输入代码，在B2单元格输入以下公式

=IF(A2="","",VLOOKUP(A2,D:E,2,0))

公式表示：如果A2单元格为空，就返回空；如果A2单元格不为空，在D列精确匹配与A2相同的代码，并返回对应第2列（E列）的名称。