MsgBox và InputBox v3.30: tiếng Việt, nhập ẩn, đếm ngược, bảng dữ liệu (Excel, Word, Access, PowerPoint) (1 người xem)

[HeSanbi]

Bài viết không đủ trình độ chia sẻ trợ giúp trên diễn đàn, bài viết đã được xóa.

 

[Nhattanktnn]

Hôm nay tôi chia sẻ với các bạn hai hàm MsgBox và InputBox mới này nhầm thay thế hàm mặc định trong VBA, được cải tiến để phù hợp với những nhu cầu người sử dụng, như: tiếng Việt, nhập ẩn giá trị, đếm ngược. Kỹ thuật viết mã để đếm ngược đóng Box rất linh hoạt khi đặt giá trị mặc định nút.

Mã được viết tận dụng Classes để tiết kiệm bộ nhớ, nhầm giảm quá trình thông dịch mã không cần thiết làm tổn hao tài nguyên máy tính.


Hướng dẫn sử dụng:

(Lưu ý: hàm mới nhưng thứ tự các tham số Parameters giống với hàm của VB)​

Hàm MsgBox mới:

Hàm MsgBox mới này sẽ nhập được chuỗi Unicode và đếm ngược thời gian, với việc đặc thời gian và giá trị mặc định để nhận giá trị đã đặt khi hết thời gian chọn.​

Hàm sử dụng trong mã VBA:​

Call MsgBox(Prompt:="Xin ch" & ChrW(224) & "o")​

Vị trí	Tham số	Kiểu	Chức năng
1​	Prompt	Chuỗi	Ô trả kết quả
2​	buttons	Số	Kiểu các nút hiển thị
3​	title	Chuỗi	Tiêu đề Box
4​	Default	Số	Giá trị trả về nếu quá thời gian, mặc định 32000
5​	TimeOutSeconds	Số	Số giây đếm ngược để đóng box
6​	hwnd	Số	Handle của Window
7​	button1	Chuỗi	Chuỗi thay thế Nút thứ nhất
8​	button2	Chuỗi	Chuỗi thay thế Nút thứ hai
9​	button3	Chuỗi	Chuỗi thay thế Nút thứ ba
10​	ShowUnderCursor	Có/Không	Hiện Box ngay tại vị trí con trỏ chuột

Các giá trị buttons - Kiểu các nút hiển thị:

#​	Giá trị mặc định	Các nút hiển thị
1​	vbOkOnly = 0	Xác nhận
2​	vbOkCancel = 1	Xác nhận + Hủy
3​	vbAbortRetryIgnore = 2	Hủy bỏ + Thử lại + Thử lại
4​	vbYesNoCancel = 3	Có + Không + Hủy
5​	vbYesNo = 4	Có + Không
6​	vbRetryCancel = 5	Thử lại + Hủy

Các giá trị MsgBox trả về:

#​	Giá trị mặc định	Chức năng
1​	vbOk = 1	Xác nhận
2​	vbCancel = 2	Hủy
3​	vbAbort = 3	Hủy bỏ
4​	vbRetry = 4	Thử lại
5​	vbIgnore = 5	Bỏ qua
6​	vbYes = 6	Có
7​	vbNo = 7	Không
8​	vbOutTime = 32000	Hết thời gian chọn

Ví dụ đặt giá trị mặc định cho MsgBox:

Nếu gọi như sau:​

Call MsgBox(Prompt:="Xin ch" & ChrW(224) & "o",Default:=VbNo,Button:=VbYesNoCancel)​

Thì sau khi hết thời gian chọn thì giá trị VbNo sẽ được trả về.​

Và đếm ngược sẽ hiện thị tại nút vbNo. Nếu không đếm ngược sẽ hiện tại nút vbCancel​

​

View attachment 290922​

Hàm InputBox mới:

