EXCEL发现二义性名称

发布网友 发布时间：2022-07-20 15:51

我来回答

共5个回答

热心网友 时间：2023-10-22 20:44

中毒了
解决办法
第一步.打开excel表，菜单-工具-宏-宏，将宏名对话框里的auto_open模块选中，点击右侧的删除按钮，保存文件，退出EXCEL
如果还出现的话继续第二步操作
第二步进入下面的文件夹，删除里面的文件
C:\Documents and Settings\Administrator\Application Data\Microsoft\Excel\XLSTART

如果该文件夹不显示，说明文件夹被隐藏。
我的电脑-【工具】-【文件夹选项】-【查看】，选择里面的“显示和查看所有文件和文件以及不隐藏已知文件的扩展名”用搜索查找XLSTART文件，将文件里的*.slx文件删除（删除后在按以上步骤把文件隐藏即可）

希望能帮你解决问题！

热心网友 时间：2023-10-22 20:45

如果你是自己编辑的VB,那就是你的宏里边二次定义auto_open了，你按ALT+F11打开VB编辑器，用查找（ctrl+F）查找一下auto_open，看当前工程内是不是有两个模块分别定义了auto_open，然后你改掉一个就行。
或者就是中毒了，按着其他回答的操作删掉模块就行。

热心网友 时间：2023-10-22 20:45

现在有这个玩意的一般都是宏病毒,你按ALT+F11打开VBE编辑器,按下Ctrl+R打开工程资源管理器,双击ThisWorkbook模块,删除其中的代码

热心网友 时间：2023-10-22 20:46

Private Sub ListBox1_Change()
w = ListBox1.List(ListBox1.ListIndex)
If ActiveCell = w Then
ActiveCell = ""
ElseIf ActiveCell Like w & ",*" Then
ActiveCell = VBA.Replace(ActiveCell, w & ",", "")
ElseIf ActiveCell Like "*," & w & ",*" Then
ActiveCell = VBA.Replace(ActiveCell, w & ",", "")
ElseIf ActiveCell Like "*," & w Then
ActiveCell = VBA.Replace(ActiveCell, "," & w, "")
Else
If Len(ActiveCell) = 0 Then
ActiveCell = w
Else
ActiveCell = ActiveCell & "," & w
End If
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, [A3:A20]) Is Nothing and Target.Count > 1 Then
Me.ListBox1.Visible = False
Exit Sub
else
With Me.ListBox1
.Visible = True
.Top = Target.Top + Target.Height
.Left = Target.Left + Target.Width
.Height = Target.Height * 4
.Width = Target.Width * 1.2
.List = Array("A自用", "B商用", "C投资", "D其他")
End With
Target = ""
end if

If Application.Intersect(Target, [B3:B20]) Is Nothing and Target.Count > 1 Then Me.ListBox1.Visible = False
Exit Sub
else
With Me.ListBox1
.Visible = True
.Top = Target.Top + Target.Height
.Left = Target.Left + Target.Width
.Height = Target.Height * 4
.Width = Target.Width * 1.2
.List = Array("A第一次", "B第二次", "C第三次", "D三次以上")
End With
Target = ""
end if
End Sub

热心网友 时间：2023-10-22 20:47

ThisWorkbook模块里面没有代码哎