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

myreebok

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

excel完全安装即可。。。

looeo

搭车学习了一下

myreebok

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
这样写了，还是没有用啊。。。郁闷中。。。

来生缘

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

myreebok

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

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

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

hupanshan

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

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

myreebok

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

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

hupanshan

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


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

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

hupanshan

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

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

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

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