Tạo ô trong Excel có chức năng In

[tanluan]

Mình muốn tạo 1 Ô trong Excel có chức năng : nhấp chuột vào hoặc đưa con trỏ vào ô và nhấn phím Enter thì máy tự in. Các bạn giúp với. Thanks!

 

[tedaynui]

Bạn có thể thử với đoạn code này xem sao

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then ActiveSheet.PrintOut
End Sub

TDN

 

[tanluan]

Bạn có thể hướng dẫn rõ hơn dùm mình ko. Cám ơn bạn nhiều nhiều!

 

[tedaynui]

Với câu lệnh trên thì mỗi khi bạn chọn ô A1 thì nó sẽ in Sheet hiện hành.
Bạn có thể thay đổi địa chỉ $A$1 thành địa chỉ ô mà bạn muốn.

TDN

 

[Mr Okebab]

Bạn có thể thử với đoạn code này xem sao

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then ActiveSheet.PrintOut
End Sub

TDN

Còn thiếu :

và nhấn phím Enter thì máy tự in

bác ạ.

Thân!

 

[anhtuan1066]

Sao lại thế nhỉ? Ko thể tự động thêm nữa sao? (ko cần Enter)... Tôi nhớ khi chọn lệnh in từ menu File thì ta cần thêm 1 công đoạn nửa là bấm OK... nhưng nếu gọi lệnh in từ nút in trên Toolbars thì nó làm ngay lập tức... VBA có làm dc ko nhỉ (Tôi ko có máy in nên ko có điều kiện thử nghiệm)

 

[chibi]

Cách này có được không? (File đính kèm)

 

[Mr Okebab]

Cách này có được không? (File đính kèm)

Giống của bác tedaynui mà bác ????

Thân!

 

[tedaynui]

To Mr.Hiếu
Nếu vậy, Hiếu xem cái này có được không. Nếu được thì theo đấy mà chỉnh sửa cho như ý.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$A$1" Then Application.OnKey "{Enter}", "InTrang" Else Application.OnKey "{Enter}"
End Sub

Sử dụng phím Enter bên phím số nhé, nếu dùng Enter bên phím chữ thì thay Enter bằng ~

Sub InTrang()
    ActiveSheet.PrintOut
End Sub

Thân!