- 帖子
- 163
- 主題
- 1
- 精華
- 0
- 積分
- 170
- 點名
- 0
- 作業系統
- Window 7
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-5
- 最後登錄
- 2022-7-20
|
回復 1# sillykin
提供 UserForm26 步驟請自行參考並撰寫(於確定鈕加入程式碼)：
1.點選 [確定] 鈕後，警告是否真的要將資料寫入工作表，若不是的話則退出程序，主要的用意是避免誤觸機制。
2.從第37列的最右欄往左找到有資料的欄(依你的範例是找到B欄)，再加1欄(依你的範例加1後是C欄)。
程式碼： 定位欄 = Cells(37, Cells.Columns.Count).End(1).Column + 1
3.檢查該 [定位欄] 是否大於M欄，若是的話則警告"禁止再次寫入"訊息後退出程序。
4.將 UserForm26 內文字方塊的資料，依據 [定位欄] 的欄位，依序寫入工作表的儲存格內。
5.完成寫入後，清除 UserForm26 內的資料，做為準備下一筆的資料登錄作業。
上述第5項也可以用 Unload UserForm26 方法來關掉 UserForm26，因為 UserForm26 你並沒有另外結束或退出的按鈕。
而 UserForm12 之作法亦如上。 |
|
發表於 2017-3-10 14:36
| 