ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó­­¨î¤ë¾ä±±¨î¶µ¿é¤J½d³ò¡H

¦^´_ 1# jackson7015
  1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  2. With Target
  3. If Not Intersect(.Cells(1, 1), Union([AH8:AQ14], [AH18:AQ18])) Is Nothing Then
  4. Calendar1.Visible = True
  5. Calendar1.Top = ActiveCell.Top
  6. Calendar1.Left = ActiveCell.Left
  7. Else
  8. Calendar1.Visible = False
  9. End If
  10.   End With
  11. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¥ÌÄ@°µ¡BÅw³ß¨ü¡C
ªð¦^¦Cªí ¤W¤@¥DÃD