Hàm InputBox mới này sẽ nhập được chuỗi Unicode và đếm ngược thời gian, tùy chọn ẩn giá trị nhập đổi thành dấu sao (*). Có tùy chọn hiện Box ngay tại vị trí chuột.​

​

View attachment 290923​

​

Hàm sử dụng trong mã VBA:​

Call InputBox(Prompt:="Xin ch" & ChrW(224) & "o",CharPassword:=True,ShowUnderCursor:=True) ​

Vị trí	Tham số	Kiểu	Chức năng
1​	Prompt	Chuỗi	Ô trả kết quả
2​	title	Chuỗi	Tiêu đề Box
3​	Default	Bất kỳ	Đặt giá trị trả về mặc định
4​	x	Số	Dịch cửa sổ ngang
5​	y	Số	Dịch cửa sổ dọc
5​	HelpFile	chuỗi	Tệp hướng dẫn
6​	Context	Chuỗi
7​	TimeOutSeconds	Số	Số giây đếm ngược để đóng box
8​	CharPassword	Có/Không	Chuyển ký tự nhập thành dấu sao (*)
9​	ShowUnderCursor	Có/Không	Hiện Box ngay tại vị trí con trỏ chuột

****Thủ tục bổ trợ để tạo mã từ chuỗi tiếng Việt:
Hãy chạy thủ tục MakeCodeUnicode, và nhập tiếng Việt vào Box, chuỗi sẽ được chuyển thành mã và lưu vào Clipboadrd




Để sử dụng được hai hàm mới hãy sao chép Module và Class trong tệp ứng dụng bên dưới vào dự án của bạn.

-------------------------------------------------------------------
Để có thể viết mã nhanh chóng hoặc chuyển chuỗi Unicode tiếng Việt thành mã các bạn hãy tham khảo Tools VBA:

VBA_FastCode v2.2 - Công cụ học và viết mã VBA một cách nhanh nhất (27/10/2023)

***** CẬP NHẬT MỚI v2.2 ***** -------------------------------------------------------------------------- Add-in được chia sẻ dưới đây, đó là những gì tôi hiểu biết về VBA và đã viết ra nó. Một Add-in Tools chỉnh sửa code VBA rất đơn giản nhưng có thể giúp các bạn học VBA và viết code nhanh...

www.giaiphapexcel.com

-------------------------------------------------------------------
Bạn có thể đọc thêm các bài biết của tôi tại tag #sanbi udf

Thử trên máy mình, thì bị lỗi tiếng Việt:

 

[HeSanbi]

Thử trên máy mình, thì bị lỗi tiếng Việt:
View attachment 290933

Bạn sử dụng winspy, chụp handle của các nút và thông báo được không

 

[Nhattanktnn]

Bạn sử dụng winspy, chụp handle của các nút và thông báo được không

Ý bạn là cái này:

 

[HeSanbi]

Ý bạn là cái này:

Bạn chụp handle của chuỗi Nhập Mật Khẩu

 

[Nhattanktnn]

Bạn chụp handle của chuỗi Nhập Mật Khẩu

Đây bạn : . . .

 

[HeSanbi]

@Nhattanktnn Bạn tải tệp thử lại xem còn lỗi không

 

[Nhattanktnn]

@Nhattanktnn Bạn tải tệp thử lại xem còn lỗi không

Vẫn còn lỗi nha bạn:

 

[HeSanbi]

@Nhattanktnn Bạn thử lại, không biết thông số windows và office của bạn khác thế nào mà có lỗi này.

 

[Nhattanktnn]

@Nhattanktnn Bạn thử lại, không biết thông số windows và office của bạn khác thế nào mà có lỗi này.

Bây giờ chữ "Xác nhận" đã hết bị lỗi. Những mục còn lại vẫn bị.
Handle mình xem thì cả 3 đều giống nhau

 

[HeSanbi]

@Nhattanktnn Hàm MsgBox không bị lỗi phải không bạn.
Bạn tải lại lần nữa.
Lí do là cửa sổ InputBox trên máy của bạn được cấu hình khác.

 

