[發問]資料驗證中清單的來源，在excel VBA 中，要如何給值？
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
[發問]資料驗證中清單的來源，在excel VBA 中，要如何給值？
|
請問，資料驗證中清單的[來源]，在excel VBA 中，要如何給值？ |
|
|
|
|
|
|
|
- 帖子
- 13
- 主題
- 3
- 精華
- 0
- 積分
- 30
- 點名
- 0
- 作業系統
- MaC OS 10.10.5
- 軟體版本
- office 2011
- 閱讀權限
- 10
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2010-8-26
- 最後登錄
- 2017-7-12
|
2#
發表於 2016-4-22 11:59
| 只看該作者
在userform插入代碼,
表單開起時下拉式選單載入預設值
Private Sub UserForm_Activate()
下拉式按鈕名稱.AddItem "AAAA"
下拉式按鈕名稱.AddItem "BBBB"
下拉式按鈕名稱.AddItem "CCCC"
End sub |
|
|
Steven
|
|
|
|
|
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
3#
發表於 2016-4-22 15:21
| 只看該作者
本帖最後由 abbay262 於 2016-4-22 15:22 編輯
謝謝回覆，小弟google後，使用驗證清單
With Range(Cells(9 , 4), Cells(9, 15)).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Cells(9 , 19)
End With
以上請參考 |
|
|
|
|
|
|
|
