返回列表 上一主題 發帖

[分享] 大盤每月每天歷史成交量與金額下載

本帖最後由 usana642 於 2012-10-24 18:10 編輯

回復 33# GBKEE

再請教GBKEE大,我再增加一個''紀錄''工作表,把計算後的小計,自動匯入儲存,如果隔天再按''計算''工作表的''更新''按鈕後,希望能在''紀錄''工作表自動儲存當天計算後的小計結果,懇請GBKEE大大再次協助,謝謝您...
[attach]12878[/attach]
stock

TOP

謝謝G版主的解決方式~~~
但其實小弟我是想要一個超偷懶方式...
年、月會自動跑
如:自1990年01月起自動下載紀錄在SHEET1後儲存,
再自動跳到1990年02月,自動下載紀錄在SHEET1內下方空白處,接續剛剛1月的資料尾
如此重覆至2012年10月這樣...
這樣是不是太懶了...一..一"

TOP

回復 4# white5168


    晚點再來下載看看囉~~~~
我是斯多

TOP

回復 38# GBKEE

TOP

回復 38# GBKEE
對的!

R1C1 我會好好地去瞭解,謝謝您!

TOP

本帖最後由 GBKEE 於 2012-10-20 08:50 編輯

回復 37# c_c_lai
會是在 [大小及內容] 中嗎?
FormulaR1C1 屬性   傳回或設定物件的公式,用巨集語言的 R1C1 樣式符號表示。Range 物件為讀/寫 Variant,Series 物件為讀/寫 String。
執行後 如圖 勾選 R1C1  便知

  1. Option Explicit
  2. Sub Ex()
  3.     Dim i
  4.     For i = 1 To 5
  5.         [c5].Cells(1, i) = "=r" & i & "c" & i
  6.         [c5].Cells(2, i) = "=r[" & i & "]c[" & i & "]"
  7.         [c5].Cells(3, i) = "=r[-" & i & "]c[-" & i & "]"
  8.     Next
  9. End Sub
複製代碼

TOP

回復 36# GBKEE
真奇,沒看到呦?

又、以下的語法實在是有看沒懂,我一直想了解它們代表的含意:
  1.             .Columns(7) = "=IF(rc[-3]=""Call"",1,0)"        ' R1C1表示法 : 工作表上腧入公式
  2.             .Columns(8) = "=IF(rc[-6]=r1c9,1,8)"
  3.             .Columns(9) = "=IF(rc[-2]=1,rc[-3],0)"
  4.             .Columns(10) = "=IF(rc[-3]=0,rc[-4],0)"
  5.             .Columns(11) = "=if(rc[-1]=0,rc[-6]*rc[-5],"""")"
  6.             .Columns(12) = "=if(rc[-2]<>0,rc[-7]*rc[-6],"""")"
複製代碼
我將 =IF(rc[-3]=""Call"",1,0) 貼到任一欄位想觀察結果,
結果該欄的值卻是整段 =IF(rc[-3]=""Call"",1,0) 之字串。

TOP

回復 35# c_c_lai
按右鍵

   

TOP

回復 30# GBKEE
對不起,請教您 "快取圖案格式" 功能欄 我要如何才能找到?
我是 2010 版。因這案例處理或許我會碰上。

TOP

回復 33# GBKEE


    謝謝GBKEE大大的快速回應,可以正確算出小計了,再次感謝您的熱心協助,祝您週末愉快...
stock

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題