Excel的VLOOKUP很好用,因此在設計VBA網路爬蟲或整理資料時,可利用For Next迴圈控制及If Then邏輯判斷,模擬函數執行。本文以取得三家上市櫃公司損益表為例介紹。
贊贊小屋VBA程式設計臉書專頁:
https://www.facebook.com/zanzanvba/
同時也有1297部Youtube影片,追蹤數超過4萬的網紅吳老師教學部落格,也在其Youtube影片中提到,從EXCEL VBA到Python開發第2次上課 01_重點回顧與BMI計算 02_計算BMI與格式化到小數點第二位 03_邏輯判斷BMI的評語 04_用format格式化資料 05_用for迴圈加總1到99 06_奇數偶數分別加總 07_用step與兩個for迴圈 08_九九乘法表單列輸出 09...
「for迴圈vba」的推薦目錄:
- 關於for迴圈vba 在 會計人的Excel小教室 Facebook 的最讚貼文
- 關於for迴圈vba 在 會計人的Excel小教室 Facebook 的最佳解答
- 關於for迴圈vba 在 會計人的Excel小教室 Facebook 的精選貼文
- 關於for迴圈vba 在 吳老師教學部落格 Youtube 的精選貼文
- 關於for迴圈vba 在 吳老師教學部落格 Youtube 的最佳貼文
- 關於for迴圈vba 在 吳老師教學部落格 Youtube 的最佳解答
- 關於for迴圈vba 在 [算表] vba迴圈問題- 看板Office - 批踢踢實業坊 的評價
- 關於for迴圈vba 在 EXCEL VBA迴圈問題 的評價
- 關於for迴圈vba 在 VBA - 使用迴圈| Welcome to e87042170's Homepage - GitHub ... 的評價
- 關於for迴圈vba 在 VBA nested for loop won't Run - Stack Overflow 的評價
- 關於for迴圈vba 在 刪除迴圈中的行或列 - 他山教程 的評價
- 關於for迴圈vba 在 [算表] VBA迴圈橫向(向右)代公式- 看板Office | PTT數位生活區 的評價
- 關於for迴圈vba 在 [算表] VBA終止無窮迴圈Msgbox - Office | PTT Web 的評價
for迴圈vba 在 會計人的Excel小教室 Facebook 的最佳解答
Excel VBA網路爬蟲最終目的是建立自己的資料庫。本文介紹如何以Workbook_Open事件設定開啟檔案即執行,If...Then...Else邏輯判斷程式執行條件,最後用For Next迴圈事件彙總每天報表。
延伸閱讀:VBA程式設計臉書社團:
https://www.facebook.com/groups/zanzanvba
for迴圈vba 在 會計人的Excel小教室 Facebook 的精選貼文
Excel VBA網路爬蟲有固定流程,首先變數宣告,分析網址結構,建立For Next迴圈取得網頁資料,UsedRange.Rows.Count彙總資料、最後再以Cells.Font.Name調整格式,本文以借閱排行榜為例介紹。
贊贊小屋VBA臉書專頁:https://www.facebook.com/zanzanvba/
for迴圈vba 在 吳老師教學部落格 Youtube 的精選貼文
從EXCEL VBA到Python開發第2次上課
01_重點回顧與BMI計算
02_計算BMI與格式化到小數點第二位
03_邏輯判斷BMI的評語
04_用format格式化資料
05_用for迴圈加總1到99
06_奇數偶數分別加總
07_用step與兩個for迴圈
08_九九乘法表單列輸出
09_九九乘法表多列輸出
完整教學
http://goo.gl/aQTMFS
教學論壇(之後課程會放論壇上課學員請自行加入):
https://groups.google.com/g/_vbapython117
吳老師教學論壇
http://www.tqc.idv.tw/
課程簡介:入門
建置Python開發環境
基本語法與結構控制
迴圈、資料結構及函式
VBA重要函數到Python
檔案處理
資料庫處理
課程簡介:進階
網頁資料擷取與分析、Python網頁測試自動化、YouTube影片下載器
處理 Excel 試算表、處理 PDF 與 Word 文件、處理 CSV 檔和 JSON 資料
實戰:PM2.5即時監測顯示器、Email 和文字簡訊、處理影像圖片、以 GUI 自動化來控制鍵盤和滑鼠
上課用書:
參考書目
Python初學特訓班(附250分鐘影音教學/範例程式)
作者: 鄧文淵/總監製, 文淵閣工作室/編著
出版社:碁峰 出版日期:2016/11/29
Python程式設計入門
作者:葉難
ISBN:9789864340057
出版社:博碩文化
出版日期:2015/04/02
吳老師 110/9/27
EXCEL,VBA,Python,東吳推廣部,自強工業基金會,EXCEL,VBA,函數,程式設計,線上教學,PYTHON安裝環境

