公告版位

目前分類:01_EXCEL函數與VBA (153)

瀏覽方式: 標題列表 簡短摘要

EXCEL函數與VBA入門大全(吳老師 2011-2014)


上課時間真的太有限,想多補充相關知識,但礙於時間不足,

所以特別整理老師從2011年以來上課的教學部落格文章給大家參考,

從最基礎的函數道進階函數,並進一步將之自動化成副程式自訂函數等。

發表時間

文章標題

2016-05-15

VBA處理大數據政府開放與快速做出查詢系統

2016-01-20

如何將大量EMAIL自動串接與用OUTLOOK自動批次寄信

2015-11-25

如何用VLOOKUP函數做飯店管理分享

2015-11-20

東吳進修廣部88期的EXCEL VBA課又額滿了

2015-09-25

如何計算年齡並格式化與用VLOOKUP查詢時數

2015-09-16

如何在EXCEL VBA中快速刪除空白列

2015-09-14

EXCEL VBA大數據自動化設計上課心得分享

2015-08-16

如何用EXCEL統計樂透彩中獎機率範例

2015-08-10

如何用COUNTIF函數篩選黑名單(無須撰寫VBA)

2015-07-22

如何將EXCEL公式改直接貼上修改為VBA

2015-07-18

如何用EXCEL VBA設計銷貨單將EXCEL當資料庫

2015-07-17

如何撰寫自動日期格式化的VBA程式

2015-07-17

如何增加EXCEL VBA按鈕(86)

2015-07-16

如何用VBA搜尋關鍵字後上色與複製到新工作表

2015-07-16

如何用VBA搜尋關鍵字後上色與複製到新工作表

2015-06-23

EXCEL函數與VBA設計第6次上課(證照106與110)

2015-06-22

如何增加EXCEL VBA按鈕

2015-06-22

如何利用日期函數製作年曆VBA範例

2015-06-21

如何用EXCEL VBA設計銷貨單分享

2015-06-21

如何學會欄列鎖定技巧與VBA設計之二(範例:大型試算表)

2015-06-21

如何學會欄列鎖定技巧與VBA設計之一(範例:大型試算表)

2015-06-20

從EXCEL函數到VBA自動化(函數應用大升級)

2015-06-15

如何將檢視與參照函數函數轉EXCEL VBA設計

2015-06-12

提高工作效率_黑名單篩選範例分享

2015-06-10

北市公訓處EXCEL函數進階班第1天上課

2015-06-10

公訓處EXCEL進階課程分享

2015-06-07

如何用VBA呼叫Outlook郵寄信件

2015-06-07

如何顯示進度狀態列(ProgressBar)

2015-05-15

提高效率VBA入門班第1次上課心得分享

2015-05-06

EXCEL VBA處理股票分析自動最佳化範例

2015-04-27

如何在EXCEL VBA中快速刪除空白列

2015-04-19

定存範例轉VBA與只能輸入數字的InputBox

2015-04-06

如何增加EXCEL VBA下拉選單與SQL查詢之01_如何增加下拉清單

2015-04-03

如何學會EXCEL VBA錄製與修改巨集系列之一

2015-04-01

EXCEL VBA入門:如何撰寫自動格式化的VBA程式(以日期格式為範例)

2015-03-04

EXCEL VBA入門之一:如何函數轉VBA(自強EXCEL函數與VBA設計)

2015-02-12

如何當下拉清單改變時自動抓取資料之一

2015-01-28

東吳EXCEL VBA 與資料庫雲端設計第1次上課(2014)

2015-01-27

如何自動刪除相同名稱的工作表

2015-01-16

EXCEL函數與VBA進階班總整理

2015-01-16

如何增加EXCEL VBA按鈕

2015-01-16

如何將EXCEL函數轉成VBA

2015-01-16

如何在VBA中建立EXCEL的自訂函數讓公式變簡單

2015-01-16

如何利用VLOOKUP函數與MID函數取得資料

2015-01-16

如何用EXCEL VBA設計銷貨單分享--從EXCEL函數到VBA雲端自動化(2014)

2015-01-16

如何用EXCEL VBA設計年曆範例分享--從EXCEL函數到VBA雲端自動化(2014)

2015-01-16

如何將數學函數轉EXCEL VBA設計之一(東吳EXCEL VBA與資料庫雲端設計)

