- 帖子
- 44
- 主題
- 4
- 精華
- 0
- 積分
- 84
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- sp2
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-10-12
- 最後登錄
- 2021-11-10
|
3#
發表於 2017-4-6 21:26
| 只看該作者
EXCEL圖形功能應該做不到，只想到用VBA
1. 需將圖形的水平軸座標軸選項改為"文字座標軸"
2. 貼上VBA程式碼, 執行程式
Private Sub CommandButton1_Click()
Dim I As Integer, RNG As Range
With Sheet1
Set RNG = .Range(.Cells(1, 1), .Cells(1, 4))
For I = 2 To .Cells.SpecialCells(xlCellTypeLastCell).Row
If .Cells(I, 5) <> 0 Then
Set RNG = Union(RNG, .Range(.Cells(I, 1), .Cells(I, 4)))
End If
Next I
.ChartObjects("圖表 1").Chart.SetSourceData Source:=Range(RNG.Address)
End With
End Sub |
|
