頁:
[1]
excel VBA 資料庫概念問題
本帖最後由 v03586 於 2015-12-12 12:41 AM 編輯小弟自己寫了一個簡單的資料庫概念程式
Main 與 database 資料表
Return 是一個按鈕，按了之後會跳出對話框，要求使用者輸入相關資訊
輸入完畢後，資料會存到database這個資料表中
問題來了....，目前只能輸入第一筆，輸入第二筆時資料不會往下跳，則是會覆蓋第一筆資料
如何修改變成會往下儲存，變成一個類似資料庫的概念，每次輸入完不會覆蓋上一筆資料?
附上我的程式碼
Sub 請輸入()
x = InputBox("請輸入MO", "請輸入MO", "")
y = InputBox("請輸入Wafer Lot", "請輸入Wafer Lot", "")
Z = InputBox("請輸入ROCK", "請輸入ROCK", "")
s = InputBox("請輸入工號", "請輸入工號", "")
Cells(2, 1) = Now()
Cells(2, 2) = x
Cells(2, 3) = y
Cells(2, 4) = Z
Cells(2, 5) = s
End Sub
...<div class='locked'><em>瀏覽完整內容，請先 <a href='member.php?mod=register'>註冊</a> 或 <a href='javascript:;' onclick="lsSubmit()">登入會員</a></em></div><div></div> Cells這一整段改成這樣試試看吧，總得讓程式判斷資料輸入到哪兒了。
Dim c1 As Integer
c1 = 2
While Cells(c1, 2) <> ""
c1 = c1 + 1
Wend
Cells(c1, 1) = Now()
Cells(c1, 2) = x
Cells(c1, 3) = y
Cells(c1, 4) = Z
Cells(c1, 5) = s rr09192084 發表於 2015-9-16 09:19 AM static/image/common/back.gif
Cells這一整段改成這樣試試看吧，總得讓程式判斷資料輸入到哪兒了。
真的可以了耶！感謝救了我，我搞了好久....
想在請問一下，能在這個程式中每輸入完一筆時自動存檔嗎? 在 End Sub 前一行加入以下程式碼應該就可以了
ActiveWorkbook.Save
樓主可以試試 jakenchang 發表於 2015-9-16 03:26 PM static/image/common/back.gif
在 End Sub 前一行加入以下程式碼應該就可以了
ActiveWorkbook.Save
謝謝各位大大的全力支持！終於可以結案了！{:32:}<br><br><br><br><br><div></div> 這邊好多高手, 之前沒來看看, 以後要常來, 我也常用 excel VB 寫一些小巨集, 工作上用還蠻方便的
頁:
[1]