- 帖子
- 2
- 主題
- 1
- 精華
- 0
- 積分
- 4
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- windows 7
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2016-4-11
- 最後登錄
- 2016-4-21
|
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
Dim m As Integer
Dim t As String
Dim w As String
Dim u As String
Dim Row1 As String
Dim Row2 As String
Dim Row3 As String
i = InputBox("請輸入要繪製圖表年分" & Chr(13) & "例如：105年輸入105", 繪製年份)
j = InputBox("請輸入要繪製圖表月分" & Chr(13) & "例如：1月輸入1", 繪製月份)
t = i & "." & j & "(工務所)"
w = i & "." & j & "(各項缺失統計圖)"
u = i & "." & j & "(權重統計分析)"
Sheets(t).Select
FindStr = "小計"
Set a = Cells.Find(FindStr, lookat:=xlWhole)
If a Is Nothing Then MsgBox "查無此字串" Else b = a.Address
If Len(b) = 5 Then Row = Right(b, 2) Else Row = Right(b, 1)
k = Row - 1
l = Row + 1
m = Row + 3
Row1 = "W" & CStr(k)
Row2 = "W" & CStr(l)
Row3 = "W" & CStr(m)
Charts.Add Before:=Worksheets(u)
ActiveChart.Name = w
Worksheets(t).Range("A3:" & Row1, "A" & l & ":" & Row2, "A" & m & ":" & Row3).Select
因為工作上需要 每個月都要繪製類似的圖表
但是每個月的基本資料筆數都不一樣
所以在選取圖表範圍時 我是想說先用搜尋"小計"得到這格的位置 其列數減1就得到我要選取的範圍
但除了基本資料 我還想加同一工作表裡另外百分比的兩列一起繪製統計圖表(該兩列與上面基本資料範圍不相連)
但是到了上面最後一行 執行一直出現"引數個數錯誤或指定不確定的屬性"錯誤
但是我把三個範圍分別單獨執行又都沒問題
請教問題出在哪
可否指點迷津 謝謝 |
|
發表於 2016-4-11 22:30
| 
