BLUESOFTS Mở lớp học Lập trình VBA trong Excel CƠ BẢN - Hà Nội, 17h30, 12,13/12/2015

[bluesoftsbl1]

Khóa học “Lập trình VBA trong Excel cơ bản” cho phép người làm Excel viết ra những mã lệnh-Macro để tự động phân tích, định dạng, tạo báo cáo chỉ bằng cú nhấp chuột như trong các phần mềm mà không phải thủ công lập công thức Excel. Học lớp VBA cơ bản học viên tự tạo thêm được các hàm-Function mà Excel không có. Đọc hiểu được những đoạn code trên mạng để lắp ghép vào file Excel của mình. Học hết 10 bài học trong 12 buổi các học viên có khả năng lập trình trong Excel để khai thác, điều khiển các đối tượng quan trọng như Application, Workbook, Worksheet, Range, Userform, Menu bar, Ribbon, tạo các hàm và thủ tục để tự động hóa việc phân tích và tổng hợp dữ liệu với tốc độ nhanh hơn cách làm công thức Excel thông thường.
Với phương pháp đào tạo phân tích và thực hành tại lớp kèm với các ví dụ điển hình và thực tế sẽ giúp các học viên dễ hiểu, nắm bắt kiến thức nhanh, phát huy được kiến thức đã học để áp dụng vào công việc thực tế của mình.
Điều kiện để học khóa học “Lập trình VBA trong Excel cơ bản”các bạn cần phải có kiến thức Excel cơ bản hoặc đã học xong lớp “Excel cơ bản” do công ty Bluesofts tổ chức.

+ Tên lớp học: “Lập trình VBA trong Excel cơ bản”
+ Khai giảng: 17h30, ngày 12,13/12/2015
+ Phụ trách chính:Th.S Nguyễn Duy Tuân – ĐT: 0904210337 – Mail: duytuan@bluesofts.net
+ Thời gian học: 10 buổi
+ Phòng học tại phòng đào tạo Công ty Cổ phần BLUESOFTS
+ Địa chỉ: Phòng 1012, tầng 10 CT1A-DN2 Đường Hàm Nghi, KĐT Mỹ Đình 2, Từ Liêm, Hà Nội
+ Học phí:1.8 triệu đồng. Đã bao gồm cả tài liệu.

Các học viên có thể chuyển khoản hoặc đóng tiền trực tiếp tại văn phòng Công ty Cổ phần BLUESOFTS – P1012 - Tầng 10 - CT1A DN2 - Đường Hàm Nghi - KĐT Mỹ Đình 2 - Từ Liêm - Hà Nội.

Tài khoản ngân hàng:
NGÂN HÀNG VIETINBANK - CHI NHÁNH HÀ NỘI
Chủ TK: Nguyễn Duy Tuân
Số TK: 711A02051743

NỘI DUNG HỌC:
Bài 1: VBA là gì. Tìm hiểu các đối tượng trong Excel. Tạo, sửa, xóa macro
Bài 2: Ngôn ngữ lập trình VBA. Kiểu dữ liệu trong VBA. Khai báo hằng số và biến. Ý nghĩa các từ khóa trong khai báo: Private, Public, Static
Bài 3: Kỹ thuật viết thủ tục và hàm. Cách khai báo và truyền tham số cho thủ tục và hàm. Ý nghĩa ByVal, Byref
Bài 4: Tìm hiểu các hàm sẵn có trong VBA. Các nhóm hàm: văn bản; thời gian, số học, kiểm tra thông tin, hàm giao diện (MsgBox, InputBox)
Bài 5: Kỹ thuật viết lệnh rẽ nhánh, hàm logic: If..Then..Else, IIF(), Select Case. Tạo Label, lệnh Goto
Bài 6: Kỹ thuật tạo lệnh lặp – vòng lặp: For [Each]..Next; Do While/Do Until..Loop;…
Bài 7: Khai thác các đối tượng Application, Workbook(s), Worksheet(s), Range, Cells
Bài 8: Kỹ thuật bẫy và xử lý lỗi
Bài 9: Kỹ thuật tạo Userform và các điều khiển – Controls: ComboBox, ListBox, TextBox,...
Bài 10: Kỹ thuật tạo Menu bar, Ribbon

CHI TIẾT THÔNG TIN KHÓA HỌC VÀ ĐĂNG KÝ​

 

