根据批注信息来统计

宝玉66

老师，附件里的效果能用代码实现吗。

宝玉66

各位老师，附件用代码实现不了吗。

宝玉66

有老师帮忙看一下吗

tanglf188

能，用VBA可以精准控制

宝玉66

tanglf188 发表于 2022-12-13 09:19
能，用VBA可以精准控制

老师，可以帮写一个吗，谢谢。

liulang0808

建议楼主结合附件详细描述下操作过程，所谓 根据批注信息来统计，到底怎么个根据方法。。。。

宝玉66

liulang0808 发表于 2022-12-13 09:58
建议楼主结合附件详细描述下操作过程，所谓 根据批注信息来统计，到底怎么个根据方法。。。。

版主，就是按批准里的月份信息来统计出入库的数量，请帮忙看一下谢谢。

tanglf188

宝玉66 发表于 2022-12-13 09:54
老师，可以帮写一个吗，谢谢。

太费时间了，你根据这个自己慢慢改就行了
Sub Comments()
    On Error Resume Next
    Range("A1").Select
    Range("A1").AddComment
    With Range("A1").Comment
        .Text Text:="VBA代码添加的批注:" & Chr(10) & "加了Chr(10)换行啦"  '设置批注内容
        .Shape.TextFrame.Characters.Font.Size = 14  '设置字号14
        .Shape.TextFrame.Characters.Font.Name = "宋体"  '设置字体宋体
        .Shape.TextFrame.Characters(1, 5).Font.Color = RGB(255, 97, 3)  '设置字体颜色，(1-5),可选项表示只改变前5个字符的颜色
        .Shape.TextFrame.Characters(1, 5).Font.Bold = True  '设置加粗
        .Shape.TextFrame.Characters(1, 5).Font.Italic = True  '设置斜体
        .Shape.TextFrame.Characters(1, 5).Font.Underline = xlUnderlineStyleDouble  '设置双下划线
        .Shape.TextFrame.Characters(1, 5).Font.Strikethrough = True  '设置删除线
        .Shape.Width = 250  '修改批注宽度
        .Shape.Height = 150  '修改批注高度
        .Visible = True  '显示批注
    End With
End Sub

tanglf188

宝玉66 发表于 2022-12-13 10:08
版主，就是按批准里的月份信息来统计出入库的数量，请帮忙看一下谢谢。

这个更简单了读出批注但单元格，再统计就行了

宝玉66

tanglf188 发表于 2022-12-13 10:12
这个更简单了读出批注但单元格，再统计就行了

您能帮忙写一个代码吗老师，谢谢。