带你入门VBA（2004第一期）

donyxin

总算有点感觉了！

applepai

以下是引用donyxin在2005-1-28 10:00:00的发言： 总算有点感觉了！

有点感觉再看书就入门了

兰色幻想

以下是引用dldldl在2005-1-26 10:58:00的发言：

请问版主，窗体代码第一部分是否可以去掉，是什么作用。中间部分为什么只有label1-2的单击事件代码，最后TEXTBOOK4单击代码是否可以进行修改。我对该题目代码进行了修改，但运行后不是想要的结果，输完第三列数据后按回车后无法再输入第四列数据，请问错在哪里，渴望兰老师帮助。

　文件见附件：

你是在TextBox4_Enter事件中输入的代码，当然光标进入TEXTBOX4后代码就执行了

应该改为TextBox4_Exit事件

兰色幻想

以下是引用薇薇多香在2005-1-26 17:56:00的发言：

传不上图片啊~~

那我说吧，为什么系统说：

编译错误：

发现二义性的名称：矩形1_单击

楼主给我指点指点吧

这是因为有两个矩形1_单击宏名称，改动任一个即可

提示：下次再出现什么错误时，点击帮助或按下F1，帮助文件会告诉你为什么出错

dldldl

以下是引用兰色幻想在2005-1-28 13:04:00的发言：

你是在TextBox4_Enter事件中输入的代码，当然光标进入TEXTBOX4后代码就执行了

应该改为TextBox4_Exit事件

谢谢兰老师，我已改正了。但仍有一个问题，我将原来的代码：

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

Private Sub Label3_Click()

End Sub

Private Sub Label4_Click()

End Sub

Private Sub TextBox1_Change()

End Sub

Private Sub TextBox2_Change()

End Sub

Private Sub TextBox3_Change()

End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean) Dim a As Integer a = Range("a65536").End(xlUp).Row + 1 Cells(a, 1) = TextBox1 Cells(a, 2) = TextBox2 Cells(a, 3) = TextBox3 Cells(a, 4) = TextBox4 TextBox1 = "" TextBox2 = ""

TextBox3 = "" TextBox4 = "" TextBox1.SetFocus End Sub

前面黄色部分删除，只保留最后一部分仍然可以调出记录单并可以录入正确。但是每次必须全部录入“ABCD”四个字段才能录入单元格，如果有缺省则无法通过记录单位录入。请帮助。谢谢!!

dldldl

以下是引用applepai在2005-1-28 11:07:00的发言：

有点感觉再看书就入门了

很同意你的看法，我原来对VBA没有兴趣，总认为太难，我不可能学得会。看完贴子后，有了一丁点的信心和极大的兴趣，现有我已经开始进行入门学习了，但愿能够取得大的进展。还没有开始的朋友们，一起加入吧!!

真的应该深深地感谢兰老师的引导和帮助。

cciczj

老师您好：

这种教学方式很好，我有一个问题请教一下，怎么用EXCEL将数据储存在ACCESS中去，并能用EXCEL来输入更改用ACCESS储存数据。

谢谢！

heartlingx

好啊，多带几名吧

arm

老菜再问个鸟问题：那个按钮是怎么做出来的呀？

gvntw

VBE编辑器，插入—用户窗体。