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)

Liên hệ QC

Người dùng đang xem chủ đề này

LienDong

Thành viên thường trực
Tham gia
22/11/12
Bài viết
233
Được thích
46
Nghề nghiệp
Ai nói đúng thì làm!
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.
 
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
PHP:
Sub dinhdang()
With ActiveSheet.UsedRange.Font
   .Name = "Arial"
   .Size = 11
End With
End Sub
 
Upvote 0
Tìm cách xài cái này xem thế nào
PHP:
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
 
Upvote 0
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é
PHP:
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
 
Upvote 0
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
PHP:
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
 
Upvote 0

Bài viết mới nhất

Back
Top Bottom