Nhờ giúp : code copy từ điểm đặt đến cột cuối cùng trong excel

[Bình Nguyên 2017]

Bài toán :
'- Gán code VBA bên dưới bằng tổ hợp phím trong Excel ( Ví dụ Ctrl + Q )
'- Đặt chuột tại 1 ô bất kỳ trong excel ==> Thực hiện phím tắt (Ctrl + Q ) thì thực hiện lệnh Copy toàn bộ Selection từ cột đó đến cột cuối cùng trong Excel

Ví dụ :
Đặt chuột tại ô F4 ==> Thực hiện phím tắt Ctrl + Q thì thực hiện lệnh copy toàn bộ Selection (F4:XFD4)
Mục đích để copy nhanh toàn bộ hàng từ cột được chọn, để past xuống các hàng khác

Mong mọi người giúp đỡ ạ !

 

[phulien1902]

Bài toán :
'- Gán code VBA bên dưới bằng tổ hợp phím trong Excel ( Ví dụ Ctrl + Q )
'- Đặt chuột tại 1 ô bất kỳ trong excel ==> Thực hiện phím tắt (Ctrl + Q ) thì thực hiện lệnh Copy toàn bộ Selection từ cột đó đến cột cuối cùng trong Excel

Ví dụ :
Đặt chuột tại ô F4 ==> Thực hiện phím tắt Ctrl + Q thì thực hiện lệnh copy toàn bộ Selection (F4:XFD4)
Mục đích để copy nhanh toàn bộ hàng từ cột được chọn, để past xuống các hàng khác

Mong mọi người giúp đỡ ạ !

Bạn thử:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 6 Then
        Range("F" & Target.Row & ":XFD" & Target.Row).Copy
        Cancel = True
    End If
End Sub

 

[Bình Nguyên 2017]

Bạn thử:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 6 Then
        Range("F" & Target.Row & ":XFD" & Target.Row).Copy
        Cancel = True
    End If
End Sub

Không được bạn à ?
Và làm sao để gắn VBA vào phím tắt Ctrl + Q ?
Cảm ơn bạn giúp đỡ.

 

[Phuocam]

Public Sub Copy_Ctrl_Q()
Dim col As Long
    col = Columns.Count - Selection.Column + 1
    Selection.Resize(, col).Copy
End Sub

 

[Bình Nguyên 2017]

Public Sub Copy_Ctrl_Q()
Dim col As Long
    col = Columns.Count - Selection.Column + 1
    Selection.Resize(, col).Copy
End Sub

Cảm ơn bạn, mình chạy Code thì copy được nhưng
Cho mình hỏi thêm làm sao gắn Code này vào phím tắt Ctrl + Q được ?

 

[HieuCD]

Cảm ơn bạn, mình chạy Code thì copy được nhưng
Cho mình hỏi thêm làm sao gắn Code này vào phím tắt Ctrl + Q được ?

Bạn dùng bộ thu macro, gán phím tắt, thao tác tá lã, tắt lệnh thu macro
Mở sub mới thu, xóa các lệnh, copy các lệnh mới dán vào. Xong phim

 

[VetMini]

Chọn tab Developer, chọn Macro. Nó sẽ hiện ra cái này:


Chọn cái sub mà bạn muốn gán phím tắt, và bấm Options... Nó sẽ hiện ra cái này:

 

[Bình Nguyên 2017]

Chọn tab Developer, chọn Macro. Nó sẽ hiện ra cái này:
View attachment 241310

Chọn cái sub mà bạn muốn gán phím tắt, và bấm Options... Nó sẽ hiện ra cái này:
View attachment 241311

Cảm ơn bạn ! Cách này Okie đó.

Bài đã được tự động gộp: 17/7/20

Bạn dùng bộ thu macro, gán phím tắt, thao tác tá lã, tắt lệnh thu macro
Mở sub mới thu, xóa các lệnh, copy các lệnh mới dán vào. Xong phim

, cảm ơn bạn ! Dùng cách của Vetmini Okie đó