如何更改其他股號，要哪些步驟？ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何更改其他股號，要哪些步驟？

返回列表下一主題上一主題發帖

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

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-4-27 21:05 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-4-27 21:09 編輯

回復 10# cfuxiong
試試看

Option Explicit '在模組層次中強迫每個在模組裏的變數都必須明確的宣告。
Dim Rng As Range
Private Sub AUTO_OPEN() '此巨集於檔案開啟時會自動執行
Sheets("紀錄").UsedRange.Offset(2).Clear '清除前一日的數據
'*** Offset(1).Clear 改成 Offset(2).Clear '********
If Time < TimeValue("08:45") Then '早於開盤時間
Application.OnTime TimeValue("08:45"), "MyDee" '設定於08:45 執行 MyDee 程序
ElseIf Time >= TimeValue("08:45") And Time <= TimeValue("13:30") Then '於交易時間內
MyDee ' 執行 MyDee 程序
End If
End Sub
Private Sub MyDee()
Dim Sh As Worksheet, 代號 As String
If Time > TimeValue("13:30") Then Exit Sub ' 收盤時間後停止執行
On Error Resume Next
Set Sh = Sheets("紀錄")
With Sh
代號 = .[C1]
.[C1].Select
.Activate
Application.ScreenUpdating = False
With Rng
.Interior.ColorIndex = xlNone
.Borders.LineStyle = xlLineStyleNone
End With
If Err <> 0 Then
Err.Clear
On Error GoTo 0
.UsedRange.Interior.ColorIndex = xlNone
.UsedRange.Borders.LineStyle = xlLineStyleNone
End If
End With
With Sheets("匯入").QueryTables(1)
.Connection = "URL;http://tw.stock.yahoo.com/q/q?s=" & 代號
.Refresh False
Application.EnableEvents = False
Set Rng = Sh.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, .ResultRange.Columns.Count - 1)
Rng.Value = .ResultRange.Rows(3).Value
With Rng
If .Row >= 20 Then
ActiveWindow.ScrollRow = .Row - 17
Else
ActiveWindow.ScrollRow = 3
End If
.Interior.ColorIndex = 4
.BorderAround xlContinuous, 2, 5
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End With
Application.OnTime Now + TimeValue("00:00:10"), "MyDee" '設定 10秒後執行 MyDee 程序
'10秒鐘: 輸入此格式 #00:00:10# 後VBA 自動生成 -> #12:00:10 AM#
'5分鐘: 輸入此格式 #00:05:00# 後VBA 自動生成 -> #12:05:00 AM#
'1小時: 輸入此格式 #1:00:00# 後VBA 自動生成 -> #1:00:00 AM#
'Application.OnTime Now + #12:00:10 AM#, "MyDee" '設定 10秒後執行 MyDee 程序
'Application.OnTime Now + #12:05:00 AM#, "MyDee" '設定 5分鐘後執行 MyDee 程序
'Application.OnTime Now + #1:00:00 AM#, "MyDee" '設定 1小時後執行 MyDee 程序
Exit Sub
End Sub

複製代碼

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2012-4-28 06:39 | 顯示全部帖子

回復 12# cfuxiong
隨這Excel 存檔就可以存檔或匯出存檔其他 Excel 檔案可匯入使用
進入 VBA 視窗還有一途徑
如圖

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2012-4-28 10:34 | 顯示全部帖子

本帖最後由 GBKEE 於 2012-4-28 10:37 編輯

回復 15# c_c_lai

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

複製代碼

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-4-28 11:05 | 顯示全部帖子

回復 17# c_c_lai
取消註解看看
是說明 [ ] 的用法

靜思自在 : 人生沒有所有權，只有生命的使用權。

返回列表下一主題上一主題