Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 7354|回复: 7

[已解决]如何设置批注的统一格式?

[复制链接]
发表于 2015-8-11 09:28 | 显示全部楼层 |阅读模式
本帖最后由 gaizi321 于 2015-8-12 09:04 编辑

批注批量添加时,由于字体的增多或减少,标注看起来很难看,能不能统一设置一下啊
最佳答案
2015-8-11 21:12
Sub test()
    Dim i
    With ActiveSheet
        For i = 1 To .Comments.Count
          .Comments(i).Text VBA.Replace(.Comments(i).Text, "【", vbCrLf & "【")
          .Comments(i).Shape.TextFrame.AutoSize = True    '调整批注大小
        Next
    End With
End Sub
自动查找并添加批注怎么做2.rar (24.7 KB, 下载次数: 34)

我想统一调整成这样的,要是字体多的话,就缩小字体,行数不变

我想统一调整成这样的,要是字体多的话,就缩小字体,行数不变

现在实际是这样的。

现在实际是这样的。
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2015-8-11 09:34 | 显示全部楼层
回复

使用道具 举报

发表于 2015-8-11 10:33 | 显示全部楼层
'http://club.excelhome.net/thread-614640-1-1.html 8楼
Sub test()
    Dim i

    With ActiveSheet
        For i = 1 To .Comments.Count
            .Comments(i).Shape.TextFrame.Characters.Font.Size = 10      '字号
        Next
    End With
End Sub

回复

使用道具 举报

 楼主| 发表于 2015-8-11 11:17 | 显示全部楼层
爱疯 发表于 2015-8-11 10:33
'http://club.excelhome.net/thread-614640-1-1.html 8楼
Sub test()
    Dim i

我是想让第一行批注以后的其他批注都以”【“       开始以      “】”结束,这样看起来好看,清晰明了。你写的这个我试了不能完成。
回复

使用道具 举报

发表于 2015-8-11 18:31 | 显示全部楼层
上个实例,你的可以实现。
回复

使用道具 举报

 楼主| 发表于 2015-8-11 18:39 | 显示全部楼层
lmze2000 发表于 2015-8-11 18:31
上个实例,你的可以实现。

多谢大神啊

自动查找并添加批注怎么做.rar

22.63 KB, 下载次数: 11

回复

使用道具 举报

发表于 2015-8-11 21:12 | 显示全部楼层    本楼为最佳答案   
Sub test()
    Dim i
    With ActiveSheet
        For i = 1 To .Comments.Count
          .Comments(i).Text VBA.Replace(.Comments(i).Text, "【", vbCrLf & "【")
          .Comments(i).Shape.TextFrame.AutoSize = True    '调整批注大小
        Next
    End With
End Sub
自动查找并添加批注怎么做2.rar (24.7 KB, 下载次数: 34)
回复

使用道具 举报

 楼主| 发表于 2015-8-12 09:04 | 显示全部楼层
爱疯 发表于 2015-8-11 21:12
Sub test()
    Dim i
    With ActiveSheet

很好使,谢谢了。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 15:58 , Processed in 0.627860 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表