Win10系统 excel vba 实例教程

诶嘿

6、对数据进行复杂的操作和分析

案例教程：

1、本示例为设置密码窗口(1)

If Application.InputBox(“请输入密码:”)=1234 Then

[A1]=1 密码正确时执行

Else:MsgBox “密码错误，即将退出！” 此行与第2行共同设置密码

End If

2、本示例为设置密码窗口(1)

X=MsgBox(“是否真的要结帐?”, vbYesNo)

If X=vbYes Then

Close

3、本示例为设置工作表密码

ActiveSheet.Protect Password:=641112 ‘ 保护工作表并设置密码

ActiveSheet.Unprotect Password:=641112 ’撤消工作表保护并取消密码

4、本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。

For Each w In Workbooks

If w.Name ThisWorkbook.Name Then

w.Close SaveChanges:=True

End If

Next w

每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。

Application.WindowState=xlMaximized

5、本示例显示活动工作表的名称。

MsgBox"The name of the active sheet is"& ActiveSheet.Name

6、本示例保存当前活动工作簿的副本。

ActiveWorkbook.SaveCopyAs"C:/TEMP/XXXX.XLS"

Excel对于非计算机专业办公人员来说，已经是功能非常强大的数据库了，CURD已经足够优秀。而你只要常常要用到Excel学习VBA就有了必要。VBA可以拓展你的Excel