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

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

33^#

發表於 2012-7-27 15:17 | 只看該作者

本題目因網頁有些怪異(第三頁有些回應都自動消失無影)，且問題業已另行解決。
應予以結案。

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

32^#

發表於 2012-7-25 07:46 | 只看該作者

回復 30# lamihsuen
剛傳的怎麼又不見了？？？？？？

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

31^#

發表於 2012-7-25 07:44 | 只看該作者

回復 30# lamihsuen
原本為

With .PlotArea ' 圖表的繪圖區
.Top = 16
.Left = 1
.Width = sPos(3)
.Height = sPos(4)
.Interior.ColorIndex = xlNone
End With

複製代碼

修正為

With .PlotArea ' 圖表的繪圖區
.Top = 16
.Left = 1
.Width = sPos(3)
.Height = sPos(4)
.Interior.ColorIndex = xlNone
' 可依個人之考量予以增減內部圖表的高、低、以及寬度
.InsideLeft = 40
.InsideTop = Sheets(xlSh).Rows(3).RowHeight * 2
.InsideWidth = sPos(3) - 50
.InsideHeight = sPos(4) - 5 * Sheets(xlSh).Rows(3).RowHeight
End With

複製代碼

試試看！

帖子: 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 大哥請問如何設定讓圖表區與繪圖區底部空間大一點,我加入水平軸標題時都會與類別標籤重疉

帖子: 33
主題: 4
精華: 0
積分: 37
點名: 0
作業系統: w7
軟體版本: pro
閱讀權限: 10
性別: 女
來自: 台中
註冊時間: 2012-6-20
最後登錄: 2019-5-24

29^#

發表於 2012-7-23 10:14 | 只看該作者

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
網頁好像有問題，有的內容根本看不到訊息，

帖子: 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從製圖程式移除後程式就能正確執行

帖子: 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'物件失敗)

帖子: 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)