《購書方案》
【方案1】(活動只到8月底)
買2本的加入FB不公開社團與我們討論，並取得EXCEL範例檔案，請從下面的連結，前往Money錢官網購書
https://goo.gl/31qBeW
看財報不抓狂 1分鐘找出好股票-讀友服務社團
(申請加入FB社團，記得答覆三個問題，以利加速審核)
https://www.facebook.com/groups/1554271651296044/
※※※不是Money錢的會員，請先註冊會員※※※
http://www.moneynet.com.tw/member_join.php
【方案2】
買1本的請從部落格連結前往博客來購書....
http://tivo168.pixnet.net/blog/post/459111280
《用好工具提高投資效率》
在1983 年個人電腦作業系統還是DOS 時期，Lotus 1-2-3 這個軟體因為擁有強大的試算表（Spreadsheet）、圖形整合及簡易資料庫等3 大功能，加上運算速度快，很快就成為銷售最好的殺手級應用軟體。
1987 年第1 款適用於Windows 系統的Excel 誕生後， 情況才逐漸發生變化， 到了1988 年，Excel 的銷量超過了Lotus 1-2-3。1993 年Excel 第一次被綁進Microsoft Office 中， 開始支援Visual Basic for Applications（VBA），自此Excel 在商用市場的地位就難以撼動了。
在2003 年推出Excel 2003 版後，Excel 基本功能的變動就不大，熟悉基本函數與VBA，就可以輕易解決工作或投資理財上各種煩人的難題。
在薪水不漲的年代裡，「投資理財」早就是離開學校後每個人必學的能力，想要參與投資理財，那麼蒐集、分析、試算能力是絕對必要的，因此Excel 可說是投資人必備的工具軟體，花費時間在Excel 學習上，絕對值得。
閱讀本書Excel 實作章節的讀者，並不需要先擁有特別的知識，只要依據書中的實作章節內容一步一步學習，很快就能有一個Excel 版的客製化財務報表分析工具可以使用。
在極短的時間內有了成果，自然會有動力持續不斷地學習下去，這也是筆者的目的，希望大家都能擁有基本的Excel 技能，必定會對個人的投資或工作領域有所助益。
好友Finance168 從事財務分析工作30 餘年，致力於將複雜的財務報表，用簡單易懂的方式介紹給初學者，有了簡單易懂的財務分析方法後，如果每一家公司都要花上好幾個小時的時間，去蒐集數據、分析數據及繪製圖表，恐怕會讓大家打退堂鼓，放棄這麼好的學習機會。
因此我利用Excel 內建的功能，整合WEB 查詢功能及VBA 程式碼⋯⋯幫大家做到只要打開Excel 檔案，輸入公司代碼，就可以讓Excel 自動將券商在網頁上免費提供的財務報表相關數據複製到工作表上，再利用儲存格公式進行計算、分析及繪製完整的趨勢圖表，整個過程花不到1 分鐘，連沖1 杯咖啡的時間都不到，讓大家很輕鬆就能對不同公司進行財務報表分析的練習。
tivo168
http://tivo168.pixnet.net/blog/post/459111280
excel vba抓儲存格資料 在 Re: [算表] 如何用VBA抓儲存格的值而非公式結果- 看板Office 的推薦與評價
※ 引述《nifa (沒有人)》之銘言：
: 標題: [算表] 如何用VBA抓儲存格的值而非公式結果
: 時間: Thu Mar 5 17:54:19 2015
:
: 軟體:Excel
:
: 版本:2010
:
: 因為公司需求
:
: 1.
: 想把業務的出貨列表以當天為準
: 往後一星期的值抓出來列印
:
: 2.
: 之後會再把各業務的一星期內的表(一個業務一個檔案)
: 整合到一個工作表內並排序
:
: =========================
:
: 目前是先做第一步的部分
:
: 我是用VBA按鈕去寫
: 按下去後會用篩選的方式先列出一星期內的內容
: 然後再逐筆 copy 到另一個工作表
: 之後取消篩選，內容如下
:
: Private Sub testsend_Click()
:
: Dim Sht As Worksheet
: Dim rng As Range
: Dim a As Integer
:
: With Sheets("排程表") '在Orders工作表中
:
: Set rng = .UsedRange '所有資料範圍
: rng.AutoFilter Field:=2, Criteria1:=Array("15.02.09", _
: "15.02.10", _
: "15.02.11", _
: "15.02.12", _
: "15.02.13", _
: "15.02.14", _
: "15.02.15"), _
: Operator:=xlFilterValues '篩選出日期
:
: Set Sht = Sheets("一週交期")
: a = Sht.Range("a1048576").End(xlUp).Row '定位最後一列非空白列的值
:
: For i = 2 To Sheets("排程表").Range("b1048576").End(xlUp).Row '依列數跑迴圈
: If Range("B" & i) <> "" Then
: a = a + 1 '每次都重新定位最後一列空白列的值
: For j = 1 To Sheets("排程表").Range("a1").End(xlToRight).Column '依欄數跑迴圈
: Set rng = Sht.Cells(a, j)
: rng = Sheets("排程表").Cells(i, j) '若不為寄送格則複製原內容
: Next
: End If
: Next
:
: AutoFilterMode = False
:
: End With
:
: End Sub
:
: 這部分寫來測試的是沒有問題，但是因為目前的 array 內用的是固定值
: 而我需求的是希望用 today(),today()+1,today()+2 這樣去做
: 目前我是用取巧的方式，另外開一個 sheet
: a1 - a7 填上 today(),today()+1...這樣
: 然後用格式化條件變成 15.02.09 , 15.02.10 , 15.02.11 的格式
:
: 但是當用 VBA 抓儲存格的值
:
: sheets"日期參數用".cells(1,1)
:
: 來對照時
: 抓出來的值會是 2015/2/9 這樣而非 15.02.09
:
: 可是我們公司日期輸入方式又偏偏是非制式的 yy.mm.dd
: 而非 yy/mm/dd，這樣一來如果要拿抓出來的值當篩選條件
: 會是 2015/2/9 這樣，無法使用
:
: 所以想請問是否有方法可以抓取儲存格"顯示出來的字"
: 而非是抓取公式運算的值呢 ?
:
: 另外 2. 的部分
: 在網路上跟板內搜尋過
: 可是效果跟我想要的有些出入
: 想一併請教是否有可以參考的解決方法呢 ?
:
:
: --
:
: 上PTT純粹是慌亂生活中忙碌時間裡緊張壓力下微不足道的我們唯一偷偷能做到的
: 忙裡偷閒下的快樂時光用來放鬆慌亂生活中忙碌時間裡緊張壓力下微不足道的我
:
: --
: ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 61.62.220.207
: ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1425549263.A.E62.html
: → soyoso: 用format()來轉換成yy.mm.dd的格式 03/05 18:20
: 推 EGsux:
: → soyoso: 問題2.一個業務一個檔來看，步驟開檔workbook.open 03/05 18:27
: → soyoso: 將開啟檔案內特定工作表內的資料copy到另一個工作表內 03/05 18:28
: → soyoso: sheet().usedrange.copy，關檔workbook.close 03/05 18:29
: → soyoso: 排序range.sort 03/05 18:30
非常感謝 so 大跟 EG 大的幫忙
一次性解決了我的問題 XD
經過這幾天的努力，問題 1 總算是完美解決了 XD
這邊順便將我修改後程式 po 上
供以後若有同樣需求的板友參考
Private Sub testsend_Click()
Sheets("一週交期").Range("a2:r500").Clear '先清空一週交期的內容
Dim day(6) As String
Dim a As Integer 'for 日期用
Dim b As Integer 'chk 用
Dim c As Integer '第一個日期的列數
Dim d As Integer '定義篩選後有資料的最後一列位置
Dim e As Integer '目的工作表的最後一列空白列
Application.ScreenUpdating = False
b = 0
For a = 0 To 6 '定義 e 為 7 天內的日期
Do
day(a) = Format(Date + b, "yy.mm.dd")
Set chk = Worksheets("排程表").Range("b:b").Find(day(a))
b = b + 1
Loop While chk Is Nothing '檢查日期是否為空值，若為空值則日期向後一天並重覆迴圈
If a = 0 Then '抓出第一個日期的列數
c = chk.Row
End If
Next
With Sheets("排程表")
Set rng = .UsedRange '自動篩選範圍為所有資料範圍
rng.AutoFilter Field:=2, Criteria1:=Array(day(0), _
day(1), _
day(2), _
day(3), _
day(4), _
day(5), _
day(6)), _
Operator:=xlFilterValues '篩選出日期
d = Sheets("排程表").Range("a1048576").End(xlUp).Row '定義篩選後有資料的最後一列位置
e = Sheets("一週交期").Range("a1048576").End(xlUp)(2).Row '目的工作表的最後一列空白列
Sheets("排程表").Range("A" & c & ":R" & d).Copy Sheets("一週交期").Range("A" & e)
AutoFilterMode = False
End With
End Sub
除了將當天日期往後七天內的資料抓出來外
另外加上了若使用 find 找到的日期為工作表內未輸入的日期(例假日等)
將自行跳過，並由之後的日期遞補上，以免程式錯誤
簡單來說就是，抓出來的七天日期會是排除了假日後的有效日期
至於問題 2 嘛，正在測試中 XD
--
上PTT純粹是慌亂生活中忙碌時間裡緊張壓力下微不足道的我們唯一偷偷能做到的
忙裡偷閒下的快樂時光用來放鬆慌亂生活中忙碌時間裡緊張壓力下微不足道的我
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.192.132.72
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1425788577.A.5DD.html
... <看更多>