帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-4-20 18:43 | 只看該作者

[發問] 下拉式選單資料來源用變數

小弟想設計個下拉式選單

先用錄製巨集方式了解操作方式再做微調

但碰到了使用變數替換的問題

原作業環境為Excel 2007
操作下單選單使用了下方語法
Formula1:="='Substance'!$A2:$A$10"

但發現作業環境如果是Excel 2003
會發生錯誤，選單資料好像不能直接用別張Sheet

後來搜尋到可用INDIRECT的方式

錄製巨集得到下方語法
Formula1:="=INDIRECT(""'Substance'!$A2:$A10"")"

我想將A2:A10中的10改換成變數來操作
e.g. Formula1:="=INDIRECT(""'Substance'!$A2:$A"" & final_substance & ")""

此列舉語法錯誤

但不知怎麼修改語法

煩請各位協助解惑

謝謝！！！

樓主熱帖

用功到世界末日那一天～～～

lpk187

高中生 Rank: 3 Rank: 3

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

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

2^#

發表於 2015-4-20 21:50 | 只看該作者

回復 1# li_hsien

不能類似像下列表示法嗎？
a = Sheets("Substance").[A2].End(xlDown).Row
ComboBox1.RowSource = "Substance!A2:A" & a

下面這句
Formula1:="=INDIRECT(""'Substance'!$A2:$A"" & final_substance & ")""

雙引號的用法不對，雙引號在用都是雙雙對對的，另在巨集中有單引號( ' )出現"皆視為註解"，所以Substance這個工作表可以把單引號拿掉直接用 Substance!
不過我還是幫你修正上列語句
Formula1:="=INDIRECT(""Substance!$A2:$A" & final_substance & """)"

TOP

li_hsien

中學生 Rank: 2

帖子: 248
主題: 55
精華: 0
積分: 314
點名: 187
作業系統: XP / WIN7
軟體版本: 2003 / 2007
閱讀權限: 20
性別: 男
來自: Tainan
註冊時間: 2013-10-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章論壇贊助勳章 2014馬年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2015-4-21 14:46 | 只看該作者

本帖最後由 li_hsien 於 2015-4-21 14:54 編輯

回復 2# lpk187

謝謝您的協助！！！

語法可以了

但是他的雙引號對應關係我看不到懂

我用顏色將雙引號區分出來，不知是不是這樣兩兩相對

另外我這個應該也不是您說的下拉選單
我是在儲存格中用資料驗證的方式
操作大致如下

With Worksheets("GP規格比對表").Range("E4:E" & Range("C65536").End(xlUp).Row).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=INDIRECT(""Temp_Substance!$A2:$A" & final_substance & """)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = "請以下拉選單方式選取"
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With

複製代碼

用功到世界末日那一天～～～

TOP