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

如何設(shè)計窗體將EXCEL當(dāng)成數(shù)據(jù)庫存數(shù)據(jù)

**如何啟動窗體

1.按鈕啟動

Public Sub 啟動窗體()

home.Show

End Sub

2.隨工作簿啟動

**貼到新增按鈕

Private Sub CommandButton1_Click()

'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') = 成績函數(shù)(Cells(r, 'E'))

Cells(r, 'G') = 成績函數(shù)多重(Cells(r, 'E'))

'3.清除資料

TextBox1.Text = ''

TextBox2.Text = ''

TextBox3.Text = ''

TextBox4.Text = ''

'4.游標(biāo)放在TextBox1上

TextBox1.SetFocus

End Sub