2015-01-16

如何將檢視與參照函數函數轉EXCEL VBA設計(東吳EXCEL VBA與資料庫雲端設計)

2015-01-16

從EXCEL函數到VBA雲端自動化(2014)第2次上課

2015-01-16

從EXCEL函數到VBA雲端自動化(2014)第1次上課

2015-01-16

如何將日期函數轉EXCEL VBA設計(東吳EXCEL VBA與資料庫雲端設計)

2015-01-16

如何學會欄列鎖定技巧與VBA設計之一(範例:大型試算表)

2015-01-16

如何學會字串處理與VBA設計之一

2015-01-16

如何將數學函數轉EXCEL VBA設計之二(東吳EXCEL VBA與資料庫雲端設計)

2015-01-14

東吳EXCEL VBA 與資料庫雲端設計第1次上課(2014)

2014-10-13

東吳EXCEL VBA與資料庫雲端設計(如何用VBA設計年曆)

2014-07-13

東吳EXCEL VBA與資料庫雲端設計(如何用VBA設計年曆)

2014-07-13

東吳EXCEL VBA 與資料庫雲端設計第8次上課(2014)

2014-04-10

EXCEL函數與VBA提高工作效率第4次上課

2014-03-22

自強工業基金會EXCEL函數與VBA提高工作效率第1次上課(2014)

2014-03-22

東吳EXCEL VBA 與資料庫雲端設計第5次上課(2014)

2014-02-27

東吳EXCEL VBA 與資料庫雲端設計第1次上課(2014)

2014-02-05

EXCEL函數與VBA設計(勞大2013)總整理

2014-01-05

勞大EXCEL函數與VBA設計(2013)第16次上課

2013-12-31

勞大EXCEL函數與VBA設計(2013)第1次上課

2013-12-22

勞大EXCEL函數與VBA設計(2013)第14次上課

2013-12-02

EXCEL函數與VBA入門班總整理(自強基金會2011年_51Hr)

2013-10-12

勞大EXCEL函數與VBA設計(2013)第3次上課

2013-09-29

勞大EXCEL函數與VBA設計(2013)第1次上課

2013-08-25

東吳EXCEL函數與VBA課程分享(5)

2013-08-04

東吳EXCEL函數與VBA課程分享(2)

2013-04-08

EXCEL 函數與VBA設計(自強基金為2013)第1次上課

2012-10-27

如何把EXCEL"函數"變為 "VBA"?自強基金會2012第9次上課

2012-10-27

如何把EXCEL"函數"變為 "VBA"?自強基金會2012第8次上課

2012-09-05

桃園縣政府 EXCEL VBA入門班

2012-05-24

如何把EXCEL"函數"變為 "VBA"?自強基金會2012第9次上課

2012-05-10

如何把EXCEL"函數"變為 "VBA"?自強基金會2012第8次上課

2012-05-07

EXCEL函數與VBA設計(自強基金會2012)第5次上課

2012-04-11

如何把EXCEL"函數"變為 "VBA"?自強基金會2012第5次上課

2012-04-09

EXCEL函數與VBA進階班(自強基金會)第8次上課

2012-04-08

EXCEL函數與VBA進階班第7次上課

2012-04-08

EXCEL函數與VBA進階班第2次上課

2012-02-17

EXCEL函數與VBA進階班第12次上課

2012-02-17

EXCEL函數與VBA進階班第10次上課

2012-02-17

EXCEL函數與VBA進階班第9次上課

2012-02-17

EXCEL函數與VBA進階班(自強基金會)第8次上課

2012-02-17

EXCEL函數與VBA進階班第7次上課

2012-02-17

EXCEL函數與VBA進階班第6次上課

2012-02-17

EXCEL函數與VBA進階班第5次上課

2012-02-17

EXCEL函數與VBA進階班第4次上課

2012-02-17

EXCEL函數與VBA進階班第3次上課

2012-02-17

EXCEL函數與VBA進階班第2次上課

2011-12-09

公務人員訓練處EXCEL VBA程式設計第3次上課

2011-12-09

EXCEL函數與VBA進階班第11次上課

2011-12-09

EXCEL函數與VBA雲端班第9次上課

2011-12-09

EXCEL函數與VBA雲端班第7次上課

2011-12-09

