Lệnh tắt Paste Link

[YenLV]

Em có download trên diễn đàn 1 addin khi đó copy rồi dùng ctrl+V mặc định là paste Value giờ em muốn 1 addin tương tự nhưng là paste Link anh em giúp mình với nhé (để giúp em là ctrl+R nhé)

 

[giaiphap]

Em có download trên diễn đàn 1 addin khi đó copy rồi dùng ctrl+V mặc định là paste Value giờ em muốn 1 addin tương tự nhưng là paste Link anh em giúp mình với nhé (để giúp em là ctrl+R nhé)

Bạn sửa Add-Ins lại với đoạn code sau:

Private Sub Auto_Open()
Application.OnKey "^{r}", "PasteValue"
End Sub
Private Sub Auto_Close()
    Application.OnKey "^{r}"
End Sub
Private Sub PasteValue()
    ActiveSheet.Paste Link:=True
End Sub

 

[genius111]

Bạn sửa Add-Ins lại với đoạn code sau:

Private Sub Auto_Open()
Application.OnKey "^{r}", "PasteValue"
End Sub
Private Sub Auto_Close()
    Application.OnKey "^{r}"
End Sub
Private Sub PasteValue()
    ActiveSheet.Paste Link:=True
End Sub

anh cho em hỏi nếu muốn thay tổ hợp phím Ctrl+V trên bằng tổ hợp phím khác (ví dụ: ctr+shift+V) thì phải thay code như nào ạ?

 

[giaiphap]

anh cho em hỏi nếu muốn thay tổ hợp phím Ctrl+V trên bằng tổ hợp phím khác (ví dụ: ctr+shift+V) thì phải thay code như nào ạ?

Bạn thay bằng code sau:

Private Sub Auto_Open()
Application.OnKey "^+{v}", "PasteValue"
End Sub
Private Sub Auto_Close()
    Application.OnKey "^+{v}"
End Sub
Private Sub PasteValue()
    ActiveSheet.Paste Link:=True
End Sub

Bạn có thể tham khảo tại địa chỉ sau:
https://msdn.microsoft.com/en-us/library/office/ff197461.aspx

 

[genius111]

Bạn thay bằng code sau:

Private Sub Auto_Open()
Application.OnKey "^+{v}", "PasteValue"
End Sub
Private Sub Auto_Close()
    Application.OnKey "^+{v}"
End Sub
Private Sub PasteValue()
    ActiveSheet.Paste Link:=True
End Sub

Bạn có thể tham khảo tại địa chỉ sau:
https://msdn.microsoft.com/en-us/library/office/ff197461.aspx

anh ơi cho em hỏi cái này nữa ạ, giờ nếu em muốn kết hợp cả 2 code trên làm 1 thì viết code thế nào ạ. Tức là trong 1 code có cả paste link (Shift+q) và paste value (Shift+E).

 

[giaiphap]

anh ơi cho em hỏi cái này nữa ạ, giờ nếu em muốn kết hợp cả 2 code trên làm 1 thì viết code thế nào ạ. Tức là trong 1 code có cả paste link (Shift+q) và paste value (Shift+E).

Thì bạn sửa thành code như sau:

Private Sub Auto_Open()
    Application.OnKey "+{Q}", "PasteLink" 'Sheft + q
    Application.OnKey "+{E}", "PasteValue" 'Sheft + e
End Sub
Private Sub Auto_Close()
    Application.OnKey "+{Q}"
    Application.OnKey "+{E}"
End Sub
Private Sub PasteLink()
    ActiveSheet.Paste Link:=True
End Sub
Private Sub PasteValue()
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[genius111]

Thì bạn sửa thành code như sau:

Private Sub Auto_Open()
    Application.OnKey "+{Q}", "PasteLink" 'Sheft + q
    Application.OnKey "+{E}", "PasteValue" 'Sheft + e
End Sub
Private Sub Auto_Close()
    Application.OnKey "+{Q}"
    Application.OnKey "+{E}"
End Sub
Private Sub PasteLink()
    ActiveSheet.Paste Link:=True
End Sub
Private Sub PasteValue()
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Em cảm ơn nhiều, code chạy rất tốt ạ