[發問] 關於自動填入的問題

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 236
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-10-31

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-12-29 20:03 | 只看該作者

回復 1# littlea
test檔案內少了DialogSheets("請輸入日期")對話方塊

學海無涯_不恥下問

帖子: 9
主題: 2
精華: 0
積分: 30
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2010-12-28
最後登錄: 2011-2-19

3^#

發表於 2010-12-29 20:51 | 只看該作者

回復 2# Hsieh

Hsieh大請問對話方塊能從VBA裡面增加嗎?
像是Msg那樣，還是必須從其他地方寫入呢?

GBKEE

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

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

4^#

發表於 2010-12-29 21:49 | 只看該作者

本帖最後由 GBKEE 於 2010-12-29 21:50 編輯

回復 3# littlea
活頁簿視窗下面的工作表標籤按下右鍵 ->選取插入.. 按下 Excel 5.0 對話方塊
VBA 可用 INPUTBOX 取代 DialogSheets("請輸入日期").SHOW

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 236
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-10-31

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-12-29 23:21 | 只看該作者

回復 3# littlea

example 檔案中，在格式/工作表/取消隱藏工作表
將對話方塊工作表取消隱藏一併複製到test檔案

學海無涯_不恥下問

帖子: 9
主題: 2
精華: 0
積分: 30
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2010-12-28
最後登錄: 2011-2-19

6^#

發表於 2010-12-29 23:45 | 只看該作者

本帖最後由 littlea 於 2010-12-30 11:49 編輯

回復 5# Hsieh

感謝兩位大大
對話方塊的問題已經解決
但在test檔案中，出貨通知單工作表按下按鍵後
只跑完了三個彈出訊息表後就沒動作了
並沒有像example中的日報表那樣，填完日期後回填數字跟排序，
搞不太清楚是哪裡還有遺漏，附上更新後的檔案，
麻煩大大再幫我確認一下，多謝。

帖子: 9
主題: 2
精華: 0
積分: 30
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2010-12-28
最後登錄: 2011-2-19

7^#

發表於 2010-12-30 11:00 | 只看該作者

麻煩能再幫我看看是哪裡有問題呢
或許可能是太簡單的問題
不過小弟已經弄了很久還是找不出來問題根源
就卡在最後的步驟
按下按鍵 key入數字後可以自動跑回填跟排序的動作
麻煩大大指導，謝謝。

GBKEE

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

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

8^#

發表於 2010-12-30 11:12 | 只看該作者

本帖最後由 GBKEE 於 2010-12-30 11:14 編輯

回復 7# littlea
你少了顯示 DialogSheets("請輸入編號").Show 按下確定後所要執行的巨集
這是Example.xls 的作法
如圖1 對話框的邊沿按下右鍵顯示功能表->巨集

圖2: 選定巨集後按下確定

帖子: 9
主題: 2
精華: 0
積分: 30
點名: 0
作業系統: XP
軟體版本: Office 2007
閱讀權限: 10
性別: 男
註冊時間: 2010-12-28
最後登錄: 2011-2-19

9^#

發表於 2010-12-30 11:49 | 只看該作者

本帖最後由 littlea 於 2011-1-4 08:23 編輯

回復 8# GBKEE

感謝GBKEE大
原來是DialogSheets也要設定指定巨集
不過好像是設在確定那個按鈕上才不會數字還未輸入就先跑回填了
只是現在又遇到一個問題
就是我設定好以後都正常的跑完程式
不過去到CL221表中卻沒看見填入的數字
對照Cells所對應的儲存格應該都是正確才對
麻煩請大大再幫我看看，附上更新後檔案，謝謝。

GBKEE

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

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

10^#

發表於 2010-12-30 12:38 | 只看該作者

回復 9# littlea
請你將 Sheet6(出貨通知單(範本)) 物件的程序剪下複製到 Module1 試試看
因為 Sub test()程序是寫在Sheet物件裡 Sheet6(出貨通知單(範本))
裡面的 Cells 沒有指明工作表就是在 Sheets("出貨通知單(範本)") 的Cells
Sub test()程序移到 Module1 (一般模組) 之後 Cells 在Sheets("CL221").Select 之後會是為作用中工作表的 Cells

請記得要將 DialogSheets("請輸入編號").Show 的巨集指定好