返回列表 上一主題 發帖

[發問] 使用元大證Yeswin的RTD元件即時更新股價問題??

heavenweaver

帖子
48 
主題
6 
精華
0 
積分
60 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-13 
最後登錄
2023-2-7 
1# 跳轉到 »
發表於 2014-3-16 14:09 | 顯示全部帖子
回復  jasonwu0114
自製看盤
ThisWorkbook 程式碼
GBKEE 發表於 2014-1-15 19:22
  1.         Workbook_BeforeClose False
  2.       '[color=Red] 增加欄位名稱[/color]
  3.         Worksheets(Sh).Range("A1").Value = "股票代碼"
  4.         Worksheets(Sh).Range("B1").Value = "最近成交價"
  5.         Worksheets(Sh).Range("C1").Value = "漲跌價差(百分比)"
  6.         Worksheets(Sh).Range("D1").Value = "當盤成交量"
  7.         Worksheets(Sh).Range("E1").Value = "累積成交量"
  8.         Worksheets(Sh).Range("F1").Value = "揭示買價"
  9.         Worksheets(Sh).Range("G1").Value = "揭示買量"
  10.         Worksheets(Sh).Range("H1").Value = "揭示賣價"
  11.         Worksheets(Sh).Range("I1").Value = "揭示賣量"
  12.         Worksheets(Sh).Range("J1").Value = "開盤"
  13.         Worksheets(Sh).Range("K1").Value = "最高"
  14.         Worksheets(Sh).Range("L1").Value = "最低"
  15.         Worksheets(Sh).Range("M1").Value = "說明"

  17.         With Sheets(Sh)
複製代碼
很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題