如何在Excel表的窗体内添加个日历控件，并对应到A2单元格...

软件版本：Office2007

方法如zd下：

1.插入日历控件后，保持设计模式，右键点击控件，选择属性：

2.在LinkedCell中输入要随着专日历控件日期变化的单元格：

3.退出设计模式，点击日历控件日期，单元格相应地属变成了点击的日期：

不彻底明白这话”对应到A2单元格“意思，不知zd你具体要做什么，回代码如下：“
Range("a2").Select
ActiveSheet.OLEObjects.Add(ClassType:="MSCAL.Calendar", Link:=False, _
DisplayAsIcon:=False).Select
End Sub”
【注：此宏是在当前活动工作表A2单元格插入日答历控件】
在窗体中加入
ListBox
Sub 按钮e69da5e887aae799bee5baa6e997aee7ad943611_Click()
UserForm1.Show
End Sub
在窗体代码中加入
Private Sub UserForm_Activate()

ActiveCell.End(xlToLeft).Select
ActiveCell.End(xlUp).Select

rb = ActiveCell.Row
re = ActiveCell.End(xlDown).Row
cb = ActiveCell.Column
ce = ActiveCell.End(xlToRight).Column
opName = Cells(rb - 1, cb + 1)
For i = 0 To Controls.Count - 1
If TypeName(Controls(i)) = "OptionButton" Then

If Controls(i).Caption = opName Then
Controls(i).Value = True
End If
End If
Next i

For i = rb To re
Item = Cells(i, 1)
For j = 2 To ce
Item = Item & " " & Cells(i, j) ‘如要对齐自己加上
Next j
ListBox1.AddItem Item
Next i
End Sub
你原来文件中的其他删除。
信息2
重命名为
OptionButton2
未加入错误处理，启动前，注意活动单元格所在地方。

日历百控件可以直接度插入的啊。知

Private Sub MonthView21_DateClick(ByVal DateClicked As Date)

If MonthView21.Value = "2014/8/29" Then MsgBox "您选择的是2014-8-29！"

End Sub

自己编写相道关代内码查看帮助，容或者MSDN。