返回列表 上一主題 發帖

vba 下拉清單內容的範圍 隨時會變更 如何改寫自動抓到全部

vba 下拉清單內容的範圍 隨時會變更 如何改寫自動抓到全部

其中  下拉清單內容的範圍
是隨時會變更 如一下a1:a9 下 a1-a20
要如何改寫自動抓到全部


Sub 制訂清單的內容()
    '下拉清單是屬Shape物件
    With Sheets("SHEET1").Shapes(1)  '如下拉清單是Shapes的第一個Item
        '.ControlFormat.ListFillRange = "SHEET1!A1:A9"  '下拉清單內容的範圍
        .ControlFormat.ListFillRange = "TEST"      '工作表範圍的定義名稱 也可以
    End With
End Sub
max

回復 2# GBKEE


    受益良多感謝您的幫助
max

TOP

        靜思自在 : 每天無所事事,是人生的消費者,積極、有用才是人生的創造者。
返回列表 上一主題