常用办公功能Excel2013超级操作类源码

.子程序 置工作表名, 逻辑型, 公开
.参数 工作表序号, 整数型
.参数 工作表名, 文本型, 可空

返回 (excel.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).写属性 (“Name”, 工作表名))


.子程序 删除重复项, , 公开
.参数 工作表序号, 整数型
.参数 单元格区域, 文本型, , 整列“A:A” ,区域“A1:A10”

excel.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).读对象型属性 (“Range”, 单元格区域).对象型方法 (“RemoveDuplicates”, 1, 2)




.子程序 验证数据, , 公开, 指定某单元格区域输入固定的置
.参数 工作表序号, 整数型
.参数 单元格区域, 文本型
.参数 允许类型, 整数型, 可空, #yz_允许类型_*
.参数 允许方法, 整数型, 可空, #yz_方法_*
.参数 允许最小值, 整数型, 可空, 允许方法=介于或未介于时、已下参数都可以用
.参数 允许最大值, 整数型, 可空
.参数 忽略空值, 逻辑型, 可空
.参数 显示输入信息, 逻辑型, 可空, 为假已下两个参数不用输入
.参数 显示标题, 文本型, 可空
.参数 显示信息, 文本型, 可空
.参数 出错弹出警告, 逻辑型, 可空, 为假已下三个参数不用输入
.参数 警告图标, 整数型, 可空, #yz_图标_*
.参数 警告标题, 文本型, 可空
.参数 警告信息, 文本型, 可空
.参数 打开输入法, 整数型, 可空, #yz_输入法_*
.局部变量 Selection, 对象

Selection ＝ excel.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).读对象型属性 (“Range”, 单元格区域).读对象型属性 (“Validation”, )

Selection.写属性 (“Delete”, )
Selection.写属性 (“Add”, 允许类型, 警告图标, 允许方法, 允许最小值, 允许最大值)

Selection.写属性 (“IgnoreBlank”, 忽略空值)
Selection.写属性 (“InCellDropdown”, 真)

Selection.写属性 (“InputTitle”, 显示标题)
Selection.写属性 (“ErrorTitle”, 警告标题)
Selection.写属性 (“InputMessage”, 显示信息)
Selection.写属性 (“ErrorMessage”, 警告信息)


Selection.写属性 (“IMEMode”, 打开输入法)
Selection.写属性 (“ShowInput”, 显示输入信息)
Selection.写属性 (“ShowError”, 出错弹出警告)




.子程序 圈出无效数据, , 公开, 使用本命令前，先调用、验证数据（）
.参数 工作表序号, 整数型
.参数 是否圈出, 逻辑型, 可空

选中工作表 (工作表序号)
.如果 (选择 (是否为空 (是否圈出), 真, 取反 (是否圈出)))
excel.读对象型属性 (“ActiveSheet”, ).对象型方法 (“ClearCircles”, )
.否则
excel.读对象型属性 (“ActiveSheet”, ).对象型方法 (“CircleInvalid”, )
.如果结束


.子程序 置超链接, , 公开
.参数 工作表序号, 整数型
.参数 单元格区域, 文本型
.参数 连接类型, 整数型, 可空, 0为电子邮件 1为网站
.参数 要显示的文字, 文本型, 可空
.参数 电子邮件地址, 文本型, 可空
.参数 电子邮件主题, 文本型, 可空
.参数 连接网站, 文本型, 可空, 可以打开工作簿，如“C:\Users\Administrator\Desktop\最后的结果.xlsx”
.局部变量 Hyperlinks, 对象

Hyperlinks ＝ excel.读对象型属性 (“ActiveSheet”, ).读对象型属性 (“Hyperlinks”, )
.判断开始 (连接类型 ＝ 0)
Hyperlinks.写属性 (“Add”, excel.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).读对象型属性 (“Range”, 单元格区域), 电子邮件地址, 电子邮件主题, 要显示的文字)
.判断 (连接类型 ＝ 1)
Hyperlinks.写属性 (“Add”, excel.读对象型属性 (“Worksheets”, ).读对象型属性 (“Item”, 工作表序号).读对象型属性 (“Range”, 单元格区域), 连接网站, 要显示的文字)
.默认