效果图 Private Sub DTPicker1_Click() ActiveCell.Value = DTPicker1.Value DTPicker1.Visible = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Then ' Me.DTPicker1.Left = ActiveCell.Left + ActiveCell.ColumnWidth + 65 Me.DTPicker1.…