[bluesoftsbl1]

[h=2]Hiển thị MsgBox chữ có dấu tiếng việt - Unicode[/h]Trong lập trình VBA, để hiển thị thông báo ta dùng hàm MsgBox, tuy nhiên hàm này không thể hiển thị chữ tiếng Việt có dấu -unicode. Bài viết này tôi xin hướng dẫn cách tạo ra một hàm MsgBox có khả năng hiển thị chữ tiếng Việt có dấu, unicode.

Trong môi trường VBA, tạo một module mới, copy đoạn code dưới đây:

'**************************************** 'Tac gia: Nguyen Duy Tuan 'Tel : 0904.210.337 'E.Mail : tuanktcdcn@yahoo.com 'Website: www.bluesofts.net '**************************************** 'Khai bao cac ham API trong thu vien User32.DLL Private Declare Function GetActiveWindow Lib "user32" () As Long Private Declare Function MessageBoxW Lib "user32" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long Function MsgBoxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant = vbNullString) As VbMsgBoxResult 'Function MsgBoxUni(ByVal PromptUni As Variant, Optional ByVal Buttons As VbMsgBoxStyle = vbOKOnly, Optional ByVal TitleUni As Variant, Optional HelpFile, Optional Context) As VbMsgBoxResult 'BStrMsg,BStrTitle : La chuoi Unicode Dim BStrMsg, BStrTitle 'Hàm StrConv Chuyen chuoi ve ma Unicode BStrMsg = StrConv(PromptUni, vbUnicode) BStrTitle = StrConv(TitleUni, vbUnicode) MsgBoxUni = MessageBoxW(GetActiveWindow, BStrMsg, BStrTitle, Buttons) End Function

Như vậy từ nay các bạn có thể sử dụng hàm MsgBoxUni thay thế hàm MsgBox trong VBA là có thể hiển thị chữ tiếng Việt có dấu - unicode.

Sub TestMsgBoxUni() 'Test trong Excel MsgBoxUni Range("B3").Value, vbInformation, Range("B4").Value End Sub

Theo ví dụ trên, ô B3 chưa nội dung thông báo, B4 nội dung tiêu đề bảng thông báo, tất cả là chữ unicode.
Download ví dụ:
http://www.bluesofts.net/Baiviet/Laptrinh/VB_VBA/MsgBoxUnicode.zip

 

[AnhPhong411]

Để tính thưởng cho một công nhân, nhân viên chúng ta có thể viết hàm riêng cho mình. Dưới đây là ví dụ về một hàm thưởng, chỉ cần thay đổi điều kiện sẽ tự động trả về giá trị như mình mong muốn. Vi dụ như bài toán trên, khi chúng ta viết hàm =Thuong(50) thì kết quả trả về sẽ là 200000.

​

[GPECODE=vb]
Function Thuong(ByVal iNgayCong As Long) As Double
If iNgayCong > 30 Then
Thuong = 200000
ElseIf iNgayCong > 25 Then
Thuong = 150000
ElseIf iNgayCong > 20 Then
Thuong = 100000
Else
Thuong = 0
End If
End Function
[/GPECODE]

 

[bluesoftsbl1]

Lập trình kết nối CSDL trong máy tính phần lớn chúng ta quen kết nối tới CSDL nằm tại máy có file chương trình chạy, hoặc trong mạng LAN, ít người biết tới kết nối qua Internet, có thể từ trước chúng ta không có giải pháp nào cho việc này...
Video này tôi hướng dẫn mọi người dùng ADO kết nối tới CSDL Access trong mạng LAN, với các CSDL khác như Excel, Foxpro, SQL Server.... cũng tương tự, chỉ khác phần khai báo ConnectionString. Đây là đoạn video hướng dẫn căn bản và đơn giản tối đa để những người mới học lập trình CSDL có thể thực hành và làm ngay được.
Các CSDL Access, Excel, Foxpro, Paradox,... chỉ có thể chia sẻ qua mạng LAN và có những hạn chế về bảo mật, không thể chia sẻ qua Internet. Trong video này tôi đưa ra một giải pháp mới với Add-in A-Tools cho phép chúng ta kết nối CSDL qua Internet với những loại CSDL mà bình thường không thể làm được.
Hy vọng video giúp ích được nhiều người bước đầu tiếp cận vào lập trinhg CSDL trong Excel và những người đã làm và tìm ra được giải pháp mới cho việc kết nối CSDL qua internet vào Excel.

