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

價目表.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

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

7^#

發表於 2016-10-17 00:39 | 只看該作者

回復 6# starry1314

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

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

6^#

發表於 2016-10-12 20:08 | 只看該作者

回復 5# av8d

Sub CellValidation()    '  stillfish00 提供
'ro = Sheets("Sheet2").[A65535].End(xlUp).Row

ro = Sheets("Sheet1").[A65535].End(xlUp).Row '選單內容
With Sheets("Sheet2").[A2:A25].Validation
      .Delete
      .Add Type:=xlValidateList, Formula1:="=Sheet1!$A$3:$A$" & ro
End With
End Sub
然後把下面這段貼到最後面，這樣當你Activate工作表2時，就會自動幫你更改
Private Sub Worksheet_Activate()
CellValidation
End Sub

TOP

av8d

大學生 Rank: 4

帖子: 703
主題: 276
精華: 0
積分: 1005
點名: 1
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2011-6-30
最後登錄: 2024-5-29

5^#

發表於 2016-10-11 16:17 | 只看該作者

回復 4# lpk187

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

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

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

4^#

發表於 2016-10-11 13:59 | 只看該作者

本帖最後由 lpk187 於 2016-10-11 14:06 編輯

回復 3# av8d

那就把它改成
Sub CellValidation()    '  stillfish00 提供
ro = Sheets("Sheet2").[A65535].End(xlUp).Row
With Sheets("Sheet2").[A2:A25].Validation
      .Delete
      .Add Type:=xlValidateList, Formula1:="=Sheet1!$A$3:$A$" & ro
End With
End Sub
然後把下面這段貼到最後面，這樣當你Activate工作表2時，就會自動幫你更改
Private Sub Worksheet_Activate()
CellValidation
End Sub

TOP

av8d