EXCEL函數與VBA雲端班第4次上課

2011-12-09

EXCEL函數與VBA雲端班第3次上課

2011-12-09

EXCEL函數與VBA雲端班第2次上課

2011-12-09

提高工作效率會用EXCEL VBA真的差很多

2011-12-07

公訓處EXCEL進階課程分享

2011-11-28

EXCEL函數與VBA雲端班第1次上課

2011-11-28

自強基金會的EXCEL函數與VBA雲端班開課囉!

2011-11-28

台北市公訓處EXCEL函數進階班

2011-11-28

EXCEL函數與VBA設計第13次上課

2011-11-28

EXCEL函數與VBA設計第11次上課

2011-11-28

EXCEL函數與VBA設計第10次上課

2011-11-28

台北市公訓處EXCEL函數進階班

2011-11-28

EXCEL函數與VBA設計第8次上課

2011-11-28

EXCEL函數與VBA設計第7次上課

2011-11-28

EXCEL函數與VBA設計第6次上課

2011-11-28

EXCEL函數與VBA設計第5次上課

2011-11-28

EXCEL函數與VBA設計第4次上課

2011-11-28

EXCEL函數與VBA設計第3次上課

2011-11-28

EXCEL函數與VBA設計第2次上課

2011-11-28

EXCEL函數與VBA設計第1次上課

2011-11-28

EXCEL函數與VBA設計開學囉!

2011-10-28

公務人員訓練處EXCEL VBA程式設計第3次上課

2011-10-27

EXCEL函數與VBA進階班第11次上課

2011-09-21

EXCEL函數與VBA進階班第1次上課

2011-09-20

EXCEL函數與VBA雲端班第8次上課

2011-08-19

北市公訓處EXCEL函數進階班第1天上課

2011-08-10

EXCEL函數與VBA雲端班第9次上課

2011-07-28

EXCEL函數與VBA雲端班第7次上課

2011-07-07

EXCEL函數與VBA雲端班第4次上課

2011-07-04

EXCEL函數與VBA雲端班第3次上課

2011-07-04

EXCEL函數與VBA雲端班第2次上課

2011-06-15

EXCEL函數與VBA雲端班第1次上課

2011-06-14

自強基金會的EXCEL函數與VBA雲端班開課囉!

2011-06-08

台北市公訓處EXCEL函數進階班

2011-05-27

EXCEL函數與VBA設計第13次上課

2011-05-19

EXCEL函數與VBA設計第11次上課

2011-05-06

EXCEL函數與VBA設計第10次上課

2011-04-25

台北市公訓處EXCEL函數進階班

2011-04-22

EXCEL函數與VBA設計第8次上課

2011-04-15

EXCEL函數與VBA設計第7次上課

2011-04-08

EXCEL函數與VBA設計第6次上課

2011-04-01

EXCEL函數與VBA設計第5次上課

2011-03-25

EXCEL函數與VBA設計第4次上課

2011-03-18

EXCEL函數與VBA設計第3次上課

2011-03-12

EXCEL函數與VBA設計第2次上課

2011-03-04

EXCEL函數與VBA設計第1次上課

2011-03-03

EXCEL函數與VBA設計開學囉!


EXCEL, excel excel vba教學視頻, EXCEL VBA 函數, excel函數應用, excel函數教學, excel函數說明, VBA, 函數東吳進修推廣部, 程式設計 vba範例教學, 

文章標籤

吳老師 發表在 痞客邦 PIXNET 留言(0) 人氣()

EXCEL VBA動態取消工作表保護與VBA專案保護設定

 

最新課程:EXCEL高階函數與大數據VBA自動化 提昇工作效率,晉身職場 Excel 高手!http://my.sce.pccu.edu.tw/MS/business/Detail.aspx?ProdId=8IP1_A6090&Source=HotClas

 

預覽畫面:

 

若設定了工作表保護之後,

無論是人工輸入或是VBA輸入

但會失敗,VBA則會跳出錯誤畫面,

因此,

可以動態的將保護取消,之後再動態的加上保護,

ActiveSheet.Unprotect ("1234")


不過,因為會需要將密碼寫到程式之中,

所以保護VBA專案裡的程式碼,又是另一個問題,

因此,此次的分享主要是如何VBA動態取消工作表保護與VBA專案保護設定

 

 

