[發問] 輸入數值後，如何啟動自動下拉一格的機制?

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

20^#

發表於 2015-8-14 21:48 | 只看該作者

本帖最後由 joey0415 於 2015-8-14 21:50 編輯

回復 19# finally0130

http://www.kingstone.com.tw/search/result.asp?c_name=%25E5%258F%25A4%25E5%25B7%259D%25E9%25A0%2586%25E5%25B9%25B3&se_type=4&q_type=au

這個人的書可以買，我有好幾本

g大的方法是一檔一檔，假設一檔1秒，每日1500檔掃股，就要1500秒，
若改用資料庫語法，它可以一次算所有的股票一起計算類似ma等指標，一次約一分鐘，最後輸出至excel中判斷，最多再加五秒...

access可以、sqlite也行

我自己是sqlite，它的好處是和access都是單檔，但是它沒有容量限制，access是2g，多了要切割，它是免費的
入門後多練習sql語法就會發現真的很快

以上為個人經驗參考即可

以下為sql語法教學網站
http://www.1keydata.com/tw/sql/sql.html

帖子: 9
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: win10
軟體版本: preview
閱讀權限: 20
註冊時間: 2015-7-14
最後登錄: 2015-12-31

19^#

發表於 2015-8-14 21:31 | 只看該作者

回復 17# joey0415

J大您好，您說的excel單股單檔的資料庫模式，是指ADO外部連結資料嗎?
如果要學習的話，有什麼推薦書籍或網站可供參考，可供新手入門，感恩。

帖子: 9
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: win10
軟體版本: preview
閱讀權限: 20
註冊時間: 2015-7-14
最後登錄: 2015-12-31

18^#

發表於 2015-8-14 21:27 | 只看該作者

回復 16# GBKEE

遲來的回覆，G大提供的程式碼真的管用，非常感謝。

joey0415

　暱稱: joey0415

帖子: 361
主題: 57
精華: 0
積分: 426
點名: 0
作業系統: win7
軟體版本: 2003,2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-13
最後登錄: 2022-12-8

17^#

發表於 2015-7-24 09:30 | 只看該作者

回復 14# finally0130

一般日資料或三大法人或期貨資料等，一般資料庫存取就很方便

如果加上財報的話，我個人試做多次，最後是每檔個股放在一個excel檔中，每個檔的頁面存放資料不同，如第一面是現金流量表，第二頁是xxx
財報若放一般資料庫，將資放進去很容昜，但要將資料串接在一起時，它的left join的語法很長容易出錯，不過程度好的沒差，再者財報會有金融與營建與一般公司報表不同，串接時有有問題

我自己則是試寫多年後才改成如此

資料少放什麼地方都快，資料多要組合要串接時問題會有一堆要花很多時間克服，如果真的覺得財報狗對你有用的話，說真的花錢買服務還有客服電話可打也不錯

如果你只是要簡單篩選的話，很多網站都有，不要自己寫程式

GBKEE

超級版主 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兔年全勤獎章

16^#

發表於 2015-7-24 06:20 | 只看該作者

本帖最後由 GBKEE 於 2015-7-24 06:21 編輯

回復 14# finally0130

試試看
第6帖檔案的程式碼

Option Explicit
Dim x_Mon As Integer, x_Week As Integer
Sub Ex()
Dim R As Long, E As Variant, t As Date
t = Time
Range("F4:Z" & Rows.Count) = "" '清除舊有資料 Rows.Count 範圍的列總數,這裡為工作表範圍
R = Range("D4").End(xlDown).Row '日平均價的最後一列號
With Range("B4:B" & R) '月別範圍
.Cells = "=MONTH(RC[2])" '工作表上寫入函數,[R1C1]工作表上欄名列名表示法
.Value = .Value '公式轉值
End With
With Range("C4:C" & R) '周別範圍
.Cells = "=WEEKNUM(RC[1])" '2003: 增益集須加入 VBA分析工具箱
.Value = .Value
End With
x_Week = DatePart("ww", Range("D4")) 'VBA的週別函數
x_Mon = Month(Range("D4")) 'VBA的月別函數
For Each E In Range("D4:D" & R) '日期範圍
週月收盤價 E '呼叫 Sub 週月收盤價 E(傳遞參數)
x_Week = DatePart("ww", E) '再讀當週
x_Mon = Month(E) '再讀當月
Next
均價 '呼叫 Sub 均價
MsgBox Application.Text(Time - t, "共計執行 [s] 秒")
End Sub
Sub 均價()
Dim Rng As Range, E As Variant, i As Integer, AR()
AR = Array(5, 10, 20, 60, 120)
For Each E In Array("F4", "N4", "V4") '日平均價,周平均價,月平均價的第一個欄位
Set Rng = Range(E).Resize(Range(E).Offset(, -1).End(xlDown).Row - 3, 5)
For i = 0 To UBound(AR)
With Rng.Columns(i + 1) '均價範圍的每一個欄位範圍
If .Rows.Count > AR(i) Then '範圍小於均價日數下面的With會有錯誤
With .Cells(AR(i)).Resize(.Rows.Count - AR(i) + 1)
.Cells = "=Average(RC[" & -i + -1 & "]:R[" & -AR(i) + 1 & "]C[" & -i + -1 & "])"
'工作表上寫入公式
End With
End If
End With
Next
Rng.Value = Rng.Value '轉公式為值
Next
End Sub
Sub 週月收盤價(E As Variant) '讀取到:周收盤價,月收盤價
If x_Week <> DatePart("ww", E) Then '不同週數
With Range("L" & Rows.Count).End(xlUp).Offset(1)
.Resize(, 2) = E.Offset(-1).Resize(, 2).Value 'E的上一列
.Cells(1, 0) = DatePart("ww", E.Offset(-1))
End With
End If
If x_Mon <> Month(E) Then '不同月數
With Range("T" & Rows.Count).End(xlUp).Offset(1)
.Resize(, 2) = E.Offset(-1).Resize(, 2).Value
.Cells(1, 0) = Month(E.Offset(-1))
End With
End If
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

