12
返回列表 上一主題 發帖

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

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
98  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
11# 跳轉到 »
發表於 2011-1-20 16:24 | 只看該作者
回復 10# j1221
應該是SELECT的問題
  1.     With Sheets("data")
  2.                 .Cells(1, 1).EntireRow.Copy
  3.                 Sheets.Add After:=Sheets("data")
  4.                 ActiveSheet.Cells(1, 1).PasteSpecial
  5.                 ThisWorkbook.ActiveSheet.Name = c & op
  6.    End With
複製代碼
學海無涯_不恥下問

TOP

j1221

帖子
50 
主題
10 
精華
0 
積分
69 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-21 
最後登錄
2015-1-11 
12#
發表於 2011-1-21 12:13 | 只看該作者
回復 11# Hsieh


    感激大大....一切OK了！！:D
我愛麻辣家族討論區！！

TOP

j1221

帖子
50 
主題
10 
精華
0 
積分
69 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-6-21 
最後登錄
2015-1-11 
13#
發表於 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)
我愛麻辣家族討論區！！

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
98  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-4-27 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
14#
發表於 2011-1-22 11:47 | 只看該作者
回復 13# j1221


    Sheets("data").Cells(i, 3).Value = Val(f)
因為inputbox位指定變數型態則會以字串形態默認
所以f是一個數字組合的字串
但是，你工作表的年月是通用格式，所以被認為是數値
所以判斷式數直是不可能跟字串相等
故此將f使用VAL函數轉為數值即可
學海無涯_不恥下問

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
12
返回列表 上一主題