文大Python程式入門或證照第5次PYTHON轉VBA&改為Cells物件與事件驅動和除錯&自訂表單&啟動表單程式撰寫隨活頁簿啟動&範例BMI改用VB&MONTHCAI改為VBA版本&串列型態與輸入成績練習&讀取外部檔案與切割到串列&讀取檔案與計算成績
上課內容：
01_重點回顧與PYTHON轉VBA
02_PYTHON轉VBA細節說明
03_將輸入輸出改為Cells物件與事件驅動和除錯
04_將輸入輸出改為自訂表單
05_自訂表單加入元件設計說明
06_自訂表單程式撰寫與ENTER轉為按鈕
07_啟動表單程式撰寫隨活頁簿啟動
08_範例BMI改用VBA說明
09_用Range物件取得值與表單設計
10_九九乘法表改用VBA輸出
11_MONTHCAI改為VBA版本
12_串列型態與輸入成績練習
13_串列型態與計算總分與平均
14_讀取外部檔案與切割到串列
15_讀取檔案與計算成績
完整影音
http://goo.gl/aQTMFS
教學論壇(之後課程會放論壇上課學員請自行加入)：
https://groups.google.com/forum/#!forum/pccu_python_2018_2
懶人包：
EXCEL函數與VBA http://terry28853669.pixnet.net/blog/category/list/1384521
EXCEL VBA自動化教學 http://terry28853669.pixnet.net/blog/category/list/1384524
TQC+Python證照目錄：
Python 第1類：基本程式設計
技能內容：變數與常數、指定敘述、標準輸入輸出、運算式、算術運算子、數學函式的應用、格式化的輸出Python 第2類：選擇敘述
技能內容：if、if...else、if…elif
Python 第3類：迴圈敘述
技能內容：while、for…in
Python 第4類：進階控制流程
技能內容：常用的控制結構、條件判斷、迴圈
Python 第5類：函式(Function)
技能內容：函式使用、傳遞參數、回傳資料、內建函式、區域變數與全域變數
Python 第6類：串列(List)的運作(一維、二維以及多維)
技能內容：串列的建立、串列的函式、串列參數傳遞、串列應用
Python 第7類：數組（Tuple）、集合（Set）以及詞典（Dictionary）
技能內容：數組、集合、詞典的建立、運作及應用
Python 第8類：字串(String)的運作
技能內容：字串的建立、字串的庫存函式、字串的應用
Python 第9類：檔案與異常處理
技能內容：文字I/O、檔案的建立、寫入資料與讀取資料、二進位I/O、編碼（Encoding）、異常處理
課程簡介：入門
建置Python開發環境
基本語法與結構控制
迴圈、資料結構及函式
VBA重要函數到Python
檔案處理
資料庫處理
課程簡介：進階
網頁資料擷取與分析、Python網頁測試自動化、YouTube影片下載器
處理 Excel 試算表、處理 PDF 與 Word 文件、處理 CSV 檔和 JSON 資料
實戰：PM2.5即時監測顯示器、Email 和文字簡訊、處理影像圖片、以 GUI 自動化來控制鍵盤和滑鼠
上課用書：
參考書目
Python初學特訓班(附250分鐘影音教學/範例程式)
作者： 鄧文淵/總監製, 文淵閣工作室/編著
出版社：碁峰? 出版日期：2016/11/29
吳老師 107/12/3
EXCEL,VBA,Python,文化推廣部,EXCEL,VBA,函數,程式設計,線上教學,PYTHON安裝環境
vba 指定 活頁簿 在 [算表] vba選取所有工作表並移到新的活頁簿- 看板Office 的推薦與評價
軟體:Excel 2010
參考網路教學選取不同活頁簿的單一工作表並移到新的活頁簿後,
嘗試用錄製巨集選取不同活頁簿的所有工作表並移到新的活頁簿,
黃字為我覺得要修改的部分,
因不同活頁簿中工作表數目都不同,名稱也不一樣,
請問要怎麼修改黃字的語法?
' openfile2 巨集
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
ActiveCell.Value, TextToDisplay:= _
ActiveCell.Value
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Sheets(Array("sheet1", "sheet2", "Sheet3")).Select
Sheets("sheet1").Activate
Sheets(Array("sheet1", "sheet2", "Sheet3")).Copy
Before:=Workbooks("Sbin map_(Security C).xlsm").Sheets(2)
Sheets("工作表1").Select
Windows(ActiveCell.Value).Activate
ActiveWindow.Close
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.39.24.62
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1459659498.A.ED8.html
Sheets.Select
Sheets.Copy
這樣會變成第一行出現error
※ 編輯: scynic (114.47.87.210), 04/06/2016 21:44:38
... <看更多>