lcctno

帖子: 142
主題: 18
精華: 0
積分: 160
點名: 274
作業系統: win10 64位元
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: 臺灣高雄市
註冊時間: 2015-7-18
最後登錄: 2026-10-11

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章

15^#

發表於 2015-7-23 22:52 | 只看該作者

建議您去開個電子交易之帳戶
以玉山證券之 "A+網路下單" 而言您可以直接由該下單看盤軟體直接匯出至Excell檔均價"x" x 可以能由您自己決定且有10組均價讓您自行設定當然我無法知道是不是每家卷商的下單看盤軟體都有這功能
另外真的有需要為了喝牛奶而去開牧場養牛嗎? 除非您不相信別人給的資訊但您的來源也還是網路得的(yahoo finance)
我提供省時的方法當然若您很有求知精神那應該是我失言了還請見諒

帖子: 9
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: win10
軟體版本: preview
閱讀權限: 20
註冊時間: 2015-7-14
最後登錄: 2015-12-31

14^#

發表於 2015-7-23 22:49 | 只看該作者

回復 8# joey0415

之前並未接觸過資料庫與VBA，算是初級構想階段，所以有些問題想請教J大
1.SQL資料、Access資料庫、Excel資料庫何者較為方便易學
2.SQL資料庫，如何進行資料篩選分析，類似財報狗https://statementdog.com/pick/tpe#

想說若能先釐清整體資料庫架構方向及結構，對於未來篩選分析應有很大幫助。
可以的話，若能達到設定(日期條件、財報條件、均價條件)，即可資料篩選及分析1500檔物件，選出符合條件之標的，將可有效減少人腦之耗損呀^^。

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 6
精華: 0
積分: 576
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2026-9-10

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

13^#

發表於 2015-7-23 22:34 | 只看該作者

本帖最後由 lpk187 於 2015-7-23 22:36 編輯

回復 3# finally0130

不是用按鈕啟動的！而是在某一範圍(例如你圖例的D欄的第4列起來說)
只要是這其中的儲存格發生變化(就是你有寫入東西後)就會產生變化
此事件的位置如下圖

上圖的程式執行

上圖的程式碼如下(方便你複製)

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 4 And Target.Row > 3 And Target <> "" Then
Application.EnableEvents = False
Cells(Target.Row - 1, 6).AutoFill _
Destination:=Range(Cells(Target.Row - 1, 6), Cells(Target.Row, 6)), Type:=xlFillDefault
Application.EnableEvents = True
End If
End Sub

複製代碼

帖子: 9
主題: 1
精華: 0
積分: 50
點名: 0
作業系統: win10
軟體版本: preview
閱讀權限: 20
註冊時間: 2015-7-14
最後登錄: 2015-12-31

12^#

發表於 2015-7-23 22:09 | 只看該作者

回復 7# united7878

U大提供的方法，作為一日股價的外部連結很實用，但因資料庫必須要有十年期數據，未來做資料篩選分析時，才會達到其目的，
某些券商有提供個股(日周月均值每日下載)，但需人工重複選擇(日、周、月均值及1500檔股票)，可能廢時曠日。

謝謝各位的回覆，小弟在實作中發現很多小問題待解決，實在是基本太過薄弱，待將VBA外部連結價格技能習得後，再請教各位囉。