商务合作请加微信 | Allen_Lyq
文章投稿 | jiangjunpeng1996@126.com
微信公众号 | Word和Excel达人先生
头条号 | 跟小小筱学办公技能
通过上一篇文章的学习，我们已经知道宏的基本用法，在录制宏的过程中，还有几个点需要我们注意下：

   
      
宏命名时最多可以为255个字符。命名不可与VBA保留字相冲突，也不能与单元格地址相同，可用的字符包括：字母、数字和下划线。
给宏指定了快捷键之后，会覆盖Excel默认的快捷键。
例如：“Ctrl  + C”组合键默认在Excel中执行“复制”的操作，如果把“Ctrl + C”指定给某个宏，那么Excel中按下“Ctrl + C”组合键的时候将不再执行“复制”的操作。
在创建新宏时，宏的保存位置有哪几种呢？这一期来跟大家分享！
宏的保存位置有3种：.
个人宏工作簿
新工作簿
当前工作簿

        
      
一
个人宏工作簿
个人宏工作簿，是为宏而设计的一种特殊的具有自动隐藏特性的工作簿。第一次将录制的宏保存到个人宏工作簿时，会创建一个名为“PERSONAL.XLSB”的新文件。如果该文件存在，每次Excel启动时会自动将此文件打开并隐藏在活动工作簿后面；如果你想让创建的宏能够在所有工作簿中都可以使用，那么创建宏的时候，应选择保存在个人宏工作簿，并将宏保存于其中。个人宏工作簿默认保存在“XLSTART”文件夹中，具体路径为：C:\Users\用户名\AppData\Roaming\Microsoft\Excel\XLSTART。

        
      
现在我们做一个简单的练习：创建一个名称为“设置红色字体并加粗”的宏并将宏保存到个人宏工作簿。(1)创建一个空白的工作簿，选择菜单栏的“开发工具”选项卡，在“代码”工具组中先选中“使用相对引用”，然后点击“录制宏”按钮。(2)弹出“录制宏”对话框，输入宏名“设置红色字体并加粗”，为该宏指定快捷键“Ctrl + r”，将该宏保存到“个人宏工作簿”，点击“确定”按钮进入开始录制宏的模式。(3)点击“开始”选项卡，在“字体”工具组中设置“红色”字体，并点击“加粗”按钮。(4)点击“开发工具”选项卡，在“代码”工具组中点击“停止录制”按钮，这样我们就录制好一个宏了。

        
      
我们任选一个单元格，输入一段文本，按“Ctrl + r”组合键(该组合键是创建宏时指定的快捷键)，文本就变成红色字体加粗的格式了。

        
      
刚刚我们已经把一个宏保存到个人宏工作簿，此时我们可以在任何工作簿中使用该宏。可按下面步骤进行操作：
创建一个空白工作表并打开，在任意单元格输入一串文本，点击菜单栏的“开发工具”选项卡，在“代码”工具组中点击“宏”按钮，弹出“宏”对话框，此时在宏列表可以看到“设置红色字体并加粗”这个宏，选中“设置红色字体并加粗”这个宏，点击“执行”按钮，可以看到在单元格输入的文本变成红色字体并加粗了。如果在创建宏的时候有给宏指定了快捷键，那么执行宏的时候可以直接按快捷键更加便捷。

        
      
我们已经知道，保存一个宏到个人宏工作簿，这个工作簿默认是隐藏在活动工作簿的后面，如果我们想编辑该宏或者删除该宏时，因为工作簿是隐藏的，我们无法进行任何操作，所以会弹出以下提示：

        
      
那么如何让个人宏工作簿变为可删除或可编辑的状态呢？1、点击菜单栏的“视图”选项卡，在“窗口”工具组中点击“取消隐藏”按钮。

        
      2、弹出“取消隐藏”对话框，在“取消隐藏工作簿”列表中选中要取消隐藏的工作簿，点击“确定”按钮即可，此时PERSONAL.XLSB这个工作簿就显示出来了。

        
      
