菜鸟谈VBA最最基础入门《原创》

louco229 · 发表于 2010-5-6 23:20

一直都想学习一下VBA
真的谢谢

viewsafe · 发表于 2010-5-7 01:05

不错，学习了~~~

ggsmart · 发表于 2010-5-7 17:52

原帖由 xiexinxi 于 2010-5-6 21:57 发表
请老师帮我把这个工程计算表的分墙厚及类别进行汇总并生成表

如何汇总？请举例说明。
另外，“内墙汇总表”是哪一张？

david.guo · 发表于 2010-5-7 18:20

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Target.Value = Target.Value & "公司"
Application.EnableEvents = True

End Sub

老师，我是一个初学者，试着用了上面的代码，但改变后怎么没有加“公司”呢？那里出错了？

david.guo · 发表于 2010-5-7 19:23

为什么我在工作表“代码窗口”编辑的代码不被执行，怎样才可以呀？

david.guo · 发表于 2010-5-7 19:45

为什么我的工作表里的代码总是不被执行，是受到什么限制了吗？请高手指教，谢谢！

hihopbird · 发表于 2010-5-7 21:18

非常好，好实用的东西

ANTONY1981 · 发表于 2010-5-7 21:54

楼主写的太好了,关于前面跳出窗口增加信息的作业,我做了一下以下是我的代码老是出错请老师帮忙看一看哪里出了问题
Private Sub CommandButton1_Click()

If 姓名 = "" Or 性别 = "" Or 年龄 = "" Then
MsgBox "您输入的信息有误,请审核"
End If
Dim maxrow As Long
maxrow = [A65536].End(xlUp).Row + 1
Cells(maxrow, 1).Value = 姓名.Value
Cells(maxrow, 2).Value = 性别.Value
Cells(maxrow, 3).Value = 年龄.Value

姓名.Value = ""
性别.Value = ""
年龄.Value = ""
End Sub

ggsmart · 发表于 2010-5-8 00:50

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
If 姓名 = "" Or 性别 = "" Or 年龄 = "" Then
MsgBox "您输入的信息有误,请审核"
End If
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
在 MsgBox "您输入的信息有误,请审核" 语句的后面加上一行：
exit sub
然后再试一试！！！

ggsmart · 发表于 2010-5-8 00:51

原帖由 david.guo 于 2010-5-7 19:45 发表
为什么我的工作表里的代码总是不被执行，是受到什么限制了吗？请高手指教，谢谢！

是不是没有启用宏？请修改一下宏保护级别，关闭工作薄，然后重新打开看看！

		自动登录	找回密码
密码			免费注册

菜鸟谈VBA最最基础入门《原创》

回复 1673楼 ANTONY1981 的帖子