[Nhattanktnn]

@Nhattanktnn Hàm MsgBox không bị lỗi phải không bạn.
Bạn tải lại lần nữa.
Lí do là cửa sổ InputBox trên máy của bạn được cấu hình khác.

Hàm Msgbox không lỗi nha bạn.
Input box giờ chỉ còn lỗi mỗi "Nhập mật khẩu" nữa thôi

 

[ongke0711]

Cái lỗi này chắc còn liên quan đến thiết lập trong Region nữa.

 

[HeSanbi]

@Nhattanktnn
Bạn tải lại lần nữa

 

[Nhattanktnn]

@Nhattanktnn
Bạn tải lại lần nữa

Hết lỗi rồi nha bạn


Gửi BQT: Không hiểu vì sao mấy lần bạn @HeSanbi gõ tên em vào nhưng không có trong hộp thông báo, nhờ BQT xem giúp vấn đề ạ!

 

[HeSanbi]

*** Cập nhật: Bổ sung tệp cho hai hàm MsgBox và InputBox mã viết chỉ ở trong một Module duy nhất.

 

[Ngày mai trời lại sáng]

Hay quá hay, ăn đứt cái "đê lờ lờ vài mê của ai đó" luôn! Cảm ơn bác.

 

[HeSanbi]

***** CẬP NHẬT ObjectBoxVNI 2.1 *****
Thêm tùy chọn Hiển thị Box chính giữa cửa sổ

 

[HeSanbi]

***** SIÊU CẬP NHẬT MỚI v2.3 *****

1. Thêm các chuyển động hoạt ảnh hiện và ẩn Box sau khi hết đếm ngược.
2. Thêm đối số nhận vị trí hiện cửa sổ
3. Thêm hiện dữ liệu bảng trên MsgBox
4. Thêm Icon cho cửa sổ
   
5. Sửa lỗi unicode trong ô nhập InputBox

Với bản cập nhật này hàm MsgBox và InputBox sẽ tuyệt vời hơn

**** Dự kiến bản cập nhật tiếp sẽ cho phép thêm ảnh vào MsgBox và InputBox.

Các bạn hãy đọc lại bài viết chính để xem chi tiết cập nhật

 

[Trần Văn Bình]

Không viết nhiều VBA mà xem Class hoa cả mắt

 

[HeSanbi]

Phát hiện lỗi nhập mảng nên tôi đã cập nhật v2.2 lên v2.3

 

[1050167]

Phát hiện lỗi nhập mảng nên tôi đã cập nhật v2.2 lên v2.3

Bạn cho mình hỏi muốn dùng hộp thoại Inputbox hiển thì được tiếng việt trong word thì làm thế nào ạ?

 

[HeSanbi]

***** CẬP NHẬT MỚI v2.4 *****
Mã tương thích tất cả phiên bản Office và ứng dụng Office Excel, Word, Access, PowerPoint

Bạn cho mình hỏi muốn dùng hộp thoại Inputbox hiển thì được tiếng việt trong word thì làm thế nào ạ?

Câu hỏi của bạn khá là hay, tôi đã viết mã tương thích hầu hết ứng dụng Office các phiên bản vào bản mới v2.4, bạn chỉ cần tải về vào VBA kéo module và class module vào dự án Office của bạn, và sử dụng hai hàm trên.

 

[1050167]

***** CẬP NHẬT MỚI v2.4 *****
Mã tương thích tất cả phiên bản Office và ứng dụng Office Excel, Word, Access, PowerPoint



Câu hỏi của bạn khá là hay, tôi đã viết mã tương thích hầu hết ứng dụng Office các phiên bản vào bản mới v2.4, bạn chỉ cần tải về vào VBA kéo module và class module vào dự án Office của bạn, và sử dụng hai hàm trên.

Cảm ơn bạn nhiều. Đúng cái mình tìm bấy lâu nay.

 

[1050167]

