查看: 1994|回复: 6
VBA代码修改格式
阅读权限20
在线时间 小时
00111& & & & 7-Jul-2009
00222& & & & 7-Jul-2009
00333& & & & 7-Jul-2009
00444& & & & 7-Jul-2009
00555& & & & 7-Jul-2009
VBA想要实现更改A列数据格式为通用，去除前面的0
B列数据修改为：7/Jul/2009
13:29 上传
点击文件名下载附件
10.31 KB, 下载次数: 7
阅读权限70
在线时间 小时
去掉前导0可以用
& & irow = Cells(Rows.Count, 1).End(xlUp).Row
& & For i = 1 To irow
& && &&&Cells(i, 1) = Val(Cells(i, 1)): Cells(i, 1).NumberFormatLocal = &G/通用格式&
阅读权限20
在线时间 小时
去掉前导0可以用
& & irow = Cells(Rows.Count, 1).End(xlUp).Row
& & For i = 1 To irow
谢谢，如果是英文版的系统，&G/通用格式&应该写什么？
阅读权限70
在线时间 小时
Sub ModifyFormat()
& & irow = Cells(Rows.Count, 1).End(xlUp).Row
& & For i = 1 To irow
& && &&&Cells(i, 1) = Val(Cells(i, 1)): Cells(i, 1).NumberFormatLocal = &G/通用格式&
& && &&&Cells(i, 2).NumberFormatLocal = &[$-409]d/mmm/@&
& & Next
End Sub复制代码
阅读权限70
在线时间 小时
谢谢，如果是英文版的系统，&G/通用格式&应该写什么？
英文系统里设置单元格时可以直接看到，
阅读权限20
在线时间 小时
英文系统里设置单元格时可以直接看到，
找到了，是&General&。
阅读权限50
在线时间 小时
请测试
Sub ModifyFormat()
& & [A:A].NumberFormatLocal = &0_ &
& & [A:A] = [A:A].Value
& & [B:B].NumberFormatLocal = &d/mmm/yyyy&
End Sub复制代码
最新热点 /1
京东ExcelHome畅销系列图书大联展，满100元-30元现金，莫失良机！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师大家都知道在工作中，表格内容往往被他人反反复复修改多次，如果想知道有哪些地方被修改过，有什么好的方法呢？当然方法不止一种，在本文将为大家介绍下使用vba代码实现修改内容高亮显示，而且只需3句vba代码即可实现。首先设置宏的安全性，有图的大家参照设置一下即可。接下来以修改本工作簿中的第6个表的内容并让他以蓝色呈现高亮显示为例向大家演示下具体的实现过程。
首先设置宏的安全性，参考下图。
关于宏是什么，大家可以参考相关文章。
选择启用所有的宏或者第三种无数字签署的宏。
宏设置好了，假设我们要修改本工作簿中的第6个表的内容。我想让他高亮，颜色为蓝。我们按下面的步骤进行：先右击
进入vbe编辑器，在这里我们就能输入vba代码了。我们复制我们写好的代码进去或在这写
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Font.Color = vbBlue'vbblue代表高亮为蓝色
切记代码复制到对应要高亮内容的工作表。
点保存键，然后我们修改sheet6 阿语的工作表单元格内容，凡改过都会变成这样。
此3句简单的vba代码能帮助我们更快更好地发现工作表内容哪里被修改了。查看: 1994|回复: 6
VBA代码修改格式
阅读权限20
在线时间 小时
00111& & & & 7-Jul-2009
00222& & & & 7-Jul-2009
00333& & & & 7-Jul-2009
00444& & & & 7-Jul-2009
00555& & & & 7-Jul-2009
VBA想要实现更改A列数据格式为通用，去除前面的0
B列数据修改为：7/Jul/2009
13:29 上传
点击文件名下载附件
10.31 KB, 下载次数: 7
阅读权限70
在线时间 小时
去掉前导0可以用
& & irow = Cells(Rows.Count, 1).End(xlUp).Row
& & For i = 1 To irow
& && &&&Cells(i, 1) = Val(Cells(i, 1)): Cells(i, 1).NumberFormatLocal = &G/通用格式&
阅读权限20
在线时间 小时
去掉前导0可以用
& & irow = Cells(Rows.Count, 1).End(xlUp).Row
& & For i = 1 To irow
谢谢，如果是英文版的系统，&G/通用格式&应该写什么？
阅读权限70
在线时间 小时
Sub ModifyFormat()
& & irow = Cells(Rows.Count, 1).End(xlUp).Row
& & For i = 1 To irow
& && &&&Cells(i, 1) = Val(Cells(i, 1)): Cells(i, 1).NumberFormatLocal = &G/通用格式&
& && &&&Cells(i, 2).NumberFormatLocal = &[$-409]d/mmm/@&
& & Next
End Sub复制代码
阅读权限70
在线时间 小时
谢谢，如果是英文版的系统，&G/通用格式&应该写什么？
英文系统里设置单元格时可以直接看到，
阅读权限20
在线时间 小时
英文系统里设置单元格时可以直接看到，
找到了，是&General&。
阅读权限50
在线时间 小时
请测试
Sub ModifyFormat()
& & [A:A].NumberFormatLocal = &0_ &
& & [A:A] = [A:A].Value
& & [B:B].NumberFormatLocal = &d/mmm/yyyy&
End Sub复制代码
最新热点 /1
京东ExcelHome畅销系列图书大联展，满100元-30元现金，莫失良机！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师网站已改版，请使用新地址访问：
VBA_COMM 在excel VBA中编写的调试串口通讯的代码， 参数可以根据用户情况自行修改 Com Port 编程 238万源代码下载- www.pudn.com
&文件名称: VBA_COMM
& & & & &&]
&&所属分类:
&&开发工具: VBA
&&文件大小: 3 KB
&&上传时间:
&&下载次数: 76
&&提 供 者:
&详细说明：在excel VBA中编写的调试串口通讯的代码，串口参数可以根据用户情况自行修改-Write in the excel VBA code for debugging serial communications, serial port parameters can be modified according to user their own circumstances
文件列表(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&&VBA_COMM.doc
&[]:纯粹是垃圾&[]:纯粹是垃圾
&近期下载过的用户:
&相关搜索:
&输入关键字，在本站238万海量源码库中尽情搜索：
&[] - 用VB编写的opc服务器源码，对初学者有很大的指导意义。。。
&[] - Excel + VBA方式实现的串口通讯工具
&[] - Excel+VBA编写的串口程序，对于刚刚接触VBA的人有些帮助！
&[] - 这个是我公司，在实际软件测试中所实用的实例，串口在excel中的应用。
&[] - 利用vb生成曲线，即时显示输出的数据，鼠标移动到曲线上时，也可显示数据
&[] - Excel+VBA编写的串口程序，对于刚刚接触VBA的人有些帮助！
&[] - 串口通信实现电脑pc与单片机进行2位十六进制数传输
&[] - VB串口通信程序,可以读取串口并显示保存数据,且能显示数据曲线
&[] - VB串口通信数据采集VB串口通信数据采集前两天受人之托写的一个程序，发上来共享，从中
看到串口通信的常用处理方式，希望对大家有所帮助。
&[] - 这个是我公司，在实际软件测试中所实用的实例，串口在excel中的应用。查看: 25|回复: 0
阅读权限20
在线时间 小时
Sheet2.Activate
For x = 1 To [a65536].End(3).Row
& & If Cells(x, 1) && && Then Range(Cells(x, 1), Cells(x, 1).End(2)).Borders.LineStyle = 1 '填充边框
& && && &With ActiveWorkbook.PublishObjects.Add(xlSourceRange, &\11.htm&, _
& && &&&&数据&, &$A$1:$J$3000&, xlHtmlStatic, &套打销售开票_16331&, &&)
& && &&&.Publish (True)
& && &&&.AutoRepublish = False
& && &&&End With
修改后代码：修改的红色字部分，通不过，怎么改？
Sheet2.Activate
For x = 1 To [a65536].End(3).Row
& & If Cells(x, 1) && && Then Range(Cells(x, 1), Cells(x, 1).End(2)).Borders.LineStyle = 1 '填充边框
& && && &With ActiveWorkbook.PublishObjects.Add(xlSourceRange, &\11.htm&, _
& && &&&&数据&, &$A$1:$J$(x)&, xlHtmlStatic, &套打销售开票_16331&, &&)
& && &&&.Publish (True)
& && &&&.AutoRepublish = False
& && &&&End With
最新热点 /1
京东ExcelHome畅销系列图书大联展，满100元-30元现金，莫失良机！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师