EXCEL VBA表單設計，將成績輸入到資料庫中

為了避免因數據輸入錯誤，而產生日後修正的問題，建議利用VBA的窗體設計功能，把EXCEL當成資料庫來存放數據，這樣可以大大減少日後所衍生的問題。步驟是先在VBA中先自定義窗體，再把所需要的組件加到窗體中，接下來建立起動窗體程序，並在新增按鈕中撰寫對應的程序，就能完成輸入的動作，但後續尚需加入防呆機制，讓窗體能更加完善，若多人存取，則可以在結合ADO與SQL語言，和外部資料庫鏈接，如ACCESS或MYSQL等。

如何設計窗體將EXCEL當成資料庫存數據

**如何啟動窗體

1.按鈕啟動

Public Sub 啟動窗體()

home.Show

End Sub

2.隨工作簿啟動

**貼到新增按鈕

Private Sub CommandButton1_Click()

Advertisements

'1.新增資料

r = Range("A2").End(xlDown).Row + 1

Cells(r, "A") = TextBox1.Text

Cells(r, "B") = TextBox2.Text

Cells(r, "C") = TextBox3.Text

Cells(r, "D") = TextBox4.Text

'2.自動帶出平均和成績判斷

Cells(r, "E") = Round((CInt(TextBox2.Text) + CInt(TextBox3.Text) + CInt(TextBox4.Text)) / 3, 1)

Cells(r, "F") = 成績函數(Cells(r, "E"))

Advertisements

Cells(r, "G") = 成績函數多重(Cells(r, "E"))

'3.清除資料

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

'4.游標放在TextBox1上

TextBox1.SetFocus

End Sub