添加链接
link之家
链接快照平台
  • 输入网页链接,自动生成快照
  • 标签化管理网页链接
Sub 改格式() ActiveWorkbook.activesheet.Select For Each Rng In ActiveSheet.UsedRange With Rng .NumberFormatLocal = "G/通用格式" .Value = .Value End With Next Rn...
纲举目张说明代码code使用方法 单元格 格式 设置的不恰当会引发灾难的,估计在操作身份证、银行卡号等信息时踩坑的小伙伴深有同感。使用代码设置 单元格 格式 时,虽然我们可以使用录制宏的方法得知如何设置,但是录制得到的代码比较啰嗦,对象不是很清晰,在此我总结了一下常用的设置 单元格 格式 的代码,方便小伙伴们随时取用。 代码code Sub 设置 单元格 格式 () '首先为大家展示使用录制宏的方式得到的设置 单元格 格式 的代码 Range("B2").Select Selection.NumberFormatLo
一个小巧而又十分强大的 Excel 加载项(插件)---OBS.DLL,大小1M左右,却能突破微软的技术壁垒,打破 Excel 常规 应用模式,开辟了 Excel 的另类应用空间。加载后新增一个"OBS"工具条,适用于 Excel 2002及以上版本,推荐在 Excel 2002/2003中使用。 OBS.DLL的主要功能是制作和编辑OBS文档,一种类似TreeView控件的文档。换句话说,OBS.DLL将 Excel 表格变成了一个功能强大的超级TreeView控件!普通TreeView控件只能显示一列数据(仅一个字段),而OBS表格却可以显示更多的列(N个字段),而且每个字段都可以汇总(这一点又要比 Excel 自身的分类汇总更直观、简单),再配合 VBA ,可以让您轻松驾驭超灵无比的 Excel ! 当然,OBS.DLL还具备一些很有特色的功能,对 Excel 的功能来说,应该是一个很好的补充。如: 1、中文简繁互换:在简体中文和繁体中文之间进行转换。 2、进制转换:在二进制、八进制、十进制、十六进制之间相互转换。 3、人民币大小写互换:在 Excel 中,很多时候需要将小写的金额数字转换成大写,而 Excel 提供的函数转换出来的 格式 并不符合中国人的习惯,所以... 4、数字签名:对 Excel 表格中的内容进行签名保护,主要是防止提供者提供的内容被非法修改。可以用于 Excel 公文的电子签名,实现真正的无纸办公... 5、保存为图片文件:相当于 Excel 的照相机功能(有过之而无不及)。可以将 Excel 中的 单元格 区域、Shape对象、图片、图表等(甚至是组合形式)以gif、jpg、bmp等各式保存到磁盘中。 6、全功能批注----真正所见即所得的批注编辑器。 7、VB/ VBA 代码归纳与重写:对VB/ VBA 代码进行混淆,大大降低代码的可读性,是一种保护VB/ VBA 代码的很有效的方法。详细的注释说明和一目了然的名称将有助于设计阶段的调试和查错,但是代码一旦发布后,这些优点将会使黑客轻而易举地破解你的成果,呵呵,用这个吧,保证黑客对您的VB/ VBA 代码一点兴趣和胃口都没有!! 8、解除 Excel 文档的内部密码。很多时候,我们需要设置 Excel 表格/工作簿的保护密码,可是随着时间的推移,这些密码很可能遗忘了,怎么办?很着急啊!!!哈哈,用这个保证在2分钟之内解决问题(换个角度:不要再自欺欺人了, Excel 的内部密码形同虚设)。 9、信息加密/解密。对 Excel 文档中的一些敏感信息进行加密处理,即使文档被破解了,里面的信息仍然很安全。可以说这个功能是对 Excel 安全的一个有力补充。 10、工程代码锁定解锁器。可以撤销 Excel VBA 保护密码(对word、Access同样有效) 11、控制和保存功能。这个功能能满足我们不用记一个密码就能非常有效地保护我们的 Excel 文档,而且可以免除来自微软的威胁。 12、Cookie管理器。在信息时代,没有网络怎么可以?上网时间长了,就会发现在临时文件夹中挤满了cookies,不但占据磁盘空间,而且还可能泄露秘密。用“清理cookie”命令吧,又觉得有些没有必要删,否则下次还得再输一遍;一个一个删吧,东西太多,想都不能想。怎么办??用这个啊!!只要一次性设置要保留的cookie并选中“退出 Excel 时自动清理”即可。以后只要退出 Excel ,你的cookies目录中就不会再有其它乱七八糟的cookie了。 13、超级预览。可以根据当前的选择内容自动调整预览对象。如果选中的是 单元格 区域,就只预览你选中的区域;如果选中的是图表,则仅预览选中的图表;如果只是一个 单元格 ,则自动显示分页符... ... 14、屏幕锁定。当我们需要临时离开电脑而又不想关闭 Excel 文档时(并不局限于 Excel 文档,也可以是其它,但前提是要运行 Excel ),可以启动这个功能,这样其他人就不可能看到您不希望他们看到的东西。 15、尝试打开忘记密码的文件。暴力破解 Excel 的打开密码,注意:这个仅对拥有密码设计方案的人有效。 16、 Excel 加载项/宏管理器。对当前 Excel 环境下的加载宏/加载项/ VBA 加载项进行列表,并可以查看相关属性、修改运行状态,甚至是一键破解。 17、 Excel 对象管理器,可以批量转换 Excel 中的对象(图片、Shape、图表等)到图片文件; 18、在 Excel 中播放背景音乐、定时执行特定的程序、整点报时,一定很惬意... 19、屏幕录像及捕捉。哦,这个功能很强大啊。可以截取屏幕图像、录制屏幕变化、图片 格式 转换、批量bmp转成AVI文件、AVI文件转成动画GIF文件、图片标注... ...强大的不行啦,赶快去看看吧。快捷键:Ctrl+Alt+SpaceBar 或者 Ctrl+左WinKey(微软左徽标键) 20、DLL神探,DLL的最大威胁就是注入到系统进程中,让人防不胜防... 21、一键恢复 Excel 的系统菜单。这个功能... ... 22、 Excel 版简易游戏。只是几个可以在 Excel 中玩的游戏... 23、计划横道图(甘特图)。偶觉得还是用 Excel 来做横道图最方便了... ... 24、偶将呆板的网络调查和网络投票移植到OBS.DLL中了,变被动为主动! ... ... 有兴趣的请访问:http://www.ChinaOBS.com 。本站热诚欢迎您的到来。
单元格 水平 竖向居中 Sheet.Range(“A6”).HorizontalAlignment = = xlCenter ‘= 3 单元格 水平居中 Sheet.Range(“A6”).VerticalAlignment = xlCenter ‘=2 单元格 竖向居中 此属性的值可设为以下常量之一: xlCenterxlDistributedxlJustifyxlLeft 设置 单元格 边框
如上图所示,A列的时间信息,统一转化为标准 格式 yyyy-mm-dd hh:mm:ss 注意到第5行和第6行,系统对月识别的效果是不一样的,默认第1位是月,当系统判断第1位明显不是月的时候,取第2位为月信息 Part 2:代码 Sub 转换()
SUB 格式 () Worksheets("申报表" & i).Range("A1:I6").Interior.ColorIndex = 2 Worksheets("申报表" & i).Range("A" & O + 4 & " :J" & O + 4).Borders.LineStyle = xlContinuous Worksheets("申报表" ...
with Range("A1:B10") .HorizontalAlignment = xlLeft '左对齐 .HorizontalAlignment = xlCenter ' 居中 .HorizontalAlignment = xlRight '右对齐 .Font.Bold = True '粗体 .Font.Italic = True '斜...
VBA 是一种可以用于在微软办公软件中自动化操作的编程语言,它可以帮助我们实现将 Excel 单元格 中的数据写入到Word文档中。 首先,我们需要在 Excel 中编写 VBA 代码。打开 Excel 文件,按下Alt+F11键打开 VBA 编辑器。在 VBA 编辑器中,在项目窗口中双击“这台工作簿”或“模块”文件夹,然后在代码窗口中编写以下代码: ```vb Sub ExportToWord() Dim WordApp As Object Dim WordDoc As Object '创建一个新的Word应用程序对象 Set WordApp = CreateObject("Word.Application") WordApp.Visible = True '将Word应用程序显示出来 '创建一个新的Word文档 Set WordDoc = WordApp.Documents.Add '在Word文档中插入一个新的段落 WordDoc.Content.Paragraphs.Add '将 Excel 中A1 单元格 的值写入到Word文档中 WordDoc.Content.Text = ThisWorkbook.Worksheets("Sheet1").Range("A1").Value '保存并关闭Word文档 WordDoc.SaveAs "C:\Documents\MyFile.docx" WordDoc.Close '关闭Word应用程序 WordApp.Quit '释放对象变量的内存空间 Set WordDoc = Nothing Set WordApp = Nothing End Sub 代码中的写入操作是通过将 Excel 中A1 单元格 的值赋给Word文档的内容来实现的。如果你想要写入其他 单元格 的值,可以将`Range("A1")`替换为你要写入的 单元格 范围。 在代码中,我们使用`Word.Application`和`Word.Document`对象来创建和操作Word应用程序和文档。你可以按照你的需要对Word应用程序进行设置和调整。最后,我们将Word文档保存到指定的文件路径,并关闭Word应用程序。 执行该 VBA 代码后,你将看到一个新的Word文档被打开,并且其中包含了 Excel 单元格 A1的值。你可以根据需要在代码中进行修改,以实现更复杂的写入操作。