12345
返回列表 上一主題 發帖

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
21# 跳轉到 »
發表於 2012-4-18 11:13 | 只看該作者
回復 19# GBKEE
最近實際一口氣每次 Run 了六個圖表，且是線上隨時修正匯入總筆數 (如： "統計圖表!$B$1:統計圖表!$B$" & totalRows )，
結果發現在每次自動更新後，都 Focus 在最後一個圖表上。如果此時動了鍵盤就出狀況了；
譬如： 您可能此時在 Excel 上修正某些資料，如：使用 DEL 鍵等，便將該最後 Focus 的圖表給刪除掉了，
這也是我剛剛沒留意而發生的情況。 結果只剩下了五個圖表，經仔細觀察，發覺只要 VBA 自動執行  
.SetSourceData Source:=Range("統計圖表!$B$1:統計圖表!$B$" & totalRows) 後，換成第五個圖表 (最後一個圖表) 被
Focus 了。
請問我要如何避開此困擾的問題。 假設 畫完圖表後，下個指令，如： Cells(1,1).Select 當然便將移轉 Focus 到 A1 欄位上了，
但是如果您在 .SetSourceData 執行前，正在閱覽其它的工作表單，則接下來的畫面便會被切到 A1 欄位上了。
這樣處理豈不感到非常奇怪？ 因為閱覽頁面突然被強制轉移了！
請問有否判斷原本閱覽頁面、或者是原本游標在哪裡，繪完圖後自動切回到原頁面？ 或者是還有更棒的 Idea？
謝謝您了！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
20#
發表於 2012-4-6 21:57 | 只看該作者
回復 19# GBKEE
感謝感謝，實在是獲益良多！

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
19#
發表於 2012-4-6 20:43 | 只看該作者
回復 18# c_c_lai
2003 沒  SelElement  這屬性
  1. Sub Ex()
  2. With ActiveSheet.ChartObjects(1).Chart
  3. .HasAxis(xlCategory, xlPrimary) = True
  4. .Axes(xlCategory).TickLabels.NumberFormatLocal = "hh:mm"
  5. .Axes(xlCategory).MajorTickMark = xlNone
  6. .Axes(xlCategory).TickLabelPosition = xlLow
  7. 'Cells(Lines, 38).Value = .ChartTitle.Text '2003版中 此式有 型態不符合 的錯誤
  8. MsgBox TypeName(Lines)
  9. MsgBox Lines.Count
  10. Cells(Lines.Count + 1, 38).Value = .ChartTitle.Text
  11. End With
  12. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
18#
發表於 2012-4-6 20:27 | 只看該作者
回復 16# GBKEE
找到答案了
  1. ActiveChart.SetElement (msoElementChartTitleCenteredOverlay)   ' 一定要先宣告 SelElement， 否則 ChartTile 執行時會出現執行階段錯誤 '5':  程序呼叫或引述不正確
  2.   ActiveChart.ChartTitle.Text = "成交價與成交量"
  3. Cells(3, 38).Value = ActiveChart.ChartTitle.Text
複製代碼

TOP

c_c_lai

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
16#
發表於 2012-4-6 17:11 | 只看該作者
回復 14# c_c_lai
  1. With ActiveSheet.ChartObjects(oShape.Name).Chart
  2.                 .HasAxis(xlCategory, xlPrimary) = True
  3.            '    .HasAxis(xlCategory, xlPrimary) = False
  4.                ' 圖表上所存在的座標軸  此座標為 False 下面程式會錯誤
  5.                 .Axes(xlCategory).MajorTickMark = xlNone
  6.                 .Axes(xlCategory).TickLabelPosition = xlLow
  7.             End With
  8.             ActiveSheet.Shapes(oShape.Name).Left = Cells(3, 1).Left     ' 設定此圖表實際擺放的 X、Y 座標位置。
  9.             ActiveSheet.Shapes(oShape.Name).Top = Cells(3, 1).Top
  10.             ' 將原本設定之高度調至適度位置
  11.             ActiveSheet.Shapes(oShape.Name).Height = Cells(3, 1).Resize(20).Height
  12.             ActiveSheet.Shapes(oShape.Name).Width = Cells(3, 1).Resize(, 10).Width

  14.            '''*** InvertIfNegative, InvertColor  不適用這圖表的型態
  15.            '****由於對圖表的涉獵尚少 所以正在尋找答案中 或請高手相助
  16.            'ActiveChart.SeriesCollection(1).InvertIfNegative = True
  17.            'ActiveChart.SeriesCollection(1).InvertColor = RGB(32, 178, 208)
  18.            ' With ActiveChart.SeriesCollection(1).Format.Fill
  19.             '    .Visible = msoTrue
  20.             '    .ForeColor.RGB = RGB(255, 69, 0)
  21.             '    .Transparency = 0
  22.             '    .Solid
  23.             'End With
複製代碼

TOP

c_c_lai

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

TOP

alexliou

帖子
51 
主題
0 
精華
0 
積分
81 
點名
0  
作業系統
Win 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
註冊時間
2012-3-9 
最後登錄
2013-1-9 
13#
發表於 2012-4-6 15:31 | 只看該作者
回復  c_c_lai
語法錯誤    Active.Shapes(oShape.Name).Select                     
正確           A ...
GBKEE 發表於 2012-4-6 09:22

不好意思
ActiveSheet 打成Active
我改一下
Alex

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
12#
發表於 2012-4-6 15:23 | 只看該作者
回復 11# c_c_lai


    你是要讓你的圖表一直維持所有資料嗎
   只要有新資料圖表就要包含那各資料?
    如果是應該用定義名稱做就好比較方便吧
字典兩各字 還真難理解

TOP

        靜思自在 : 多做多得。少做多失。
12345
返回列表 上一主題