[VBA] 如何設計一個可以輸入資料的視窗 - 問問蓮蓬頭

如何用VBA設計出一個可以輸入的資料視窗，畫面如下，當按下[輸入資料] 的按鈕時，會出現一個[輸入資料視窗]，然後於輸入視窗內輸入資料，之後按下送出 ... 關閉廣告 問問蓮蓬頭 跳到主文 部落格全站分類：生活綜合 相簿 部落格 留言 名片 May01Sun201602:00 [VBA]如何設計一個可以輸入資料的視窗 如何用VBA設計出一個可以輸入的資料視窗，畫面如下，當按下[輸入資料]的按鈕時，會出現一個[輸入資料視窗]，然後於輸入視窗內輸入資料，之後按下送出資料，資料會直接出現在A欄的最下面一行。

這邊先介紹單一資料的輸入法，待各位若熟悉之後，可自行練習，增加文字方塊，並修改程式碼，就可以一次輸入多筆資料了。

  [製作一個輸入資料視窗] 進入VBA設計畫面內，設計出一個輸入資料視窗 並將控制項重新命名，方便之後程式設計 文字方塊=TB1 命令按鈕=CB1 輸入資料視窗=UF1   [將程式寫入命令按鈕內] 程式碼與說明如下 ==================================================================== PrivateSubCB1_Click() '判斷A2這個欄位是否有資料，如果沒有資料則[儲存格A2]等於TB1的資料    IfRange("A2")=""Then    Range("A2")=TB1 '如果不是 Else '移到資料列的最底端在往下一格    Range("A1").Select    Selection.End(xlDown).Select    ActiveCell.Offset(1,0).Range("A1").Select '將TB1的資料帶入目前的位置    ActiveCell.Offset(0,0).Range("A1").Value=TB1 EndIf '輸入資料視窗消失 UF1.Hide EndSub ====================================================================   [新增一個模組] 於VBAProject內新增一個模組 這個模組內的程式碼如下，名稱為“U” ==================================================================== SubU() ‘輸入資料視窗跳出 UF1.Show EndSub ====================================================================   [設計工作表內的輸入按鈕] 於工作表內於儲存格A1輸入“資料”，並插入一個圖案，圖案內輸入文字為“輸入資料”   [將輸入資料鈕指定巨集] 於該輸入資料的按鈕，點右鍵，按下[指定巨集]後，會出現以下視窗，請選擇剛剛新增好的[模組U] 並按下確定。

  [開始使用] 完成上述的步驟後，即可以開始使用，按下[輸入資料]鈕，輸入完資料按下[送出資料]，即可將資料拋置A2儲存格，之後所輸入的資料會持續往下拋送。

文章標籤 vb exce 自動輸入資料 輸入視窗 連續輸入 全站熱搜 創作者介紹 黑天使 問問蓮蓬頭 黑天使發表在痞客邦留言(9)人氣() E-mail轉寄 全站分類：散文筆記個人分類：VBA此分類上一篇：[VBA]依輸入的月份自動判定季度，並會自動變色的圖案 此分類下一篇：[VBA]把表格內特定數值、符號、文字一次全部刪除(FOR、IF) 上一篇：[倉儲管理]倉儲相關英文單字 下一篇：[Excel]計算資料範圍內有資料與沒有資料的儲存格個數 ▲top 留言列表 發表留言 文章搜尋 熱門文章 文章分類 心情塗鴉(44)用照片說出自己的心情故事(13)感恩惜福(14)EXCEL函數(32)倉儲管理(29)VBA(36)物料管理(8)財務會計(2)生產管理(1)時間管理(3)讀書心得(1)運動相關(4)旅遊記事(4)名人語錄(26)個人養生(5)好歌歌詞(3)電腦資訊(3)未分類文章(1) QRCode 參觀人氣 本日人氣： 累積人氣： 贊助商連結 贊助商連結 RSS訂閱 誰來我家 回到頁首 回到主文 免費註冊 客服中心 痞客邦首頁 ©2003-2022PIXNET 關閉視窗 PIXNET Facebook Yahoo! Google MSN {{guestName}} (登出) 您尚未登入，將以訪客身份留言。

亦可以上方服務帳號登入留言 請輸入暱稱(最多顯示6個中文字元) 請輸入標題(最多顯示9個中文字元) 請輸入內容(最多140個中文字元) 請輸入左方認證碼： 看不懂,換張圖 請輸入驗證碼 送出留言