VBAG02 - Ứng dụng Mảng, SQL và các Công cụ Nâng cao khác trong Excel và VBA

4.25 (4 đánh giá)

Chuyên gia
G-LEARNING
Ngày update
10/2023
Học viên đăng ký
445

499,000đ

999,000đ

Tiết kiệm 50%

Giá ưu đãi chỉ còn 1 ngày

Hoặc

Đăng ký cho doanh nghiệp

Giúp nhân viên của bạn truy cập không giới hạn 450 khoá học, mọi lúc, mọi nơi

Áp dụng mã giảm giá

Top doanh nghiệp đã đăng ký cho nhân viên

Bạn sẽ học được gì?

Ứng dụng VBA vào một số công việc cụ thể trong quản lý nhân sự, kế toán, tài chính, quản lý dự án...

Ứng dụng các chức năng nâng cao của Mảng trong VBA

Ứng dụng các chức năng nâng cao của Function trong VBA

Học cách thiết lập và truy vấn với câu lệnh SQL ngay trên Excel

Mở rộng ra vô vàn kiến thức Excel nâng cao khác với Dictionary VBA

Khoá học này sẽ có:

Video

11h 45m giờ học

Article

0 bài viết chuyên môn

Material

7 tài liệu đính kèm

Exam questions

4 đề thi ghi nhớ kiến thức

Nội dung khoá học

5 Chương . 111 bài giảng . 11h 45m giờ học

Mở rộng tất cả các phần

1. Tài liệu đính kèm

Phần 1: Ứng dụng SQL trong Excel và VBA

13 bài giảng • 1 giờ 3 phút

2. Bài 1. SQL Là gì?
05:31
3. Bài 2. Kết nối dữ liệu Early binding
07:54
4. Bài 3. Kết nối dữ liệu Late Binding
04:39
5. Bài 4. Câu Query trong Excel

Xem trước
09:26
6. Bài 5. Gọi sự kiện trong worksheets
03:58
7. Bài 6. Định nghĩa về Function, tại sao nên sử dụng
03:06
8. Bài 7. Function có đối số và không có đối số
04:39
9. Bài 8. Function tham số mặc định
03:11
10. Bài 9. Chuyển sub thành function
05:46
11. Bài 10. Import và export code từ workbook khác

Xem trước
02:15
12. Bài 11. Dùng vòng lặp lấy tên trường trong bảng
03:14
13. Bài 12.Function kiểm tra kết nối
10:16
1. Kiểm tra cuối chương

Phần 2: Ứng dụng Mảng trong VBA và Excel

37 bài giảng • 2 giờ 53 phút

14. So sánh Mảng và Range
06:24
15. Khái niệm mảng trong VBA

Xem trước
03:42
16. Khai báo mảng 1 chiều
04:59
17. Khái báo mảng 2 chiều
03:58
18. Gán giá trị vào mảng
04:41
19. Chỉ số trên
03:26
20. Chỉ số dưới
01:50
21. Lấy giá trị vào trong mảng
02:29
22. Vòng lặp mảng 1 chiều

Xem trước
01:42
23. Nạp giá trị từ Range vào Mảng
03:22
24. Vòng lặp mảng 1 chiều
01:43
25. Từ khóa resire xuất dữ liệu mảng
02:01
26. Nạp dữ liệu từ Range vào mảng
01:59
27. Từ khóa Redim
03:26
28. Redim cho mảng động
03:10
29. Ứng dụng từ khóa Redim cho mảng
05:47
30. Vòng lặp tăng biến không xuất dữ liệu
08:24
31. Fix lỗi không có giá trị kết quả
03:06
32. Đưa điều kiện Range vào so sánh
01:58
33. Tìm kiếm gần đúng trong mảng
03:28
34. Biến chuỗi thành mảng

Xem trước
02:04
35. Function kiểu mảng
02:52
36. Chuyển mảng ra chuỗi
01:57
37. Giải phóng mạng và kiểm tra mảng
03:22
38. Case Study: Ứng dụng tự động tách họ tên

Xem trước
14:37
39. Kết hợp Function và mảng

