1、执行菜单操作“工具”→“宏”→“宏”;
2、弹出对话框,,输入宏的名字,然后,点击“创建”按钮;
3、想要这个宏实现什么功能,就在开始位置和结束位置之间,输入自己的宏代码即可;
4、宏代码输入完成之后,直接关闭VBA窗口,就可以返回Excel窗口了;
5、执行菜单操作“工具”→“宏”→“宏”,弹出对话框,其名称出现在对话框中,将此名称选中,点击“选项”按钮,弹出对话框,在“快捷键”下面的那输入的小方框内,按下K键,这样,K就输入了,这样,就可以通过Ctrl+K这个组合键,执行宏代码,点击“确定”确认退出即可。
6、只要选择好单元格,按下CTRL+K,即可。
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 & "的工作表"
end if
next i
end sub
'代码未调试,你看看可以不!