1. excel2007 代码怎么写 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count 1 Then Exit Sub
If Target.Valuehttp://www.xuexi88.com/zhishi/= "" 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窗口，在左边的 工程窗口中双击 询价列表 然后把代码复制到 右边的窗口中……
2. 怎么写一段excel vba 输入代码 1. 从Excel工具栏中插入一个VBA的控件-编辑框 。
2. 双击这个编辑框，进入VBA编程窗口 。
3. 删除原来的所有内容，输入以下内容：
Private Sub TextBox1_LostFocus()
Range("A1").Value = http://www.xuexi88.com/zhishi/TextBox1.Text
End Sub
4. 关闭编程窗口，回到Excel界面 。
5. 在编辑框中输入一个字串 。
6. 用鼠标点击编辑框之外的其它地方，看看所输入的字串是不是出现在A1
3. 怎么在EXCEL单元格里输入一个代号,就能显示完整的名称 1、在D:E列建立代码和名称对应表
2、在A2单元格输入代码，在B2单元格输入以下公式
=IF(A2="","",VLOOKUP(A2,D:E,2,0))
公式表示：如果A2单元格为空，就返回空；如果A2单元格不为空，在D列精确匹配与A2相同的代码，并返回对应第2列（E列）的名称 。
【excel怎么写代码】
文章插图