建一个chartType=3的mschart, 放一个命令按钮
Private Sub Command1_Click()
Dim nArray(1 To 4) As Integer
Randomize
For i = 1 To 4
nArray(i) = Rnd(40)
Next
With MSChart1
For i = 1 To 4
.Row = i
.Data = nArray(i)
Next
End WithEnd Sub
Private Sub Command1_Click()
Dim nArray(1 To 4) As Integer
Randomize
For i = 1 To 4
nArray(i) = Rnd(40)
Next
With MSChart1
For i = 1 To 4
.Row = i
.Data = nArray(i)
Next
End WithEnd Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货