Xem trước
09:09
40. Ứng dụng mảng lọc dữ liệu
11:09
41. Vòng lặp lồng nhau
05:27
42. Mảng lọc dữ liệu thời gian
05:07
43. Tạo form bằng sheets để nhập liệu
10:14
44. Sửa dữ liệu bằng sheets
07:23
45. Xoá dữ liệu theo điều kiện trên sheets
03:26
46. Tải dữ liệu lên listbox
08:25
47. Thêm dữ liệu bằng form
03:05
48. Sửa dữ liệu trực tiếp trên form
05:27
49. Hoàn thành form nhập liệu có thêm sửa xoá khoá nút
08:27
2. Kiểm tra cuối chương

Phần 3: Kết hợp Mảng, Function để tạo Function cho SQL trên Excel

8 bài giảng • 35 phút

50. Gán kết quả mảng vào câu truy vấn
04:28
51. Xuất dữ liệu truy vấn ra bằng mảng
04:07
52. Thêm dòng tiêu đề vào mảng
04:00
53. Thêm tùy chọn có hay không có tiêu đề
04:30
54. Khắc phục lỗi sai đường dẫn
05:41
55. Viết câu SQL hoàn chỉnh bằng Function

Xem trước
09:29
56. Fix lỗi không có name
03:25
57. Kết quả

Phần 4: Các Ứng dụng Nâng cao khác bằng việc sử dụng Dictionary trong VBA

20 bài giảng • 1 giờ 41 phút

58. Khái niệm
02:00
59. Khai báo earlybinding
05:21
60. Khai báo Late biding
02:43
61. Thuộc tính Add
03:53
62. Thuộc tính Exists
02:29
63. Thuộc tính Remove
02:12
64. Thuộc tính Remove All
02:24
65. Thuộc tính Keys
01:29
66. Thuộc tính Items
01:46
67. Thuộc tính count
01:30
68. Thuộc tính item
04:21
69. Thuộc tính Key
03:29
70. Dic phân biệt chữ hoa và chữ thường
02:37
71. Sử dụng dic lọc không trùng
13:03
72. Function sử dụng dic
08:08
73. Sử dụng dic tổng hợp dữ liệu
17:59
74. Xuất dic kết qua từ 2 mảng khác nhau

Xem trước
08:53
75. Dic trong khoảng thời gian
17:42
76. Kết quả Dic
3. Kiểm tra cuối chương

Phần 5: Sử dụng SQL

36 bài giảng • 5 giờ 29 phút

77. SQL lấy dữ liệu và lọc 1 điều kiện

Xem trước
07:20
78. Cài đặt add ins gitiho

Xem trước
04:00
79. Sử dụng add ins
06:32
80. SQL lấy từng cột giá trị
02:51
81. Từ khoá where
06:29
82. Từ khoá and
04:23
83. Từ khoá or
04:24
84. từ khoá in
06:42
85. Từ khoá not in
03:44
86. Đưa dữ liệu từ range vào query
07:58
87. Lọc dữ liệu theo khoảng thời gian bằng and
14:09
88. Từ khoá beetwen trong sql
04:41
89. Viết tiếng việt VBA
02:52
90. Function Kiểm tra đuôi file
10:53
91. Code lấy dữ liệu tất cả file excel, access, sqlsever
25:26
92. Thêm dữ liệu vào sql bằng vba trong excel
14:14
93. Function Execute
12:24
94. Thực hiện msgbox bằng tiếng việt
07:58
95. Gọi Procedure trong vba
07:00
96. Tạo dữ liệu từ access Load dữ liệu
08:20
97. Tạo Biến Part
02:05
98. Cú pháp thêm sửa xoá
03:14
99. Câu lệnh thêm dữ liệu vào access
07:15
100. Truyền dữ liệu vào câu Query thêm dữ liệu
03:07
101. Sửa dữ liệu
04:53
102. Xoá dữ liệu
02:07
103. Thiết kế giao diện trên Form
04:49
104. Thực hiện thêm sửa xoá
18:13
105. Tìm kiếm trong Form
06:38
106. Tạo Ribon - Load dữ liệu kế thừa

Xem trước
05:00
107. Thêm nhiều dữ liệu từ excel vào access
09:49
108. Thêm nhiều dòng dữ liệu từ excel vào sqlsever
12:42
109. Gộp nhiều sheets vào một sheets có cấu trúc giống nhau

Xem trước
30:26
110. Gộp Nhiều file và một sheets có cấu trúc giống nhau
26:31
111. Vẽ biểu đồ động
30:40
4. Kiểm tra cuối chương

Mô tả khoá học

