123
返回列表 上一主題 發帖

[發問] 動態修正匯入圖表的最後資料列之列數所延伸的問題

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-5 10:00 | 顯示全部帖子

[發問] 動態修正匯入圖表的最後資料列之列數所延伸的問題

我有一些疑惑想請各位大大指導，程式碼如下： (裡面分別處理了6個統計圖表)
  1. Sub getEndRows()  ' 以 Excel -> 插入 -> 折線圖、直條圖 方式一一插入於工作表單內的檢查方式。
  2.     Dim oShape As Shape
  3.     Dim numChart As Integer
  4.     Dim totalRows As Single
  5.    
  6.     numChart = 0
  7.    
  8.     Sheets("統計圖表").Select
  9.     totalRows = Range("B" & Rows.Count).End(xlUp).Row     ' 傳回 B 欄所使用儲存格之最後一格之列號 (實際匯入資料之總列數)
  10.             
  11.     For Each oShape In ActiveSheet.Shapes
  12.         If oShape.Type = 3 Then
  13.             numChart = numChart + 1
  14.             
  15.             Cells(lines, 36).Value = "第 " & lines - 1 & " 個圖表"           
  16.             Cells(lines, 37).Value = oShape.Name

  18.             ' Shapes(oShape.Name).Select     ' 必須先行宣告 oShape.Name 選擇，否則以下座標位置、高度、以及寬度之重新設定將予以忽略而無實質作用
  19.             ActiveSheet.ChartObjects(oShape.Name).Activate                     
  20.             Cells(lines, 38).Value = ActiveSheet.ChartObjects(oShape.Name).Name   ' 結果是等於 oShape.Name
  21.                
  22.             Select Case numChart
  23.                 Case 1
  24.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $F$1:$F$" & totalRows & ", $I$1:$J$" & totalRows)  
  25.                 Case 2
  26.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $AA$1:$AA$" & totalRows)
  27.                 Case 3
  28.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $AC$1:$AC$" & totalRows)
  29.                 Case 4
  30.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $AE$1:$AE$" & totalRows)
  31.                 Case 5
  32.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $AG$1:$AG$" & totalRows)
  33.                 Case Else
  34.                     ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $F$1:$F$" & totalRows & ", $V$1:$V$" & totalRows)   ' 圖示會分別顯示出 成交價

  36.                     ' 測試OK後，之後又增加了以下四行程式碼
  37.                     ActiveChart.Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm"
  38.                     ActiveChart.Axes(xlCategory).MajorTickMark = xlNone
  39.                     ' 將時間軸從 0 刻度線下方(圖表預設值)移至到圖表之最下方位置 (原本預設於負值數值列處，遮蓋了負值曲線之檢視；故將之移位，將使得表格易於閱覽)
  40.                    ActiveChart.Axes(xlCategory).TickLabelPosition = xlLow     

  42.                    Cells(lines, 38).Value = ActiveChart.ChartTitle.Text  
  43.             End Select
  44.         End If
  45.     Next
  46. End Sub
複製代碼
1.     我原本是使用   Shapes(oShape.Name).Select  ，但在該統計圖表工作表單內執行時是OK，但將它搬到 ThisWorkbook 內就有錯誤訊息，於是便把它修改成
         ActiveSheet.ChartObjects(oShape.Name).Activate 便能順利執行，其原因為何？ 正確應如何應用？
2.      測試OK後，之後我又增加了四行程式碼，結果顯示 Axes、TickLabels、ctiveChart.ChartTitle.Text 等語法上不正確，
                    ActiveChart.Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm"
                    ActiveChart.Axes(xlCategory).MajorTickMark = xlNone
                   ActiveChart.Axes(xlCategory).TickLabelPosition = xlLow     
                   Cells(lines, 38).Value = ActiveChart.ChartTitle.Text  
        請教應該要如何修正才OK？
謝謝您！
收藏 分享

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2012-4-5 10:21 | 顯示全部帖子
太感激您了， 對於我這個剛觸摸 VBA 的人來說的確是大有幫助，
它和一般傳統語言確實有些不同 (C/C++,Java....)，謝謝您呦！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2012-4-5 21:40 | 顯示全部帖子
各位大大請幫個忙：
我已把 GBKEE 前輩的 Code 引入，執行時卻出現了以下之錯誤訊息，將它們Marked又恢復正常，
起問應如何處理？ 謝謝各位大大！

' 執行階段錯誤 '-2147467259 (80004005)':
' Automation 錯誤
' 無法指出的錯誤

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2012-4-5 21:43 | 顯示全部帖子
回復 4# c_c_lai

望了案回覆鈕，所以又再發了一次，對不起！

