Mở lớp học Lập trình VBA trong Excel CƠ BẢN - Hà Nội, khai giảng 17h30, 28/05/2017

[AnhPhong411]

BQT nên để các dạng mục, bài viết thế này vào một mục riêng lẫn lộn lộn xộn vào mục bài mới thế này (?)

Chào bạn,
Cảm ơn bạn góp ý. Mình sẽ tạo mục lục trên trang 1,2 nếu được.

 

[AnhPhong411]

Hiển thị MsgBox chữ có dấu tiếng việt - Unicode


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:

[gpecode=vb]
'Khai bao cac ham API trong thu vien User32.DLL. Chạy trong môi trường Office 32 hoặc 64-bit
#If VBA7 Then
Private Declare PtrSafe Function GetActiveWindow Lib "user32" () As LongPtr
Private Declare PtrSafe Function MessageBoxW Lib "user32" (ByVal hwnd As LongPtr, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long
#Else
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
#End If[/gpecode]
[gpecode=vb]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[/gpecode]

'**************************************** 'Tac gia: Nguyen Duy Tuan 'Tel : 0904.210.337 'E.Mail : tuanktcdcn@yahoo.com 'Website: www.bluesofts.net '**************************************** ​

XEM CHI TIẾT TẠI ĐÂY

Để tìm hiểu thêm nhiều kiến thức bổ ích và tự mình xây dựng nhiều nhóm hàm công thức phức tạp các bạn hãy tham gia khóa học Đào tạo VBA trong Excel cơ bản và trải nghiệm nhé.

 

[AnhPhong411]

Mình xin chia sẻ cho các bạn video giới thiệu một phần mềm nhỏ về quản lý chất lượng công trình của một học viên sau khi học xong khóa học Lập trình VBA trong Excel cơ bản của công ty cổ phần Bluesofts để các bạn tham khảo.

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

Để tìm hiểu thêm nhiều kiến thức về VBA, các bạn tham khảo tại khóa đào tạo Lập trình VBA trong excel cơ bản của công ty.
Xem đầy đủ thông tin khóa học tại đây

 

[AnhPhong411]

Lập trình VBA trong Excel kết nối CSDL trong mạng LAN, Internet - A-Tools

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 trình 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.

​

Để học hỏi thêm nhiều kiến thức bổ ích trong VBA mời các bạn tham khảo thêm khóa học Lập Trình VBA trong Excel Cơ Bản nhé.
Đăng ký học: http://bluesofts.net/daotaothuchanh/daotaovbacoban.html
​