Trong khóa VBAG01, các bạn đã được làm quen với các kiến thức cơ bản của VBA như Code, Module và ứng dụng vào các công việc tự động hóa quy trình trên Excel hằng ngày. Trong khóa VBAG02 này, Gitiho sẽ giới thiệu tới các bạn các chức năng chuyên sâu của VBA và Excel như kiến thức về Mảng, cách sử dụng truy vấn SQL hay cách sử dụng nhiều công cụ nâng cao khác trong thư viện của Microsoft. Với các kỹ năng này, bạn sẽ trở thành những Chuyên gia Excel thực thụ, với kỹ năng lập trình, tự động hóa và xử lý mọi công việc trên Excel.

Gitiho luôn cam kết hiệu quả với học viên, khóa học online thực hành, áp dụng ngay vào để nâng cao năng suất làm việc. Gitiho cam kết hoàn tiền trong 365 ngày nếu khóa học không hiệu quả.

Đánh giá của học viên

4.25/5

4 Đánh giá và nhận xét

Thạnh Nguyễn

Giảng viên giải thích rất khó hiểu giọng nói khó nghe

Nguyen thi huyen trang

Khóa học hay và bổ ích, giúp cho công việc của mình rất nhiều ạ. Phần array giúp mình có thể làm việc được với dữ liệu và các điều kiện trong nhiều cột. Có thể thay thế một số công thức advanced filter hay sumifs với các điều kiện về thời gian!, nhóm hàng khi sử dụng dictionary

Duc Anh Nguyen

Khóa học rất hữu ích.

IT_9

Khoá học rất hay và ý nghĩa, phục vụ nhiều những vấn đề mở rộng của VBA, Excel để xử lý các bài toán thực tế. Giảng viên Thầy Tuấn Ba rất nhiệt tình và hỗ trợ học viên. Mình xin gửi lời cảm ơn tới khoá học, giảng viên của Gitiho đặc biệt là Thầy Tuấn Ba. Trân trọng!

Giảng viên:

G-LEARNING

Trường đào tạo & phát triển kỹ năng ứng dụng tin học văn phòng

4.4 điểm đánh giá
793 đánh giá
292,470 học viên
100 khóa học

Học viên cũng mua

Ebook Tuyệt đỉnh Excel - Khai phá 10 kỹ thuật ứng dụng Excel mà đại học không dạy bạn

Tổng số 2+ giờ 1 bài giảng

4.5

71,785

69,000 đ

~~99,000 đ~~

EXG02 - Thủ thuật Excel cập nhật hàng tuần cho dân văn phòng

Tổng số 8 giờ 107 bài giảng

4.67

70,237

199,000 đ

~~499,000 đ~~

EXG01: Tuyệt đỉnh Excel | Khóa học Excel online từ cơ bản đến nâng cao

Tổng số 18 giờ 208 bài giảng

4.81

41,055

499,000 đ

~~799,000 đ~~

VBAG01: Tuyệt đỉnh VBA - Tự động hóa Excel với lập trình VBA

Tổng số 14 giờ 143 bài giảng

4.86

20,187

499,000 đ

~~799,000 đ~~

EXG08 - Excel cho Tài chính, Kế toán và Phân tích tài chính

Tổng số 9 giờ 67 bài giảng

1,677

499,000 đ

~~899,000 đ~~

EXG07: Trực quan Báo cáo, Dữ liệu với Biểu đồ, Đồ thị bằng Excel (Excel Data Visualization)

Tổng số 8 giờ 57 bài giảng

4.92

1,243

499,000 đ

~~799,000 đ~~

EXG05 - Kỹ năng sử dụng công thức và hàm A-Z trong Excel

Tổng số 14 giờ 107 bài giảng

4.83

753

499,000 đ

~~799,000 đ~~

BCG01 - Xây dựng Hệ thống Báo cáo Quản trị bằng Excel

Tổng số 12 giờ 54 bài giảng

4.67

597

799,000 đ

~~1,500,000 đ~~

Power Pivot, Power Query - Biến Excel thành công cụ Phân tích dữ liệu chuyên sâu

Tổng số 7 giờ 54 bài giảng

4.67

593

599,000 đ

~~799,000 đ~~

Sử dụng Gitiho Excel Add-in để tăng 200% hiệu quả làm việc trên Excel

Tổng số 1 giờ 3 bài giảng

