SYC的博客

1、导出定义名称Sub NamesListsOut()Dim i As IntegerWith ActiveWorkbookFor i = 1 To .Names.Count　Cells(i, 1).Value = .Names(i).Name　Cells(i, 2).Value = "'" & .Names(i).RefersToLocalNext iEnd Wi

1、效果：1）单击A列某一个单元格，弹出日期选择控件（跟随选择的单元格移动）。2）选择日期后点击日期控件，自动将日期写入A列的单元格，控件隐藏。2、代码：Private Sub DTPicker21_Click()    ActiveCell = DTPicker21.Value    Me.DTPicker21.Visible = FalseEnd SubPrivate Sub Workshee