教師研習時數

=SUMIF(Sheet2!$B$3:$B$16,B2,Sheet2!$C$3:$C$16)+SUMIF(Sheet3!$B$3:$B$14,B2,Sheet3!$C$3:$C$14)

 

如何保護公式與資料:

 

**如何動態輸入公式到儲存格中

 

 

Public Sub 研習總時數()

   ActiveSheet.Unprotect ("1234")

   For i = 2 To Range("A2").End(xlDown).Row

       Cells(i, "C") = "=SUMIF(Sheet2!$B$3:$B$16,B" & i & ",Sheet2!$C$3:$C$16)+SUMIF(Sheet3!$B$3:$B$14,B" & i & ",Sheet3!$C$3:$C$14)"

   Next

   ActiveSheet.Protect ("1234")

End Sub

Public Sub 研習總時數清除()

   ActiveSheet.Unprotect ("1234")

   For i = 2 To Range("A2").End(xlDown).Row

       Cells(i, "C") = ""

   Next

   ActiveSheet.Protect ("1234")

End Sub

 

 

 

教學影片:

 

教學影音完整版在論壇:

https://groups.google.com/forum/#!forum/scu_excel_vba2_86

 

課程特色:

1.如何將函數轉成VBA2.VBA與資料庫快速結合

 

EXCEL函數 VBA程式設計資料庫是分別屬於三個領域的知識,

但卻是目前大家都需要的一項專業技能,要把三者融合的很好實在非常不容易,

剛好我有近20年的VB程式設計資料庫設計的經驗,

教EXCEL函數與相關課程也有多年,因此清楚如何把最重要的知識教給大家,

ADO資料庫設計的知識非常多,但根據我多年的設計實務經驗,

覺得最重要的是掌握SQL語言,就可以輕易的完成查詢、新增、修改與刪除等功能,

就可以輕易的完成自己想處理的大量資料,大大提高工作效率了!

 

上課用書是:

Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)

Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)

 

完整教學影音DVD申請:http://goo.gl/ZlBZE

論壇:http://groups.google.com/group/labor_excel_vba?hl=zh-TW

 

其他相關學習:

函數東吳進修推廣部, EXCEL, EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 函數教學 excel函數

文章標籤

吳老師 發表在 痞客邦 PIXNET 留言(0) 人氣()

EXCEL VBA表單設計成績輸入將EXCEL當資料庫

 

預覽畫面:

 

為了避免因資料輸入錯誤,而產生日後修正的問題,

建議可以利用VBA的表單設計功能,

把EXCEL當成資料庫來存放資料,

這樣可以大大減少日後所衍生的問題。

步驟是先在VBA中先自訂表單,

再把所需要的元件加到表單中,

接下來建立起動表單程序,

並在新增按鈕中撰寫對應的程序,就能完成輸入的動作,

但後續尚需加入防呆機制,讓表單能更加完善,

若多人存取,則可以在結合ADO與SQL語言,和外部資料庫連結

如ACCESS或MYSQL等。

 

如何設計表單將EXCEL當成資料庫存資料

 

**如何啟動表單

1.按鈕啟動

Public Sub 啟動表單()

    home.Show

End Sub

 

2.隨工作簿啟動

 

 

**貼到新增按鈕

Private Sub CommandButton1_Click()

   '1.新增資料

   r = Range("A2").End(xlDown).Row + 1

   Cells(r, "A") = TextBox1.Text

   Cells(r, "B") = TextBox2.Text

   Cells(r, "C") = TextBox3.Text

   Cells(r, "D") = TextBox4.Text

   '2.自動帶出平均和成績判斷

   Cells(r, "E") = Round((CInt(TextBox2.Text) + CInt(TextBox3.Text) + CInt(TextBox4.Text)) / 3, 1)

   Cells(r, "F") = 成績函數(Cells(r, "E"))

   Cells(r, "G") = 成績函數多重(Cells(r, "E"))

   '3.清除資料

   TextBox1.Text = ""

   TextBox2.Text = ""

   TextBox3.Text = ""

   TextBox4.Text = ""

   '4.游標放在TextBox1上

   TextBox1.SetFocus

End Sub

 

教學影音(完整版在論壇):

 

教學影音完整版在論壇:

https://groups.google.com/forum/#!forum/scu_excel_vba2_86

 

