Top doanh nghiệp đã đăng ký cho nhân viên
Bạn sẽ học được gì?
Khoá học này sẽ có:
Video
11h 45m giờ học
Article
0 bài viết chuyên môn
Material
0 tài liệu đính kèm
Exam questions
4 đề thi ghi nhớ kiến thức
Khóa học này dành cho ai?
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ầnMô 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ả.
Giảng viên:
4.3 điểm đánh giá
666 đánh giá
266,198 học viên
92 khóa học
Khoá học cùng chủ đề
Đánh giá của học viên
5/5
3 Đánh giá và nhận xét
100%
0%
0%
0%
0%
Nguyen thi huyen trang
Duc Anh Nguyen
IT_9
Hỏi đáp khóa học
Thảo luận về bài học
640 thảo luận
Nguyễn Phùng Duy 17 Apr 2023
Sub laydulieu()
Dim cnn As Object, lrs As Object, SQLquery As String, dc As Long
dc = Sheet1.Range("A" & Sheet1.Rows.Count).End(xlUp).Row
Sheet1.Range("A1:ADO100").ClearContents
Set cnn = CreateObject("ADODB.Connection")
Set cnn = CreateObject("ADODB.Connection")
cnn.ConnectionString = " Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & ThisWorkbook.FullName & ";Extended Properties=""Excel 8.0;HDR=YES"";"
cnn.Open
SQLquery = " select * from Customers "
lrs.Open SQLquery, cnn
Sheet1.Range("A1").CopyFromRecordset lrs
lrs.Close
cnn.Close
End Sub
Tuấn Ba [Chuyên gia] 19 Apr 2023
chào bạn bạn xem file cua bạn có để trong thư mục có dấu không bạn nhé.
cuong nguyen 12 Apr 2023
Chào giáo viên!
Function QuerySQL(SQLQuery As String, Spart As String, Optional Hr As Boolean = False, Optional Pasword As String = "")
Trong Function trên, biến Spart dùng để làm gì ạ? Nó tự link đến file của mình hay sao ạ?
em cảm ơn!
Tuấn Ba [Chuyên gia] 13 Apr 2023
Chào bạn đúng rồi bạn nhé. biến spart là biến để lấy đường dẫn file bạn nhé.
Nguyễn Minh Hào 28 Mar 2023
Sub Khaibaodicea()
Dim Dic As Scripting.Dictionary
Set Dic = New Scripting.Dictionary
'Dim Dic As Object
'Set Dic = CreateObject("Scripting.Dictionary")
Dim Arr() As Variant, kq As Variant, dc As Variant
Dim i As Variant, k As Variant, temp
dc = TimDongCuoi("Ds_chung", "a")
Arr() = Sheets("Ds_chung").Range("a1:h" & dc).value
ReDim kq(LBound(Arr, 1) To UBound(Arr, 1), LBound(Arr, 2) To UBound(Arr, 2))
For i = LBound(Arr, 1) To UBound(Arr, 1)
temp = Arr(i, 5)
If Dic.Exists(temp) = False Then
k = k + 1
kq(i, 1) = temp
End If
Next
If k > 0 Then Sheets("sheet1").Range("a1").Resize(k, 1).value
Set Dic = Nothing
End Sub
dòng cuối = 21546
dòng bôi đậm bị lỗi Overflow thì khắc phục sao vậy thầy
Tuấn Ba [Chuyên gia] 28 Mar 2023
Chào bạn bạn để tên biến là arr thôi nhé thay vì arr() vì cặp ngoặc có thể vào ký tự đặc biệt của vba
Nguyen Dinh Chieu 25 Mar 2023
Tuấn Ba [Chuyên gia] 27 Mar 2023
Bạn đặt Chữ N'chào mừng bạn' thì mới lưu tiếng việt được bạn nhé
và bạn phải xem data bạn tạo ra cột họ tên có phải kiểu nvacha không nhé.
Nguyen Dinh Chieu 25 Mar 2023
Đã thêm ký tự N trước cú pháp thêm dữ liệu tiếng việt nhưng vẫn không thực hiện được.
Xin cú pháp viết tiếng việt khi đưa dữ liệu từ textbox vào sql server
Thanks!
Tuấn Ba [Chuyên gia] 27 Mar 2023
Chào bạn chữ N trước dấu ‘ ’ dạng như sau N‘chào mừng bạn’ chứ không phải là N chào mừng bạn
bạn nhé