如何在excel中的日历控件加文字
发布网友
共1个回答
热心网友
选择日历控件将日期插入到指定的列： 在EXCEL窗口中执行“视图”→“工具栏”→“控件工具箱”→最后一个“其他控件”→“日历控件11.0” →确定→鼠标变为细十字后，在EXCEL窗口中选定的单元格的右下角，使用鼠标左键拖出如日历图→双击图片→进入代码编辑模式→选择Worksheet和SelectionChange模式下输入代码（可复制粘贴）：
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
Me.Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 8 Then
Me.Calendar1.Visible = True
calendar1.top=target.top
Else
Me.Calendar1.Visible = False
End If
End Sub
最重要的是第6行（If Target.Column = 8 Then）中的8表示的是第几列，按你实际需要的列数修改即可。返回EXCEL操作窗口，即可实现效果了！
有帮助望采纳
