求解决：编译错误：发现二义性的名称：worksheet_selectionchange

cyrollin

编译错误：发现二义性的名称：worksheet_selectionchange

多了一个 worksheet_selectionchange，但不会改，不会代码，求解，谢谢先！

1. Option Explicit
   
2. 
   
3. Private Sub Calendar1_Click()
   
4.     With Calendar1
   
5.         ActiveCell = .Value    '赋值给激活单元格
   
6.         .Visible = False    '隐藏日历控件
   
7.     End With
   
8. End Sub
   
9. '
   
10. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
11.     With Calendar1
    
12.         If Target.Column = 1 Then   '如果选择C列
    
13.             .Top = Target.Offset(0, 1).Top    '设置位置
    
14.             .Left = Target.Offset(0, 1).Left
    
15.             .Visible = True    '显示日历控件
    
16.         Else
    
17.             .Visible = False  '隐藏日历控件
    
18.         End If
    
19.     End With
    
20. End Sub
    
21. 
    
22. 
    
23. Private Sub ListBox1_Change()
    
24.     If Reload Then Exit Sub '见下方说明
    
25.     For i = 0 To ListBox1.ListCount - 1
    
26.         If ListBox1.Selected(i) = True Then t = t & "," & ListBox1.List(i)
    
27.     Next
    
28.     ActiveCell = Mid(t, 2)
    
29. End Sub

复制代码

两个效果就想要，不会代码，不会合并，求大神！