for迴圈vba 在 吳老師教學部落格 Youtube 的最佳貼文
從EXCEL VBA到Python開發第2次上課
01_重點回顧與BMI計算
02_計算BMI與格式化到小數點第二位
03_邏輯判斷BMI的評語
04_用format格式化資料
05_用for迴圈加總1到99
06_奇數偶數分別加總
07_用step與兩個for迴圈
08_九九乘法表單列輸出
09_九九乘法表多列輸出
完整教學
http://goo.gl/aQTMFS
教學論壇(之後課程會放論壇上課學員請自行加入):
https://groups.google.com/g/_vbapython117
吳老師教學論壇
http://www.tqc.idv.tw/
課程簡介:入門
建置Python開發環境
基本語法與結構控制
迴圈、資料結構及函式
VBA重要函數到Python
檔案處理
資料庫處理
課程簡介:進階
網頁資料擷取與分析、Python網頁測試自動化、YouTube影片下載器
處理 Excel 試算表、處理 PDF 與 Word 文件、處理 CSV 檔和 JSON 資料
實戰:PM2.5即時監測顯示器、Email 和文字簡訊、處理影像圖片、以 GUI 自動化來控制鍵盤和滑鼠
上課用書:
參考書目
Python初學特訓班(附250分鐘影音教學/範例程式)
作者: 鄧文淵/總監製, 文淵閣工作室/編著
出版社:碁峰 出版日期:2016/11/29
Python程式設計入門
作者:葉難
ISBN:9789864340057
出版社:博碩文化
出版日期:2015/04/02
吳老師 110/9/27
EXCEL,VBA,Python,東吳推廣部,自強工業基金會,EXCEL,VBA,函數,程式設計,線上教學,PYTHON安裝環境

for迴圈vba 在 吳老師教學部落格 Youtube 的最佳解答
從EXCEL VBA到Python開發第2次上課
01_重點回顧與BMI計算
02_計算BMI與格式化到小數點第二位
03_邏輯判斷BMI的評語
04_用format格式化資料
05_用for迴圈加總1到99
06_奇數偶數分別加總
07_用step與兩個for迴圈
08_九九乘法表單列輸出
09_九九乘法表多列輸出
完整教學
http://goo.gl/aQTMFS
教學論壇(之後課程會放論壇上課學員請自行加入):
https://groups.google.com/g/_vbapython117
吳老師教學論壇
http://www.tqc.idv.tw/
課程簡介:入門
建置Python開發環境
基本語法與結構控制
迴圈、資料結構及函式
VBA重要函數到Python
檔案處理
資料庫處理
課程簡介:進階
網頁資料擷取與分析、Python網頁測試自動化、YouTube影片下載器
處理 Excel 試算表、處理 PDF 與 Word 文件、處理 CSV 檔和 JSON 資料
實戰:PM2.5即時監測顯示器、Email 和文字簡訊、處理影像圖片、以 GUI 自動化來控制鍵盤和滑鼠
上課用書:
參考書目
Python初學特訓班(附250分鐘影音教學/範例程式)
作者: 鄧文淵/總監製, 文淵閣工作室/編著
出版社:碁峰 出版日期:2016/11/29
Python程式設計入門
作者:葉難
ISBN:9789864340057
出版社:博碩文化
出版日期:2015/04/02
吳老師 110/9/27
EXCEL,VBA,Python,東吳推廣部,自強工業基金會,EXCEL,VBA,函數,程式設計,線上教學,PYTHON安裝環境

