12
返回列表 上一主題 發帖

如何更改其他股號，要哪些步驟？

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
11# 跳轉到 »
發表於 2012-4-27 21:05 | 只看該作者
本帖最後由 GBKEE 於 2012-4-27 21:09 編輯

回復 10# cfuxiong
試試看
  1. Option Explicit             '在模組層次中強迫每個在模組裏的變數都必須明確的宣告。
  2. Dim Rng As Range
  3. Private Sub AUTO_OPEN()     '此巨集於檔案開啟時會自動執行
  4.     Sheets("紀錄").UsedRange.Offset(2).Clear                '清除 前一日的數據
  5. '***   Offset(1).Clear  改成   Offset(2).Clear    '********
  6.     If Time < TimeValue("08:45") Then             '早於開盤時間
  7.         Application.OnTime TimeValue("08:45"), "MyDee"    '設定於08:45 執行 MyDee 程序
  8.     ElseIf Time >= TimeValue("08:45") And Time <= TimeValue("13:30") Then '於交易時間內
  9.         MyDee                                     ' 執行 MyDee 程序
  10.     End If
  11. End Sub
  12. Private Sub MyDee()
  13.     Dim Sh As Worksheet, 代號 As String
  14.     If Time > TimeValue("13:30") Then Exit Sub     ' 收盤時間後 停止執行
  15.    On Error Resume Next
  16.    Set Sh = Sheets("紀錄")
  17.     With Sh
  18.         代號 = .[C1]
  19.         .[C1].Select
  20.         .Activate
  21.         Application.ScreenUpdating = False
  22.         With Rng
  23.             .Interior.ColorIndex = xlNone
  24.             .Borders.LineStyle = xlLineStyleNone
  25.         End With
  26.         If Err <> 0 Then
  27.             Err.Clear
  28.             On Error GoTo 0
  29.             .UsedRange.Interior.ColorIndex = xlNone
  30.             .UsedRange.Borders.LineStyle = xlLineStyleNone
  31.         End If
  32.     End With
  33.     With Sheets("匯入").QueryTables(1)
  34.         .Connection = "URL;http://tw.stock.yahoo.com/q/q?s=" & 代號
  35.        .Refresh False
  36.         Application.EnableEvents = False
  37.         Set Rng = Sh.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, .ResultRange.Columns.Count - 1)
  38.         Rng.Value = .ResultRange.Rows(3).Value
  39.         With Rng
  40.             If .Row >= 20 Then
  41.                 ActiveWindow.ScrollRow = .Row - 17
  42.             Else
  43.               ActiveWindow.ScrollRow = 3
  44.             End If
  45.             .Interior.ColorIndex = 4
  46.             .BorderAround xlContinuous, 2, 5
  47.         End With
  48.         Application.EnableEvents = True
  49.         Application.ScreenUpdating = True
  50.     End With
  51.      Application.OnTime Now + TimeValue("00:00:10"), "MyDee" '設定 10秒後 執行 MyDee 程序
  52.    
  53.    '10秒鐘: 輸入此格式  #00:00:10# 後VBA 自動生成   ->  #12:00:10 AM#
  54.    '5分鐘:  輸入此格式  #00:05:00# 後VBA 自動生成   ->  #12:05:00 AM#
  55.    '1小時:  輸入此格式  #1:00:00#  後VBA 自動生成   ->  #1:00:00 AM#
  56.    
  57.     'Application.OnTime Now + #12:00:10 AM#, "MyDee" '設定 10秒後  執行 MyDee 程序
  58.     'Application.OnTime Now + #12:05:00 AM#, "MyDee" '設定 5分鐘後 執行 MyDee 程序
  59.     'Application.OnTime Now + #1:00:00 AM#, "MyDee"  '設定 1小時後 執行 MyDee 程序
  60.    
  61.     Exit Sub
  62. End Sub
複製代碼

TOP

cfuxiong

帖子
93 
主題
18 
精華
0 
積分
111 
點名
0  
作業系統
XP 
軟體版本
OFFICE 
閱讀權限
20 
性別
男 
來自
台灣•高雄 
註冊時間
2010-10-22 
最後登錄
2023-3-3 

論壇贊助勳章
12#
發表於 2012-4-27 22:14 | 只看該作者
回復 11# GBKEE
GRKEE版大晚安；我是新手問題特別多；請問貼上VBA程式不知如何儲存~~~
我操作如下[工具]→[巨集] →[VB編輯器] →貼上VBA程式=>要如何儲存？
能否指導？謝謝~~
50 字節以內
不支持自定義 Discuz! 代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
13#
發表於 2012-4-27 23:02 | 只看該作者
回復 12# cfuxiong
回復 11# GBKEE
我將 GBKEE 大大的程式 (稍加修飾) 放入 股票紀錄2， cfuxiong 老弟的放入到 股票紀錄1 中，最先的檔案當然是 股票紀錄 了。
前兩者都是將程式碼放置在 ThisWorkbook 程式區內執行的， 同時 C1 欄位異動的檢查程式碼也跟著修正 (原本是 "Module1.MyDee")，
  1. '   Sheet2 (紀錄)  的程式區域
  2. Option Explicit

  4. Private Sub Worksheet_Change(ByVal Target As Range)
  5.     If Target(1).Cells = [C1] Then Run "ThisWorkbook.MyDee"
  6. End Sub
