【Excel VBA】004_開啟跳出表單,依選擇資料自動填入指定儲存格

功能:開啟後跳出選單,依選擇資料輸入指定儲存格

1.選單資料位於 數據頁面 並使用定義名稱【項目】
2.指定儲存格 輸出-b2

Private Sub UserForm_Initialize()
 With Sheets("輸出")
 ComboBox1.List = [項目].Value
 End With
 End Sub

Private Sub 確定_Click()
     With Sheets("輸出")
 ComboBox1.List = [項目].Value
 .Range("B2") = ComboBox1 '
     End With
     Unload Me '關閉表單
 End Sub

[sdm_download id=”2352″ fancy=”1″]