Tặng các bạn Unicode Menu trong Userform - UMU (SourceCode)

hungktvn

Thành viên mới
Tham gia ngày
19 Tháng ba 2009
Bài viết
5
Được thích
0
Điểm
0
Nơi ở
TP.HCM
Máy của tôi sử dụng Win8 64 bit nên khi mở bị báo lỗi

Tôi có 1 file kho viết trên nền win XP 32bit, giờ sử dụng win8 64 bit nó không chạy được, anh chị em có giải pháp khắc phục nào hỗ trợ tôi với.
Cám ơn
 

File đính kèm

Nguyễn Duy Tuân

Nghị Hách
Thành viên danh dự
Tham gia ngày
13 Tháng sáu 2006
Bài viết
4,192
Được thích
9,684
Điểm
860
Nơi ở
Hà Nội
Máy của tôi sử dụng Win8 64 bit nên khi mở bị báo lỗi

Tôi có 1 file kho viết trên nền win XP 32bit, giờ sử dụng win8 64 bit nó không chạy được, anh chị em có giải pháp khắc phục nào hỗ trợ tôi với.
Cám ơn
File cucar bạn không liên quan đến chủ đề này. Bạn khóa mã nguồn nên không thể giúp bạn được. Nhưng tôi đoán trong form của bạn có sử dụng các hàm API.
 

trangvang192

Thành viên mới
Tham gia ngày
23 Tháng mười hai 2014
Bài viết
17
Được thích
1
Điểm
0
Tuổi
34
Hay qúa nhỉ!
Bạn Tuân! Excel có thể viết được đầy đủ một phần mềm tính tiền trong quán ăn được không?
 

quykh