***** CẬP NHẬT MỚI v2.4 *****
Mã tương thích tất cả phiên bản Office và ứng dụng Office Excel, Word, Access, PowerPoint



Câu hỏi của bạn khá là hay, tôi đã viết mã tương thích hầu hết ứng dụng Office các phiên bản vào bản mới v2.4, bạn chỉ cần tải về vào VBA kéo module và class module vào dự án Office của bạn, và sử dụng hai hàm trên.

Xin cho mình hỏi sao mình làm thế này mà bảng inputbox không hiện ra giữa cửa sổ?

 

[HeSanbi]

Xin cho mình hỏi sao mình làm thế này mà bảng inputbox không hiện ra giữa cửa sổ?

Đó là lỗi trong mã, bạn tải bản v2.5 để sửa lỗi này

 

[1050167]

Cảm ơn

HeSanbi​

 

[HeSanbi]

Xin lỗi lại làm phiền bạn 1 chút. Mình gán giá trị a bằng hàm inputbox nhập vào khi ấn lệnh hủy thì bị lỗi như hình. Khắc phục lỗi này thế nào ạ.

Dim a và Dim a As Integer, hãy cẩn thận khi khai báo

 

[Nhattanktnn]

Đó là lỗi trong mã, bạn tải bản v2.5 để sửa lỗi này

Trên máy mình lại tiếp tục lỗi font nhé bạn:

 

[1050167]

HeSanbi để MsgBox hiện thị thêm biểu tượng trong thông báo nữa được không bạn?

 

[HeSanbi]

HeSanbi để MsgBox hiện thị thêm biểu tượng trong thông báo nữa được không bạn?View attachment 292179

Các biểu tượng là căn bản của MsgBox: buttons:=VbOkOnly + vbExclamation

 

[HeSanbi]

***** DEMO BẢN v3.0 *****
Thêm nhiều chức năng:

1. Âm thanh khi hiện ẩn box, hoặc khi nhấn nút.
2. Chế độ Modaless: khi Box hiện lên thì vẫn có thể thao tác với trang tính.
3. Chế độ hiện box và đợi cho đến khi thực thi mã hoàn thành.

 

[chucuoi92]

Mình có thử thì thấy msgbox thì ok , còn nhấn thử vào "Nhấn Thử InputBox nhập" thì excel đơ luôn ,thử đi thử lại vài lần vẫn vậy

 

[Nhattanktnn]

Mình có thử thì thấy msgbox thì ok , còn nhấn thử vào "Nhấn Thử InputBox nhập" thì excel đơ luôn ,thử đi thử lại vài lần vẫn vậy

Đúng, mình cũng gặp tình trạng như vậy

 

[HeSanbi]

Bản 3 hay 2 vậy 2 bạn

 

[chucuoi92]

Bản 3 hay 2 vậy 2 bạn

mình tải bản 3 nhé bạn.

 

[Nhattanktnn]

Bản 3 hay 2 vậy 2 bạn

Mình thử bản 3.0. Nhưng bạn hỏi thì thử thêm bản 2.6 nữa, bản 2.6 này thì cả msgbox bấm vào cũng bị đóng file luôn

 

[HeSanbi]

***** CẬP NHẬT Bản v2.7 và v3.1 *****
Sửa lỗi làm ngưng Excel

 

[HeSanbi]

***** CẬP NHẬT BẢN v3.2 *****

Thêm kiểu nhập thông báo và tiêu đề tiếng Việt với mã Telex

Ví dụ mã:

Sub MsgBox_unicodeTelex_test()
  Dim o As Object, s%, t$
  t = "Ma.x hoa.s va.f giai.r ma.x voi.ws VNiTelex"
  s = 4: Set o = Nothing
  MsgBox Prompt:="Tieu.e dde.ef va.f chuoi.ox tai.j thong.o bao.s nay.f dduoc.wj ma.x hoa.s\nvoi.ws ham.f VNiTelex va.f giai.r ma.x voi.ws VNiTelexDecode", _
        title:=t, Default:=vbYes, location:=ABLCursor, buttons:=vbYesNoCancel + vbCritical, TimeOutSeconds:=s, TelexVNI:=True
 
