如何利用VBA自訂的表單填完內容後，又可以新增下一筆資料

rong614
個人積分：0分
文章編號：63773373

0分

樓主

2017-03-25 2:27

各位大大好

我已經用VBA將基本的表單跟按鈕做好了
因為我只是跟剛學習1個月的VBA新手
很多東西都還不太懂
所以需要更為大大的幫忙

我想要的是當填寫以下表單內容後按下新增
在Sheet指定的欄位新增一筆資料
新增玩的同時也刪除表單內的資料
繼續可以進行下一筆資料的填寫

已經想破頭了還是想不到~~~

2017-03-25 2:27 發佈

文章關鍵字 VBA 表單資料內容

YS2000

YS2000
個人積分：63分
文章編號：63773721

63分

2樓

2017-03-25 5:59

不清楚工作表欄位格式只能簡單描述

' 清除TextBox資料
UserForm1.TextBox1.Value = ""

'隱藏表單(離開)
UserForm1.Hide

'要輸入的儲存格
Worksheets("目標工作表").Range("目標儲存格位置").Value = UserForm1.TextBox1.Value

如果要依Row 新增下去,可以用 End() 跟 Offset() 去搭配

列如:
Dim oRange As Range
Set oRange = Worksheets("工作表1").Range("A65536").End(xlUp).Offset(1, 0)
oRange.Value = UserForm1.TextBox1.Value
oRange.Offset(0, 1).Value = UserForm1.TextBox2.Value
oRange.Offset(0, 2).Value = UserForm1.TextBox3.Value
.
.
.
oRange.Offset(0, 11).Value = UserForm1.TextBox12.Value
假設目標儲存格在A欄開始用"A65536"
B欄 Offset(0,1)
C欄 Offset(0,2)

圖片是另一種方法

rong614

rong614
個人積分：0分
文章編號：63778050

0分

樓主

2017-03-25 17:03

非常感謝大大的方法，我剛試了真的可以!!!

那我可以再問問題嗎?
一需上一個問題
如果我目前想從我指定了第幾列的開輸入，那函數要怎麼寫

EX:假如我是要從第752列開始使用這個表單
而不適要從第1欄第一列開始哩?

YS2000

YS2000
個人積分：63分
文章編號：63788129

63分

4樓

2017-03-26 19:46

rong614 wrote:
非常感謝大大的方法...(恕刪)

只要輸入的資料是列(ROW)最一筆資料，下面沒有其他文字
用第一種方法就可以做到
Set oRange = Worksheets("工作表1").Range("A65536").End(xlUp).Offset(1, 0)
在第751列打上文字(欄位名稱)
你輸入的資料就會從752列開始

rong614

rong614
個人積分：0分
文章編號：63807023

0分

樓主

2017-03-28 12:14

感謝大大~~~真的讓我學到很多.!!!