課程特色:

1.如何將函數轉成VBA2.VBA與資料庫快速結合

 

EXCEL函數 VBA程式設計資料庫是分別屬於三個領域的知識,

但卻是目前大家都需要的一項專業技能,要把三者融合的很好實在非常不容易,

剛好我有近20年的VB程式設計資料庫設計的經驗,

教EXCEL函數與相關課程也有多年,因此清楚如何把最重要的知識教給大家,

ADO資料庫設計的知識非常多,但根據我多年的設計實務經驗,

覺得最重要的是掌握SQL語言,就可以輕易的完成查詢、新增、修改與刪除等功能,

就可以輕易的完成自己想處理的大量資料,大大提高工作效率了!

 

上課用書是:

Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)

Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)

 

完整教學影音DVD申請:http://goo.gl/ZlBZE

論壇:http://groups.google.com/group/labor_excel_vba?hl=zh-TW

 

其他相關學習:

 

函數東吳進修推廣部, EXCEL, EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 函數教學 excel函數

文章標籤

吳老師 發表在 痞客邦 PIXNET 留言(0) 人氣()

INDEX與INDIRECT函數將單欄資料轉為三欄與VBA

 

預覽畫面:


常遇到儲存格中若有單欄資料要分為三欄多欄資料,

若不懂的用INDEX等查詢函數,配合COLUMN與ROW參照函數

可能要用非常多的時間才能完成工作,

但若懂得用INDEX或INDIRECT函數

馬上就可以輕易完成結果,當然更大量資料與重複應用,

還是建議用VBA來完成

最後補充說明將三欄再轉為一欄的邏輯說明。

 

通訊錄單欄轉三欄

 

**COLUMN&ROW

 

 

=COLUMN()-2+(ROW()-2)*3

**INDEX

 

=INDEX($A$1:$A$18,COLUMN()-2+(ROW()-2)*3,1)

 

**REPLACE

 

=REPLACE(INDEX($A$1:$A$18,COLUMN()-2+(ROW()-2)*3,1),1,LEN(C$1),"")

 

**INDIRECT與MID函數

 

=MID(INDIRECT("A"&COLUMN()-2+(ROW()-2)*3),LEN(C$1)+1,99)

**VBA程式碼與畫面

 

 

Public Sub 通訊錄_Range輸出()

   '1.列迴圈

   For i = 2 To 7

       '2.欄迴圈

       For j = 3 To 5

           '3.輸出結果

           Cells(i, j) = Range("A" & j - 2 + (i - 2) * 3)

           '4.切割文字

           Cells(i, j) = Mid(Cells(i, j), Len(Cells(1, j)) + 1, 99)

       Next

   Next

End Sub

 

Public Sub 清除()

   Range("C2:E7").ClearContents

End Sub

 

**三欄轉回一欄

=INDEX($C$2:$E$7,INT((ROW()-1)/3)+1,MOD(ROW()-1,3)+1)

 

教學影音(完整版在論壇):

 

教學影音完整版在論壇:

https://groups.google.com/forum/#!forum/scu_excel_vba2_86

 

課程特色:

1.如何將函數轉成VBA2.VBA與資料庫快速結合

 

EXCEL函數 VBA程式設計資料庫是分別屬於三個領域的知識,

但卻是目前大家都需要的一項專業技能,要把三者融合的很好實在非常不容易,

剛好我有近20年的VB程式設計資料庫設計的經驗,

教EXCEL函數與相關課程也有多年,因此清楚如何把最重要的知識教給大家,

ADO資料庫設計的知識非常多,但根據我多年的設計實務經驗,

覺得最重要的是掌握SQL語言,就可以輕易的完成查詢、新增、修改與刪除等功能,

就可以輕易的完成自己想處理的大量資料,大大提高工作效率了!

 

上課用書是:

Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)

Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)

 

完整教學影音DVD申請:http://goo.gl/ZlBZE

論壇:http://groups.google.com/group/labor_excel_vba?hl=zh-TW

 

其他相關學習:

 

函數東吳進修推廣部, EXCEL, EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 函數教學 excel函數

文章標籤

吳老師 發表在 痞客邦 PIXNET 留言(0) 人氣()

從計算數字個數到留下數字或英文或中文自訂函數

 

預覽畫面:


