随意选定任何一单元格，利用excel2007日历控件，自动填入选定日期
发布网友
发布时间：2022-04-29 21:00
共1个回答
热心网友
时间：2023-10-09 03:19
这个要配合worksheet_selectchange事件
先设置日历控件的visible=false
在工作表中写入事件代码
Private Sub Worksheet_SelectionChange(ByVal Target As Range)if target.count>1 then exit sub
'控制日历控件出现的位置,让它出现在所选单元格的右边
calendar1.top=target.top
calendar1.left=target.offset(0,1).left
calendar1.visible
End Sub
'然后在给日历控件写上对代码
sub calendar1_click()
selection=me.value
me.visible=false
end sub
大致就这样
