EXCEL VBA表单设计，将成绩输入到资料库中

为了避免因数据输入错误，而产生日后修正的问题，建议利用VBA的窗体设计功能，把EXCEL当成数据库来存放数据，这样可以大大减少日后所衍生的问题。步骤是先在VBA中先自定义窗体，再把所需要的组件加到窗体中，接下来建立起动窗体程序，并在新增按钮中撰写对应的程序，就能完成输入的动作，但后续尚需加入防呆机制，让窗体能更加完善，若多人存取，则可以在结合ADO与SQL语言，和外部数据库链接，如ACCESS或MYSQL等。

如何设计窗体将EXCEL当成数据库存数据

**如何启动窗体

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') = 成绩函数(Cells(r, 'E'))

Cells(r, 'G') = 成绩函数多重(Cells(r, 'E'))

'3.清除资料

TextBox1.Text = ''

TextBox2.Text = ''

TextBox3.Text = ''

TextBox4.Text = ''

'4.游标放在TextBox1上

TextBox1.SetFocus

End Sub