之前在公司上了几节关于VBA编程的课程。单个窗体设置日期很简单
Private Sub cbOK_Click()
Range("C4") = Me.cldSel
Unload ufC
End Sub
但是如果我需要c4:c100都要一个的窗体来设置独立的日期我要怎么改编程?
1、在worksheet的selectionchange事件中,让日期控件随着对单元格的选择不同而移动。
If (Target.Row >= 4 And Target.Row <= 100) And Target.Column = 3 Then
With DTPicker1
.Visible = True
.Left = Target.Left
.Top = Target.Top
.Width = Target.Rows.Width
.Height = Target.Height
End With
Else
DTPicker1.Visible = False
End If
2、在dtpicker1的closeup事件中对单元格赋值。
If (Target.Row >= 4 And Target.Row <= 100) And Target.Column = 3 Then
With DTPicker1
.Visible = True
.Left = Target.Left
.Top = Target.Top
.Width = Target.Rows.Width
.Height = Target.Height
End With
Else
DTPicker1.Visible = False
End If
2、在dtpicker1的closeup事件中对单元格赋值。
温馨提示:答案为网友推荐,仅供参考