常遇到儲存格中若有英文(分大小寫)、數字和中文夾雜

但若只要取出其中的數字或英文或中文,

不懂VBA,這個問題將非常麻煩,資料少還可以徒法煉鋼,

慢慢複製貼上,但若資料非常巨量,將是巨大麻煩,

本文分享從計算數字個數開始,

MID、CODE、ROW、IFFERROR、SUM加上陣列計算數字個數,

已經夠複雜的了,若要再取出數字部分,那就更加困難,

建議改為VBA的自訂函數,

除了可以計算數字個數與非數字個數,

亦可留下數字,或英文或中文教您學會如何簡單自訂VBA函數

 

1.計算數字個數公式:

{=SUM(IFERROR((CODE(MID(A2,ROW($1:$99),1))>47)*(CODE(MID(A2,ROW($1:$99),1))

 

2.計算非數字個數公式:

{=SUM(IFERROR((CODE(MID(A2,ROW($1:$99),1))57),0))}

 

**內碼表:

 

1.首字轉編碼

=CODE(MID(A2,1,1))

 

2.判斷48-57間

=(CODE(MID(A2,1,1))>47)*(CODE(MID(A2,1,1))

=IFERROR((CODE(MID(A2,1,1))>47)*(CODE(MID(A2,1,1))

3.數字個數

=SUM(IFERROR((CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))>47)*(CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))<58),0))

4.數字個數陣列(Ctrl+Shift+Enter)

{=SUM(IFERROR((CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))>47)*(CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))<58),0))}

5.非數字個數

{=SUM(IFERROR((CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))<=47)+(CODE(MID(A2,{1,2,3,4,5,6,7,8,9},1))>=58),0))}

 

VBA部分:

Public Function 數字個數函數(原始資料)

   Count = 0

   '1.字數迴圈範圍

   For i = 1 To Len(原始資料)

       '2.判斷是否為數字

       If VBA.Asc(Mid(原始資料, i, 1)) > 47 And VBA.Asc(Mid(原始資料, i, 1)) < 58 Then

           '3.如果是就+1

           Count = Count + 1

       End If

   Next

   '4.回傳給自己(數字個數函數)

   數字個數函數 = Count

End Function

Public Function 非數字個數函數(原始資料)

   Count = 0

   '1.字數迴圈範圍

   For i = 1 To Len(原始資料)

       '2.判斷是否為數字

       If VBA.Asc(Mid(原始資料, i, 1)) <= 47 Or VBA.Asc(Mid(原始資料, i, 1)) >= 58 Then

           '3.如果是就+1

           Count = Count + 1

       End If

   Next

   '4.回傳給自己(數字個數函數)

   非數字個數函數 = Count

End Function

Public Function 留下數字函數(原始資料)

   '初始值

   S = ""

   '1.迴圈到字串長度

   For i = 1 To Len(原始資料)

       '2.判斷數字的編碼範圍

       If VBA.Asc(Mid(原始資料, i, 1)) > 47 And VBA.Asc(Mid(原始資料, i, 1)) < 58 Then

           '3.串接數字

           S = S & Mid(原始資料, i, 1)

       End If

   Next

   '4.輸出結果

   留下數字函數 = S

End Function

 

Public Function 留下英文函數(原始資料)

   '初始值

   S = ""

   '1.迴圈到字串長度

   For i = 1 To Len(原始資料)

       '2.判斷數字的編碼範圍

       If VBA.Asc(VBA.UCase(Mid(原始資料, i, 1))) >= 65 And VBA.Asc(VBA.UCase(Mid(原始資料, i, 1))) <= 90 Then

           '3.串接數字

           S = S & Mid(原始資料, i, 1)

       End If

   Next

   '4.輸出結果

   留下英文函數 = S

End Function

 

Public Function 留下中文函數(原始資料)

   原始資料 = Application.WorksheetFunction.Asc(原始資料)

   '初始值

   S = ""

   '1.迴圈到字串長度

   For i = 1 To Len(原始資料)

       '2.判斷數字的編碼範圍

       If VBA.Asc(Mid(原始資料, i, 1)) > 127 Or VBA.Asc(Mid(原始資料, i, 1)) < 0 Then

           '3.串接數字

           S = S & Mid(原始資料, i, 1)

       End If

   Next

   '4.輸出結果

   留下中文函數 = S

