東吳EXCEL VBA與資料庫雲端設計116第1次(VBA直接輸出與VBA裡函數與練習151擷取括弧中字串)
上課內容:
01_重點回股與VBA撰寫
02_自行VBA撰寫流程說明
03_加上迴圈與列變數
04_VBA直接輸出與VBA裡函數說明
05_VBA程式除錯與自訂函數
06_練習151擷取括弧中字串說明
07_用FIND與MID與IFERROR函數切字串
08_改為用VBA輸出公式與清除
09_改為用VBA函數規則輸出結果
10_存成XLSM檔案格式
完整教學
http://goo.gl/aQTMFS
吳老師教學論壇
http://www.tqc.idv.tw/
教學論壇(之後課程會放論壇上課學員請自行加入):
https://groups.google.com/forum/?hl=zh-TW#!forum/excel-vba-116
懶人包:
EXCEL函數與VBA http://terry28853669.pixnet.net/blog/category/list/1384521
EXCEL VBA自動化教學 http://terry28853669.pixnet.net/blog/category/list/1384524
課程簡介
五大類函數與自訂函數
一、文字和資料函數
二、邏輯函數
三、日期和時間函數
四、數學和三角函數
五、檢視和參照函數
其他綜合範例
上課用書:
Excel VBA一點都不難:一鍵搞定所有報表
作者: Excel Home
出版社:博碩
出版日期:2013/06/26
定價:380元
超圖解 Excel VBA 基礎講座
作者: 亮亨/譯 出版社:旗標
出版日期:2006/05/15 定價:420元
日本Amazon網站同類書籍銷售No.1
吳老師 110/7/12
函數,東吳進修推廣部,自強基金會,程式設計,線上教學excel vba教學電子書,excel vba範例,vba語法,vba教學網站,vba教學講義,vba範例教學,excel vba教學視頻
![post-title](https://i.ytimg.com/vi/gn5AE-4XRN8/hqdefault.jpg)
excel不規則字串擷取 在 [算表] 如何擷取不規則的txt內容到excel? - 看板Office 的推薦與評價
軟體:EXCEL
版本:2003
因為我沒寫過VBA,學VB也是10年前的事,所以在這個版問這些問題可能有點蠢
希望大家見諒
先總結我的問題,怕底下內容耽誤大家時間,如果想看在繼續往下看
我想問以下這些語法
1.VBA 呼叫txt檔的語法
2.讀取txt檔某行的語法
3.判斷某行的首字的語法
4.抓txt檔某行資料到excel檔某欄的語法
<< 我要處理的問題如下 >>
假設我有一份從資料庫匯出的TXT檔,內容如下:
=== TXT檔內容開始 ======================================
姓名
----------------------------
電話 分機
----- ----
公司名稱 內容說明(非txt檔內容)
----------------------------
張三 '姓名字數固定一致
1111111 0001 '電話跟分機的字數也是固定一致
大大公司 '公司名稱的字數不一定
李四
2222222 0204
中中中公司
姓名
----------------------------
電話 分機
----- ----
公司名稱
----------------------------
'(不規則情形)這裡跟上面對照,多了一行空白
趙五
3333333 0303
小公司
錢六
4444444 0102
'(不規則情形)這裡跟上面對照,公司名稱
姓名 被擠到下一欄
----------------------------
電話 分機
----- ----
公司名稱
----------------------------
包賺錢公司
GG '自己加入GG字樣在最後一行,
'讓迴圈知道要結束
===== TXT檔內容結束 ==========================
我想把資料抓到excel檔,變成橫向的欄位如下
姓名 電話 分機 公司名稱
_____ _____ _____ __________
張三 1111111 0001 大大公司
我目前的想法是,用一個迴圈控制行數,逐行讀取
另一個迴圈控制橫向的資料輸入,因為txt檔內容是每3行為一筆完整資料
所以這個迴圈是1~3的循環
然後用case條件運算式判斷每行的第一個字元
如果是「姓、電、公、-」就離開case 回到迴圈執行下一行
如果是null,就離開case回到迴圈
如果都不是,就抓資料
如果是G(自己加入txt檔末的字),程式整個結束
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 117.56.247.7
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1479345693.A.1D4.html
... <看更多>