返回列表 上一主題 發帖

[發問] 下拉式選單無法新增新的欄位

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-10-11 09:42 | 顯示全部帖子

[發問] 下拉式選單無法新增新的欄位

價目表.rar (25.31 KB)

以上是某位老師幫我新增的下拉式選單
我想在sheet1新增第21列
我看了一下程式碼，修改下方的
.Add Type:=xlValidateList, Formula1:="=工作表1!$A$3:$A$20"
修改成
.Add Type:=xlValidateList, Formula1:="=工作表1!$A$3:$A$21"

但是sheet2的下拉式選單卻沒新增第21列的項目名稱
收藏 分享

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
2#
發表於 2016-10-11 13:30 | 顯示全部帖子
回復 2# lpk187


執行後出現"陣列索引超出範圍 (錯誤 9)"

TOP

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
3#
發表於 2016-10-11 16:17 | 顯示全部帖子
回復 4# lpk187

剛剛測試了一下前輩寫的程式，可以用，萬分感謝

發現下方會多出許多空白
如果沒有
Private Sub Worksheet_Activate()
CellValidation
End Sub
他還是會正常執行

TOP

av8d

帖子
710 
主題
280 
精華
0 
積分
1016 
點名
0  
作業系統
Windows 10 
軟體版本
Office 2019 
閱讀權限
50 
性別
男 
註冊時間
2011-6-30 
最後登錄
2025-1-19 
4#
發表於 2016-10-17 00:39 | 顯示全部帖子
回復 6# starry1314


    可以完美使用了，謝謝老師，萬分感謝，受益良多。

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題