参照下面方法。
![](https://ask-fd.zol-img.com.cn/g7/M00/00/0E/ChMkLGVQ6EyIO1aaAABbK_1KqEcAAXB8gJI-z0AAFtD863.jpg)
![](https://ask-fd.zol-img.com.cn/g7/M00/00/0E/ChMkK2VQ6EyIV1oxAABx2pDGPh8AAXB8gJJeqQAAHHy346.jpg)
![](https://ask-fd.zol-img.com.cn/g7/M00/00/0E/ChMkLGVQ6E2IKFyHAABHIejs6JwAAXB8gJKF1UAAEc5446.jpg)
![](https://ask-fd.zol-img.com.cn/g7/M00/00/0E/ChMkLGVQ6E2IVHCJAABtXvPns9AAAXB8gJKfGsAAG12055.jpg)
Private Sub Worksheet_SelectionChange(ByVal Target As Rang念团紧诉你兰题文层技e)
Application.EnableEvents = False
If Target.Column = 1 And Target.Row >= 2 And Target.Row <= 10 And Target.Cells.Coun良细茶探压改出例群六六t = 1 Then '设来自置激活单击事件的单元格范围。
***.Show
Cells(Target.Row, Target.Column + 1).Select
End If
Application.EnableEvents = True
End Sub
![](https://ask-fd.zol-img.com.cn/g7/M00/00/0E/ChMkK2VQ6E-IfTHrAAAouSC57QYAAXB8gJMptgAACjR656.jpg)
Private Sub Calendar1_Click()
Selection.Value = Calendar1.Value
Unload F1
End Sub
![](https://ask-fd.zol-img.com.cn/g7/M00/00/0E/ChMkLGVQ6FCIKOS9AABUEMzj5xMAAXB8gJNnkcAAFQo703.jpg)
Private Sub Calendar1_Click()
Selection.Value = Calendar1.Value
Unload F1
End Sub
Priva证掌去衡粉不负教te Sub UserForm_Activate()
F1.Top = ***.Top + Calendar1.Height / 2
F1.Left = Selection.Lef虽t + Selection.Width + 30
End Sub