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列）的名稱。