二
新工作簿
将录制的宏保存到新工作簿，只对该工作簿有效。
三
当前工作簿
将宏保存到当前工作簿，只有在该工作簿打开时，该宏才可以使用。以上就是对宏的3种保存方式的介绍！
好了，今天就跟大家分享到这里！如果文章对您有帮助，可以“点赞”或点亮“在看”，希望多多支持！

工作中经常遇到别人发来的表格进行数据过滤，但针对有结构保护的工作簿无法插入新表格输出过滤内容，需要对工作簿状态进行判断，有保护的在原表格指定位置输出。主要针对状态判断（处理代码可自行完善）
Sub 工作簿结构窗口保护()

ActiveWorkbook.Protect Structure:=True, Windows:=False    'Structure:=True 结构保护设置为保护

If ActiveWorkbook.ProtectStructure = True Then

'处理代码。。。。。

MsgBox “工作簿结构保护”

'处理代码。。。。。

Else

MsgBox “工作簿结构未保护”

End If

If ActiveWorkbook.ProtectWindows = True Then

'处理代码。。。。。

MsgBox “工作簿窗口保护”

Else

MsgBox “工作簿窗口未保护”

'处理代码。。。。。

End If

End Sub

学习资源：《Excel VBA从入门到进阶》第33集 by兰色幻想
一、什么是Inputbox输入窗口
Inputbox输入窗口提示用户输入值，分为Inputbox函数和Inputbox方法。
Inputbox函数
inputbox(输入框显示内容,窗体标题,默认值,水平位置,垂直位置,帮助文件,帮助文件ID）
填写参数后会如下图在Inputbox输入窗口中体现参数设置：
（关于帮助文件和帮助文件的ID的使用方法和Msgbox一样，在这里就不设置并且赘述了）
2. Application对象的Inputbox方法
Application.InputBox(输入框显示内容,窗体标题,默认值,水平位置,垂直位置,帮助文件,帮助文件ID,文本框内输入类型)
和Inputbox函数比较，Inputbox方法在最后面多了一个参数“文本框内输入类型”。
最后一个参数可以设置或说限制输入内容的数据类型，可选值有：
3. 何时选用方法，何时选用函数
       从上面的参数可以看出，Inputbox函数和方法的不同之处是方法比函数多了后面几个参数,如果只是简单的输入,可以用Inputbox函数。
    如果需要添加帮助和设置输入类型,则用Application对象的Inputbox方法.
二、基本应用
1.把输入的内容返回给一个变量
①用Inputbox函数（只设置前三个参数）：
Sub test1()

Dim sr
sr = InputBox("输入测试", "测试", 100)
MsgBox sr

End Sub
②用Inputbox方法（只设置前三个参数）：
Sub test1()

Dim sr
sr = Application.InputBox("输入测试", "测试", 100)
MsgBox sr

End Sub
2.
      在这里可以顺便看到默认值的作用，如果不输入内容就直接返回默认值。那不设置默认值直接按确认会发生什么？
2. 不设默认值直接点确定
①用Inputbox函数（只设置前两个参数）：
Sub test2()

Dim sr
sr = InputBox("输入测试", "测试")
MsgBox sr

End Sub
②用Inputbox方法（只设置前两个参数）：
Sub test2()

Dim sr
sr = Application.InputBox("输入测试", "测试")
MsgBox sr

End Sub
      Inputbox方法和Inputbox函数都返回空，所以我们就可以用空来判断是否输入了内容。那什么都不输入直接按取消会发生什么呢？
3. 直接点了"取消"按钮或者关闭窗体
①用Inputbox函数（只设置前两个参数）：
Sub test4()

Dim sr
sr = InputBox("输入测试", "测试")
MsgBox sr 

End Sub
②用Inputbox方法（只设置前两个参数）：
Sub test4()

Dim sr
sr = Application.InputBox("输入测试", "测试")
MsgBox sr '返回False

End Sub
       由上面2,3可以看出，如果需要判断是否输入了内容和是否点击了退出/取消，用Inpubox函数时判断返回值是否为空就可以了，如果是Inputbox方法,则需要进行两种判断，看是空还是False。
Sub test3()

Dim sr
sr = Application.InputBox("输入测试", "测试")

If sr = "" Then
    MsgBox "你没有输入就点了确定"
ElseIf sr = "False" Then
    MsgBox "你没有输入就点了取消/退出"
End If

End Sub
三、Inputbox的扩展应用
下面挑几个值举例说明一下：
1.引用单元格
      inputbox方法的最后一个参数值为8的时候，可以用鼠标选择单元格的地址。
      如使用SET声明的对象变量，则返回的是一个单元格对象；否则返回的这个单元格区域的值，即VBA数组。
① 使用SET声明的对象变量
Sub text5()

Dim rg As Range
Set rg = Application.InputBox("请选择单元格区域", "选取提示", , , , , , 8)
MsgBox rg.Parent.Name & "!" & rg.Address

End Sub
② 不使用SET声明的对象变量
Sub text6()

Dim rg
rg = Application.InputBox("请选择单元格区域", "选取提示", , , , , , 8)
MsgBox rg(2, 1)

End Sub
2.公式引用
       当最后一个参数设置为0时，可以输入公式，返回的也是一个公式字符串，如果公式中含单元格引用，可以自动转换成rc引用格式(以当前活动单元格为参照)。
Sub test7()

Dim r
r = Application.InputBox("请输入公式", "输入提示", , , , , , 0)
MsgBox r

End Sub
3 限制输入返回的数值格式
① 限制只能输入数字
Sub test8()

Dim r
r = Application.InputBox("请输入公式", "输入提示", , , , , , 1)
'输入非数字则会提示无效的数字
MsgBox r

End Sub
② 限制输入文本 (字符串)
Sub test9()

Dim r
r = Application.InputBox("请输入公式", "输入提示", , , , , , 2)
MsgBox TypeName(r)
'返回变量类型

End Sub
限制只能输入文本 (字符串)，当然，文字型数字也算文本 (字符串)
TypeName(变量)  ： 显示变量的类型
4.数值数组
可以直接选取单元格区域的值作为数组，或者输入以带有大括号的一维或二维数组。
数组形式数据表示：
一维数组，例{1,2,5}
二维数组，每一行的数据后加分号" ; "，例{1,2;3,4;5,6}
Sub test10()

Dim r
r = Application.InputBox("请输入公式", "输入提示", , , , , , 64) 
MsgBox r(2, 1)
'显示数组中第二行第一列的数据

End Sub
直接选取单元格区域在上面的例子已经展示过了，下面尝试输入数组{1,2;3,4;5,6}：
四、小结
Inputbox输入窗口到这里就学习完了，进入下一课。
拖延症晚期患者立flag_(´ཀ`」∠)_要在这周把正则表达式之前的几课给学完！

学习资源：《Excel VBA从入门到进阶》第33集 by兰色幻想
一、什么是Inputbox输入窗口
Inputbox输入窗口提示用户输入值，分为Inputbox函数和Inputbox方法。
Inputbox函数
inputbox(输入框显示内容,窗体标题,默认值,水平位置,垂直位置,帮助文件,帮助文件ID）
填写参数后会如下图在Inputbox输入窗口中体现参数设置：
（关于帮助文件和帮助文件的ID的使用方法和Msgbox一样，在这里就不设置并且赘述了）
2. Application对象的Inputbox方法
Application.InputBox(输入框显示内容,窗体标题,默认值,水平位置,垂直位置,帮助文件,帮助文件ID,文本框内输入类型)
和Inputbox函数比较，Inputbox方法在最后面多了一个参数“文本框内输入类型”。
最后一个参数可以设置或说限制输入内容的数据类型，可选值有：
3. 何时选用方法，何时选用函数
       从上面的参数可以看出，Inputbox函数和方法的不同之处是方法比函数多了后面几个参数,如果只是简单的输入,可以用Inputbox函数。
    如果需要添加帮助和设置输入类型,则用Application对象的Inputbox方法.
二、基本应用
1.把输入的内容返回给一个变量
①用Inputbox函数（只设置前三个参数）：
Sub test1()

Dim sr
sr = InputBox("输入测试", "测试", 100)
MsgBox sr

End Sub
②用Inputbox方法（只设置前三个参数）：
Sub test1()

Dim sr
sr = Application.InputBox("输入测试", "测试", 100)
MsgBox sr

End Sub
2.
      在这里可以顺便看到默认值的作用，如果不输入内容就直接返回默认值。那不设置默认值直接按确认会发生什么？
2. 不设默认值直接点确定
①用Inputbox函数（只设置前两个参数）：
Sub test2()

Dim sr
sr = InputBox("输入测试", "测试")
MsgBox sr

End Sub
②用Inputbox方法（只设置前两个参数）：
Sub test2()

Dim sr
sr = Application.InputBox("输入测试", "测试")
MsgBox sr

End Sub
      Inputbox方法和Inputbox函数都返回空，所以我们就可以用空来判断是否输入了内容。那什么都不输入直接按取消会发生什么呢？
3. 直接点了"取消"按钮或者关闭窗体
①用Inputbox函数（只设置前两个参数）：
Sub test4()

Dim sr
sr = InputBox("输入测试", "测试")
MsgBox sr 

End Sub
②用Inputbox方法（只设置前两个参数）：
Sub test4()

Dim sr
sr = Application.InputBox("输入测试", "测试")
MsgBox sr '返回False

End Sub
       由上面2,3可以看出，如果需要判断是否输入了内容和是否点击了退出/取消，用Inpubox函数时判断返回值是否为空就可以了，如果是Inputbox方法,则需要进行两种判断，看是空还是False。
Sub test3()

Dim sr
sr = Application.InputBox("输入测试", "测试")

If sr = "" Then
    MsgBox "你没有输入就点了确定"
ElseIf sr = "False" Then
    MsgBox "你没有输入就点了取消/退出"
End If

End Sub
三、Inputbox的扩展应用
下面挑几个值举例说明一下：
1.引用单元格
      inputbox方法的最后一个参数值为8的时候，可以用鼠标选择单元格的地址。
      如使用SET声明的对象变量，则返回的是一个单元格对象；否则返回的这个单元格区域的值，即VBA数组。
① 使用SET声明的对象变量
Sub text5()

Dim rg As Range
Set rg = Application.InputBox("请选择单元格区域", "选取提示", , , , , , 8)
MsgBox rg.Parent.Name & "!" & rg.Address

End Sub
② 不使用SET声明的对象变量
Sub text6()

Dim rg
rg = Application.InputBox("请选择单元格区域", "选取提示", , , , , , 8)
MsgBox rg(2, 1)

End Sub
2.公式引用
       当最后一个参数设置为0时，可以输入公式，返回的也是一个公式字符串，如果公式中含单元格引用，可以自动转换成rc引用格式(以当前活动单元格为参照)。
Sub test7()

Dim r
r = Application.InputBox("请输入公式", "输入提示", , , , , , 0)
MsgBox r

End Sub
3 限制输入返回的数值格式
① 限制只能输入数字
Sub test8()

Dim r
r = Application.InputBox("请输入公式", "输入提示", , , , , , 1)
'输入非数字则会提示无效的数字
MsgBox r

End Sub
② 限制输入文本 (字符串)
Sub test9()

Dim r
r = Application.InputBox("请输入公式", "输入提示", , , , , , 2)
MsgBox TypeName(r)
'返回变量类型

End Sub
限制只能输入文本 (字符串)，当然，文字型数字也算文本 (字符串)
TypeName(变量)  ： 显示变量的类型
4.数值数组
可以直接选取单元格区域的值作为数组，或者输入以带有大括号的一维或二维数组。
数组形式数据表示：
一维数组，例{1,2,5}
二维数组，每一行的数据后加分号" ; "，例{1,2;3,4;5,6}
Sub test10()

Dim r
r = Application.InputBox("请输入公式", "输入提示", , , , , , 64) 
MsgBox r(2, 1)
'显示数组中第二行第一列的数据

End Sub
直接选取单元格区域在上面的例子已经展示过了，下面尝试输入数组{1,2;3,4;5,6}：
四、小结
Inputbox输入窗口到这里就学习完了，进入下一课。
拖延症晚期患者立flag_(´ཀ`」∠)_要在这周把正则表达式之前的几课给学完！