
彼得林區 把公司分為六大類 ( 緩慢成長股、穩定成長股、快速成長股、景氣循環股、轉機股、資產股 ),面對不同類型的公司有不同的研究、分析及操作手法 。
玩技術分析的玩家,面對股價趨勢是上升下降 or 盤整,也會採用不同的指標幫助操盤。
因為平常上班工作繁重,平常不可能長時間盯盤,所以也是中午用餐時看看基本面、產業新聞來幫助判斷操作,所以習慣上是將類股作比較,選擇類股中基本面較好的股票作買進。
上市的台股有1000多檔,要怎麼將它們分類,做為財報分析比較的依據呢?
處分土地收益、金融資產投資、權益法的投資損益及匯兌收益和損失,看似與上市櫃本業無關,但麻煩處在於這些多屬單次事件,不見得年年都有,但只要一發生,就直接影響本期淨利及 EPS ( p.71 )
'''''''''''''''''''''''''''''' IFRS 前 '''''''''''''''''''''''''''''''
'資產負債表
'http://mops.twse.com.tw/mops/web/ajax_t05st31?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=2330&year=89&season=01
'
'資產負債表 (合併)
'http://mops.twse.com.tw/mops/web/ajax_t05st33?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=2330&year=94&season=02
'
'損益表
'http://mops.twse.com.tw/mops/web/ajax_t05st32?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=2330&year=89&season=01
'損益表 (合併)
'http://mops.twse.com.tw/mops/web/ajax_t05st34?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=2330&year=94&season=02
'
'現金流量表
'http://mops.twse.com.tw/mops/web/ajax_t05st36?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=2330&year=89&season=01
'
'現金流量表 (合併)
'http://mops.twse.com.tw/mops/web/ajax_t05st39?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=2330&year=94&season=02
'
'
''''''''''''''''''''''''''''''' IFRS 後 '''''''''''''''''''''''''''''''
'資產負債表 (合併)
'http://mops.twse.com.tw/mops/web/ajax_t164sb03?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=2330&year=102&season=01
'
'損益表 (合併)
'http://mops.twse.com.tw /mops/web/ajax_t164sb04?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=2330&year=102&season=01
'
'現金流量表 (合併)
'http://mops.twse.com.tw/mops/web/ajax_t164sb05?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=2330&year=102&season=01
Function GetURL1(index As String, year As Integer, urlStr)
Select Case index
Case "BS"
If year < 2013 Then
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t05st31?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
Else
urlStr = "2012 IFRS 前才有 BS 資料"
Debug.Print "Error in Case BS"
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t05st31?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
End If
Case "BSc"
If year < 2013 Then
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t05st33?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
Else
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t164sb03?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
End If
Case "IS"
If year < 2013 Then
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t05st32?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
Else
urlStr = "2012 IFRS 前才有 IS 資料"
Debug.Print "Error in Case IS"
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t05st32?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
End If
Case "ISc"
If year < 2013 Then
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t05st34?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
Else
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t164sb04?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
End If
Case "CF"
If year < 2013 Then
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t05st36?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
Else
urlStr = "2012 IFRS 前才有 CF 資料"
Debug.Print "Error in Case BS"
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t05st36?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
End If
Case "CFc"
If year < 2013 Then
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t05st39?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
Else
urlStr = "http://mops.twse.com.tw/mops/web/ajax_t164sb05?encodeURIComponent=1&step=1&firstin=1&off=1&keyword4=&code1=&TYPEK2=&checkbtn=&queryName=co_id&TYPEK=all&isnew=false&co_id=[STOCK_ID]&year=[YEAR]&season=[QUARTER]"
End If
Case Else
urlStr = "index 必需為 BS/BSc/IS/ISc/CF/CFc"
Debug.Print
End Select
End Function