|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
最后一段checkbox 的sub 是想实现checkbox i对应的 DTP i 能实现选中复选框,DTP 才激活
Private Sub CheckBox1_Click()
End Sub
Private Sub CheckBox2_Click()
End Sub
Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub
Private Sub DTPicker2_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)
End Sub
Sub CheckBox()
For i = 1 To 50
If CheckBoxi.Value = True Then
DTPickeri.Enabled = True
Else
DTPickeri.Enabled = False
End If
Next
End Sub
Book1.rar
(13.79 KB, 下载次数: 15)
[ 本帖最后由 myreebok 于 2009-10-27 10:24 编辑 ] |
|