返回列表 上一主題 發帖

[發問] 設計一個表單

vuptp6

帖子
16 
主題
3 
精華
0 
積分
65 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2019-2-19 
最後登錄
2025-5-12 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2020-4-25 12:39 | 顯示全部帖子

[發問] 設計一個表單

表單有多個物件

舉例遇到的問題
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 ?
收藏 分享

vuptp6

帖子
16 
主題
3 
精華
0 
積分
65 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2019-2-19 
最後登錄
2025-5-12 
2#
發表於 2020-4-25 14:55 | 顯示全部帖子
回復 2# GBKEE


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

TOP

vuptp6

帖子
16 
主題
3 
精華
0 
積分
65 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2019-2-19 
最後登錄
2025-5-12 
3#
發表於 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

vuptp6

帖子
16 
主題
3 
精華
0 
積分
65 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
註冊時間
2019-2-19 
最後登錄
2025-5-12 
4#
發表於 2020-4-26 14:46 | 顯示全部帖子
回復 5# 准提部林

謝謝版主幫我瘦身有成:loveliness: :loveliness:

TOP

        靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。
返回列表 上一主題