excel怎麼寫代碼
1. excel2007 代碼怎麼寫
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窗口,在左邊的 工程窗口中雙擊 詢價列表 然後把代碼複製到 右邊的窗口中……
2. 怎麼寫一段excel vba 輸入代碼1. 從Excel工具欄中插入一個VBA的控件-編輯框。
2. 雙擊這個編輯框,進入VBA編程窗口。
3. 刪除原來的所有內容,輸入以下內容:
Private Sub TextBox1_LostFocus()
Range("A1").Value = 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列)的名稱。