Giúp tạo phím tắt cho Macro trong file xla (1 người xem)

[hvn8006]

Kính chào các anh chị trong diễn đàn.
Em có một file tập hợp các Macro hay dùng save dưới dạng file xla( vui long xem file đính kèm) để add vào addin. Hiện em muốn gán phím tắt cho các Macro này để sử dụng cho tiện nhưng chưa biết cách.
Nhờ các anh chị trong diễn đàn chỉ bảo.
Thân chào.

 

[Hoàng Trọng Nghĩa]

Kính chào các anh chị trong diễn đàn.
Em có một file tập hợp các Macro hay dùng save dưới dạng file xla( vui long xem file đính kèm) để add vào addin. Hiện em muốn gán phím tắt cho các Macro này để sử dụng cho tiện nhưng chưa biết cách.
Nhờ các anh chị trong diễn đàn chỉ bảo.
Thân chào.

Mở file này ra, vào VBA (Alt+F11), chọn vào Thisworkbook của file này, trong phần Properties chọn vào mục IsAddin, chọn False. Lúc này các sheet được hiện ra, quay ra sheet của file này, bấm tổ hợp phím Alt+F8 để hiện lên hộp thoại Macro, chọn vào tên một macro nào đó bấm vào mục Options... tới đây, bạn gõ chữ gì đó vào Shortcut key. Lưu ý, đừng nên chọn key giống của Excel là được.

Sau khi đặt hết các shortcut bạn lại vào VBA chọn lại mục IsAddin là True, rồi lưu lại file.

 

[hvn8006]

Em làm thế này mà chưa thấy cái Properties đâu anh Hoàng Trọng Nghĩa ạ. Xin chỉ rõ hơn được không ạ. Rất cảm ơn anh.

 

[hvn8006]

Cảm ơn anh. Em làm được rồi ạ.

 

[hvn8006]

Nhân tiện cho em hỏi luôn về code này anh HTN ơi. Em có 2 Macro này gán phím tắt cho nó, nhưng phải gán bằng 2 phím khác nhau. Hiện tại có cách nào để gộp lại thành 1 macro được không ạ. Như thế nó sẽ tiết kiếm phím tắt anh ạ.

Sub Dung()

Selection.Interior.Color = 65535

End Sub

Sub Sai()

Selection.Interior.ThemeColor = xlThemeColorDark1

End Sub

 

[Hoàng Trọng Nghĩa]

Nhân tiện cho em hỏi luôn về code này anh HTN ơi. Em có 2 Macro này gán phím tắt cho nó, nhưng phải gán bằng 2 phím khác nhau. Hiện tại có cách nào để gộp lại thành 1 macro được không ạ. Như thế nó sẽ tiết kiếm phím tắt anh ạ.

Sub Dung()

Selection.Interior.Color = 65535

End Sub

Sub Sai()

Selection.Interior.ThemeColor = xlThemeColorDark1

End Sub

Thì bạn dùng một thông báo để hỏi thôi, nếu đúng thì Yes, còn sai chọn No.

Sub YesOrNo()
    If MsgBox("Vung lua chon DUNG hay SAI?" & vbLf & _
              "- Neu DUNG, chon Yes" & vbLf & _
              "- Neu SAI, chon No.", _
              vbQuestion + vbYesNo, "THÔNG BÁO") = vbYes Then
        Selection.Interior.Color = 65535
    Else
        Selection.Interior.ThemeColor = xlThemeColorDark1
    End If
End Sub

 

[genius111]

bạn tìm cái Properties ở đâu thế mình tìm không thấy, bạn hướng dẫn lại chi tiết giúp mình được không, cảm ơn bạn nhiều!

 

[Quang_Hải]

bạn tìm cái Properties ở đâu thế mình tìm không thấy, bạn hướng dẫn lại chi tiết giúp mình được không, cảm ơn bạn nhiều!

Trong cửa sổ VBE, vào tab view, chọn mục Properties Window
Hoặc
Trong cửa sổ VBE, nhấn F4 cũng ra kết quả tương tự

 

[genius111]

Trong cửa sổ VBE, vào tab view, chọn mục Properties Window
Hoặc
Trong cửa sổ VBE, nhấn F4 cũng ra kết quả tương tự

Cảm ơn bạn nhiều, mình làm được rồi

 

[tuankaka90]

anh ơi sao em ân Alt+F8 không được , không sao gán phím tắt đc cái chỉ em phải làm sao với

 

[minhhahdvn]

Cũng như bạn ở trên! Các bác giúp em với không thấy nút Options, nếu không thì code như thế nào để gán shortcut ạ?

 

[thanhdatx2bk]

Cảm ơn anh. Em làm được rồi ạ.

làm thế nào vậy bạn, chia sẽ cho anh em với nào
thank you

Bài đã được tự động gộp: 15/10/18

Trong cửa sổ VBE, vào tab view, chọn mục Properties Window
Hoặc
Trong cửa sổ VBE, nhấn F4 cũng ra kết quả tương tự

Properties chọn vào mục IsAddin, chọn False
Nhờ bác hướng dẫn lại em đoạn này với ạ, em vẫn ko tìm thấy mục IsAddin