返回列表 上一主題 發帖

[發問] 日線K轉週線K(已解決)

jiuhtsair

帖子
86 
主題
30 
精華
0 
積分
140 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2020-8-26 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-10-20 11:08 | 只看該作者

[發問] 日線K轉週線K(已解決)

本帖最後由 jiuhtsair 於 2011-10-21 21:14 編輯

各位大大好： 日線轉成週線.zip (4.49 KB)
        小弟想請教，要如何才能將日線K線圖轉成週線K線圖?
    小弟想做的是：例如本週一的開盤是週線的開盤點，週一到週五的最高點是週線最高點，週一到週五的最低點是週線最低點，
       週五的收盤是本週的週線收盤點點位。
       所有資料可以每天更新(例如今天是星期四，本週一的開盤是週線的開盤點，週一到週四的最高點是週線最高點，週一到週四的最低點是週線最低點，
       週四的收盤是目前的收盤點點位)，同時..日期欄也能更新...
    每週一開始時能從新的一欄開始...
    這問題想了好機天，卻仍然沒有頭緒..
    懇請各位大大幫忙...謝謝！
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
2#
發表於 2011-10-21 11:40 | 只看該作者
回復 1# jiuhtsair

   這個不知道是不是你需要的結果~

   分兩個按鈕~ 一個是匯出歷史資料   一個是每日資料更新
   有一個缺點是~  必續要每個星期一要將資料匯出~ 你可以再自行修改

    日線轉成週線_測試版.rar (12.22 KB)
   
學習才能提升自己

TOP

jiuhtsair

帖子
86 
主題
30 
精華
0 
積分
140 
點名
0  
作業系統
windows 
軟體版本
XP 
閱讀權限
20 
性別
男 
註冊時間
2011-2-19 
最後登錄
2020-8-26 
3#
發表於 2011-10-21 21:13 | 只看該作者
回復 2# hugh0620

感謝大大提示！終於知道如何處理了！感謝再感謝！
50 字節以內
不支持自定義 Discuz! 代碼

TOP

fancky

帖子
17 
主題
2 
精華
0 
積分
28 
點名
0  
作業系統
win7 
軟體版本
XP 
閱讀權限
10 
註冊時間
2012-2-15 
最後登錄
2020-12-23 
4#
發表於 2012-2-15 23:08 | 只看該作者
想知道是如何轉換，謝謝。

TOP

hugh0620
　暱稱: VBA向前衝

高中生Rank: 3Rank: 3

帖子
559 
主題
58 
精華
0 
積分
626 
點名
0  
作業系統
win8 
軟體版本
office2013 
閱讀權限
50 
性別
男 
來自
TW 
註冊時間
2010-11-22 
最後登錄
2024-6-14 
5#
發表於 2012-2-16 13:05 | 只看該作者
回復 4# fancky

將兩個按鈕的程式碼co出來~ 你自己再重建一下~ 應該就了解了~
  1. Private Sub CommandButton1_Click() '每日資料更新

  3. If Sheet1.Range("F2") = "" Then  '該週第一天開盤點 若開盤點已經有資料，就不會再帶其它日期的資料
  4.      Sheet1.Range("F2") = Sheet1.Range("C8").End(xlDown)
  5. End If
  6. '該週最高點
  7. Sheet1.Range("F3") = Application.Max(Sheet1.Range("D9"), Sheet1.Range("D10"), Sheet1.Range("D11"), Sheet1.Range("D12"), Sheet1.Range("D13"))
  8. '該週最低點
  9. Sheet1.Range("F4") = Application.Min(Sheet1.Range("E9"), Sheet1.Range("E10"), Sheet1.Range("E11"), Sheet1.Range("E12"), Sheet1.Range("E13"))
  10. '該週每日收盤價
  11. Sheet1.Range("F5") = Sheet1.Range("F65536").End(xlUp)

  13. End Sub
複製代碼
  1. Private Sub CommandButton2_Click()  '匯出資料
  2. A = VBA.Weekday(Date, vbMonday)

  4. If A = 1 And IsError(Application.VLookup(Sheet1.Range("B9"), Sheet1.Range("J9:J65536"), 1, False)) Then
  5.    For I = 9 To 13  '將上週資料匯到歷史股價區
  6.        '若該日是未開市，請不要填寫資料，會自行判斷將該天資料剔除
  7.        If Sheet1.Range("C" & I) = "" Or Sheet1.Range("D" & I) = "" Or Sheet1.Range("E" & I) = "" Or Sheet1.Range("F" & I) = "" Then
  8.        Else
  9.        Sheet1.Range("J65536").End(xlUp).Offset(1, 0) = Sheet1.Range("B" & I)
  10.        Sheet1.Range("K65536").End(xlUp).Offset(1, 0) = Sheet1.Range("C" & I)
  11.        Sheet1.Range("L65536").End(xlUp).Offset(1, 0) = Sheet1.Range("D" & I)
  12.        Sheet1.Range("M65536").End(xlUp).Offset(1, 0) = Sheet1.Range("E" & I)
  13.        Sheet1.Range("N65536").End(xlUp).Offset(1, 0) = Sheet1.Range("F" & I)
  14.        Sheet1.Range("O65536").End(xlUp).Offset(1, 0) = Sheet1.Range("G" & I)
  15.        Sheet1.Range("P65536").End(xlUp).Offset(1, 0) = Sheet1.Range("H" & I)
  16.        End If
  17.    Next
  18.    Sheet1.Range("F2:F5").ClearContents  '清除開盤價/最高點/最低點/收盤價
  19.    Sheet1.Range("B9:H13").ClearContents '清除上一週的股價資料
  20.    For I = 0 To 4     '設定本週一~五的日期
  21.         Sheet1.Range("B65536").End(xlUp).Offset(1, 0) = VBA.Date + I
  22.    Next
  23. Else
  24.      MsgBox "該週資料已經匯出"
  25. End If
  26. End Sub
複製代碼
學習才能提升自己

TOP

fancky

帖子
17 
主題
2 
精華
0 
積分
28 
點名
0  
作業系統
win7 
軟體版本
XP 
閱讀權限
10 
註冊時間
2012-2-15 
最後登錄
2020-12-23 
6#
發表於 2012-2-16 16:51 | 只看該作者
恩恩，這樣我應該看懂了，因為剛加入沒辦法下載附件，所以我才會這樣問

TOP

        靜思自在 : 並非有錢魷是快樂，問心無愧心最安。
返回列表 上一主題