388

99,000 đ

~~199,000 đ~~

Hỏi đáp khóa học

0 thảo luận

Thảo luận về bài học

739 thảo luận

Hoàng Bá Tâm 27 Sep 2023

Sub chaySQLFunction()
Dim SQLQuery As String, arr As Variant, dc As Long
dc = Timdongcuoi(Sheet5, "A")
If (dc >= 2) Then Sheet5.Range("A3:ADO" & dc).ClearContents
SQLQuery = " Select * From [datahv$] where [datahv$].[DIEN]= '" & Sheet5.Range("D1").Value & " ' and [datahv$].[NGAYVAO] between " & CDbl(Sheet5.Range("F1").Value) & " and " & CDbl(Sheet5.Range("F2").Value) & ""
'SQLQuery = "select * From [datahv$] WHERE [datahv$].[DIEN]= '" & Sheet5.Range("D1").Value & "' AND [datahv$].[NGAYVAO] >= " & CDbl(Sheet5.Range("F1").Value) & " AND [datahv$].[NGAYVAO]<= " & CDbl(Sheet5.Range("F2").Value) & ""
'SQLQuery = "select * From [datahv$] WHERE AND [datahv$].[NGAYVAO] >= " & CDbl(Sheet5.Range("F1").Value) & " AND [datahv$].[NGAYVAO]<= " & CDbl(Sheet5.Range("F2").Value) & ""
'select * From DATA1 WHERE DATA1.[MA_DT] = '" & Sheet6.Range("B1").Value & "' and DATA1.NGAY>= " & CDbl(Sheet6.Range("D1").Value) & " and DATA1.NGAY<= " & CDbl(Sheet6.Range("D2").Value)

If IsArray(arr) = False Then
Sheet5.Range("A4").Value = arr
Else
Sheet5.Range("A4").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End If
End Sub

Tuấn Ba [Chuyên gia] 28 Sep 2023

Ban đẩy file lên nhé.

Hoàng Bá Tâm 17 Sep 2023

Hoàng Bá Tâm 17 Sep 2023

Sub chaySQLFunction()
Dim SQLQuery As String, Arr As Variant, dc As Long
dc = Timdongcuoi(Sheet5, "A")
If (dc >= 2) Then Sheet5.Range("A3:ADO" & dc).ClearContents
SQLQuery = "select * from data where [DIEN]=' " & Sheet5.Range("C1").Value & " '"
Arr = QuerySQL(SQLQuery, "", True)
If IsArray(Arr) = False Then
Sheet5.Range("A3").Value = Arr
Else
Sheet5.Range("A3").Resize(UBound(Arr, 1), UBound(Arr, 2)).Value = Arr
End If
End SubFunction QuerySQL(SQLQuyery As String, Optional Spart As String = "", Optional Hr As Boolean = False)
Dim Cnn As Object, lrs As Object, Part As String
Set Cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
If Len(Spart) = 0 Then
Part = ThisWorkbook.FullName
Else
Part = Spart
End If
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Part & ";Extended Properties=""Excel 8.0;HDR=YES"";"
Cnn.Open
Dim Arr As Variant
lrs.Open SQLQuyery, Cnn
Arr = lrs.Getrows
Dim Row As Long, col As Long, i As Long, j As Long, kq As Variant, Rs As Integer
If Hr = True Then
Rs = 1
Else
Rs = 0
End If
Row = UBound(Arr, 2) + Rs
col = UBound(Arr, 1)
ReDim kq(Row + 1 + Rs, col + 1 + Rs)
For i = 0 To Row
For j = 0 To col
If (i = 0 And Hr = True) Then
kq(0, j) = lrs.Fields(j).Name
Else
kq(i, j) = Arr(j, i - Rs)
End If
Next j
Next i
QuerySQL = kq
lrs.Close: Cnn.Close
Erase Arr: Erase kq
End Function

NHỜ THẦY SỮ DÙM ĐOẠN CODE DÙM E, LÀM GIỐNG THẦY

KHI ĐỔI DIEN: TN; NĐ, CC5 NÓ NÓ THAY DOI NHA THÀY

Hoàng Bá Tâm 12 Sep 2023

Hoàng Bá Tâm 12 Sep 2023

https://docs.google.com/spreadsheets/d/15-9PH76tyUgZj7zDGeGlWL26nM_BaW2z2IFDnX2-jiY/edit?usp=sharing

