VBA入门之一《与代码亲密接触》

eyeeye · 发表于 2010-11-28 16:36

在学习中收藏了

cgh506 · 发表于 2010-12-13 23:51

学习VBA从一点一滴做起。

小行星B612 · 发表于 2010-12-14 11:54

非常感谢无私分享这么好的东西

zhengyongpeng · 发表于 2010-12-21 12:01

无私奉献！

lzm1981 · 发表于 2010-12-24 08:49

光看书没用啊，还是要看山菊花的贴。

suan_lai · 发表于 2010-12-25 16:36

Private Sub CommandButton1_Click()
Select Case ActiveCell.AddressLocal
Case "$B$1" To "$B$5"
      CommandButton1.Caption = ActiveCell.Value
Case Else
      CommandButton1.Caption = "哈哈"
End Select
End Sub

Private Sub CommandButton2_Click()
If ActiveCell.Address = "$D$2" Then
If ActiveCell.Value > 0 & ActiveCell.Value < 6 Then
      CommandButton2.Caption = Cells(ActiveCell.Value, 2).Value
End If
Else
      CommandButton2.Caption = "哈哈"
End If
End Sub

suan_lai · 发表于 2010-12-25 16:45

With CommandButton1
.BackColor = 16761037
.ForeColor = 16711690
End With

fugue · 发表于 2010-12-25 22:27

基础，收藏学习。

wx486 · 发表于 2010-12-28 09:21

最喜欢山菊花版主的帖子书写方式，非常详实，让新手一看也能看懂，我今年8月初进入论坛，就是在看山菊花版主的函数解释帖开始入门的，现在看到VBA，依然很亲切，很感动，您让太多民众成长。鞠躬致谢!!!
新年快乐！

jpjpyao · 发表于 2011-1-2 22:52

迟到了,谢谢老师讲解!

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

VBA入门之一《与代码亲密接触》

不知道答案可不可以发出来,这是我做的

没看到还有第三题