End Function

 

教學影音(完整版在論壇):

 

教學影音完整版在論壇:

https://groups.google.com/forum/#!forum/scu_excel_vba2_86

 

課程特色:

1.如何將函數轉成VBA2.VBA與資料庫快速結合

 

EXCEL函數 VBA程式設計資料庫是分別屬於三個領域的知識,

但卻是目前大家都需要的一項專業技能,要把三者融合的很好實在非常不容易,

剛好我有近20年的VB程式設計資料庫設計的經驗,

教EXCEL函數與相關課程也有多年,因此清楚如何把最重要的知識教給大家,

ADO資料庫設計的知識非常多,但根據我多年的設計實務經驗,

覺得最重要的是掌握SQL語言,就可以輕易的完成查詢、新增、修改與刪除等功能,

就可以輕易的完成自己想處理的大量資料,大大提高工作效率了!

 

上課用書是:

Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)

Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)

 

完整教學影音DVD申請:http://goo.gl/ZlBZE

論壇:http://groups.google.com/group/labor_excel_vba?hl=zh-TW

 

其他相關學習:

 

文章標籤

吳老師 發表在 痞客邦 PIXNET 留言(0) 人氣()

如何在EXCEL中自訂函數與增益集分享VBA自訂函數

 

預覽畫面:


如何自訂函數呢?

可以在VBA中插入模組與插入Function即可,

可以試試成績函數:

 

Public Function 成績函數(平均成績)

    If 平均成績 >= 60 Then

        成績函數 = "合格"

    Else

        成績函數 = "不合格"

    End If

End Function

 

在EXCEL寫好了很多的自訂函數,

但要如何在別的電腦使用這些自訂函數呢?

這是很多學會VBA自訂函數的學員常問的問題,

 

當然如果懂得複製貼上程式碼到VBA的模組那就沒什麼問題了,

但若是給一班完全沒學過VBA的使用者,

那就可以用安裝增益集的方式來安裝所有VBA寫的自訂函數。

 

不過在分享這些自行撰寫的VBA自訂函數會有智慧權的問題,

建議可以先把自己寫的VBA程式加上密碼。

1.加密

 

2.然後,可以傳給使用者你的有巨集(XLSM)檔案,

請他另存為增益集

 

3.接下來記得要啟用增益集,才能使用

 

 

最後開啟一個新的檔案,你將會在插入函數時看到這些自訂函數了。

 

教學影音(完整版在論壇):

 

教學影音完整版在論壇:

https://groups.google.com/forum/#!forum/scu_excel_vba2_86

 

課程特色:

1.如何將函數轉成VBA2.VBA與資料庫快速結合

 

EXCEL函數 VBA程式設計資料庫是分別屬於三個領域的知識,

但卻是目前大家都需要的一項專業技能,要把三者融合的很好實在非常不容易,

剛好我有近20年的VB程式設計資料庫設計的經驗,

教EXCEL函數與相關課程也有多年,因此清楚如何把最重要的知識教給大家,

ADO資料庫設計的知識非常多,但根據我多年的設計實務經驗,

覺得最重要的是掌握SQL語言,就可以輕易的完成查詢、新增、修改與刪除等功能,

就可以輕易的完成自己想處理的大量資料,大大提高工作效率了!

 

上課用書是:

Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)

Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)

 

完整教學影音DVD申請:http://goo.gl/ZlBZE

論壇:http://groups.google.com/group/labor_excel_vba?hl=zh-TW

 

