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
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.7 điểm đánh giá
491 đánh giá
231,401 học viên
90 khóa học
Khoá học cùng chủ đề
Đánh giá của học viên
4.84 điểm đánh giá . 64 lượt đánh giá
Pham Thanh Tu
10:54 30/11/2022
Nguyễn Quỳnh Hương
03:46 04/05/2022
Nguyễn Cảnh Thắng
01:11 30/11/2021
Thảo luận về bài học
11,525 thảo luận
Đỗ Khánh Sơn 27 Jan 2023
Tải về bị thiếu file và không cài đc ạ.
Tuấn Ba [Chuyên gia] 27 Jan 2023
Bạn liên hệ cskh và hẹn lịch hỗ trợ nhé
Nguyễn Văn Thực 26 Dec 2022
Thầy ơi
Ô Cells(3,2) khi KHÔNG NHẬP GÌ XÓA ĐI NHƯNG Sheet6.Range("B3:D3").value vẫn có giá trị ạ
E gửi Thầy file đây ạ Thầy chỉ giúp e ạ
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
Dim j As Long
Dim lr As Long
With Sheet5
lr = .Range("B" & Rows.Count).End(xlUp).Row
i = 3
For i = 3 To lr
If Not Application.Intersect(Target, .Cells(i, 2)) Is Nothing Then
If .Cells(i, 2) <> "" Then
Sheet6.Cells(i, 2).Value = WorksheetFunction.VLookup(.Cells(i, 2), .Range("B3:D10"), 1, 0)
Sheet6.Cells(i, 3).Value = WorksheetFunction.VLookup(.Cells(i, 2), .Range("B3:D10"), 2, 0)
Sheet6.Cells(i, 4).Value = WorksheetFunction.VLookup(.Cells(i, 2), .Range("B3:D10"), 3, 0)
Else
Sheet6.Range("B3:D10").clear
End If
End If
Next i
End With
End Sub
Nguyễn Văn Thực 26 Dec 2022
No | ID | Name | Phòng |
1 | Mr A | CS | |
2 | Mr B | OQC | |
3 | Mr A | CS | |
4 | Mr B | OQC | |
5 | Mr A | CS | |
6 | Mr B | OQC | |
7 | Mr A | CS | |
8 | Mr B | OQC |
No | ID | Name | Phòng |
1 | Mr A | CS | |
Ngô Thị Kim Chung 16 Jan 2023
Tuấn Ba [Chuyên gia] 17 Jan 2023
Chào bạn bạn bấm Fn+F4 nhé.
dieuanh199952@gmail.com 15 Jan 2023
Thầy có thể xem cho em viết sai đoạn code ở chỗ nào được ko ạ mà em cứ bị bắt sai ở chỗ này
Sheets("PhieuLuong").Range("F6").Value = Sheets("Data_TienLuong").Range("E" & i).Value
Tuấn Ba [Chuyên gia] 15 Jan 2023
Bạn đẩy file lên giúp gitiho bạn nhé.
dieuanh199952@gmail.com 13 Jan 2023
Em không thể nào mở được userform sau khi dán macro vào shape
dieuanh199952@gmail.com 13 Jan 2023
nó chỉ ra đoạn vàng này nhưng e không rõ sai ở đâu ạ
Dương Tấn Phước 11 Jan 2023
Tuấn Ba [Chuyên gia] 11 Jan 2023
bạn kích chuột phải vào khung đó và làm như hình
dieuanh199952@gmail.com 10 Jan 2023
Em đang thử luyện tập sử dụng vòng lặp để gộp dữ liệu từ nhiều file nhưng mà không hiểu sao khi chạy lại không tìm thấy file để chọn ạ?
dieuanh199952@gmail.com 10 Jan 2023
mà rõ ràng em đã gộp các workbook về một folder rồi ạ
Phan Quỳnh Thương 11 Jan 2023
Thầy cho e hỏi với cách xác định dòng cuối để tìm dòng định dạng, thì viết dòng cuối + 1 như thế nào là đúng ạ?
E viết như sau ko chạy được ?
Sub Dongtongcong_vietlai()
Dim Dongcuoi As Long
Dongcuoi = Sheets("sheet2").Range("B" & Rows.Count).End(xlUp).Row
Range("Dongcuoi" + 1).Style = "Total"
End Sub
Dương Mạnh Quân [Chuyên gia] 11 Jan 2023
Biến dòng cuối ở dạng Long tức là 1 con số.
Dongcuoi + 1 cũng là 1 con số, thể hiện số dòng.
Khi viết Range phải xác định cả cột và dòng. Do đó code định dạng ở cuối sẽ viết dạng:
Range("A" & dongcuoi + 1 & “:H” & dongcuoi + 1).Style = “Total”
bạn đổi lại tên cột A, H tùy theo thực tế nhé.
Đặng Huỳnh Hoàng Đinh 31 Dec 2022
Đặng Huỳnh Hoàng Đinh 31 Dec 2022
Module e viết lại
Sub NhapDuLieu()
'Thu muc chon file
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True 'Chon nhieu file
.Show 'Hien cua so chon file
Dim i As Integer
For i = 1 To .SelectedItems.Count
'Gan bien cho wb
Dim wb_KQ As Workbook
Dim wb_CT As Workbook
Set wb_KQ = ThisWokbook
Set wb_CT = Workbooks.Open(.SelectedItems(i))
'DongDau_DongCuoi file Nhap
Dim DongDau_Nhap As Long
DongDau_Nhap = 8
Dim DongCuoi_Nhap As Long
DongCuoi_Nhap = wb_CT.Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
'Khoang cach
Dim KhoangCach As Long
KhoangCach = DongCuoi_Nhap - DongDau_Nhap + 1
'DongCuoi file TongHop
Dim DongCuoi_Tong As Long
DongCuoi_Tong = wb_KQ.Sheets("Data_TienLuong").Range("A" & Rows.Count).End(xlUp).Row
'Copy du lieu
wb_KQ.Sheets("Data_TienLuong").Range("A" & DongCuoi_Tong + 1 & ":BM" & DongCuoi_Tong + KhoangCach).Value = _
wb_CT.Sheets(1).Range("A" & DongDau_Nhap & ":BM" & DongCuoi_Nhap).Value
'Dong NoiDung file
wb_CT.Close Savechanges:=False
Next i
End With
End Sub
nguyễn văn khánh 10 Jan 2023
Em làm giống trong bài giảng nhưng vẫn không mơr được flie chứa macro ạ
Dương Mạnh Quân [Chuyên gia] 10 Jan 2023
Không rõ bạn có thấy dòng thông báo nào màu hồng nào không (gần vị trí thông báo màu vàng về macro)?
Nếu có bạn cần đặt unblock cho file thì mới sử dụng được nhé. Bạn tham khảo video hướng dẫn này:
https://www.youtube.com/watch?v=B7PGvAD_IFU&t=1s
dieuanh199952@gmail.com 09 Jan 2023
Thầy có thể kiểm tra hộ em đoạn code này được ko ạ?
Sub GanBien_Book1()
Workbooks("Book4").Sheets("Data").Range("A2:C4").Value = _
Workbooks("Book1").Sheets("Sheet1").Range("A2:C4").Value
Dim DongCuoi_Wb2 As Long
DongCuoi_Wb2 = Workbooks("Book2").Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
Dim DongDau_Wb2 As Long
DongDau_Wb2 = 2
Dim KhoangCach_Wb2 As Long
KhoangCach_Wb2 = DongCuoi_Wb2 - DongDau_Wb2 + 1
Dim DongCuoi_Wb4 As Long
DongCuoi_Wb4 = Workbooks("Book4").Sheets("Data").Range("A" & Rows.Count) _
.End(xlUp).Row
Workbooks("Book4").Sheets("Data").Range("A" & DongCuoi_Wb4 + 1 & ":C" & KhoangCach_Wb2).Value = _
Workbooks("Book2").Sheets("Sheet1").Range("A" & DongDau_Wb2 & ":C" & DongCuoi_Wb2).Value
End Sub
Em làm nó cứ bị ra value và ko gán được dữ liệu vào cùng một workbook ạ
Tuấn Ba [Chuyên gia] 09 Jan 2023
Bạn xem 2 workbook có đang mở không?
Biện Văn Thành 08 Jan 2023
Thầy ơi? Sao tìm không thấy file excel bài giảng như trong video đề cập tới ạ? Muốn tải thì tải ở đâu ạ?
Tuấn Ba [Chuyên gia] 08 Jan 2023
Bạn tải ở chương 1 bài 4 bạn nhé.
Thảo Vy 27 Dec 2022
tất cả file VBA em tải ở gitiho nhưng báo lỗi vậy ạ. Mong giảng viên hỗ trợ giúp em ạ
Tuấn Ba [Chuyên gia] 28 Dec 2022
Bạn liên hệ cskh để được hỗ trợ nhé.
Hotline: 0774 116 285
Trần Quốc Tiến 03 Jan 2023
Tuấn Ba [Chuyên gia] 03 Jan 2023
Bạn đẩy file lên nhé.
Nguyễn Tá Hiến 05 Jan 2023
Sub locgiatri_3()
Dim i As Long, j As Long, dc As Long
With Sheet1
dc = Sheet1.Range("g65000").End(xlUp).Row
.Range("k10:k10000").ClearContents
For j = 100 To dc
For i = 1 To 99
If .Range("g" & i).Value = Range("g" & j).Value Then
.Range("k" & j).Value = 1
Exit For
Else
.Range("k" & j).Value = 0
End If
Next
Next
End With
End Sub
Tuấn Ba [Chuyên gia] 05 Jan 2023
Chào bạn bạn đẩy cả file lên để gitiho check nữa nhé.
499,000đ
799,000đƯu đãi chỉ còn trong 2 ngày
Mã giảm giá