[已解决]数据标签里的值只保留整数位

beijiren368

大家好！
VBA作图后，柱状图显示数据标签，但是里面的值有带小数位数，我想在图生成后，标签里的值自动只保留整数位，请问该怎么做了？（源数据不动）
我不是很懂VBA，请大家帮帮忙写个代码，谢谢了！

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-12-2 21:52

1.             With .SeriesCollection(2).DataLabels
   
2.                 .NumberFormat = "0;;;"
   
3.             End With

复制代码

跳转到最佳答案楼层

hwc2ycy

1.             With .SeriesCollection(2).DataLabels
   
2.                 .NumberFormat = "0;;;"
   
3.             End With

复制代码

hwc2ycy

在代码里加这个。
不过数据会四舍五入的， 你懂的。

hwc2ycy

1. Sub ChartAdd()
   
2.     Dim myRange As Range
   
3.     Dim myChart As ChartObject
   
4.     Dim R As Integer
   
5.     With Sheet1
   
6.     If Sheet1.ChartObjects.Count > 0 Then
   
7.             .ChartObjects.Delete
   
8.     End If
   
9.    
   
10.         R = .Range("A65536").End(xlUp).Row
    
11.         Set myRange = .Range("A" & 1 & ":B" & R)
    
12.         Set myChart = .ChartObjects.Add(120, 40, 400, 250)
    
13.         With myChart.Chart
    
14.             .ChartType = xlColumnClustered
    
15.             .SetSourceData Source:=myRange, PlotBy:=xlColumns
    
16.             .ApplyDataLabels ShowValue:=True           '设置数据标签数值显示
    
17.             .HasTitle = True
    
18.             .ChartTitle.Text = "图表制作示例"
    
19.             With .ChartTitle.Font                '设置图表标题的字体大小，字体颜色，字体name
    
20.                 .Size = 20
    
21.                 .ColorIndex = 3
    
22.                 .Name = "华文新魏"
    
23.             End With
    
24.             With .ChartArea.Interior
    
25.                 .ColorIndex = 8                    '设置图表区的颜色为蓝色
    
26.                 .Pattern = xlSolid            '设置图表区的填充方式，完整的书写为xlPatternCrissCross
    
27.                 .PatternColorIndex = 2          '设置填充图案的颜色
    
28.             End With
    
29.             With .PlotArea.Interior          '设置绘图区
    
30.                 .ColorIndex = 2              '设置绘图区的颜色
    
31.                 .Pattern = xlSolid           '设置绘图区的填充图案
    
32.                 .PatternColorIndex = 3         '设置绘图区填充图案的颜色
    
33. '                .Pattern = xlPatternChecker
    
34.             End With
    
35.             .SeriesCollection(1).DataLabels.Delete
    
36.             With .SeriesCollection(2).DataLabels.Font      '设置系列2的数据标签的字体
    
37.                 .Size = 10
    
38.                 .ColorIndex = 12
    
39.             End With
    
40.             With .SeriesCollection(2).DataLabels
    
41.                 .NumberFormat = "0;;;"
    
42.             End With
    
43.         End With
    
44.     End With
    
45.     Set myRange = Nothing
    
46.     Set myChart = Nothing
    
47. End Sub
    

复制代码

beijiren368

hwc2ycy 发表于 2012-12-2 22:00

{:171:}哎呀，你太牛了，为什么我就想不到了？看来还是知道的太少了，我要加油{:091:}

hwc2ycy

我是录宏来的，楼主，很多问题其实可以通过宏的录制来学习。