假如想通过VBA对EXCEL当前表A列单元格或区域的数字类型进行批量格式化处理,方法如下:
r = activesheet.range(“A1”).currentregion.rows.count
for i = 2 to r
ActiveSheet.range(“A1”).NumberFormatLocal = “@”:
next
NumberFormatLocal 常用的格式代码
:
Selection.NumberFormatLocal =“G/通用格式” '常规
Selection.NumberFormatLocal = “0.00_ " '数值
Selection.NumberFormatLocal = “¥#,##0.00;¥-#,##0.00” '货币
Selection.NumberFormatLocal = “_ ¥* #,##0.00_ ;_ ¥* -#,##0.00_ ;_ ¥* " & “””” & “-” & “”“” & "??_ ;_ @_ " '会计专用
Selection.NumberFormatLocal = “yyyy/m/d;@” '日期
Selection.NumberFormatLocal = “[
KaTeX parse error: Expected 'EOF', got '#' at position 101: …FormatLocal = "#̲ ?/?" '分数 Selec…
-804]G/通用格式” '中文大写 '特殊
Selection.NumberFormatLocal = “[DBNum2][
R
M
B
]
G
/
通
用
格
式
;
[
红
色
]
[
D
B
N
u
m
2
]
[
RMB]G/通用格式” ''特殊人民币大写
Selection.NumberFormatLocal = “yyyy/mm/dd” '日期 '自定义
如果想将文本型数值批量赋给单位格,并保持文本型类型,语句示例如下:
如,将数组中的文本型数值保存在表格中单元格A列
dim arr() as string
dim key as string
dim i as integer
key = “1001,1001.01,1002,1002.01,1220,1221”
arr=split(key,“,”)
for i = 1 to ubound(arr)
activesheet.range(“A” & i).NumberFormatLocal = “@”: rem 赋值前对单元格数值类型进行设置
activesheet.range(“A” & i).value = arr(i)
next
Excel
百宝箱 9.0 破解版
批量
导入图片等200种功能
Excel
2007
Excel
百宝箱2012是强大的制表插件,当安装百宝箱后,如果您使用
Excel
2003,则将产生【百宝箱】菜单,包括100多个子菜单;如果您使用
Excel
2007或者2010,将产生【百宝箱】和【字符分离】两个功能区选项卡。另外,在“函数向导”对话框中会生成28个新的函数,用于扩展
Excel
的计算功能。且所有功能都通用于
Excel
2002、2003、2007和2010。
Excel
百宝箱 79个菜单工具的功能介绍如下:
功能名称功能介绍
【公农双历查询】生成多功能日历,可以查询所有节、假日和农历
【高级定位】多功能选择(查找)工具。可以选择大于某值或者小于某值或者在某范围之间的值,文本定位时支持通配符,在8.0版本开始还加了按格式定位、按格式计算功能。例如选择并计算红色区域,或者选择字号为20、字体为宋体的区域,再如选择加粗且倾斜的区域等等
【选区背景着色】将选择的行
进行
颜色标示,以突出当前行,有利于数据查看。可以随心所欲地定义颜色,还可以自由调整颜色的深浅。本工具相对于同类工具有不破坏背景色、条件格式、复制粘贴和撤消功能之优点
【环境设置】设置工作表界面视图,控制各项目的显示与隐藏
【修改文件时间】随心所欲修改文件的创建时间,包括年月日时分秒
【按颜色汇总】按背景色对选区的数据合类合计
【反向选择】选择当前区域中未选择的区域
【保护公式】保护当前工作表所有公式,不让人看到公式本身,只能看到公式结果。
【生成千年日历】工
单元格
中生成千年日期。默认显示本月的日历,可以自由调整年月。
【生成斜线表头】
Excel
没有Word那样的斜线表头工具,本工具可以弥补此不足。包括单线、双线可选
【百家姓与字母序列】运行后可以在
单元格
中
进行
百家姓与字母填充,提升录入速度
【一键隐藏非使用区】对空白区域瞬间隐藏起来。可以选择作用对象是当前表还是所有工作表。恢复时也只要瞬间完成(不到1秒)
【文本、
数字
分离与计算】
批量
地对
单元格
进行
文本、
数字
分离,还可以计算取出的表达式
【删除空
单元格
】删除选区中空
单元格
,下面的单元向上移动
【按列倒置】将选区中每列的数据倒序存放
【按行倒置】将选区中每行的数据倒序存放
【转置选区】将选区转置一个方向存放,即纵向转换成横向
【字母大小写转换】将选区的英文单词在大写与小写间切换,也可以首字母大写其它小写
【小写金额转大写】将小写金额
批量
转换成大写
【大写金额转小写】将大写金额
批量
转换成小写
【区域数据加密】对工作表选区的数据
进行
加密,转换成乱码,有密码才可以查看。第二次执行时可以恢复数据
【简体转繁体】将简体字
批量
转换成繁体
【繁体转简体】将繁体字
批量
转换成简体
【根据工资计算钞票】根据员工的工资计算需要多少张100元、50元......1元的钞票,可以
批量
计算。发现金工资的财务工作者必备
【隔行插入行】对工作表隔行插入行,或者隔列插入列,其中行数可以自定义
【折分工作簿】将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称
【工作表折分】将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件
【合并工作簿】将指文件夹中所有工作簿中所有工作表数据合并起来。有两种合并方式
【文本与
数值
互换】将选区的
数字
瞬间转换成文本;将选区的文本型
数字
瞬间转换成
数值
【复选框工具】
批量
生成复选框(方框中打勾的工具),
批量
选定、取消复选框。且可以定义复框是否可以打印、与
单元格
链接等等
【报表分栏工具箱】Word有分栏功能,本工具使
Excel
也具有同栏功能。当数据列数太少浪费打印纸张时,可以用本工具分成多栏再打印
【制作工资条】瞬间将工资明细表生成工资条,方便打印并裁剪。可以自己定义工资条头的行数
【删除工资条恢复明细表】删除前一工具生成的工资条头,恢复明细表
【建立分页小计】将每页数据建立小计和累计,且自动分页,小计和累计在每页最末处
【删除分页小计】删除小计与累计,恢复明细表
【合并到选区】将一个
单元格
的值合到一个区域中去,可以插入到原字符之前也可以插入到原字符之后
【可还原的合并居中】合并居中数据,可以保留合并前的所有数据。而且取消合并后可以还原数据,强过
Excel
自带的合并 居中多倍
【合并列中相同值】对一列中相同且相邻的数据区域
进行
合并居中
【取消合并还原合并数据】对一列中合并后的
单元格
取消合并,且恢复合并前所有数据
【合并数据并复制】可以将一个区域的数据直接复制到一个
单元格
中
【建立图片目录】对指定文件夹下所有图片(GIF、PNG、JPG、JPEG四种格式)建立目录 ,包括名称目录及
批量
导入图片,可以自由设置其大小
【
批量
导入图片(精确匹配)】根据选区的文件名瞬间导入所有同名图片到
单元格
,可以自由设定图片的大小及格式
【
批量
导入图片(模糊匹配)】与上一工具基本一致,只是在确定图片名称时可以糊模匹配。即选择“张”可以导入所有姓张的人的照片
【
批量
导入图片到批注】
批量
地将图片导入到批注中,可以自由设定图片显示大小
【添加个性批注】
Excel
本身只有方形批注,本工具可以生各种花样的变体批注,美观大方
【图片查询工具】对工作表中插入的图片
进行
查询,像引用产品单价一样方便、直观
【删除所有图片】删除当前表所有图片
【
批量
导出图片】将当前表所有嵌入的图片导出到硬盘中成为JPG图片
【保存为图片】将选区或者工作表中的图片导出成JPG文件或者PNG图片
【生成个性化批注】
Excel
本身只有方形批注,本工具可以生各种花样的变体批注,美观大方
【插入GIF动画】将GIF动画插入到工作表中播放,可以随意定制GIF的大小和位置
【插入FLASH动画】将Flash动画嵌入到工作表中,并播放,可以随意定制Flash动画的显示大小和位置。动画嵌入工作表中,删除FLASH原文件不影响
Excel
中的效果
【提取选区不重复值】将选择区域的数据,置于当前列中,忽略重复值
【清除列中重复值】将选择中重复出现的数据删除(提供保留第一次出现还是最后一次出现的数据 的选择机会,也提供是否对删除数据加背景色突出的选择机会)
【标示重复值】将重复出现的数据用 颜色标示出来,不同值使用不同颜色,通常用于学号、身份证号、订单号等等有唯一性质的数据检查
【禁止录入重复值】对指定的列
进行
录入控制,输入重复数据时提示有重复以及重复次数
【删除空白
单元格
所在行】输入1则删除空白行(整行空白),输入2则删除空白
单元格
所在行
【筛选唯一值】以选择区域左边一列为条件
进行
唯一值筛选,输入1则删除重复值所在行,输入2则隐藏重复值所在行
【建文件目录】对指定文件夹中的文件建立目录,且生成链接,单击可以打开对应的文件
【建工作表目录】对当前工作簿的所有工作表建立目录与编号,且生成链接,单击可以打开工作表
【
批量
新建/复制工作表】
批量
新建或者复制工作表,可以瞬间建立/复制1到255个。还可以在新建或复制时全自动命名
【
批量
加解密】
批量
对工作表
进行
加密码、解除密码(只能
批量
解除自己设置的密码)
【破解工作表/簿密码】可以破解工作表密码和工作簿密码。在不知道密码的前提下找回密码
【
批量
命名文件】对指定文件夹下所有文件
进行
重命名。可以限定文件
类型
或者对所有
类型
文件
进行
命名。可以在原文件名前或者后插入新名称,也可以替换原名称
【工作表
批量
命名】对活动工作簿中所有工作表
进行
批量
地改名
【打印当前页】仅仅打印当前鼠标所在页,忽略其它数据
【双面打印】打印双面小册子专用
【打印底端标题】将最后几行做为底端标题
进行
打印,弥补
Excel
只有顶端标题之不足
【生成系统图标】
VBA
编程人员常用的工具。可以查询
Excel
内部图标的ID号
【获取内置命令ID】
VBA
编程人员常用的工具。可以查询
Excel
内部命令的ID号
【按颜色筛选】让
Excel
2003也可以按背景色筛选数据,2007或者2010用户不需要使用
【按颜色排序】让
Excel
2003也可以按背景色筛选排序,2007或者2010用户不需要使用
【修复
Excel
】当您的
Excel
某些功能无法使用时,或者无缘无故多出很多菜单、工具栏时,本工具可以瞬间恢复
Excel
到默认状态
【破解
VBA
密码】将有密码的
VBA
代码破解,直接打开即可修改代码。包括工程不可查看类的破解
【多区域复制】突破
Excel
的限制,可以对选择的多个区域进复制与粘贴,在右键菜单中调用
【返回首页】配合“建立工作表目录”工具使用,可以在任何工作表中瞬间返回第一个工作表
Excel
百宝箱 26个函数功能介绍如下:
函数名称功能介绍
sumifcol按颜色
进行
条件求和。有三个区域引用参数,其中第三参数为可选参数。第一参数为参照区域,第二参数为颜色条件,第三参数为求和区域,即第一参数中颜色与第二参数相同,则将对应的第三参数的
单元格
进行
求和。如果省略第三参数则对第一参数求和
AVER评分函数。计算参数区域中去除最大值与最小值之再求平均,参数个数有255个(
Excel
2003中是1到30个)
hesum左右合并再求和。将1/2
类型
的
数字
换算成1.5
类型
数据后再求和;若为12则按12计算,若为1/2则按1.5计算
NOWW不改变的当前时间。不需要参数,输入的时间表示现在的时间,但不随时间改变而改变
SFZ身份证相关信息函数。第一参数为引用,第二参数输入“DQ”取返回地区,输入“XB”则返回性别,输入“SR”则返回生日。忽略第二参数则默认显示地区
Sheet创建工作表目录函。一个参数,输入工作表地址即返回工作表名,单击该工作表名进入对应的工作表
File用于创建带链接的文件目录,有三个参数,第一参数指定路径,第二参数定指文件
类型
。第三参数指定编号(数量)
大写将阿拉伯
数字
转为人民币金额大写。仅需要一个参数,即
单元格
引用
批注提取批注中的文字。只有一个参数,即
单元格
引用
合并将区域字符合并。第一参数为分割符,第二参数为引用区域。可以用""表示不使用分割符。第三参数开始为引用区域,可以有1到254个区域(
Excel
2003中是1到29个)。也还可以直接用文本做参数
取数分离
数字
与文本。第一参数为
单元格
;第二参数为可选参数,当为0或者省略时表示取出
数字
;为1时表示排除
数字
;为2时表示取出
数字
与运算符;为3则提取
数字
与运算符且计算结果
唯一值返回不重复值。可以对1到253(
Excel
2003中是1到28个)个区域取唯一值;前三个为必选参数,其余为可选参数。第一参数为ROW时先行后列取值,为COLUMN时先列后行(不分大小写),第三参数开始为引用区域
消除空值消除空值函数。可以选择多行多列,按先行后列之方式返回值.两个参数,一为区域一为序号
颜色求和按背景颜色对区域值求和。第一参数为参照值,第二参数为求和区域
颜色计数按背景颜色计算区域中同背景之数据个数。第一参数为参照值。第二参数为计数区域
工作表取工作表名。一个参数,输入工作表地址即返回工作表名
数字
与“大写”函数相反,将大写字符转换为阿拉伯
数字
分割取数按分割符取数。第一参数为
单元格
,第二参数表示取第N个,第三个参数表示分割符
共有项返回两个区域共有项目。前两个参数为区域,第三参数为序号
不同项返回第一区域中有而第二区域没有的项目。前两个参数是区域,第三参数为序号
公式公式函数。提取
单元格
中的公式,只需要一个参数,
单元格
引用
计算计算函数。计算
单元格
中的表达式,如
单元格
中为“456+2”,则计算其结果458。只需要一个参数,
单元格
引用
公式长度计算
单元格
中公式的长度,一个参数即
单元格
引用
排名中国式排名函数。即名次不间断,当两人并列第二名时,仍然存在第三名。有两个参数,第一参数为成绩区域,第二参数为待排名的成绩。参数不局限于区域引用
排序按出现次数排序。对引用数据将出现次数多的字符串排列在第一位,然后依次降序排列所有数据。有两个参数,第一参数为数据区域引用,第二参数为名次,可使用ROW(a1)
替换替换第N次出现的字符串的函数。第一参数为引用,第二参数为待替换字符串,第三参数为新字符串,第四参数用于指定替换第几次出现的字符,范围在1到256之间
重复判断指定区域中是否有重复
单元格
的函数只有一个参数即为引用,结果为True时表示有重复,否则无重复
对于无法安装的朋友请注意以下4点 :
一:必须是完整版OFFICE,不能是绿色版、精简版,它们不支持COM加载宏
二:必须关闭
Excel
状态下安装或者删除工具,安装后重启
Excel
即可
三:如果是VISTA或WIN 7,必须以管理员用户安装,且从控制面板中关掉用户帐户控制(UAC)功能
四:如果您装了其它的
EXCEL
工具,请先关掉它,它们有可能删除本工具的菜单
private _Workbook _workBook = null;
private Worksheet _workSheet = null;
private
Excel
.Application _
excel
Applicatin = null;
_
excel
Applicati...
数字
(Range.
Number
Format
local
属性)
常规:Range.
Number
Format
local
= "G/通用格式"
数值
:Range.
Number
Format
local
= "0.000_ " --保留小数位数为3
Range.
Number
Format
local
= "0" --不要小数
Range.
Number
Form
纲举目张说明代码code使用方法
单元格
格式设置的不恰当会引发灾难的,估计在操作身份证、银行卡号等信息时踩坑的小伙伴深有同感。使用代码设置
单元格
格式时,虽然我们可以使用录制宏的方法得知如何设置,但是录制得到的代码比较啰嗦,对象不是很清晰,在此我总结了一下常用的设置
单元格
格式的代码,方便小伙伴们随时取用。
代码code
Sub 设置
单元格
格式()
'首先为大家展示使用录制宏的方式得到的设置
单元格
格式的代码
Range("B2").Select
Selection.
Number
Format
Lo
作者:iamlaosong
将一个系统的数据导出再导入到另一个系统,虽然都是
Excel
文件,但格式略有不同,所以需要
进行
转换。功能不复杂,直接引用都可以,但是还是比较麻烦,不如写个工具,
进行
转换。这样导入文件干干净净,比较好。
唯一要注意的是信息中有身份证号码,在赋值到
单元格
中时,变成了科学格式或者后面几位都变成0,所以赋值前需要将
单元格
格式设成文本型(直接将导入模板文件中身份证列设成文本也可以),即:
Cells(row1, 2).
Number
Format
= "@" '号码单元...
1 Sub 获取
单元格
设置
数字
格式()
2 For Each Rng In [a1:a3]
3 Cells(Rng.Row, 2) = Rng.
Number
Format
Local
'获取
单元格
的格式代码
4 Next Rng
5 End Sub
1 Sub 给
单元格
设置
数字
格式()
2 For E...
很高兴为您解答,可以使用
VBA
函数来去除
Excel
单元格
内重复的数据。首先,打开
VBA
编辑器,在模块中添加以下代码:Sub Remove_Dupes()Dim Lrow As Long, Dic As Object, K As VariantSet Dic = CreateObject("Scripting.Dictionary")With Sheets("Sheet1")Lrow = .Cells(Rows.Count, "A").End(xlUp).RowFor i = 2 To LrowK = .Cells(i, 1).ValueIf Not Dic.exists(K) ThenDic.Add K, NothingElse.Cells(i, 1).ClearContentsEnd IfNext iEnd WithEnd Sub然后运行该函数,即可完成去重操作。