返回列表 上一主題 發帖

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

回復 1# user999
  1. Sub 制訂清單的內容()
  2.     '下拉清單是屬Shape物件
  3.     With Sheets("SHEET1")  '如下拉清單是Shapes的第一個Item
  4.          Ad = .Range(.[A1], .[A1].End(xlDown)).Address
  5.         .Shapes(1).ControlFormat.ListFillRange = Ad      '工作表範圍的定義名稱 也可以
  6.     End With
  7. End Sub
複製代碼

TOP

        靜思自在 : 世上有兩件事不能等:一、孝順 二、行善。
返回列表 上一主題