如何利用VBA 自訂表單填完資料後，新增下一筆資料
- 帖子
- 103
- 主題
- 30
- 精華
- 0
- 積分
- 139
- 點名
- 0
- 作業系統
- wondows XP
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 彰化
- 註冊時間
- 2013-2-21
- 最後登錄
- 2015-6-26
|
如何利用VBA 自訂表單填完資料後，新增下一筆資料
想請問各位ＶＢＡ高手
現在我已經將表單設計好
已經在Sheet放一個CommandBitton
主要目的是
當點下去CommandBitton能叫出表單
並進行下一部填寫的動作
當填寫完按下送出
在Sheet 對應的欄位新增一筆資料
同時刪除表單內的資料
可以進行下一筆資料的填寫
但2007 的寫法跟我查到的2003不一樣
程式要如何寫才能達到我想要的目的
感激不盡!! |
|
|
Jared
|
|
|
|
|
暱稱: 隨風飄蕩的羽毛 頭銜: [御用]潛水艇
高中生 
- 帖子
- 852
- 主題
- 79
- 精華
- 0
- 積分
- 918
- 點名
- 0
- 作業系統
- Windows 7 , XP
- 軟體版本
- Office 2007, Office 2003,Office 2010,YoZo Office
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 宇宙
- 註冊時間
- 2011-4-8
- 最後登錄
- 2024-2-21
|
2#
發表於 2013-2-23 09:28
| 只看該作者
回復 1# Jared
方法1 指令特定欄位，加以判別。
例如： 指定 Z 欄位 為特定欄位， 當 cells(xxx,26)<>"" then .... xxx =列
soae = Range("a1").CurrentRegion.Rows.Count
If Range("a" & soae).Value <> "" Then
Range("A65536").End(xlUp).Offset(1, 0) = soae + 1
End If
方法2. 設定新增機制
例如： 設定新增的條件為 XXX ， 當XXX 滿足時，則新增。 |
|
|
多做多想多學習，少看少錯少迷途
多做=多多練習，多多編寫。
多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
多學習=學習人家的發問並解答，學習人家的寫法
少看=只看不做也枉然
|
|
|
|
|
- 帖子
- 103
- 主題
- 30
- 精華
- 0
- 積分
- 139
- 點名
- 0
- 作業系統
- wondows XP
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 彰化
- 註冊時間
- 2013-2-21
- 最後登錄
- 2015-6-26
|
3#
發表於 2013-2-23 10:39
| 只看該作者
謝謝! mark15jill
我馬上試看看 |
|
|
Jared
|
|
|
|
|