e gừi file nhờ thầy xem dum

Phạm Xuân Thành 11 Sep 2023

Kính gửi quý giáo viên

Trong bài giảng số 77 thì tôi thấy giáo sử dụng tên bảng là DATA khi sử dụng cú pháp SELECT * FROM DATA. Tuy nhiên, trong trường hợp này do tên Bảng trùng với tên Sheet("Data") nên tôi không hiểu rõ là lệnh SQL tham chiếu đến Sheet hay đến bảng.

Chính vì vậy, tôi đã chỉnh tên bảng DATA thành DATA_TAB và sử dụng cú pháp SELECT * FROM DATA_TAB thì khi chạy lệnh chương trình báo lỗi Sai cú pháp SQL

Do vậy, tôi gửi file đường link đính kèm để nhờ quý giáo viên hướng dẫn giúp trong trường hợp này nếu tôi vẫn muốn sử dụng tên bảng là DATA_TAB thì cú pháp SQL như thế nào sẽ đúng.

Xin cám ơn

https://docs.google.com/spreadsheets/d/1TFFMW4WI3_Tdp0dysuG7XUIdQwSZCpwF/edit?usp=sharing&ouid=116104600344984527315&rtpof=true&sd=true

Tuấn Ba [Chuyên gia] 12 Sep 2023

Chào bạn sql không hỗ trợ đặt tên động nên bạn đổi thành tên tĩnh là được nhé.

nếu sử dụng name range: SELECT * FROM DATA_TAB gọi theo sheets SELECT * FROM [DATA$]

Phạm Xuân Thành 10 Sep 2023

Kính gửi quý trung tâm Gitiho

Trong bài 51 (chương 3: Phần 2 Kết hợp mảng, Function để tạo Function cho SQL trên Excel) thì giáo viên dùng vòng lặp để chuyển kết quả từ mảng Arr sang mảng kq. Mục đích là chuyển cột thành dòng giữa 2 mảng.

Tôi thắc mắc là tại sao không dùng được lệnh Application.WorksheetFunction.Transpose(mang) trong trường hợp này như cú pháp bên dưới:

Sub GetData51()
Dim Cnn As Object, lrs As Object, SQLQuery As String, dc As Long, icol As Long
Dim Arr As Variant
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
If dc >= 2 Then Sheet1.Range("A2:ADO" & dc).ClearContents
Set Cnn = CreateObject("ADODB.Connection")
Set lrs = CreateObject("ADODB.Recordset")
Cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=YES;IMEX=0"";"
Cnn.Open
SQLQuery = Sheet1.Range("B1").Value
lrs.Open SQLQuery, Cnn
Arr = lrs.GetRows
Sheet1.Range("A3").Resize(UBound(Arr, 2)+1, UBound(Arr, 1)+1).Value = Application.WorksheetFunction.Transpose(Arr)
lrs.Close: Cnn.Close
End Sub

Rất mong quý trung tâm hướng dẫn thêm

Tuấn Ba [Chuyên gia] 10 Sep 2023

Chào bạn bạn đẩy file lên giúp gitiho nhé.

Giá ưu đãi chỉ còn 1 ngày

499,000đ

999,000đ

Tiết kiệm 50%

Hoặc

Gói thành viên chỉ 199,000đ/tháng

Hoàn tiền nếu không hài lòng

111 bài giảng, 12 giờ học

Học online, mọi lúc mọi nơi

Học trên máy tính, điện thoại

Sở hữu khóa học trọn đời

Đăng ký cho doanh nghiệp

Giúp nhân viên của bạn truy cập không giới hạn 450 khoá học, mọi lúc, mọi nơi

Áp dụng mã giảm giá

Top

@ 2020 - Bản quyền của Công ty cổ phần công nghệ giáo dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở kế hoạch và đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ thông tin và truyền thông

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

VBAG02 - Ứng dụng Mảng, SQL và các Công cụ Nâng cao khác trong Excel và VBA

Phần 1: Ứng dụng SQL trong Excel và VBA

Phần 2: Ứng dụng Mảng trong VBA và Excel

Phần 3: Kết hợp Mảng, Function để tạo Function cho SQL trên Excel

Phần 4: Các Ứng dụng Nâng cao khác bằng việc sử dụng Dictionary trong VBA

Phần 5: Sử dụng SQL