HSIEN6001

回復 20# devidlin


    主要是學看巨集編輯方式,不是整隻奉送,有點抱歉!
學習之路~~一起加油囉!

c_c_lai

回復 20# devidlin
請打開開發人員->Visaul Basic 你就看得到程式執行內容了！

HSIEN6001

說真的~W大很希望刺激我出來說明
只好跳出來PO一下自己的統計---->以示清白
不是來競技,也不是踢(W大的帖);更不希望有人在此拼命踢館--->(傷眼)
深知自己的下載有空間改進;所以拼命學習改進
而不是為了挑毛病 or 表現自己

為免喋喋不休
PO在自己的發問裡好了
希望就此打住!

下載 (101.66 KB)

2012-8-5 12:28

HSIEN6001

不好意思! ~~學習都在網路上得來的
所以,常保感恩心 & 謙卑的心情
一切都在學習中

下載 (331.59 KB)

2012-8-5 12:37

lalalada

回復 24# HSIEN6001

咦 這是你下載下來的交易明細嗎
原來0050之類的也有 沒注意到
我也來試過用htm下載
只是不知道怎麼處理他...

lalalada

回復 24# HSIEN6001

你好~
請問你#24 po的那個(券市商xxx)的資料內容資料內容就是#23的貼圖嗎
所以是根據每天下載下來的交易明細進行整理?
可以說一下是怎麼做的嗎?
如果對每一支股票全部整理的話會耗時很久吧?
我目前只能針對有興趣的股票整理 因為太花時間...所以想請問一下做法

HSIEN6001

回復 26# lalalada


無論是xls 或 htm ,格式雖然沒有在相同點
同樣可處理,就是指定給它統計的欄位而已
全部整理統計沒正確看時間捏! (30分?!)
若應用VBA,相信會更快

先前討論位置，留給看倌們自行參考：
http://forum.twbts.com/thread-6451-1-1.html
http://forum.twbts.com/thread-6349-1-1.html

HSIEN6001

分享前,首先謝謝 diabo 大解惑,才能繼續這不同的思路

如先前 [券商買賣日報明細] 下載之延伸題:

若下載回來的是htm格式
可以試試這個轉檔xls
小的一直在學習中,拙劣的東西 或 卑微的思路
就僅供大家~~參考!參考!
~別見笑^_^!!

因為上載有1MB限制
故挑選幾家特別的股票代號,以供測試
htm轉xls.rar (81.17 KB)

下載次數: 44

2012-8-9 11:10

HSIEN6001

回復 28# HSIEN6001

如上
'代號與名稱拆解,視個人需求;此段可省
Dim i%, strn$, Rng As Range
    Application.ScreenUpdating = False
    Set Rng = Range("F3")
            For i = 1 To Len(Rng)
                strn = Mid(Rng, i, 1)
                If Not IsNumeric(strn) Then
                    Rng.Offset(0, 1) = "'" & Mid(Rng, 1, i - 1)
                    Rng.Offset(0, 2) = Mid(Rng, i)
                    Exit For
                End If
            Next i
    Application.ScreenUpdating = True
   
'代號與名稱拆解，這段語法也可參考GBKEE的Code
    Dim i%, Rng As Range
    Application.ScreenUpdating = False
    Set Rng = Range("F3")
    Do
        For i = 1 To Len(Rng)
            If Not IsNumeric(Mid(Rng, i, 1)) Then
                Rng.Offset(0, 1) = "'" & Mid(Rng, 1, i - 1)
                Rng.Offset(0, 2) = Mid(Rng, i)
                Exit For
            End If
        Next i
            Set Rng = Rng.Offset(1)
    Loop Until Rng = ""
    Application.ScreenUpdating = True

lalalada

回復 29# HSIEN6001

感恩!
目前正在修改程式碼中
等等就可以實驗了^_^