[video=youtube;lSyoR1XFte8]https://www.youtube.com/watch?v=lSyoR1XFte8[/video]​

 

[bluesoftsbl1]

Khóa học "LẬP TRÌNH VBA TRONG EXCEL CỞ BẢN" được tổ chức bởi BLUESOFTS
KHAI GIẢNG: 17h30 ngày 12,13/12/2015
+ Viết MACRO, tự động tính toán mà với công thức Excel khó làm
+ Tăng tốc độ tính toán của Excel
+ Tự động nhập liệu
+ Tự động định dạng và xử lý dữ liệu
+ Tạo hàm riêng để tính toán và công thức thuận tiện hơn
...
NỘI DUNG KHÓA HỌC:
http://bluesofts.net/daotaothuchanh/daotaovbacoban.html

 

[bluesoftsbl1]

Khóa học “Lập trình VBA trong Excel cơ bản” cho phép người làm Excel viết ra những mã lệnh-Macro để tự động phân tích, định dạng, tạo báo cáo chỉ bằng cú nhấp chuột như trong các phần mềm mà không phải thủ công lập công thức Excel. Học lớp VBA cơ bản học viên tự tạo thêm được các hàm-Function mà Excel không có. Đọc hiểu được những đoạn code trên mạng để lắp ghép vào file Excel của mình. Học hết 10 bài học trong 10 buổi các học viên có khả năng lập trình trong Excel để khai thác, điều khiển các đối tượng quan trọng như Application, Workbook, Worksheet, Range, Userform, Menu bar, Ribbon, tạo các hàm và thủ tục để tự động hóa việc phân tích và tổng hợp dữ liệu với tốc độ nhanh hơn cách làm công thức Excel thông thường.

 

[AnhPhong411]

​

Để giải một phương trình bậc nhất, chúng ta thường kết hợp nhiều hàm if và điều kiện lại với nhau. Hôm nay mình sẽ hướng dẫn các bạn viết một hàm đơn giản để giải phương trình bậc nhất chỉ vài dòng lệnh.
Các bạn copy code về chạy thử nhé.
[GPECODE=vb]
Function GiaiPTBN(ByVal a As Double, ByVal b As Double) As Variant
If a = 0 And b = 0 Then
GiaiPTBN = "PT co vo so nghiem"
ElseIf a = 0 And b <> 0 Then
GiaiPTBN = "PT vo nghiem"
Else
GiaiPTBN = ((-b) / a)
End If
End Function
[/GPECODE]

 

[AnhPhong411]

​

Trong thực tế, nếu dùng công thức Excel để giải quyết một bài toán tách họ và tên, chúng ta phải mất rất nhiều thời gian và phải năm vững kiến thức về các hàm văn bản. Nhưng nếu chúng ta sử dụng VBA, một ngôn ngữ lập trình trên
Excel, chúng ta chỉ cần dùng một số hàm cơ bản trong VBA là có thể giải quyết bài toán một cách đơn giản. Và sau này chúng ta có thể sử dụng lặp lại trong các file Excel khác nhau. Để trải nghiệm thêm nhiều kiến thức về VBA và phương pháp lập trình khoa học, mình xin giới thiệu tới các bạn khóa đào tạo lập trình VBA cơ bản trong Excel tại công ty cổ phần Bluesofts, khóa học sẽ mang lại cho bạn nhiều kiến thức bổ ích, đáp ứng nhu cầu công việc của mình.
[GPECODE=vb]
Function TachHoTen(ByVal sHoVaTen As String, Optional ByVal bLayHo As Boolean = True) As String
Dim p As Long
p = InStrRev(sHoVaTen, " ")
If bLayHo Then
TachHoTen = Left(sHoVaTen, p - 1)
Else
TachHoTen = Right(sHoVaTen, Len(sHoVaTen) - p)
End If
End Function
[/GPECODE]

 

[AnhPhong411]

