请高手帮忙看看程序有啥错误

myreebok · 发表于 2009-10-30 10:59

原帖由 hupanshan 于 2009-10-30 09:24 发表
在网上查了一下，需要Microsoft date and time picker contorl 6.0控件，本人机器里没有，不知如何解决。

excel完全安装即可。。。

looeo · 发表于 2009-10-30 12:02

搭车学习了一下

myreebok · 发表于 2009-11-2 10:13

Sub CheckBox()
For i = 1 To 50
If OLEObjects("CheckBox" & i).Object.Value = True Then
Me.Controls(" DTPicker" & i).Enabled = True
Else
Me.Controls(" DTPicker" & i).Enabled = False
End If
Next
End Sub
这样写了，还是没有用啊。。。郁闷中。。。

来生缘 · 发表于 2009-11-2 15:08

你要另外建一个按扭一运行这个过程才行的

myreebok · 发表于 2009-11-3 09:30

原帖由 来生缘 于 2009-11-2 15:08 发表
你要另外建一个按扭一运行这个过程才行的

谢谢老大的支持，实测容错后可以运行，但是还有一个问题每次选择一个checkbox都要再按一次command button？这样似乎比较麻烦，能否有比较稳妥的解决方法？

[ 本帖最后由 myreebok 于 2009-11-3 09:48 编辑 ]

hupanshan · 发表于 2009-11-3 10:14

那就是每点击一下CheckBox就驱动一个程序，这我已经在3楼说过了，50个按钮50个程序，每个程序只一句，比如CheckBox1的程序：
Me.Controls("DTPicker1").Enabled =CheckBox1.Value

[ 本帖最后由 hupanshan 于 2009-11-3 10:15 编辑 ]

myreebok · 发表于 2009-11-3 10:27

原帖由 hupanshan 于 2009-11-3 10:14 发表
那就是每点击一下CheckBox就驱动一个程序，这我已经在3楼说过了，50个按钮50个程序，每个程序只一句，比如CheckBox1的程序：
Me.Controls("DTPicker1").Enabled =CheckBox1.Value

但这样就失去了循环语句的意义了，对编程的人来说，重复劳动没有意义啊

hupanshan · 发表于 2009-11-3 12:35

原帖由 myreebok 于 2009-11-3 10:27 发表

但这样就失去了循环语句的意义了，对编程的人来说，重复劳动没有意义啊

每按一个CheckBox只需要改变一个"DTPicker1"，本来就不需要循环。至于重复劳动的问题，很好解决的，用一个循环就可以生成50个宏。

hupanshan · 发表于 2009-11-3 12:41

Private Sub CheckBox1_Click()
Me.Controls("DTPicker1").Enabled =CheckBox1.Value
end sub
Private Sub CheckBox2_Click()
Me.Controls("DTPicker2").Enabled =CheckBox2.Value
end sub
Private Sub CheckBox3_Click()
Me.Controls("DTPicker3").Enabled =CheckBox3.Value
end sub
Private Sub CheckBox4_Click()
Me.Controls("DTPicker4").Enabled =CheckBox4.Value
end sub
Private Sub CheckBox5_Click()
Me.Controls("DTPicker5").Enabled =CheckBox5.Value
end sub
Private Sub CheckBox6_Click()
Me.Controls("DTPicker6").Enabled =CheckBox6.Value
end sub
Private Sub CheckBox7_Click()
Me.Controls("DTPicker7").Enabled =CheckBox7.Value
end sub
Private Sub CheckBox8_Click()
Me.Controls("DTPicker8").Enabled =CheckBox8.Value
end sub
Private Sub CheckBox9_Click()
Me.Controls("DTPicker9").Enabled =CheckBox9.Value
end sub
Private Sub CheckBox10_Click()
Me.Controls("DTPicker10").Enabled =CheckBox10.Value
end sub

myreebok · 发表于 2009-11-3 14:34

原帖由 hupanshan 于 2009-11-3 12:35 发表

每按一个CheckBox只需要改变一个"DTPicker1"，本来就不需要循环。至于重复劳动的问题，很好解决的，用一个循环就可以生成50个宏。

把宏代码共享一个吧。。。

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

[求助] 请高手帮忙看看程序有啥错误

自动生成10个宏示范一下