Excel VBA 怎么是vba单元格加粗最后一行加粗 批量

来源：蜘蛛抓取(WebSpider) 时间：2018-07-11 01:25 标签： 帆软 单元格文字加粗
excel如何使用vba设置单元格中个别字体自动加粗？_百度知道
excel如何使用vba设置单元格中个别字体自动加粗？
目标：实现单元格部分内容自动加粗。困惑：如图中的单元格
这是Excel表中的一个单元格。这个单元格的内容是用IF语句判定其他位置的条件而自动产生的。
（例如，其他的条件是A，这个单元...
单元格A的值变为“桌子”，单元格B的“桌子”前打勾，并且“√桌子”加粗；而当单元格A的值变为“iphone”，单元格B的“iphone”（现在假设单元格B有“iphone”这个字数不同的选项）变为“√iphone”且加粗，同时“√桌子”变回不加粗的状态？
我有更好的答案
Sheet &change 代码：放到 Sheet 代码区Private&Sub&Worksheet_Change(ByVal&Target&As&Range)&Target.Font.Bold&=&False&Target.Characters(Start:=InStr(1,&Target,&&√&),&Length:=3).Font.Bold&=&TrueEnd&Sub
谢谢你的回答！虽然我不懂vba，只是觉得只有vba能实现我的功能。我有一点想追问：实际表格中，打勾后面的文字内容字数是不一样的。如果这样，是否需要添加if语句？还有，这个代码是否需要填写单元格位置之类的信息？
这个 代码 作用 是只要表内 任何单元格内容 有 变更 就执行加粗，当然 也可以设置 制定某一范围内的单元格，或者某一个单元格，只是你也没说 这个范围是什么打勾 后面的文字字数不一样 ，可以改下代码自动判断，你一次性说清楚，一起给你改还有一个 问题：VBA 加粗只能加粗文本， 对公式结果 的内容 是没法加粗的。。。。。 就是说单元格内是数值，不能是公式
如果不支持公式，我的设计思路就要改变了。
请问：vba怎么实现，某个单元格的值改变（通过“数据有效性-序列”改变值），导致另一个单元格的值改变，并且部分文字打勾？
也可以做，没空写
采纳率：56%
来自团队：
为您推荐：
其他类似问题
勃兰兑斯的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。拒绝访问 | www.excelpx.com | 百度云加速
请打开cookies.
此网站 (www.excelpx.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(d3a8e-ua98).
重新安装浏览器，或使用别的浏览器Excel VBA教程 Excel多个表格汇总的方法教程
互联网 & 发布时间： 15:32:30 & 作者：佚名 &
如果你每天的工作都是把分表格汇总到总表中，那你肯定需要下面我要教给你的这个：用VBA批量把每天的各种表格汇总成一张总表，再也不用每张表格的复制粘贴了
如果你每天的工作都是把分表格汇总到总表中，那你肯定需要下面我要教给你的这个：用VBA批量把每天的各种表格汇总成一张总表，再也不用每张表格的复制粘贴了。有没有什么办法可以快速将这些分表数据弄到总表中去。也就是说将下图 【图1】中的数据自动粘贴到总表中去，即【图2】的效果。&
　　【图1】源表如下：&
　　【图2】效果图如下：&
　　1.　首先这属于批量操作的范畴，而且是重复性的操作，在EXCEL中这种重复性且需要批量的操作很适合用VBA来解决。
　　2.　其次，它的分表格式统一，这是一个好的习惯。好的习惯的好处也许我们可能不以为然，但坏的习惯会给我们带来很多的麻烦，人生如此，EXCEL也是如此。我们要做养身派，人无远虑，必有近忧。
一、 首先写入代码
&　& 1.　按ALT+F11快捷键，调出VBA窗口（这里就是EXCEL的后台）
　　2.　在VBA窗口中，【插入】选项卡下选择插入【模块】，插入两个模块，一个用来自动保存分表记录，一个用来清空总表数据。这样将来我们可以当模板用。如【图3】所示：
把保存记录的代码贴到模块1代码窗口：
把清除当前记录的代码贴到模块2代码窗口：
　　然后我们关闭VBA窗口。
　　二、 执行代码小技巧
　　1.　点下自定义快速访问工具栏的小三角，选择【其他命令】-【快速访问工具栏】-从下列位置选择命令下拉框中-选择【宏】，将这二个宏【保存记录】与【清除当前记录】添加到右边，操作步骤如下：
&　　这时快速访问工具栏就多了二个按钮，如下图所示：
　　2.　点下快速访问工具栏中【保存记录】的按钮，这时侯代码就开始运行了，它会跳出一个对话框，问你是否确认汇总所有分表数据，点击是即开始汇总，如下图所录：
　　哇塞，一眨眼的功能就全部汇总好了，好快啊，好爽啊。&
　　1)　重要的事情说三遍。请务必注意保存时要另存为XLSM格式，请务必注意保存时要另存为XLSM格式，请务必注意保存时要另存为XLSM格式。^-^,否则你可能写了半天的代码就没有了，欲器无泪啊。
OK，大功告成。是不是很爽啊！学完了这个提高了不少工作效率。是的，我们要用有限的时间来做更多有意义的事，让工具成为帮助你的利器而不是让你烦恼的东西。
大家感兴趣的内容
12345678910
最近更新的内容excel VBA，如何在E列有内容的，不是加粗的，统一添加公式？_百度知道
excel VBA，如何在E列有内容的，不是加粗的，统一添加公式？
我有更好的答案
老实说我不是很理解E列有内容了为什么还要添加公式，那不是原来的内容直接被覆盖了吗。不过你既然这么说那我就照写了。Option ExplicitSub 批量添加公式()
Dim i, flag
flag = True
Do While flag
If Cells(i, &A&) && && Then
If Cells(i, &E&) && && Then
If Cells(i, &E&).Font.Bold = False Then
Cells(i, &E&) = &=& & &(& & &$& & &C& & &$& & i & &-& & &$& & &B& & &$& & i & &+& & 1 & &)& & &*& & &D& & i & &+& & &B& & i & &-& & &E& & &$& & 1
flag = False
LoopEnd Sub
采纳率：91%
可检查字体属性判断字体是否加粗。比如E2单元格如果 Range(&E2&).Font.Bold = True
则是加粗的，如果 Range(&E2&).Font.Bold = False 则没有加粗。
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。

我要回帖

更多关于 帆软 单元格文字加粗 的文章

 

随机推荐