標題: 如何利用VBA 自訂表單填完資料後，新增下一筆資料 [打印本頁]

---

作者: Jared    時間: 2013-2-21 15:47     標題: 如何利用VBA 自訂表單填完資料後，新增下一筆資料

想請問各位ＶＢＡ高手
現在我已經將表單設計好
[attach]14207[/attach]
已經在Sheet放一個CommandBitton

主要目的是
當點下去CommandBitton能叫出表單
並進行下一部填寫的動作
當填寫完按下送出
在Sheet 對應的欄位新增一筆資料
同時刪除表單內的資料
可以進行下一筆資料的填寫

但2007 的寫法跟我查到的2003不一樣
程式要如何寫才能達到我想要的目的

感激不盡!!

---

作者: mark15jill    時間: 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 滿足時，則新增。

---

作者: Jared    時間: 2013-2-23 10:39

謝謝! mark15jill

我馬上試看看

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)