[已解决]如何将日历窗口在激活单元格的右下角弹出？谢谢！

colour250

请问如何将日历窗口在激活单元格的右下角弹出？谢谢！不知道更改那里，一直都没有成功，谢谢！

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-9-22 13:59

http://club.excelhome.net/thread-1083449-1-1.html

跳转到最佳答案楼层

大灰狼1976

加上以下代码。

1. Private Sub UserForm_Activate()
   
2. Top = Selection.Top + Height
   
3. Left = Selection.Left + Width
   
4. End Sub

复制代码

苏子龙

http://club.excelhome.net/thread-1083449-1-1.html

苏子龙

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Union(Target, Range("B5:B1000")).Address <> Range("B5:B1000").Address Then
   
3.         Exit Sub
   
4.     End If
   
5.     sDate = Target.Value
   
6.    
   
7.     With MyCalendar
   
8.         .StartUpPosition = 0 '手动移动
   
9.         MyCalendar.Move ExecuteExcel4Macro("GET.CELL(44)"), ExecuteExcel4Macro("GET.CELL(45)") + .Height
   
10.         '    MyCalendar.Move ExecuteExcel4Macro("GET.CELL(44)"), ExecuteExcel4Macro("GET.CELL(45)")'用这个反而好一点
    
11.         .Show
    
12.     End With
    
13. 
    
14.     If IsDate(sDate) Then
    
15.         Target.Value = sDate
    
16.         sDate = "'"
    
17.     End If
    
18. End Sub
    
19. '原来你都有了

复制代码