功能:開啟後跳出選單,依選擇資料輸入指定儲存格
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″]