Chim non
Tham gia ngày
7 Tháng chín 2011
Bài viết
377
Được thích
41
Điểm
385
Nơi ở
Đồng Nai
Bác Tuân giúp em với, em có tải file của Bác về và có thêm vào code UserForm_Terminate:
Mã:
Private Sub UserForm_Terminate()    
   Set MyUMUMenu = Nothing
    [B][COLOR=#ff0000]ThisWorkBook.Save
    ThisWorkBook.Close[/COLOR][/B]
End Sub
Ý định của em là đóng Form thì Lưu và đóng excel, thế nhưng khi code chạy lại treo luôn Excel.Mong Thầy giúp đỡ.
 

comet_1701

Thành viên tiêu biểu
Tham gia ngày
24 Tháng năm 2014
Bài viết
632
Được thích
454
Điểm
0
Tuổi
41
Bác Tuân giúp em với, em có tải file của Bác về và có thêm vào code UserForm_Terminate:
Mã:
Private Sub UserForm_Terminate()    
   Set MyUMUMenu = Nothing
    [B][COLOR=#ff0000]ThisWorkBook.Save
    ThisWorkBook.Close[/COLOR][/B]
End Sub
Ý định của em là đóng Form thì Lưu và đóng excel, thế nhưng khi code chạy lại treo luôn Excel.Mong Thầy giúp đỡ.
Tác giả đợt này bận lắm bạn ah (đang mở nhiều lớp giảng dạy mới) nên ko vào GPE nhiều được, bạn theo chân chữ ký của anh ý, có số di động hoặc chát với tác giả nhé. Bạn sẽ dễ dàng liên lạc hơn hoặc đợi thành viên khác trợ giúp nhé. Chúc bạn thành công.
 

Hoàng Trọng Nghĩa

Chuyên gia GPE
Thành viên BQT
Moderator
Tham gia ngày
17 Tháng tám 2008
Bài viết
7,620
Được thích
15,205
Điểm
1,910
Tuổi
43
Nơi ở
TPHCM
Bác Tuân giúp em với, em có tải file của Bác về và có thêm vào code UserForm_Terminate:
Mã:
Private Sub UserForm_Terminate()    
   Set MyUMUMenu = Nothing
    [B][COLOR=#ff0000]ThisWorkBook.Save
    ThisWorkBook.Close[/COLOR][/B]
End Sub
Ý định của em là đóng Form thì Lưu và đóng excel, thế nhưng khi code chạy lại treo luôn Excel.Mong Thầy giúp đỡ.
Bạn nên tạo một cái Sub gọi Form rồi code nằm ở trong đó như sau:

Sub MenuFormShow()
TenForm.Show
ThisWorkBook.Close True
End Sub
 

quykh

Chim non
Tham gia ngày
7 Tháng chín 2011
Bài viết
377
Được thích
41
Điểm
385
Nơi ở
Đồng Nai
Mong Anh chỉ rỏ dùm. Em có tạo code trong thisWorkBook_Open: frmDemo.show
Em thử code của Anh vẫn treo.
 

quykh

Chim non
Tham gia ngày
7 Tháng chín 2011
Bài viết
377
Được thích
41
Điểm
385
Nơi ở
Đồng Nai
chắc Bác Tuân bận việc, chưa rảnh. Mong Bác Tuân giúp đỡ. Cám ơn mọi người
 

quykh

Chim non
Tham gia ngày
7 Tháng chín 2011
Bài viết
377
Được thích
41
Điểm
385
Nơi ở
Đồng Nai
Ý của em là mở menForm của Bác lên làm việc xong, nhấn "Thoát" thì Close Form->Save WorkBooks->Close WorkBooks. Mà Bác có thể cho hiện nút Max.Min,Close của Form được không ah????
 

Nguyễn Duy Tuân

Nghị Hách
Thành viên danh dự
Tham gia ngày
13 Tháng sáu 2006
Bài viết
4,192
Được thích
9,684
Điểm
860
Nơi ở
Hà Nội
Cám ơn Bác Tuân, Sub đó đặt ở đâu vậy Bác.
Đặt code của mìnhvtrong module. Còn từ đâu gọi thủ tục ChayCT thì tuỳ vào mục đích cụ thể của bạn. Có thể gọi từ Thisworkbook_Open() hoặc từ CommandButton
 

quykh

Chim non
Tham gia ngày
7 Tháng chín 2011
Bài viết
377
Được thích
41
Điểm
385
Nơi ở
Đồng Nai
Bác Tuân có thể làm cho Form có nút Min, Max, Close được không ah!!!!! Chờ tin của Bác.
 

Nguyễn Duy Tuân

Nghị Hách
Thành viên danh dự
Tham gia ngày
13 Tháng sáu 2006
Bài viết
4,192
Được thích
9,684
Điểm
860
Nơi ở
Hà Nội
Phiên bản mới Unicode Menu In Userform Version 1.2.2, ngày 26-10-2015

Phiên bản mới UMU - Unicode Menu In Userform Version 1.2.2 ngày 26-10-2015

v1.2.2: (26-Oct-2015)
+ Sửa: tính lại độ rộng menu, phiên bản cũ bị lệch trên một số phiên bản Windows mớ.
+ Thêm: nút phóng to, thu nhỏ, resize form

[GPECODE=vb]
'Set userform style
Option Explicit
Const GWL_STYLE = (-16)
Const GWL_EXSTYLE = (-20)
Const WS_MAXIMIZE = &H1000000
Const WS_MAXIMIZEBOX = &H10000
Const WS_MINIMIZE = &H20000000
Const WS_MINIMIZEBOX = &H20000
Const WS_THICKFRAME = &H40000
Const WS_SIZEBOX = WS_THICKFRAME

lPrevStyle = GetWindowLong(hForm, GWL_STYLE)
SetWindowLong hForm, GWL_STYLE, lPrevStyle Or _
(WS_MINIMIZEBOX Or WS_MAXIMIZEBOX Or WS_SIZEBOX)
[/GPECODE]





DOWNLOAD v1.2.2 tại bài đầu tiên của topic này.
 

sieunhanhoi

Thành viên mới
Tham gia ngày
28 Tháng một 2016
Bài viết
1
Được thích
0
Điểm
0
Tuổi
26
Khi chạy bị lỗi thế này thì sửa thế nào hả bác :( Em đang dùng win 8.1 64 bit
Clipboard_20160223.jpg
 
Top Bottom