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