全球EXCEL高階函數與大數據VBA自動化研習班(進階班二班)
上課內容：
01_課前說明與課程簡介
02_串接手機號碼與REPT與LEN函數
03_用TEXT函數串接手機號碼
04_151擷取括弧中字串用FIND與MID與IFERROR函數
05_152分別擷取長寬高利用資料剖析切割資料
06_錄製巨集與產生按鈕
07_巨集修改與VBA說明
08_聯集與交集(OR與AND函數)
09_安養中心用TODAY與YEAR和DATEDIF函數
10_安養中心交集中有聯集
11_用DATEDIF計算員工實際年齡
12_產生年曆與格式化六日
14_範例樂透彩中獎機率統計
15_檢視與參照函數(VLOOKUP)
16_HLOOKUP函數
17_範例血型分析解答
18_股票配股稅率統計表定義名稱
19_股票配股稅率統計表用名稱查詢
20_範例九九乘法表
上課對象
具EXCEL基本操作從業人員
授課方法
先原則講解與上機實作，按部就班，由淺入深
課程前言
為因應大數據與務聯網與工業4.0的趨勢，辦公室從業人員若不能在EXCEL資料處理上提供效率或自動化，將無法準時下班。本課程從EXCEL函數高階應用，到VBA自訂函數與一件完成報表為目標，讓工作效率大大提升，並學會EXCEL
VBA專業能力。
課程效益
1.建立EXCEL連結雲端資料庫應用觀念
2.進階靈活使用EXCEL函數
3.學會EXCEL的各種高階函數
4.用VBA自訂工作所需函數，並與同事分享
5.學會一鍵自動化輸出報表
課程大綱
1.大數據文字和資料函數如何轉VBA與自訂函數
2.大數據重要邏輯函數應用與轉換成VBA
3.大數據重要日期和時間函數應用與轉換成VBA
4.大數據重要數學函數與應用轉換成VBA
5.大數據重要尋找與參照函數應用與轉換成VBA
完整影音
http://goo.gl/aQTMFS
教學論壇(之後課程會放論壇上課學員請自行加入)：
https://groups.google.com/forum/#!forum/tcfst_excel_vba2019
懶人包：
EXCEL函數與VBA http://terry28853669.pixnet.net/blog/category/list/1384521
EXCEL VBA自動化教學 http://terry28853669.pixnet.net/blog/category/list/1384524
新課程EXCEL VBA辦公自動化順利在自強基金會開始第一次上課，
主要目標能延續入門課程，進一步延續前課程，把函數變成VBA，
VBA設計自動化與VBA與資料庫當成重要課程目標。
課程理念：
1.熟悉EXCEL內建各類別250幾個函數(理解代替死背)
2.從函數到VBA設計(Sub)與自訂函數(Function)
3.錄製巨集與編修VBA程式
4.學會VBA的重要使用技巧(變數、迴圈與邏輯)
5.學會VBA表單設計與將EXCEL當資料庫
6.學會快速下載網頁資料(巨集錄製、迴圈、邏輯)
7.用EXCEL做銷貨單
8.EXCEL建立查詢系統(地址合併)
9.延伸進階課程資料庫、多工作表、工作簿、網路爬蟲等應用
10.與Python程式協同應用
上課用書：
Excel VBA一點都不難：一鍵搞定所有報表
作者： Excel Home
出版社：博碩
出版日期：2013/06/26
定價：380元
超圖解 Excel VBA 基礎講座
作者： 亮亨/譯 出版社：旗標
出版日期：2006/05/15 定價：420元
日本Amazon網站同類書籍銷售No.1
吳老師 108/11/8
函數,東吳進修推廣部,自強基金會,程式設計,線上教學excel vba教學電子書,excel vba範例,vba語法,vba教學網站,vba教學講義,vba範例教學,excel vba教學視頻
vba尋找工作表名稱 在 [VBA ] 檢查工作表是否存在- 看板Visual_Basic - 批踢踢實業坊 的推薦與評價
各位板上的大大好
最近有個需求是要"檢查excel中是否有某個名稱的工作表存在"
找了一些資料 先是找到這篇 寫了版本一
https://tinyurl.com/y7sag5k5
------------------------------我是版本一------------------------------
Sub sheet_check_error()
sheetname = "Sheet2"
If Sheets(sheetname) Is Nothing Then
MsgBox ("工作表:" & sheetname & "不存在，請查看是否有拼錯字")
Else
MsgBox ("工作表:" & sheetname & "存在,將轉至該工作表")
ActiveWorkbook.Sheets(sheetname).Activate
End If
End Sub
----------------------------------------------------------------------
後來又找到這篇 抄出了版本二
https://tinyurl.com/y9w7pk6o
------------------------------我是版本二------------------------------
Function checkSheetName(sheetname)
'檢查活頁是否存在
isfind = False
For Each st In Sheets
If st.Name = sheetname Then
isfind = True
Exit For
End If
Next
checkSheetName = isfind
End Function
Sub sheet_check_correct()
sheetname = "Sheet2"
If checkSheetName(sheetname) = False Then
MsgBox "工作表:" & sheetname & "不存在，請查看是否有拼錯字"
Else
MsgBox ("工作表:" & sheetname & "存在,將轉至該工作表")
End If
End Sub
----------------------------------------------------------------------
會寫兩個版本 代表版本一有問題@@
先附上上述兩巨集所在的excel截圖 只存在一個工作表
然後附上版本一執行結果&error提示
最後附上版本二執行結果
找了之前的程式 發現前輩的巨集中有與版本一一樣寫法 那個程式現在也可以跑
但是現在重寫忽然就不行了
想請問各位大大
版本一到底是錯在哪@@?
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.240.1.143
※ 文章網址: https://www.ptt.cc/bbs/Visual_Basic/M.1542895522.A.1A9.html
另外再請問
On Error Resume Next
是不是可以套用在各種類似的錯誤中？
覺得vba最大的困擾就是找不到error在哪@@
※ 編輯: BanPeeBan (180.217.211.34), 11/23/2018 12:37:25
※ 編輯: BanPeeBan (180.217.211.34), 11/25/2018 14:24:37
... <看更多>