各位大大請幫個忙：
我已把 GBKEE 前輩的 Code 引入，執行時卻出現了以下之錯誤訊息，將它們Marked又恢復正常，
起問應如何處理？ 謝謝各位大大！

' 執行階段錯誤 '-2147467259 (80004005)':
' Automation 錯誤
' 無法指出的錯誤

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2012-4-6 09:08 | 顯示全部帖子
回復 7# GBKEE
小弟將實際在執行的程式碼貼上，敬請各位前輩指導。
  1. Sub setRowColumn()  ' 以 Excel -> 插入 -> 折線圖、直條圖 方式一一插入於工作表單內的檢查方式。
  2.     Dim oShape As Shape
  3.     Dim numChart As Integer
  4.     Dim totalRows As Single
  5.    
  6.     numChart = 0
  7.    
  8.     Sheets("統計圖表").Select
  9.     totalRows = Range("B" & Rows.Count).End(xlUp).Row        ' 傳回 B 欄所使用儲存格之最後一格之列號
  10.             
  11.     For Each oShape In ActiveSheet.Shapes
  12.         If oShape.Type = 3 Then
  13.             numChart = numChart + 1
  14.             
  15.             Active.Shapes(oShape.Name).Select                     ' 如果 Shapes 前加上 Active. 執行時會出現  ---->  執行階段錯誤 '424':  此處需要物件
  16.             ' ActiveSheet.ChartObjects(oShape.Name).Activate
  17.            
  18.             ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $F$1:$F$" & totalRows & ", $V$1:$V$" & totalRows)
  19.                      
  20.             With ActiveSheet.ChartObjects(oShape.Name).Chart
  21.                 .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"
  22.                 .Axes(xlCategory).MajorTickMark = xlCategoryScale
  23.                 .Axes(xlCategory).TickLabelPosition = xlLow
  24.                         
  25.                 Cells(Lines, 38).Value = .ChartTitle.Text
  26.             End With
  27.                   
  28.             ActiveSheet.Shapes(oShape.Name).Left = Cells(31, 1).Left     ' 設定此圖表實際擺放的 X、Y 座標位置。
  29.             ActiveSheet.Shapes(oShape.Name).Top = Cells(31, 1).Top
  30.                     
  31.             ActiveChart.ChartArea.Height = 488                           ' 將原本設定之高度調至適度位置
  32.             ActiveChart.ChartArea.Width = 900
  33.             
  34.             ActiveChart.SeriesCollection(1).InvertIfNegative = True
  35.             ActiveChart.SeriesCollection(1).InvertColor = RGB(32, 178, 208)

  37.             With ActiveChart.SeriesCollection(1).Format.Fill
  38.                 .Visible = msoTrue
  39.                 .ForeColor.RGB = RGB(255, 69, 0)
  40.                 .Transparency = 0
  41.                 .Solid
  42.             End With
  43.         End If
  44.     Next
  45. End Sub
複製代碼
1.  如果 Shapes 前加上 Active. 執行時會出現  ---->  執行階段錯誤 '424':  此處需要物件

    Active.Shapes(oShape.Name).Select                     ' 如果 Shapes 前加上 Active. 執行時會出現  ---->  執行階段錯誤 '424':  此處需要物件
    ' ActiveSheet.ChartObjects(oShape.Name).Activate

2A.  如果 Shapes 前拿掉增加之 Active. 執行時

    Shapes(oShape.Name).Select                     
    ' ActiveSheet.ChartObjects(oShape.Name).Activate

    或者是以

    ' Shapes(oShape.Name).Select                     
    ActiveSheet.ChartObjects(oShape.Name).Activate

    方式執行時會出現  ---->  執行階段錯誤 '5':  程序呼叫或引述不正確

2B. 以 2A 模式處理，之後追蹤結果發現問題出在

    With ActiveSheet.ChartObjects(oShape.Name).Chart
        .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"
        .Axes(xlCategory).MajorTickMark = xlCategoryScale
        .Axes(xlCategory).TickLabelPosition = xlLow
                        
        Cells(Lines, 38).Value = .ChartTitle.Text
    End With

  2BA:  如果將其中 Cells(Lines, 38).Value = .ChartTitle.Text Marked起來執行

    With ActiveSheet.ChartObjects(oShape.Name).Chart
        .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"
        .Axes(xlCategory).MajorTickMark = xlCategoryScale
        .Axes(xlCategory).TickLabelPosition = xlLow
                        
        ' Cells(Lines, 38).Value = .ChartTitle.Text
    End With

    執行時會出現  ---->   執行階段錯誤 '-2147467259 (80004005)':
                          Automation 錯誤
                          無法指出的錯誤

  2BB:  如果只將其中第一項 Marked 起來執行

    With ActiveSheet.ChartObjects(oShape.Name).Chart
        ' .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"
        .Axes(xlCategory).MajorTickMark = xlCategoryScale
        .Axes(xlCategory).TickLabelPosition = xlLow
                        
        Cells(Lines, 38).Value = .ChartTitle.Text
    End With

    執行時會出現  ---->  執行階段錯誤 '5':  程序呼叫或引述不正確

  2BC:  如果只將其中質疑的兩項 Marked 起來執行

    With ActiveSheet.ChartObjects(oShape.Name).Chart
        ' .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"
        .Axes(xlCategory).MajorTickMark = xlCategoryScale
        .Axes(xlCategory).TickLabelPosition = xlLow
                        
        ' Cells(Lines, 38).Value = .ChartTitle.Text
    End With

    執行起來毫無異樣，似乎是一切正常的樣子。

