作者：乔山办公网日期：
返回目录：excel表格制作
用工zhidao作表事件，当AAA或者内BBB被激活时，就容操作CCC
sub ()
dim currentsheet as worksheet
set currentsheet=activesheet
if currentsheet.name="AAA" or currentsheet.name="BBB" then
worksheets("CCC").range("B2").value="xxx"
worksheets("CCC").range("B2").interior.color=65535
end if
end sub
private sub test()
dim i,n as integer,na as string
na=inputbox("请输入你来要检验的表格名字","原始数据录入","sheet2"）
n=sheets.count
for i=1 to n
if sheets(i).name=na then
exit for
msgbox "本工作簿中存在名字为：" & na & "的工自作表zd"
end if
next i
end sub
'代码未调试，你看看可以不！
关于，一般有如下的两种方式。 请根据情况，选择一种适合你的方法。 一、通过FileExists判断文件是否存在 Dim MyFile As Object Set MyFile = CreateObject("Scripting.FileSystemObject") If MyFile.FileExists("E:\dzwebs\Pic\logo.gif" ) = True Then MsgBox "文件存在" Else MsgBox "文件不存在" End If 以上代码在VBA环境下使用。或者将其制作成为宏也可以。"E:\dzwebs\Pic\logo.gif"为文件路径及文件名称，可自行修改。 二、通过Dir来判断 Dim YouFile As String YouFile = Dir("E:\MyPictures\Pic\logo.gif") If x <> "" Then MsgBox "文件存在" Else MsgBox "文件不存在" Endif "E:\MyPictures\Pic\logo.gif"为文件路径及文件名称，可自行修改。当然e68a84e8a2ade799bee5baa6e997aee7ad94336，如上代码，也在VBA下使用，可自作成为宏或函数都可以。 上面的两种方法，本站推荐你使用第一种方法，因为第一种方法比较符合逻辑思维。
1、首先我抄们在工作表中，点击菜单栏开发工具，在其中的工具栏里，点击visual basic,然后袭进入VBA界面，如下图。
2、然后我们在VBA界面里，点击菜单栏插入，在其中的菜单中，点击模块，具体操作方法如下图。
3、我们然后再在代码的编辑窗口中知，输入代码再然后点击VBA窗口下工具栏中的运行按钮，方法如下图。
4、最后我们点击VBA窗口下工具栏中的运行按钮，接下来会弹出存在或不存在的对话框，这就是具体的道操作方法。