经验直达：
- excel中的宏怎么用
- 关于excel宏程序的相关应用
一、excel中的宏怎么用
【关于excel宏程序的相关应用 excel中的宏怎么用】宏的英文名称为Macro,意思就是由用户定义好的操作，即连续的命令及操作步骤，将这些命令及步骤依序保存为一个“宏命令”，并加以命令 。宏的作用是可以使频繁执行的动作自动化，并准确无误地执行 。举例来说某商业贸易公司的人事部的工作人员需要制作20份相同的员工在职培训统计表，并iqe表格的单元格设置需要完全一致，如果一份份地制作，数据的输入和格式变换将会十分耗时此时如果将这些操作工作简化为一个“宏命令”，当用户按一些安检时，系统便会自动输入标题与列项目，以及设置好单元格格式 。这样就能提高不少效率 。其实不少人经常听到“宏”这个名称是与“病毒”联系在一起的 。合称“宏病毒”，其实就是某些不良用户利用宏的特性以及VBA程序，在EXCEL的文件簿里建立的病毒 。这些病毒一般保存在工作簿或者加载宏程序中，一旦用户打开一个含有宏病毒的工作簿文件，或者执行一个宏病毒的操作时 ， 病毒就会发作，可能会造成用户文件的损坏，删除数据 ， 甚至“传染”给其他正在打开的工作簿文件 。打开EXCEL文件时便会主动检查此文件中是否含有宏，因此还是建议将宏功能暂时关闭以避免宏病毒的发作 。
参考资料：《Excel 2003公司办公从入门到精通〉
二、关于excel宏程序的相关应用
看下附件 excel 2010版本的 看看能用不在sheet2中插入代码
Private Sub Worksheet_Activate()
Application.Visible = False
n = InputBox("请输入密码")
If n <> "123" Then
Application.Quit
Else: Application.Visible = True
End If
End Sub
Private Sub CommandButton1_Click()
If MsgBox("您确定要清除吗？", vbYesNo) = vbYes Then
Sheets(1).Range("f4:aa30") = ""
Else
Exit Sub
End If
End Sub
Private Sub CommandButton10_Click()
If MsgBox("您确定要清除吗？", vbYesNo) = vbYes Then
Sheets(1).Range("a4:aa30") = ""
Else
Exit Sub
End If
End Sub
Private Sub CommandButton7_Click()
If MsgBox("您确定要清除吗？", vbYesNo) = vbYes Then
Sheets(1).Range("f4:aa30") = ""
Sheets(1).Range("d4:e30") = ""
Else
Exit Sub
End If
End Sub
详情请见附件密码为123自己更改