<p>请教楼主 </p><p>一直“出现翻译错误找不到工程库”怎么弄</p><p> rivate Sub Worksheet_SelectionChange(ByVal Target As Range)</p><p>If Target.Column = 2 Then<br/>Calendar1.Visible = True<br/>Calendar1.Top = Range("a1", ActiveCell).Height<br/>Calendar1.Left = Range("a1", ActiveCell).Width<br/>Else<br/>Calendar1.Visible = False<br/>End If<br/>End Sub</p>
[此贴子已经被作者于2008-11-6 9:43:39编辑过] |