Giúp viết code khi Paste vào bảng tính thì mặc định Font và Font size (1 người xem)

[LienDong]

Các bạn giúp dùm viết code như sau:
Do hay copy các nội dung từ GPE hoặc trang Web khác về, rồi Paste trên trang Excel, sau khi Paste thì thường bị thay đổi Font và Font size, như vậy mình phải chỉnh lại Font và Font size cho phù hợp

Mình muốn sau khi Paste thì tự nó sẽ điều chỉnh mặc định Font: Arial và Font size: 11
Xin cảm ơn các thành viên.

 

[Cao Mạnh Sơn]

Bạn sử dụng sự kiện Worksheet Change là được thôi mà

 

[LienDong]

Bạn sử dụng sự kiện Worksheet Change là được thôi mà

Bạn có thể viết cụ thể được không?
Cảm ơn!

 

[Quang_Hải]

Các bạn giúp dùm viết code như sau:
Do hay copy các nội dung từ GPE hoặc trang Web khác về, rồi Paste trên trang Excel, sau khi Paste thì thường bị thay đổi Font và Font size, như vậy mình phải chỉnh lại Font và Font size cho phù hợp

Mình muốn sau khi Paste thì tự nó sẽ điều chỉnh mặc định Font: Arial và Font size: 11
Xin cảm ơn các thành viên.

Tìm cách xài cái này xem thế nào

Sub dinhdang()
With ActiveSheet.UsedRange.Font
   .Name = "Arial"
   .Size = 11
End With
End Sub

 

[LienDong]

Tìm cách xài cái này xem thế nào

Sub dinhdang()
With ActiveSheet.UsedRange.Font
   .Name = "Arial"
   .Size = 11
End With
End Sub

Cảm ơn bạn nhiều
Bạn có thể giúp sử dụng sự kiện Worksheet Change được không hoặc có thể áp dụng cho toàn bảng tính, nghĩa là khi paste vào bất kỳ sheet nào trong bảng tính thì nó tự động đưa Font về mặc định nói trên
Rất cảm ơn

 

[Cao Mạnh Sơn]

Các bạn giúp dùm viết code như sau:
Do hay copy các nội dung từ GPE hoặc trang Web khác về, rồi Paste trên trang Excel, sau khi Paste thì thường bị thay đổi Font và Font size, như vậy mình phải chỉnh lại Font và Font size cho phù hợp

Mình muốn sau khi Paste thì tự nó sẽ điều chỉnh mặc định Font: Arial và Font size: 11
Xin cảm ơn các thành viên.

chỗ nào bạn Paste vào sẽ chuyển định dạng như ý bạn. chỗ nào cũ của bạn định dạng không thay đổi. bạn thử nhé

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Selection) Is Nothing Then
        With Selection.Font
            .Name = "Arial"
            .Size = 11
        End With
    End If
End Sub

 

[Cao Mạnh Sơn]

Bạn có thể giúp sử dụng sự kiện Worksheet Change được không hoặc có thể áp dụng cho toàn bảng tính, nghĩa là khi paste vào bất kỳ sheet nào trong bảng tính thì nó tự động đưa Font về mặc định nói trên
Rất cảm ơn

Nếu muốn tất cả các Sheet bạn dùng code này trong sự kiện Workbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Not Intersect(Target, Selection) Is Nothing Then
        With Selection.Font
            .Name = "Arial"
            .Size = 11
        End With
    End If
End Sub