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
13h 17m giờ học
Article
3 bài viết chuyên môn
Material
24 tài liệu đính kèm
Exam questions
1 đề thi ghi nhớ kiến thức
Khóa học này dành cho ai?
Nội dung khoá học
18 Chương . 130 bài giảng . 13h 17m giờ học
Mô tả khoá học
Từ người mới bắt đầu đến chuyên gia VBA Excel chuẩn Microsoft sau khóa học VBA Excel của Gitiho.
Hiểu được những khó khăn của việc tự học VBA, trải qua nhiều năm đào tạo hàng ngàn học viên cá nhân và doanh nghiệp, giảng viên Dương Mạnh Quân sẽ cung cấp những bài giảng chi tiết, hướng dẫn từng bước một để học viên có thể thành thạo từng phần, trước khi cung cấp tư duy và phương pháp để xử lý các bài toán tự động hóa công việc, quy trình trên Excel nâng cao.
Điều gì tạo nên sự khác biệt để khóa học Tuyệt đỉnh VBA của Gitiho là chương trình học VBA online có nhiều học viên theo học nhất:
Những kiến thức bạn sẽ thành thạo sau khóa học này:
Một vài feedback thực tế từ học viên:
“Đây là 1 khóa học VBA rất bổ ích thầy dạy học có kiến thức rất sâu rộng , mình dù là 1 con gà mờ nhưng sau khi học khóa VBA này mình đã học được rất nhiều kỹ năng không chỉ là của vba mà còn các môn học khác, lời cuối cảm ơn công ty và các thầy cô đã cung cấp 1 nội dung học rất bổ ích”
“Bài giảng tuy ngắn gọn nhưng truyền tải được kiến thức trọng tâm. Sự kết hợp giữa clip và giáo trình rất hợp lí, phương thức giảng dạy thực tế với các bài tập mình thấy dễ hiểu và hiệu quả cao. Chắc chắn tôi sẽ đăng kí khóa học VBA2 sau khi tôi hoàn thành các bài tập.”
“Bài giảng kỹ lưỡng, đúng trọng tâm và ứng dụng ngay được. Ban đầu dịch ở nhà chán quá tính học chơi giết thời gian thôi. Cơ mà nó hay với hữu dụng đến bất ngờ. Giờ file excel của mình trông khá gọn gàng, thao tác làm việc cũng dễ chịu hơn, ko phải dụng cái là mất nguyên dòng công thức nữa. Xứng đáng 5 sao.”
“Tôi năm nay cũng 40 tuổi và lần đầu tiếp xúc với VBA, có thể học chậm hơn các bạn trẻ. Nhưng tôi phải nói khóa VBA Excel này rất dễ hiểu, được sự hướng dẫn của các chuyên gia tôi cũng lập được cho mình một phần mềm ứng dụng excel vào việc quản lý công nợ. Sắp tới tôi cũng có kế hoạch tiếp tục học Sql và tạo ribbon quản lý. Tôi hy vọng mình sẽ đạt được thành công hơn nữa. Cảm ơn Gitiho về khóa học VBA rất hay này”
Xem thêm: Tuyệt đỉnh Excel - Trở thành bậc thầy Excel sau 16h
Giảng viên:
4.6 điểm đánh giá
584 đánh giá
254,368 học viên
92 khóa học
Khoá học cùng chủ đề
Đánh giá của học viên
4.85 điểm đánh giá . 68 lượt đánh giá
Pham Thanh Tu
Nguyen Duc Hieu
letuanthhcm
Nguyễn Quỳnh Hương
Nguyễn Cảnh Thắng
Hồ Đức Hạ
huynh thi my phuc
Nguyễn Lê Khoa
Nguyễn Kim Phụng
Nguyễn Thị Minh Hải
Nguyễn Nam Hà
Nguyen thi huyen trang
Nguyễn Trọng Đức
Nguyễn Việt Sử
Nguyễn Mạnh Hoàng
Hỏi đáp khóa học
Thảo luận về bài học
11,905 thảo luận
thien trieu12341 21 Mar 2023
khi chạy từng dòng code, thì sau bước đưa wb2 vào data, khi đến wb3 thì nó thay thế giá trị của wb2 trong data thành wb3 chứ k nối tiếp ở dòng cuối. Có vẻ dongcuoi_wb4 đang bị nhận một giá trị cố định. Các thầy check giúp mình
Sub Gop_DuLieu_02()
'xac dinh pham vi noi cho: WB1
'Workbooks("book1").Sheet1.Range("A2:C4").Value
'xac dinh noi nhan
'Workbooks("book4").Sheet2.Range("A2:C4").Value
'dua du lieu vao
Workbooks("book4").Sheets("Data").Range("A2:C4").Value = _
Workbooks("book1").Sheets("Sheet1").Range("A2:C4").Value
'dua du lieu tu cac workbook khac
'Xac dinh dong cuoi c?a wb2
Dim DongCuoi_Wb2 As Long
DongCuoi_Wb2 = Workbooks("book2").Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
'xac dinh khoang cach so dong du lieu
'khoang cach = dongcuoi_wb2 - dongdau_w2
Dim Dongdau_Wb2 As Long
Dongdau_Wb2 = 2
Dim KhoangCach_Wb2 As Long
KhoangCach_Wb2 = DongCuoi_Wb2 - Dongdau_Wb2 + 1
'Noi nhan: '
'Tim dong cuoi noi nhan la diem bat dau
'PHam vi vung nhan = khoang cach
Dim DongCuoi_wb4 As Long
DongCuoi_wb4 = Workbooks("book4").Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row
'dua du lieu vao
Workbooks("book4").Sheets("Data").Range("A" & DongCuoi_wb4 + 1 & ":C" & DongCuoi_wb4 + KhoangCach_Wb2).Value = _
Workbooks("book2").Sheets("Sheet1").Range("A" & Dongdau_Wb2 & ":C" & DongCuoi_Wb2).Value
'DUA WB3 VAO WB4
Dim Dongcuoi_Wb3 As Long
Dongcuoi_Wb3 = Workbooks("book3").Sheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
Dim Dongdau_Wb3 As Long
Dongdau_Wb3 = 2
Dim Khoangcach_Wb3 As Long
Khoangcach_Wb3 = Dongcuoi_Wb3 - Dongdau_Wb3 + 1
Workbooks("book4").Sheets("Data").Range("A" & DongCuoi_wb4 + 1 & ":C" & DongCuoi_wb4 + Khoangcach_Wb3).Value = _
Workbooks("book3").Sheets("sheet1").Range("A" & Dongdau_Wb3 & ":C" & Dongcuoi_Wb3).Value
End Sub
Tạ Thị Hương Nguyên 31 Mar 2023
wb3 vào wb4: bạn bị thiếu code dongcuoi wb4 rồi, bạn đổi tên biến dòng cuối là đc
TIENDAT 30 Mar 2023
TIENDAT 30 Mar 2023
file vba_G01 bài giảng ak.
Nguyễn Thị Vinh 29 Mar 2023
em cần làm câu 2 ý 2, xin giải đáp
Tuấn Ba [Chuyên gia] 30 Mar 2023
Bạn vui lòng gửi file giúp gitiho nhé.
Nguyễn Thị Vinh 29 Mar 2023
Tuấn Ba [Chuyên gia] 30 Mar 2023
Chào bạn bạn vui lòng gửi file lên giúp gitiho nhé.
võ xuân viên 29 Mar 2023
chào thầy, em làm giống như thầy nhưng tới khúc tạo macro 3 để lọc giá trị trùng lặp thì nó không nằm trong module 1 giống như video của thầy mà lại nằm trong module 2 mới tạo thêm
Tuấn Ba [Chuyên gia] 30 Mar 2023
Chào bạn bạn copy sub sang là xong nhé.
Huệ Ha 21 Nov 2022
Hi Thầy!
Em viết code coppy dữ liệu từ 2 wb nhưng bị báo lỗi, cửa sổ Project như trong hình,
Thầy xem giúp em với ạ, em cảm ơn!
Tuấn Ba [Chuyên gia] 21 Nov 2022
Bạn xem đã đúng dường dẫn chưa nhé.
ĐẶNG MINH Ý 12 Dec 2022
Nhờ thầy xem dùm sao em làm giống mà nó báo lỗi ạ
Tuấn Ba [Chuyên gia] 12 Dec 2022
Chào bạn do bạn chưa mở workbook calp_1 nhé.
Lá Thuộc Bài 28 Mar 2023
thưa thầy, tại sao trong phần tìm dòng cuối lại không cần ghi sheet nào vậy ạ?
Tuấn Ba [Chuyên gia] 30 Mar 2023
Chào bạn nếu dùng code name thì không cần bạn nhé. chỉ cần ghi code name hoặc nếu tại sheets hiện tại thì active là excel hiểu nhé.
GAMES MOBI 20 Mar 2023
Tuấn Ba [Chuyên gia] 21 Mar 2023
Bạn chuột phải vào file chọn propety > tích chọn unlock > xác nhận là được nhé.
thien trieu12341 28 Mar 2023
Muốn dùng offset để lấy dữ liệu tương ứng theo ten hàng hoá thì code mẫu ntn ạ
Tuấn Ba [Chuyên gia] 29 Mar 2023
Chào bạn bạn muốn Range("vitri").Offset(row, col) giả sử bạn ở ô a1
Range("A1").Offset(0, 1) giả sử bạn ở ô a1
Điểm gốc là ô A1, di chuyển 0 dòng và 1 cột về bên phải => Kết quả là tham chiếu tới ô B1
ĐẶNG GIA UYÊN 27 Mar 2023
Cho em hỏi: Tại sao không dùng CDate để chuyển đổi kiểu dữ liệu sang dạng Date mà dùng Clng trong trường hợp này ạ???
Tuấn Ba [Chuyên gia] 27 Mar 2023
Chào bạn khi bạn chuyển thì dữ liệu mới hoạt động đúng bạn nhé.
Hồ Tất Khánh Tùng 27 Mar 2023
Tuấn Ba [Chuyên gia] 27 Mar 2023
Chào bạn nếu bạn không có máy tính thì khóa học này sẽ không học được đâu
thien trieu12341 28 Mar 2023
Em viết thêm theo bài tập chương 10
Làm sao để sau khi hiện msgbox thiếu dữ liệu thì không đóng mở bảng và lưu mà giữ nguyên bảng đang nhập để nhập tiếp và không lưu ạ
Private Sub cmb_luu_Click()
'Tim dong cuoi trong bang du lieu can luu
Dim dongcuoi As Long
dongcuoi = Sheet1.Range("E" & Rows.Count).End(xlUp).Row
'Luu noi dung tuong ung theo cot
Sheet1.Range("E" & dongcuoi + 1) = tb_Hoten.Value
Sheet1.Range("F" & dongcuoi + 1) = tb_ngaysinh.Value
Sheet1.Range("G" & dongcuoi + 1) = cbb_Bophan.Value
Sheet1.Range("H" & dongcuoi + 1) = tb_songaycong.Value
Sheet1.Range("I" & dongcuoi + 1) = tb_mucluongngay.Value
Sheet1.Range("J" & dongcuoi + 1) = tb_tongtienluong.Value
If tb_Hoten.Value = "" Then
MsgBox "Vui long nhap ten", vbOKOnly
ElseIf tb_ngaysinh.Value = "" Then
MsgBox "Vui long nhap ngay sinh", vbOKOnly
ElseIf cbb_Bophan.Value = "" Then
MsgBox "Vui long chon bo phan", vbOKOnly
ElseIf tb_songaycong.Value = "" Then
MsgBox "Vui long nhap so ngay cong", vbOKOnly
ElseIf tb_mucluongngay.Value = "" Then
MsgBox "Vui long nhap muc luong ngay", vbOKOnly
Else
End If
'Lam moi lai noi dung uf
Unload Me
uf_HoTen.Show
End Sub
Tuấn Ba [Chuyên gia] 28 Mar 2023
dùng if bạn làm như sau nhé
If Me.TextBox1.Text = "" Then
Me.TextBox1.SetFocus
MsgBox "vui long nhap text1"
Exit Sub
End If
Nguyễn Văn Tuyên 22 Mar 2023
E có đoạn code gộp dữ liệu từ các sheet vào 1 sheet, nó chạy đến đoạn S6 thì bị lỗi Over flow, nhờ thầy xem giúp, đoạn code bị lỗi ở đâu và xử lý thế nào ạ? Biết ơn thầy
Sub Gopdulieu()
'Dim S1, S2, S3, S4, S5, S6 As Long
Dim S1 As Double, S2 As Double, S3 As Double, S4 As Double, S5 As Double, S6 As Double
S1 = Sheets("1. Huong").Cells(1, 2) + 3
S2 = Sheets("2. Hien").Cells(1, 2) + S1
S3 = Sheets("3. Hue").Cells(1, 2) + S2
S4 = Sheets("4. Tuyet").Cells(1, 2) + S3
S5 = Sheets("5. Sang").Cells(1, 2) + S4
S6 = Sheets("6. Ngan").Cells(1, 2) + S5
Application.ScreenUpdating = False
Sheets("2023").Range("A4:AN" & S6).Clear
ThisWorkbook.Sheets("2023").Range("A4:AN" & S1) = ThisWorkbook.Sheets("1. Huong").Range("A4:AN" & S1).Value
ThisWorkbook.Sheets("2023").Range("H4:H" & S1) = "1. Huong"
ThisWorkbook.Sheets("2023").Range("A" & S1 + 1 & ":" & "AN" & S2) = ThisWorkbook.Sheets("2. Hien").Range("A4:AN" & S2 - S1 + 3).Value
ThisWorkbook.Sheets("2023").Range("H" & S1 + 1 & ":" & "H" & S2) = "2. Hien"
ThisWorkbook.Sheets("2023").Range("A" & S2 + 1 & ":" & "AN" & S3) = ThisWorkbook.Sheets("3. Hue").Range("A4:AN" & S3 - S2 + 3).Value
ThisWorkbook.Sheets("2023").Range("H" & S2 + 1 & ":" & "H" & S3) = "3. Hue"
ThisWorkbook.Sheets("2023").Range("A" & S3 + 1 & ":" & "AN" & S4) = ThisWorkbook.Sheets("4. Tuyet").Range("A4:AN" & S4 - S3 + 3).Value
ThisWorkbook.Sheets("2023").Range("H" & S3 + 1 & ":" & "H" & S4) = "4. Tuyet"
ThisWorkbook.Sheets("2023").Range("A" & S4 + 1 & ":" & "AN" & S5) = ThisWorkbook.Sheets("5. Sang").Range("A4:AN" & S5 - S4 + 3).Value
ThisWorkbook.Sheets("2023").Range("H" & S4 + 1 & ":" & "H" & S5) = "5. Sang"
ThisWorkbook.Sheets("2023").Range("A" & S5 + 1 & ":" & "AN" & S6) = ThisWorkbook.Sheets("6. Ngan").Range("A4:AN" & S6 - S5 + 3).Value
ThisWorkbook.Sheets("2023").Range("H" & S5 + 1 & ":" & "H" & S6) = "6. Ngan"
Tuấn Ba [Chuyên gia] 28 Mar 2023
Chào bạn bạn đẩy file lên giúp gitiho nhé.
Khương Thị Kiều Phương 28 Mar 2023
Tuấn Ba [Chuyên gia] 28 Mar 2023
Chào bạn khi bạn mở with thì hết phần lệnh đó cần có end with nhé
bạn thêm end with trước dòng end sub là xong