12
返回列表 上一主題 發帖

台股月營收

diabo

帖子
79 
主題
2 
精華
0 
積分
193 
點名
0  
作業系統
Winwos 7 64 bits 
軟體版本
Excel 2003/2007 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-8-25 
最後登錄
2019-9-20 
11# 跳轉到 »
發表於 2012-8-3 00:16 | 只看該作者
回復 10# devidlin

公告每月營收為台灣特有的制度，屬「資訊揭露」，(目前) 合併營收為非強制項目，2317 雖有公告合併財報，但並沒有自願公告「合併營收」.....所以看不到....不過這跟Excel VBA無關
diabo

TOP

chen_cook

帖子
81 
主題
2 
精華
0 
積分
95 
點名
194  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-29 
最後登錄
2025-7-13 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
12#
發表於 2012-8-3 05:01 | 只看該作者
回復 10# devidlin


    請找給你作法答覆的人吧!!我的方法是上面的巨集!!

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
13#
發表於 2012-8-9 07:41 | 只看該作者
回復 7# chen_cook
你好 ,個別月份可以用,謝謝!!

但是  連續抓 的COD中,我不明白下二列的語法, 如可以話請說明!!

y$ = Range("B1"): m$ = Range("C1"): Ey$ = Range("D1"): Em$ = Range("E1") 'B1&C1 始年月 E1&D1 終年月

  x = 0: Sheets.Add.Name = "sample": Sheets("sheet1").Select

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2012-8-9 08:17 | 只看該作者
回復 13# tsuneng
   :   是連接 下一個 程式碼 的符號
同
  1. y$ = Range("B1")
  2. m$ = Range("C1")
  3. Ey$ = Range("D1")
  4. Em$ = Range("E1")    'B1&C1 始年月 E1&D1 終年月
  5. x = 0
  6. Sheets.Add.Name = "sample"
  7. Sheets("sheet1").Select
複製代碼

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
15#
發表於 2012-8-9 11:03 | 只看該作者
回復 14# GBKEE
謝謝GBKEE大大!!

明白你的說明, 修改後 RUN時會自動增加sheets("samlpe")及Sheets(sheet4).Sheets(sheet5).Sheets(sheet6).......
但是無法抓到資料,
會卡在 Sheets.Add.Name = "sample"

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
16#
發表於 2012-8-10 11:49 | 只看該作者
回復 14# GBKEE

謝謝 chen_cook &  chen_cook  大大,

我己試OK ! 感恩!!

TOP

        靜思自在 : 【時間如鑽石】時間對一個有智慧的人而言，就如鑽石般珍貴；但對愚人來說，卻像是一把泥土，一點價值也沒有。
12
返回列表 上一主題