【Excel·VBA】常见VBA示例

想想你现在有什么，再想想你想要什么，然后问问自己愿不愿意去交换

---

1、设置密码窗口

If  Application.InputBox('请输入密码：')= 1234 Then

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

Else

    MsgBox '密码错误，即将退出！'

End If

---

2、显示活动工作簿中每个工作表的名称

For Each ws In Worksheets

    MsgBox  ws.Name

Next ws

---

3、如果当前工作薄中没有名为kk的工作表的话，就增加一张名为kk的工作表，并将其排在工作表从左至右顺序排列的最左边的位置，即排在第一的位置

Sub CheckSheet()

Dim shtSheet As Worksheet '定义变量shtSheet
    For Each shtSheet In Sheets
        If shtSheet.Name = 'KK' Then            Exit Sub

        End if
    Next shtSheet
    Set shtSheet = Sheets.Add(Before:=Sheets(1))
    shtSheet.Name = 'KK'
End Sub

---

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

For Each w In Workbooks

    If w.Name<> ThisWorkbook.Name Then

        w.CloseSaveChanges:=True

    End If

Next w

---

我是张小懒

一个爱偷懒的家伙

一个要变得越来越自信的家伙

一个正在积极努力让自己变好的家伙

---

“ 转给那些喜欢的小伙伴吧 ”

大讲堂 |让我们有态度的学习Excel

编辑 |爱“偷懒”的张小懒

转载请注明出处