Để giải quyết một bài toán tính tuổi, bằng công thức Excel chúng ta cần phải nắm được các cấu trúc hàm khác nhau, và phải biết cách lồng ghép các hàm. Nhưng khi chúng ta viết thành một hàm cụ thể thì chúng ta chỉ cần sử dụng, không cần phải nhớ nhiều công thức , giúp tiết kiệm thời gian và công sức cho chúng ta rất nhiều. Để tìm hiểu nhiều hàm bổ ích và ý nghĩa, những bài toán mà Excel chưa làm được, nhưng VBA sẽ giải quyết được. Mình xin giới thiệu cho các bạn khóa đào tạo VBA cơ bản trong Excel do công ty Bluesofts tổ chức. Để tìm hiểu nội dung chương trình học, khóa đào tạo và các bạn có nhu cầu tham gia khóa học các bạn tìm hiểu tại link dưới đây.
Link đăng ký học.
[GPECODE=vb]
Function TinhTuoi(ByVal dNgaySinh As Date) As Byte
TinhTuoi = Year(Date) - Year(dNgaySinh)
End Function
[/GPECODE]

 

[AnhPhong411]

​

Khi tham gia khóa học các bạn sẽ được thực hành, làm những bài toán thực tế, ví dụ như bài toán dưới đây. Sẽ tạo ra 1 Form tách ngày hôm nay thành ngày tháng năm như hình ảnh khi mình chạy code tách ngày ở dưới. Các bạn copy thủ tục về để chạy và nhận kết quả nhé..
[GPECODE=VB]
Sub TestTachNgay()
Dim iNgay As Byte, iThang As Byte, iNam As Long
Dim s As String
TachNgay Date, iNgay, iThang, iNam
s = "Ngay: " & iNgay & Chr(13) & Chr(10) & "Thang: " & iThang & Chr(13) & Chr(10) & "Nam: " & iNam
MsgBox s, vbInformation, "Ket qua tach ngay"
End Sub
[/GPECODE]

 

[AnhPhong411]

Để tìm hiểu được hàm và thủ tục trong Excel, các bạn có nhu cầu, muốn tìm hiểu chuyên sâu hơn về VBA. Mình xin giới thiệu với các bạn khóa đào tạo VBA cơ bản trong Excel do công ty cổ phần Bluesofts. Trong khóa học các bạn sẽ được trãi nghiệm nhiều kiến thức bỗ ích và sát thực với thực tế, giúp giải các bài toán Excel mà lâu nay các bạn vẫn chưa tìm ra phương pháp giải...
Các bạn vào link sau để tìm hiểu về chương trình đào tạo của công ty. Link khóa học

[GPECODE=vb]
Sub TimDongTrong()
Dim iRow As Long, sColName As String
sColName = InputBox("Vao ten cot can tim dong trong:", , "a")
iRow = 1
Do While Range(sColName & iRow).Value <> "" And iRow < 65536
iRow = iRow + 1
Loop
MsgBox "Dong Trong la dong thu:" & iRow
End Sub
[/GPECODE]

 

[AnhPhong411]

Bài toán hôm nay mình giới thiệu cho các bạn là một bài toán tính tổng. Tính tổng thông thường chúng ta dùng hàm Sum, nhưng hôm nay mình cần tính tổng của số lượng đứng đầu. Ví dụ trong bài toán trên, mình cần tính tổng của 9 cột đầu tiên, mình chỉ cần gõ là =SumTops(D219,9) là sẽ tính tổng của 9 cột đầu tiên. Nếu cần tính cho bao nhiêu cột thì mình thay đổi đối số thứ hai nhé.
Để có được hàm trên các bạn làm các bước sau:
Bước 1: Nhấn tổ hợp phím ALT+F11 để vào môi trường VBA. Vào menu Insert->Module - Tạo module
Bước 2: Copy đoạn code dưới đây dán vào module
[GPECODE=VB]
Function SumTops(rng As Range, s As Long) As Double Dim I As Long
Do While I <= rng.Rows.Count
I = I + 1
If I > s Then
Exit Do
End If
SumTops = SumTops + rng.Cells(I, 1).Value
Loop
End Function
[/GPECODE]
Bước 3: ALT+F11 để trở về môi trường bảng tính của người dùng
Giả sử để tính tổng cho 10 dong đầu tiên các bạn chỉ cần gõ: = SumTops(Vùng dữ liệu,10).

 

[doveandrose]

ủa sao ở trên lúc thì 9 cột lúc thì 10 dòng là sao vậy bạn ?

 

[hpkhuong]

ủa sao ở trên lúc thì 9 cột lúc thì 10 dòng là sao vậy bạn ?

Ờ chắc nhầm xíu thôi mà...!