Nhờ sửa đoạn code vba dạng sub sang dạng function

[tuan16]

Em có sưu tầm được đoạn code trên diễn đàn. Nhờ các anh chị chuyển đoạn code sang dạng function với ạ

 

[Maika8008]

Em có sưu tầm được đoạn code trên diễn đàn. Nhờ các anh chị chuyển đoạn code sang dạng function với ạ

Có Vi văn Rút. Defender không cho tải.

 

[PacificPR]

Phần định dạng chữ đậm function bó chân

 

[qtm1987]

Đừng tải. Có con virus Foxz, bực bội con này cứ ăn bám trong file lây lan, làm gửi mail không bao giờ gửi được cứ báo file virut.

Có Vi văn Rút. Defender không cho tải.

 

[tuan16]

Có Vi văn Rút. Defender không cho tải.

em có lưu bản khác rồi ạ.. Nhờ anh chị giúp ạ

Bài đã được tự động gộp: 6/9/21

Phần định dạng chữ đậm function bó chân

dạ không có cách nào ạ..nếu không được có cách nào mà sub chỉ hoạt đông trên những ô mà mình chọn không ạ. Ví dụ là d9, d10. d15, d17 không thôi ạ

 

[CHAOQUAY]

em có lưu bản khác rồi ạ.. Nhờ anh chị giúp ạ

Bài đã được tự động gộp: 6/9/21

dạ không có cách nào ạ..nếu không được có cách nào mà sub chỉ hoạt đông trên những ô mà mình chọn không ạ. Ví dụ là d9, d10. d15, d17 không thôi ạ

Nhấn chuột phải vào sheet tab "Sheet1" -> view code -> dán đọan code dưới đây vào rồi chọn thử trong cột D.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cll As Range
If Target.Column = 4 And Target.Count > 1 Then
    For Each Cll In Target
        With Cll
            .Value = [E1] & " " & .Offset(, -3) & " " & _
            .Offset(, -2) & " " & [F1] & " " & .Offset(, -1)
            .Characters(Start:=13, Length:=Len(.Offset(, -3))).Font.FontStyle = "Bold"
        End With
    Next Cll
End If
End Sub