½Ð±Ð Excel VBA Àx¦s®æ¤ë¾ä³]©w°ÝÃD

jsc0518

¤j®a¦n¡A§Ú¦bºô¸ô¤W¦³¤U¸ü¨ìºô¤Í¤w¼g§¹¦¨ªºÂI¿ï«ü©wÀx¦s®æ«á¡A¤ë¾ä·|show¥XÄæÂI¿ï
¦ý§Ú§âµ{¦¡½Xcopy¨ì·sªºExcel¤W«oµo¥Í¿ù»~
¬O§_­þ¤@­Ó»yªk§Ú»Ý­n­×§ï¡A½Ð¦U¦ì¥ý¶i«ü¾É
·PÁ¤j®a!



Private Sub Calendar1_Click()
Selection.Value = Calendar1.Value
Calendar1.Visible = False
Calendar1.Value = Date
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'­Y­n¼W¥[±ý´¡¤J¤é´ÁªºÄæ¦ì, «h­×§ï¤U­±³o¦æªº 3, ©Î 6 ¼Æ¦r
If Target.Column <> 3 And Target.Column <> 6 Then Calendar1.Visible = fales: Exit Sub
'Calendar1.Top = (Target.Row - 1) * 16.5

Calendar1.Top = ActiveCell.Top   '³o¨â¦æ¨M©w¤ë¾ä±±¨î¶µªº¦ì¸m
Calendar1.Left = ActiveCell.Left + 80

Calendar1.Visible = True
End Sub







¿ù»~µe­±¦p¤U

¤U¸ü (119.96 KB)

2017-4-25 12:46

­ì©lÀÉ®×
Excel_¤ë¾ä½d¨Ò.rar (14.83 KB)

¤U¸ü¦¸¼Æ: 9

2017-4-25 12:49

starry1314

¥Î³o­Ó§a
§â¸Ì­±ªºªí³æ©Mª«¥óÃþ§O¼Ò²Õ©ñ¨ì©p·Q­n¥ÎªºÀɮ׸̭±
¦A¥Î¥H¤U«ü¥O ¨ú±±¨îÂI¿ï­þ¸Ì¸õ¥X¤é¾ä±±¨î¶µ
¿é¥X¦ì¸m=·Æ¹«ÂI¿ï¦ì¸m
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells(1).Address = "$B$6" Then ¤é¾ä.Show 'ÂI¿ïB6«h¸õ¥X¤é¾ä

End Sub

Excel ¤é¾ä´¡¥ó.rar (36.58 KB)

¤U¸ü¦¸¼Æ: 15

2017-4-25 13:46

jsc0518

¦^´_ 2# starry1314

Hi starry1314,
·PÁ±zªº¦^À³
¦]¥»¨­¬°ªì¾ÇªÌ¡AÁÙ¤£¬O«ÜÀ´VBAªº¬ÛÃö¥Îªk¡A
¸ò±z½Ð±Ð¤@¤U--> "§â¸Ì­±ªºªí³æ©Mª«¥óÃþ§O¼Ò²Õ©ñ¨ì©p·Q­n¥ÎªºÀɮ׸̭±"
³o­Ó°Ê§@­n«ç»ò°µªü?

·P®¦!


   

¤U¸ü (3.14 KB)

2017-4-25 15:40

jsc0518

¦^´_ 2# starry1314


Hi,§Ú¤w¸gª¾¹D¦p¦ó¶×¤J±z©Ò´£¨ÑªºÀÉ®×¼Ò²Õ¤F
½Ð±Ð¤@¤U¡A­Y§Ú·Q¦bB2~B1000¡A¾ã­Ó³£¬O¥i¥H¿ï¾Ü¤ë¾äªº¿ï¶µ¡A§Ú¸Ó¦p¦ó­×¸Ó±zªº»yªk©O?
Thanks!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Target.Cells(1).Address = "$B$6" Then ¤é¾ä.Show 'ÂI¿ïB6«h¸õ¥X¤é¾ä

End Sub

hungrn

If Not Intersect(Target, Range("B2:B1000")) Is Nothing Then
       ¤é¾ä.Show
    End If

jsc0518

¦^´_ 5# hungrn

Test ok , ·PÁ±zªº¦^ÂлP«ü¾É!