這或許是我用功仍然不足，尚請指證！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
6#
發表於 2012-4-6 10:05 | 顯示全部帖子
附上檔案，謝謝您！
成交價與成交量.rar (39.68 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
7#
發表於 2012-4-6 11:45 | 顯示全部帖子
回復 9# GBKEE
不知道您有看到我船上的檔案嗎？

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
8#
發表於 2012-4-6 16:18 | 顯示全部帖子
回復 13# alexliou
謝謝您！ 我會更正測試看看。
但除此之外的所提問錯誤訊息，不知有解否 ？
檔案我再附上一次，麻煩幫我看看是哪裡有錯，謝謝您！
成交價與成交量.rar (39.68 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
9#
發表於 2012-4-6 16:34 | 顯示全部帖子
回復 13# alexliou
對不起，我沒留意到您無法下載，我把程式碼附上，
剛才使用 ActiveSheet.Shapes() 執行就 OK 了，
然而 Automation 錯誤 以及 程序呼叫或引述不正確 尚未能解決，要麻煩您了！
  1. Sub setRowColumn()  ' 以 Excel -> 插入 -> 折線圖、直條圖 方式一一插入於工作表單內的檢查方式。
  2.     Dim oShape As Shape
  3.     Dim numChart As Integer
  4.     Dim totalRows As Single
  5.    
  6.     numChart = 0
  7.    
  8.     Sheets("統計圖表").Select
  9.     totalRows = Range("B" & Rows.Count).End(xlUp).Row        ' 傳回 B 欄所使用儲存格之最後一格之列號
  10.             
  11.     For Each oShape In ActiveSheet.Shapes
  12.         If oShape.Type = 3 Then
  13.             numChart = numChart + 1
  14.             
  15.             ActiveSheet.Shapes(oShape.Name).Select                     ' OK!
  16.             ' ActiveSheet.ChartObjects(oShape.Name).Activate
  17.            
  18.             ActiveChart.SetSourceData Source:=Range("$B$1:$B$" & totalRows & ", $F$1:$F$" & totalRows & ", $V$1:$V$" & totalRows)
  19.                      
  20.             With ActiveSheet.ChartObjects(oShape.Name).Chart
  21.                 ' .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm:ss"    ' 執行階段錯誤 '-2147467259 (80004005)': Automation 錯誤 無法指出的錯誤
  22.                 .Axes(xlCategory).MajorTickMark = xlCategoryScale
  23.                 .Axes(xlCategory).TickLabelPosition = xlLow
  24.                         
  25.                 ' Cells(2, 26).Value = .ChartTitle.Text                          ' 執行階段錯誤 '5':  程序呼叫或引述不正確
  26.             End With
  27.                   
  28.             ActiveSheet.Shapes(oShape.Name).Left = Cells(3, 1).Left     ' 設定此圖表實際擺放的 X、Y 座標位置。
  29.             ActiveSheet.Shapes(oShape.Name).Top = Cells(3, 1).Top
  30.                     
  31.             ActiveChart.ChartArea.Height = 488                           ' 將原本設定之高度調至適度位置
  32.             ActiveChart.ChartArea.Width = 900
  33.             
  34.             ActiveChart.SeriesCollection(1).InvertIfNegative = True
  35.             ActiveChart.SeriesCollection(1).InvertColor = RGB(32, 178, 208)

  37.             With ActiveChart.SeriesCollection(1).Format.Fill
  38.                 .Visible = msoTrue
  39.                 .ForeColor.RGB = RGB(255, 69, 0)
  40.                 .Transparency = 0
  41.                 .Solid
  42.             End With
  43.         End If
  44.     Next
  45.    
  46.     Cells(1, 1).Select
  47. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
10#
發表於 2012-4-6 19:45 | 顯示全部帖子
回復 16# GBKEE
終於可以正常運作了，謝謝您！
唯一不解的是為何 Cells(Lines, 38).Value = ActiveChart.ChartTitle.Text 會有錯誤訊息，真希望能確切了解問題所在。

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
123
返回列表 上一主題