GBKEE

回復 1# baby520every

下載 (35.98 KB)

2014-12-11 07:07

下拉清單 指定巨集的內容

1. Option Explicit
   
2. Sub 下拉清單1_Change()
   
3.     '可修改 Sheet1 : 工作表物件模組的名稱
   
4.     With Sheet1.Shapes("下拉清單 1").OLEFormat.Object
   
5.         Sheet1.[A1] = .List(.Value)
   
6.     End With
   
7. End Sub

複製代碼