複製代碼
願兩位有個愉快的周位夜晚！
股票紀錄.rar (12.55 KB)
股票紀錄1.rar (13.13 KB)
股票紀錄2.rar (11.43 KB)

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2012-4-28 06:39 | 只看該作者
回復 12# cfuxiong
隨這Excel 存檔就可以存檔 或 匯出存檔 其他 Excel 檔案 可匯入使用
進入 VBA  視窗 還有一途徑
如圖
                        

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
15#
發表於 2012-4-28 07:23 | 只看該作者
回復 14# GBKEE
請教您，代號 = .[C1] 的 [C1] 其本身在定義上指的是 Range 還是 Cells， 它們轉出值會是 Value 還是 Text？
當然在設定時，就已非常清楚該欄的屬性， 我要了解的是它在應用面上正確的使用。
譬如說之前提過的：如果該欄位是時間欄，但該欄 "A3" 儲存的是 "=TIME(LEFT(A2,LEN(A2)-4),MID(A2,LEN(A2)-3,2),RIGHT(A2,2))"
或是 A3 是 Web 直接匯入的時間，但該欄位格式並非 "時間"，也許是 "自訂" 也說不定，那麼此時   時間 = .[A3]，
所得到的值會是 0.604166667 還是 14:30 (假設當時時間為 02:30:00 PM)？ 應該如何去做正確的宣告？

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
16#
發表於 2012-4-28 10:34 | 只看該作者
本帖最後由 GBKEE 於 2012-4-28 10:37 編輯

回復 15# c_c_lai
  1. Option Explicit
  2. Sub Ex()
  3.      '[xxx]  'xxx 為活頁簿的物件 或函數  但不可以是變數
  4.     MsgBox [max({5,100,9})]
  5.    [紀錄!B3] = 0.666
  6.     [紀錄!B3].NumberFormatLocal = "h:mm;@"
  7.     MsgBox [紀錄!B3]          '傳回的是值   .Value
  8.     MsgBox [紀錄!B3].Text     '傳回的傳回儲存格的格式   

  10.       'Rng.Value = .ResultRange.Rows(3).Value
  11.     'Rng 第2個位置是 數值 將它設定 為時間格式
  12.     'Rng.Cells(2).NumberFormatLocal = "h:mm;@"
  13.    
  14. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
17#
發表於 2012-4-28 11:02 | 只看該作者
本帖最後由 c_c_lai 於 2012-4-28 11:07 編輯

回復 16# GBKEE
經測試終於體會了，早起的鳥兒真的有蟲吃！

  Sub Ex()
        ' [xxx]  'xxx 為活頁簿的物件 或函數  但不可以是變數
        ' MsgBox [max({5,100,9})]
       [工作表1!B3] = 0.666
        [工作表1!B3].NumberFormatLocal = "h:mm;@"
       MsgBox [工作表1!B3]                   '傳回的是值   .Value                 0.666
       MsgBox [工作表1!B3].Text          '傳回的傳回儲存格的格式       15:59
       [工作表1!B4] = [工作表1!B3]       '帶入的是值   .Value                 0.666
       [工作表1!B5] = [工作表1!B3].Text  '帶入的是儲存格的格式       15:59
          'Rng.Value = .ResultRange.Rows(3).Value
        'Rng 第2個位置是 數值 將它設定 為時間格式
        'Rng.Cells(2).NumberFormatLocal = "h:mm;@"      
    End Sub

我將 MsgBox [max({5,100,9})] Marked，發現好像無作用，
請問它有何作用？

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
18#
發表於 2012-4-28 11:05 | 只看該作者
回復 17# c_c_lai
取消註解 看看
是說明 [    ]   的用法

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
19#
發表於 2012-4-28 11:09 | 只看該作者
回復 18# GBKEE
原來是取出其最大值。

TOP

cfuxiong

帖子
93 
主題
18 
精華
0 
積分
111 
點名
0  
作業系統
XP 
軟體版本
OFFICE 
閱讀權限
20 
性別
男 
來自
台灣•高雄 
註冊時間
2010-10-22 
最後登錄
2023-3-3 

論壇贊助勳章
20#
發表於 2012-4-28 16:50 | 只看該作者
回復 17# c_c_lai
Mead版大c_c_lai版大；你們好；
感謝兩位先進反覆指導，讓新手練習、體會
再次向兩位說聲 "感激兩位先進"！
50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
12
返回列表 上一主題