End Sub

Hướng dẫn tạo chuỗi Unicode tại bài viết:

VNiTelex v1.21 - Hàm mã hóa giải mã chuỗi Unicode và Tiếng Việt cho mã VBA

Bài viết không đủ trình độ chia sẻ trợ giúp trên diễn đàn, bài viết đã được xóa.

www.giaiphapexcel.com

 

[HeSanbi]

CẬP NHẬT MỚI 03/08/2024

1. Sửa mã nguồn phiên bản cũ
2. Thêm thủ tục tạo thông báo nổi Window

Thủ tục ShowBalloonTip:

Hiển thị thông báo nổi Window​

​

​

Vị trí	Tham số	Chức năng​
1​	Message	Tin nhắn thông báo
2​	title	Tiêu đề thông báo
3​	Icon	Icon thông báo beNone = 0 không có icon beInformation = 1 thông tin beWarning = 2 Cảnh báo beError = 3 Lỗi beNoSound = &H10 Không có âm thanh
4​	Timeout	Thời gian tự động đóng thông báo

Ví dụ: thông báo tin nhắn "Hello Excel!", Tiêu đề là "Cảnh báo", với thông báo lỗi và không có âm thanh.​

ShowBalloonTip "Hello Excel!", "Canh.r bao.s", beError Or beNoSound​

 

[HeSanbi]

CẬP NHẬT MỚI v3.30 24/11/2024

Thêm nhập liệu tiếng Việt cho inputBox​

Phương thức VBA.InputBox không hỗ trợ nhập chuỗi Unicode. Bản cập nhật mới giúp khắc phục nhược điểm này.​

Thêm hoạt ảnh đóng cửa sổ khi nhấn nút để có cái nhìn trực quan, thay cho việc cửa sổ đóng ngay lập tức​

​

 

[Mutants Men]

CẬP NHẬT MỚI 03/08/2024

1. Sửa mã nguồn phiên bản cũ
2. Thêm thủ tục tạo thông báo nổi Window

Thủ tục ShowBalloonTip:

Hiển thị thông báo nổi Window​

​

​

Vị trí	Tham số	Chức năng​
1​	Message	Tin nhắn thông báo
2​	title	Tiêu đề thông báo
3​	Icon	Icon thông báo beNone = 0 không có icon beInformation = 1 thông tin beWarning = 2 Cảnh báo beError = 3 Lỗi beNoSound = &H10 Không có âm thanh
4​	Timeout	Thời gian tự động đóng thông báo

Ví dụ: thông báo tin nhắn "Hello Excel!", Tiêu đề là "Cảnh báo", với thông báo lỗi và không có âm thanh.​

chạy thử không thấy hiện gì cả anh ơi

 

[HeSanbi]

@Mutants Men Đổi thiết lập như hình bạn nhé

 

[test1986]

Anh @HeSanbi cho em hỏi để áp dụng được ver3.30 này vào file excel của em thì có yêu cầu cấu hình máy tính hay version Office như nào không ạ?
Vì em đang sử dụng là window 10 pro và office365 nhưng mở file mẫu của anh lên thử chạy là bị treo, sau đó ứng dụng Excel tự tắt.

 

[HeSanbi]

@test1986 ứng dụng mình viết tương thích hầu hết nền tảng, nhưng vẫn không lường trước được một số trường hợp nhất định.
Trước tiên bạn thử đặt đếm ngược TimeoutSeconds:=0 vào phương thức xem có bị nữa không.

 

[HeSanbi]

@test1986 Mình đã kiểm tra lại, bản 3.30 đã lỗi API, mình sẽ sửa sau. Bạn có thể tải bản 2.85 để sử dụng.