標題: [發問] EXCEL圖表設定程式撰寫 [打印本頁]

---

作者: liebe    時間: 2017-8-28 20:12     標題: EXCEL圖表設定程式撰寫

各位大大們好!

目前製作圖表遇到了些問題不知該如何克服，圖表要求如下:
(圖表在下方)
1.橫軸(黃色部分)要恆為整數
2.紅線與藍線 點數值記錄的地方只在最後一行(紅色圈圈)
[attach]27682[/attach]
(以下為我的程式碼，但測試結果並沒有執行到For 迴圈的部份，不知是否程式碼撰寫有錯誤，
還要麻煩大大們幫我這新手看看，若有需要更改的地方，再麻煩大家告訴我!感謝大家!!)

1. Sub Ct()
   
2. If Sheets("Ablauftabelle").Range("P165").Value <> 0 And Sheets("Ablauftabelle").Range("P166").Value <> 0 Then
   
3. Sheets("Chart").Visible = True
   
4.   Sheets("Chart").Select
   
5.   ActiveChart.Axes(xlCategory).Select
   
6.     ActiveChart.Axes(xlCategory).MaximumScale = Sheets("Tabelle2").Range("I2").Value
   
7.    
   
8.     Dim i, a As Integer
   
9.     a = Sheets("Tabelle2").Range("I2").Value - 1
   
10.     For i = a To 1
    
11.    
    
12.     ActiveChart.SeriesCollection(3).Points(i).DataLabel.Delete
    
13.     ActiveChart.SeriesCollection(3).Points(i).DataLabel.Select
    
14.     Selection.NumberFormat = "##.##0,00 ""sec"""
    
15.    
    
16.     ActiveChart.SeriesCollection(2).Points(i).DataLabel.Delete
    
17.     ActiveChart.SeriesCollection(2).Points(i).DataLabel.Select
    
18.     Selection.NumberFormat = "##.##0,00 ""sec"""
    
19.    
    
20.     ActiveChart.SeriesCollection(1).Points(i).DataLabel.Select
    
21.     Selection.NumberFormat = "##.##0,00 ""sec"""
    
22.     Next i
    
23. 
    
24. ElseIf Sheets("Ablauftabelle").Range("P165").Value = "" And Sheets("Ablauftabelle").Range("P166").Value = "" Then
    
25. MsgBox ("No information available!")
    
26. Sheets("Ablauftabelle").Select
    
27. 
    
28. End If
    
29. End Sub

複製代碼

---

作者: c_c_lai    時間: 2017-9-3 05:30

回復 1# liebe
你將檔案上傳，
以方便大家來測試你說的問題所在。

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)