Các bạn giúp mình "gán 2 macro vào một nút lệnh"

[nguyenhuuthong]

Hiện tại mình dùng macro ẩn cột & hiện cột. Bây h mình muốn gọn hơn, gán 2 macro vào một nút lệnh thôi, các cao thủ giúp mình nhé, xin cảm ơn trước.

 

[Quang_Hải]

Hiện tại mình dùng macro ẩn cột & hiện cột. Bây h mình muốn gọn hơn, gán 2 macro vào một nút lệnh thôi, các cao thủ giúp mình nhé, xin cảm ơn trước.

Bạn vẽ thêm cái nút Commandbutton và cho code này vào nút lệnh, không cần can thiệp tới menu làm gì cho rắc rối

Private Sub CommandButton1_Click()
With ActiveSheet.CommandButton1
   .Caption = IIf(.Caption = "AN", "HIEN", "AN")
   [G1].EntireColumn.Hidden = .Caption = "HIEN"
End With
End Sub

 

[nguyenhuuthong]

Cách của bạn cũng được, nhưng nếu cách này mình sẽ có đến 35 buton, bạn có cách nào làm gọn hơn ko. Nếu dùng macro và đưa vào Menu thì sẽ gọn hơn không? Thanks you.

 

[Quang_Hải]

Cách của bạn cũng được, nhưng nếu cách này mình sẽ có đến 35 buton, bạn có cách nào làm gọn hơn ko. Nếu dùng macro và đưa vào Menu thì sẽ gọn hơn không? Thanks you.

Bạn đưa cái code cần 35 button lên xem coi nó ra sao mới tính tiếp. Vì bài 1 chỉ có 2 sub thôi, mới đó nhảy cái ào lên ai chịu nổi chứ.

 

[nguyenhuuthong]

Cái này tương đương vói 14 buton đây bạn. Còn 35 buton mình sắp làm. Cám ơn.

 

[nguyenhuuthong]

File đính kèm đây bạn.

 

[Kiều Mạnh]

File đính kèm đây bạn.

Xạo file mô

 

[nguyenhuuthong]

File đây, cái mạng bực quá, vô mediafire ko dc

File đính kèm đây bạn.
http://www.mediafire.com/view/1tkrbh0wz5e0n5z/gpe.xls

 

[Quang_Hải]

File đính kèm đây bạn.

Xóa bớt dữ liệu, chỉ để lại vừa đủ để hiểu muốn gì. Load file tại diễn đàn cho gọn. File upload tại trang khác mình ít khi nào tải về.

 

[nguyenhuuthong]

Xóa bớt dữ liệu, chỉ để lại vừa đủ để hiểu muốn gì. Load file tại diễn đàn cho gọn. File upload tại trang khác mình ít khi nào tải về.

Còn có nhiêu đó đung lượng tải lên thôi anh ơi.

 

[Kiều Mạnh]

Bạn thử dùng Wirar nén và cắt làm 3 file xem thế nào nha. rồi úp lên
xem hình nha
đọc kỹ hướng dẫn sử dụng trước khi dùng

 

[Quang_Hải]

Bạn thử dùng Wirar nén và cắt làm 3 file xem thế nào nha. rồi úp lên
xem hình nha
đọc kỹ hướng dẫn sử dụng trước khi dùng

Không phải đâu, chủ topic đã xài hết quota của GPE cấp rồi. Ai kêu xài phí quá làm chi. Hồi đó lúc mới tham gia mình cũng chơi sang lắm, sau này mới tiết kiệm. Gởi file là nén nhỏ xíu.

 

[nguyenhuuthong]

Bạn thử dùng Wirar nén và cắt làm 3 file xem thế nào nha. rồi úp lên
xem hình nha
đọc kỹ hướng dẫn sử dụng trước khi dùng

Đó là 3 bytes chứ ko phải 3 file bạn ah. Cái dung lượng chỉ còn update la 1MB-955kb thôi, hình như là phải xóa bài viết cũ thì phải, có bạn nào biết cách nhanh chỉ giúp mình nhé.

 

[Quang_Hải]

Đó là 3 bytes chứ ko phải 3 file bạn ah. Cái dung lượng chỉ còn update la 1MB-955kb thôi, hình như là phải xóa bài viết cũ thì phải, có bạn nào biết cách nhanh chỉ giúp mình nhé.

Tìm lại bài cũ, xóa file không cần thiết đi. Rút kinh nghiệm, up file chỉ vừa đủ để hiểu là được rồi.
Trước khi gởi chịu khó nén lại.
Muốn xóa file, chọn tải file từ máy, sẽ nhìn thấy cái nút Remove

 

[nguyenhuuthong]

Tìm lại bài cũ, xóa file không cần thiết đi. Rút kinh nghiệm, up file chỉ vừa đủ để hiểu là được rồi.
Trước khi gởi chịu khó nén lại.
Muốn xóa file, chọn tải file từ máy, sẽ nhìn thấy cái nút Remove

Đây,ok rồi, mong các bạn giúp đỡ, đây là file đính kèm cuối cùng(đã hết 1MB).
Sau khi tải file về, các bạn Bấm Ctrl q là sẽ thấy menu mới xuât hiện, ở đây nếu dùng Buton thì la 14 buton, như bạn Thanh Hải đã hướng dẫn.

 

[Quang_Hải]

Đây,ok rồi, mong các bạn giúp đỡ, đây là file đính kèm cuối cùng(đã hết 1MB).
Sau khi tải file về, các bạn Bấm Ctrl q là sẽ thấy menu mới xuât hiện, ở đây nếu dùng Buton thì la 14 buton, như bạn Thanh Hải đã hướng dẫn.

Đoán và gợi ý cho bạn 1 cách làm. Nếu đúng thì chỉnh lại cho phù hợp
Bấm chọn vào cái Combobox sẽ thấy tác dụng

 

[immanuel]

Anh Quang Hải ơi, cho em hỏi một chút cái nút combobox đó mình có thể thay bằng cách thực hiện di chuyển bản phím và nhập số được không ah. Vì em thấy ở đây mình phải di chuyển chuột và chọn số à.
Cám ơn anh.