2017年8月20日 星期日

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

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

最新課程:EXCEL高階函數與大數據VBA自動化 提昇工作效率,晉身職場 Excel 高手!https://www.sce.pccu.edu.tw/search_list.aspx?key=%E5%90%B3%E6%B8%85%E8%BC%9D

預覽畫面:


為了避免因資料輸入錯誤,而產生日後修正的問題,
建議可以利用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函數

2017年4月2日 星期日

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

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函數