Để xuất hiện nút lệnh mà không phai vào alt + f11 để chạy code trực tiếp

[Bùi Thúy Thúy]

Em xin được nhờ các anh chị giúp em xuất hiện nút lệnh ngay trên sheet hiện hành khi in
khi em muốn in đồng loạt bằng vba thì phải vào alt +f11 rồi vào Forms và nhấn run để chạy code sau đó mới xuất hiện giao diện (hình thứ nhất)
Em muốn xuất hiện nút nhấn thực hiện lệnh in mà khi nhấn vào đó sẽ xuất hiện luôn giao diện in như hình thứ nhất mà không phải vào alt +f11 rồi vào Forms và nhấn run để chạy code .
Em xin cám ơn ạ!

 

[snow25]

Em xin được nhờ các anh chị giúp em xuất hiện nút lệnh ngay trên sheet hiện hành khi in
khi em muốn in đồng loạt bằng vba thì phải vào alt +f11 rồi vào Forms và nhấn run để chạy code sau đó mới xuất hiện giao diện (hình thứ nhất)
Em muốn xuất hiện nút nhấn thực hiện lệnh in mà khi nhấn vào đó sẽ xuất hiện luôn giao diện in như hình thứ nhất mà không phải vào alt +f11 rồi vào Forms và nhấn run để chạy code .
Em xin cám ơn ạ!
View attachment 207500

bạn tạo 1 cái module viết code vào là được rồi gắn 1 cái nút bất kỳ cho nó hoặc dùng phím tắt cũng được
ví dụ
sub hien ()
UserForm1.Show
End Sub

 

[Bùi Thúy Thúy]

bạn tạo 1 cái module viết code vào là được rồi gắn 1 cái nút bất kỳ cho nó hoặc dùng phím tắt cũng được
ví dụ
sub hien ()
UserForm1.Show
End Sub

Em có sử dụng code và in được nhưng vào alt +f11 rồi vào Forms và nhấn run rồi mới chạy code.
File em có đính kèm ở bài #1, anh giúp em được không ạ!

 

[snow25]

Em có sử dụng code và in được nhưng vào alt +f11 rồi vào Forms và nhấn run rồi mới chạy code.
File em có đính kèm ở bài #1, anh giúp em được không ạ!

đây bạn xem nhé

 

[Bong0503]

Em có sử dụng code và in được nhưng vào alt +f11 rồi vào Forms và nhấn run rồi mới chạy code.
File em có đính kèm ở bài #1, anh giúp em được không ạ!

mình nghĩ đơn giản chỉ cần thế này

Private Sub Worksheet_Activate()
TNM.Show
End Sub


nếu bạn muốn gán cho một nút lệnh nữa thì thay cái Private Sub Worksheet_Activate() bằng CommandButton_Click()

 

[ndu96081631]

Em xin được nhờ các anh chị giúp em xuất hiện nút lệnh ngay trên sheet hiện hành khi in
khi em muốn in đồng loạt bằng vba thì phải vào alt +f11 rồi vào Forms và nhấn run để chạy code sau đó mới xuất hiện giao diện (hình thứ nhất)
Em muốn xuất hiện nút nhấn thực hiện lệnh in mà khi nhấn vào đó sẽ xuất hiện luôn giao diện in như hình thứ nhất mà không phải vào alt +f11 rồi vào Forms và nhấn run để chạy code .
Em xin cám ơn ạ!
View attachment 207500

Hướng dẫn cho người chưa biết gì:
1> Vẽ 1 shape lên bảng tính, chẳng hạn vẽ 1 Rectangle
2> Xong, click phải vào shape vừa vẽ, chọn Asign Macro



3> Cửa sổ Asign Macro xuất hiện, bấm nút New



4> Excel sẽ tự động đưa ta đến cửa sổ lập trình với 2 dòng code viết sẵn thế này:



5> Giờ chèn vào giữa 2 dòng đó đoạn code TÊN FORM.Show. Theo như file của bạn thì tên form là TNM, vậy code bạn cần là TNM.Show



6> Vậy là xong. Bấm Alt + Q để thoát cửa sổ VBA trở về bảng tính. Bấm vào shape và thưởng thức thành quả
7> Trang trí cho shape tùy ý

 

[Bùi Thúy Thúy]

Hướng dẫn cho người chưa biết gì:
1> Vẽ 1 shape lên bảng tính, chẳng hạn vẽ 1 Rectangle
2> Xong, click phải vào shape vừa vẽ, chọn Asign Macro

View attachment 207505

3> Cửa sổ Asign Macro xuất hiện, bấm nút New

View attachment 207506

4> Excel sẽ tự động đưa ta đến cửa sổ lập trình với 2 dòng code viết sẵn thế này:

View attachment 207509

5> Giờ chèn vào giữa 2 dòng đó đoạn code TÊN FORM.Show. Theo như file của bạn thì tên form là TNM, vậy code bạn cần là TNM.Show

View attachment 207511

6> Vậy là xong. Bấm Alt + Q để thoát cửa sổ VBA trở về bảng tính. Bấm vào shape và thưởng thức thành quả
7> Trang trí cho shape tùy ý

View attachment 207514

Dạ em cám ơn thậy ạ!

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

mình nghĩ đơn giản chỉ cần thế này

Private Sub Worksheet_Activate()
TNM.Show
End Sub


nếu bạn muốn gán cho một nút lệnh nữa thì thay cái Private Sub Worksheet_Activate() bằng CommandButton_Click()

Em cám ơn ạ!

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

đây bạn xem nhé

Em cám ơn ạ!