1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
2、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】
3、会弹出模块编辑窗口！
4、在模块窗口输入以下代码：Sub test1()Dim t As New 类2For Each Rng In Range("a1", Range烫喇霰嘴("a:a").Find("*", , , , , xlPrevious)) t.分数 = Rng.Value Cells(Rng.Row, 2) = t.结果NextEnd Sub
5、点击工具栏【插入】按鸵晚簧柢钮，在下拉菜单中选择【类模块】，同时写入以下代码。Public djProperty Let 分数(data As Integer)If data >= 90 Th髫潋啜缅en dj = "优秀"ElseIf data >= 80 Then dj = "良好"ElseIf data >= 60 Then dj = "及格"Else dj = "较差"End IfEnd PropertyProperty Get 结果()结果 = djEnd Property
6、按键盘上的F8，一步步运行编写的代码！同时可以检查代码是否正确！
7、运行完毕后，结果如下！