for迴圈vba 在 EXCEL VBA迴圈問題 的推薦與評價
請問以下excel VBA迴圈問題執行後看起來,變成j要跑完492迴圈才會跳出,然後跑i迴圈怎麼修改成j跑完一次迴圈後接著跑i迴圈Dim i As IntegerDim j As ... ... <看更多>
for迴圈vba 在 VBA - 使用迴圈| Welcome to e87042170's Homepage - GitHub ... 的推薦與評價
重複陳述式,當條件為True. 在Do…Loop 陳述式中,有2種使用While關鍵字去檢查條件的方式。一種是在進入迴圈前 ... ... <看更多>
for迴圈vba 在 [算表] vba迴圈問題- 看板Office - 批踢踢實業坊 的推薦與評價
軟體:excel vba
版本:2010
各位版大好,以下有一vba程式,目的是要抓取3萬筆左右的交易價格進行統計分析(交易
價格可隨機設為1000~10000之間的值)。
我的問題是,程式中有一段 For zzz = 0.95 To 1 Step k_gap,如果我將0.95改為0.9,
則原本百分比介於0.95~1的資料就沒有跑出來,可是做迴圈時zzz卻會取到1,覺得很困惑
,系望各位大大解惑,謝謝。
Sub slope_analysis()
Dim k_gap, percentile_lbound_value, percentile_ubound_value
Dim ary0(33000), ary1(33000), ary2(33000), ary3(3500), ary4(3500), _
ary5(30), ary6(30), ary7(500, 3)
Dim i&, j&, k&, m&, n&, p&
'60=3個月;120=6個月;180=9個月;250=1年;500=2年;750=3年;1000=4年;_
1250=5年
'1500=6年;1750=7年;2000=8年;2250=9年;2500=10年
k_gap = 0.05
j = 1
For i = 1 To 33000
If Cells(6 + i, 5) <> "" Then
ary0(j) = Cells(6 + i, 5)
j = j + 1
End If
Next
'zzz=百分比上限;xxx=歷史天數;yyy=未來天數
For zzz = 0.95 To 1 Step k_gap
For xxx = 250 To 2500 Step 250
n = 0
Erase ary5, ary6
For yyy = 625 To 1250 Step 125
'若第i日前x天且後y天不超過資料範圍,則分別寫入第i日前x天與 _
後y天的報酬率
k = 0
m = 0
Erase ary1, ary2, ary3, ary4
For i = 1 To j - 1
If i - xxx > 0 And i + yyy <= j - 1 Then
ary1(i) = (ary0(i) - ary0(i - xxx)) / ary0(i - xxx)
ary2(i) = (ary0(i + yyy) - ary0(i)) / ary0(i)
k = k + 1
End If
Next
'求得歷史報酬率樣本中第i個百分比之下限值與第j個百分比之上限值
If zzz - k_gap = 0 Then
percentile_lbound_value = WorksheetFunction.Min(ary1)
Else
percentile_lbound_value = _
WorksheetFunction.Percentile(ary1, zzz - k_gap)
End If
If zzz = 1 Then
percentile_ubound_value = WorksheetFunction.Max(ary1)
Else
percentile_ubound_value = _
WorksheetFunction.Percentile(ary1, zzz)
End If
'將歷史報酬率在百分比上下限內之值寫入
For i = 1 + xxx To k + xxx
If ary1(i) > percentile_lbound_value And ary1(i) <= _
percentile_ubound_value Then
ary3(m) = ary1(i)
ary4(m) = ary2(i)
m = m + 1
End If
Next
ary5(n) = WorksheetFunction.Correl(ary3, ary4)
ary6(n) = n + 1
n = n + 1
Next yyy
ary7(p, 0) = zzz - k_gap
ary7(p, 1) = zzz
ary7(p, 2) = xxx
ary7(p, 3) = WorksheetFunction.Slope(ary5, ary6)
p = p + 1
Next xxx
Next zzz
For i = 0 To 500
Cells(6 + i, 9) = ary7(i, 0)
Cells(6 + i, 10) = ary7(i, 1)
Cells(6 + i, 11) = ary7(i, 2)
Cells(6 + i, 12) = ary7(i, 3)
Next
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.239.180.109
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1461373035.A.436.html
... <看更多>