[發問] 設計一個表單

表單有多個物件

舉例遇到的問題
ComboBox1 (name) 改成料號1
ComboBox2 (name) 改成料別1
TextBox1 (name) 改成數量1

執行"表單"時分別選擇了數值
料號1 = 2219-007
料別1 = 保管料
數量1 = 30
按下確定時卻在選擇"保管料"工作表時錯誤了 Worksheets(料別1).Select

程式如下
'開啟料號資料庫
Workbooks.Open ThisWorkbook.Path & "\資料庫\" & 料號1 & ".xlsx"
'選擇料別
Worksheets(料別1).Select <===在這行停止了

警告是
執行階段錯誤 '13':
型態不符合

請問文字不是可以直接帶入嗎?
帶入的型態是這樣嗎? Worksheets("保管料").Select ?

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2020-4-25 14:39 | 只看該作者

回復 1# vuptp6
ComboBox2 (name) 改成料別1
** 所以料別1是ComboBox物件**

Worksheets(料別1.Value).Select '**物件的值
Worksheets(料別1&"").Select '**物件&"" 轉成文字

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

vuptp6

中學生 Rank: 2

帖子: 16
主題: 3
精華: 0
積分: 65
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2019-2-19
最後登錄: 2023-10-27

3^#

發表於 2020-4-25 14:55 | 只看該作者

回復 2# GBKEE

謝謝 GBKEE大
結果我突然有想到要改成值:loveliness: :loveliness:
也就是加上 ".value" 就解決了
謝謝~~~~

TOP

vuptp6

中學生 Rank: 2

帖子: 16
主題: 3
精華: 0
積分: 65
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
註冊時間: 2019-2-19
最後登錄: 2023-10-27

4^#

發表於 2020-4-26 08:48 | 只看該作者

[版主管理留言]

GBKEE(2020/4/26 09:03): 可附檔看看

本帖最後由 vuptp6 於 2020-4-26 08:50 編輯

再請問GBKEE大
如果表單有許多物件
但許多都是相似重複的

我卻只會土法煉鋼例如

'開啟料號1
Workbooks.Open ThisWorkbook.Path & "\資料庫\" & 料號1 & ".xlsx"
'選擇料別1
Worksheets(料別1.Value).Select
'減去數量1
Worksheets(料別1.Value).Range("F" & i) = "-" & val(數量1)
...
'開啟料號2
Workbooks.Open ThisWorkbook.Path & "\資料庫\" & 料號2 & ".xlsx"
'選擇料別2
Worksheets(料別2.Value).Select
'減去數量2
Worksheets(料別2.Value).Range("F" & i) = "-" & val(數量2)
...
...

就一直重複同樣的1到9
但這樣程序變得很大
大到無法執行
能用迴圈改嗎??

TOP

准提部林