2020年10月24日 星期六

Excel Vba 如何整理股權分散表(集保庫存) 二、進階篩選(AdvancedFilter )個股+迴圈=多個股股權分散表(集保庫存)篩選

如果你有一個清單的個股要個別整理集保庫存,那就加個迴圈吧!!!

步驟:

1.先作個按鈕,小編是用ACTIVEX的命令按鈕作控制。

2.小編是直接在集保庫存的檔案上作撰寫的,所以選了H行作股票代號輸入,隨便輸入了5筆。(參圖1.)

image​圖1.

3.撰寫VBA:

小編使用DO WHILE LOOP迴圈,透過 ActiveSheet.Range("H" & I)判斷是否還有股票代號,不等於空白表示還有,就迴圈持續跑下去摟。

Private Sub CommandButton1_Click() 

I = 1

Do While ActiveSheet.Range("H" & I) <> ""

    ActiveSheet.Range("I2") = ActiveSheet.Range("H" & I) 

'每次迴圈執行的股票代號

    Call 進階篩選個股

    I = I + 1  'I是控制取得ActiveSheet.Range("H" & I)儲存格資料的步進值
    
   ActiveSheet.Range("K:P").Clear '清除前回執行結果
    
Loop

End Sub

以下這個副程式怎來的,參: Excel Vba 如何整理集保庫存 一、進階篩選個股


Sub 進階篩選個股()

ActiveSheet.Columns("A:F").AdvancedFilter Action:=xlFilterCopy, _

CriteriaRange:=ActiveSheet.Range("I1:I2"), CopyToRange:=ActiveSheet.Range("K1"), Unique:=False

End Sub


image

圖1.迴圈版的集保庫存

下一篇:Excel Vba 如何整理集保庫存 三、依照檔案別整理個股集保庫存

整理示意:

image

沒有留言:

張貼留言

指數變化(2024.06.07)

 指數變化(2024.06.07) 上周焦點:      5/9當周焦點                          事實:fed與非農就業,引起投資市場對降息有加速,但肯定的是,fed說不加息了。                        美國密西根大學信心指數 再次...