1234
返回列表 上一主題 發帖

請各位大大幫忙修改建立崁入圖表錯誤語法

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-7-15 21:12 | 只看該作者

請各位大大幫忙修改建立崁入圖表錯誤語法

請各位大大幫忙   我想在Worksheets(wr)工作表中繪製圖表(建立崁入圖表)請問正確語法為何

如果下列變數定義如下數值
WR=4
z_sr =120
lRow= 150
chart_sr     =156
chart_end=166
'設定要崁入圖表的位置
Dim GR As Range
   Set GR = Worksheets(wr).Range("A" & chart_sr & " :I" & chart_end)'
    With Worksheets(wr).ChartObjects.Add(GR.Left, GR.Top, GR.Width, GR.Height)
'設定工作表名稱+"值"為圖表名稱
               Worksheets(wr).ChartObjects.name= Worksheets(wr).name&"值"
' 設定資料範圍為儲存格   Worksheets(wr).   RANRE ("A" & z_sr & " :C" & xlRow)
         Worksheets(wr).ChartObjects.SetSourceData.RANRE ("A" & z_sr & " :C" & xlRow)
請問設定圖表名稱.和設定圖表的資料範圍正確的語法為何?
收藏 分享

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
33#
發表於 2012-7-27 15:17 | 只看該作者
本題目因網頁有些怪異(第三頁有些回應都自動消失無影)，且問題業已另行解決。
應予以結案。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
32#
發表於 2012-7-25 07:46 | 只看該作者
回復 30# lamihsuen
剛傳的怎麼又不見了？？？？？？

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
31#
發表於 2012-7-25 07:44 | 只看該作者
回復 30# lamihsuen
原本為
  1.         With .PlotArea                                         ' 圖表的繪圖區
  2.             .Top = 16
  3.             .Left = 1
  4.             .Width = sPos(3)
  5.             .Height = sPos(4)
  6.             .Interior.ColorIndex = xlNone
  7.         End With
複製代碼
修正為
  1.         With .PlotArea                                         ' 圖表的繪圖區
  2.             .Top = 16
  3.             .Left = 1
  4.             .Width = sPos(3)
  5.             .Height = sPos(4)
  6.             .Interior.ColorIndex = xlNone
  7.             
  8.             ' 可依個人之考量予以增減內部圖表的高、低、以及寬度
  9.             .InsideLeft = 40
  10.             .InsideTop = Sheets(xlSh).Rows(3).RowHeight * 2
  11.             .InsideWidth = sPos(3) - 50
  12.             .InsideHeight = sPos(4) - 5 * Sheets(xlSh).Rows(3).RowHeight
  13.         End With
複製代碼
試試看！

TOP

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
30#
發表於 2012-7-24 18:14 | 只看該作者
回復 28# c_c_lai
c_c_lai 大哥   請問如何設定讓圖表區與繪圖區底部空間大一點,我加入水平軸標題時都會與類別標籤重疉

TOP

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
29#
發表於 2012-7-23 10:14 | 只看該作者
c_c_lai  大哥, 請問列表第三頁以後都不見了,要如何叫出

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
28#
發表於 2012-7-22 20:11 | 只看該作者
本帖最後由 c_c_lai 於 2012-7-24 21:06 編輯

回復 8# lamihsuen
網頁好像有問題，有的內容根本看不到訊息，

TOP

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
27#
發表於 2012-7-22 17:46 | 只看該作者
回復 30# c_c_lai
c_c_lai 大哥, 原諒我的迷糊.我把Dim StartKBarRow, EndKBarRow As Long從製圖程式移除後程式就能正確執行

TOP

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
26#
發表於 2012-7-22 16:57 | 只看該作者
回復 30# c_c_lai
c_c_lai大哥加入下列時

   . SeriesCollection(1).XValues = Range(Sh.Name & "!$A$" & CStr(StartKBarRow) & ":" & Sh.Name & "!$A$" & CStr(EndKBarRow))
會出現"執行階段錯誤'1004'range方法('global'物件失敗)

TOP

lamihsuen

帖子
33 
主題
4 
精華
0 
積分
37 
點名
0  
作業系統
w7 
軟體版本
pro 
閱讀權限
10 
性別
女 
來自
台中 
註冊時間
2012-6-20 
最後登錄
2019-5-24 
25#
發表於 2012-7-22 16:02 | 只看該作者
回復 30# c_c_lai
c_c_lai 大哥  對不起還没完成最終目標,可以看看再現在傳給你檔案是我要用vba語法完成的最終目標整個過程如下敍述
  1 先初始分析結果表  
   2  再執行outline判別  , 如果合格就記錄"ok"不合格就記錄"ng"  
   3  如果有"ng"值去除"ng"該列,  把"ok"列copy 到下一次表格區間再執行outline判別,(因為列數(家數)減少,判別值會改變)
  4  一直到全部都"ok"時這個表格區間是我圖表資料的來源5 最後再增加一表格區間(稱為執行z_score)把全部列數(家數)copy 到最後表格區間 (執行z_score)作z_score判別
5 再完成報告書
    11C1.rar (47.98 KB)

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
1234
返回列表 上一主題