Nhờ anh em sửa giúp code về chức năng Format Painter trong excel 2007 (2 người xem)

[hvn8006]

Thực ra chức năng Format painter trong excel 2007 đã có phím tắt là Alt + H + FP, nhưng nhận thấy vẫn chưa được thuận tiện lắm. Mình có ý tuởng viết một Macro và gán phím tắt cho macro này mong mọi người chỉ bảo thêm:

Sub Macro1()
'
' Macro1 Macro
'

'
Range("D4").Select ( Mình muốn thay bằng 1 cú click chuột)
Selection.Copy
Range("F5").Select ( Tại đây cũng muốn thay bằng 1 cú click chuột)
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Rất mong mọi người chỉ giúp thêm.


Trân trọng!

 

[ndu96081631]

Thực ra chức năng Format painter trong excel 2007 đã có phím tắt là Alt + H + FP, nhưng nhận thấy vẫn chưa được thuận tiện lắm. Mình có ý tuởng viết một Macro và gán phím tắt cho macro này mong mọi người chỉ bảo thêm:

Sub Macro1()
'
' Macro1 Macro
'

'
Range("D4").Select ( Mình muốn thay bằng 1 cú click chuột)
Selection.Copy
Range("F5").Select ( Tại đây cũng muốn thay bằng 1 cú click chuột)
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Rất mong mọi người chỉ giúp thêm.


Trân trọng!

Thế thì chia ra làm 2 Sub

Sub Range_Copy()
  Dim rng As Range
  Set rng = Selection
  If TypeOf rng Is Range Then rng.Copy
End Sub

Sub Range_PasteFormat()
  Dim rng As Range
  Set rng = Selection
  If Application.CutCopyMode Then
    If TypeOf rng Is Range Then rng.PasteSpecial xlPasteFormats
  End If
End Sub

Tạo ra 2 cái nút: Nút 1 Assign Macro với Sub Range_Copy và nút 2 Assign Macro với Range_PasteFormat
Giờ thì:
- Chọn vùng
- Nhấn nút 1
- Chọn vùng khác
- Nhấn nút 2