[發問] 請問該如何用VBA自動化出股票K線圖呢？

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

2^#

發表於 2011-1-18 12:16 | 顯示全部帖子

感激Hsieh板主，受教了....

但可否請問您，為何要「先改變資料數列再設定圖表類型」才對呢？

再次感謝

我愛麻辣家族討論區！！

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

3^#

發表於 2011-1-20 11:58 | 顯示全部帖子

回復 5# Hsieh

Hsieh大感恩，又學到一樣東西。可否再請教您如何指定工作表的問題。我先定義了兩個變數c 和 op，c 為數字，op為文字
。然後我利用 ThisWorkbook.ActiveSheet.Name = c & op 命名目前的工作表。但知後我想要再指定這個工作表時該如何指定？

我是用 Sheets("c & op").Cells(i, 1)....

煩請您參考附件，在Module 1的列32，感謝。:D

test1.rar (170.74 KB)

我愛麻辣家族討論區！！

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

4^#

發表於 2011-1-20 12:34 | 顯示全部帖子

回復 7# Hsieh

Hsieh大抱歉，請問在繪製圖表裡面的部份該怎麼改？比如說這個？

ActiveChart.SeriesCollection(1).XValues = "='c & op'!R2C1:R22C1"

我愛麻辣家族討論區！！

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

5^#

發表於 2011-1-20 13:08 | 顯示全部帖子

回復 9# Hsieh

Hsieh大，抱歉又有問題了.....這次問題出在我跑完d=1，進入d=2時。在

With Sheets("data")
            Cells(1, 1).EntireRow.Select
            Selection.Copy
            Sheets.Add After:=Sheets("data")
            ActiveSheet.Cells(1, 1).PasteSpecial
            ThisWorkbook.ActiveSheet.Name = c & op
End With

出現「Class Range的Select 方法失敗」的訊息，為什麼第一圈沒有問題，第二圈的時候就會出來選擇錯誤？？感謝您

我愛麻辣家族討論區！！

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

6^#

發表於 2011-1-21 12:13 | 顯示全部帖子

回復 11# Hsieh

感激大大....一切OK了！！:D

我愛麻辣家族討論區！！

帖子: 50
主題: 10
精華: 0
積分: 69
點名: 0
作業系統: Windows XP
軟體版本: Office 2007
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-6-21
最後登錄: 2015-1-11

7^#

發表於 2011-1-22 11:39 | 顯示全部帖子

回復 11# Hsieh

Hsieh大，抱歉又來打擾了....

可以使用之後，我還想再加一個「輸入和約月份」的對話框，這樣可以選擇需要挑出的月份

我是這樣寫的

f = Application.InputBox(prompt:="請輸入合約結算月份(格式：yyyymm)")
然後在挑取資料的時候

If Sheets("data").Cells(i, 3).Value = f

可是好像excel認不出來這個 f ，所以我無法把資料挑選出來，可否請問您為什麼嗎？

請您參考附件，感謝:D

test.rar (223.79 KB)

我愛麻辣家族討論區！！