其他相關學習:

    1.EXCEL VBA設計(自強基金會2012)第4次上課

    http://terry55wu.blogspot.tw/2012/03/excel-vba20124.html

     

    2.如何把EXCEL"函數"變為 "VBA"?自強基金會2012第5次上課

    http://terry55wu.blogspot.tw/2012/04/excel-vba.html

     

    3.自強基金會2012第8次上課

    http://terry55wu.blogspot.tw/2012/05/excel-vba20128.html

     

    4.自強基金會2012第9次上課

    http://terry55wu.blogspot.tw/2012/05/excel-vba20129.html

     

    5.EXCEL_VBA與資料庫--自強基金會2012(Ending)

    http://terry55wu.blogspot.tw/2012/07/excelvba-2012ending.html

     

    EXCEL,VBA,函數東吳進修推廣部,EXCEL VBA 函數 程式設計 線上教學 excel vba 教學 excel vba指令教學 vba範例教學excel  excel vba教學視頻 excel函數教學 excel函數 MYSQL

    文章標籤

    吳老師 發表在 痞客邦 PIXNET 留言(0) 人氣()

    EXCEL VBA自動化與自動繪製表格框線(樣式顏色粗細)

     

    預覽畫面:

     

    這是VBA入門課上課的範例,

    這範例主要是在飯店工作的學員所設計的自動宴會排桌VBA系統

    可以一鍵完成所有排桌的問題,

    免除以往的人工耗時耗力問題,

    但最後她有個問題無法克服,

    就是最後需要能自動繪製表格框線,

    這部分即便是仿間的VBA書籍也沒有提及,

    因此,我就用最簡單的方式回覆,

    並分享於此,

    主要的四個按鈕分別為:

    1.繪製表格框線的樣式

    2.繪製表格框線的顏色

    3.繪製表格框線的粗細

    4.清除表格框線

     

    建議先學會以下分享課程:

    • EXCEL VBA入門:如何撰寫自動格式化VBA程式  [連結]
    • 如何撰寫自動日期格式化的VBA程式  [連結]
    • 如何增加EXCEL VBA按鈕  [連結]
    • 如何再VBA中建立EXCEL的自訂函數讓公式變簡單  [連結]
    • 如何將數學函數轉EXCEL VBA設計之一  [連結]
    • 從EXCEL函數到VBA自動化(函數應用大升級)  [連結]

    • 範例檔  [下載]

    上課內容:

     

     

    Sub 加框線_實線()

       '指定框線的線條樣式。

       '名稱 值 描述

       'xlContinuous 1 連續線

       'xlDash -4115 虛線

       'xlDashDot 4 交替的虛線與點

       'xlDashDotDot 5 虛線後接兩點

       'xlDot -4118 點狀線

       'xlDouble -4119 雙線

       'xlLineStyleNone -4142 無線條

       'xlSlantDashDot 13 斜虛線

       Range("B3:H13").Borders.LineStyle = xlContinuous

    End Sub

    Sub 加框線_實線紅色()

       Range("B3:H13").Borders.LineStyle = xlContinuous

       Range("B3:H13").Borders.Color = RGB(255, 0, 0)

    End Sub

    Sub 加框線_實線紅色粗線()

       '指定範圍外圍框線的粗細。

       '名稱 值 描述

       'xlHairline 1 毫線 (最細的框線)

       'xlMedium -4138 適中

       'xlThick 4 粗線 (最寬的框線)

       'xlThin 2 細線

       Range("B3:H13").Borders.LineStyle = xlContinuous

       Range("B3:H13").Borders.Color = RGB(255, 0, 0)

       Range("B3:H13").Borders.Weight = xlThick

    End Sub

    Public Sub 清除框線()

       Range("B3:H13").Borders.LineStyle = xlNone

    End Sub

     

    教學影音(完整版在論壇):

     

    教學影音完整版在論壇:

    https://groups.google.com/forum/#!forum/scu_excel_vba2_86

     

    課程特色:

    1.如何將函數轉成VBA2.VBA與資料庫快速結合

     

    EXCEL函數 VBA程式設計資料庫是分別屬於三個領域的知識,

    但卻是目前大家都需要的一項專業技能,要把三者融合的很好實在非常不容易,

    剛好我有近20年的VB程式設計與資料庫設計的經驗,

    教EXCEL函數與相關課程也有多年,因此清楚如何把最重要的知識教給大家,

    ADO資料庫設計的知識非常多,但根據我多年的設計實務經驗,

    覺得最重要的是掌握SQL語言,就可以輕易的完成查詢、新增、修改與刪除等功能,

    就可以輕易的完成自己想處理的大量資料,大大提高工作效率了!

     

    上課用書是:

    Excel函數&VBA其實很簡單(http://www.books.com.tw/exep/prod/booksfile.php?item=0010457292)

    Excel VBA 與資料庫整合大活用(http://www.books.com.tw/exep/prod/booksfile.php?item=0010463634)

     

    完整教學影音DVD申請:http://goo.gl/ZlBZE

    論壇:http://groups.google.com/group/labor_excel_vba?hl=zh-TW

     

    其他相關學習: