- 帖子
- 28
- 主題
- 20
- 精華
- 0
- 積分
- 70
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2017-7-4
- 最後登錄
- 2018-8-13
|
各位大大們好!
目前製作圖表遇到了些問題不知該如何克服，圖表要求如下:
(圖表在下方)
1.橫軸(黃色部分)要恆為整數
2.紅線與藍線 點數值記錄的地方只在最後一行(紅色圈圈)
(以下為我的程式碼，但測試結果並沒有執行到For 迴圈的部份，不知是否程式碼撰寫有錯誤，
還要麻煩大大們幫我這新手看看，若有需要更改的地方，再麻煩大家告訴我!感謝大家!!)- Sub Ct()
- If Sheets("Ablauftabelle").Range("P165").Value <> 0 And Sheets("Ablauftabelle").Range("P166").Value <> 0 Then
- Sheets("Chart").Visible = True
- Sheets("Chart").Select
- ActiveChart.Axes(xlCategory).Select
- ActiveChart.Axes(xlCategory).MaximumScale = Sheets("Tabelle2").Range("I2").Value
-
- Dim i, a As Integer
- a = Sheets("Tabelle2").Range("I2").Value - 1
- For i = a To 1
-
- ActiveChart.SeriesCollection(3).Points(i).DataLabel.Delete
- ActiveChart.SeriesCollection(3).Points(i).DataLabel.Select
- Selection.NumberFormat = "##.##0,00 ""sec"""
-
- ActiveChart.SeriesCollection(2).Points(i).DataLabel.Delete
- ActiveChart.SeriesCollection(2).Points(i).DataLabel.Select
- Selection.NumberFormat = "##.##0,00 ""sec"""
-
- ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
- Selection.NumberFormat = "##.##0,00 ""sec"""
- Next i
- ElseIf Sheets("Ablauftabelle").Range("P165").Value = "" And Sheets("Ablauftabelle").Range("P166").Value = "" Then
- MsgBox ("No information available!")
- Sheets("Ablauftabelle").Select
- End If
- End Sub
|
|
發表於 2017-8-28 20:12
| 
