Có Vi văn Rút. Defender không cho tải.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.
em có lưu bản khác rồi ạ.. Nhờ anh chị giúp ạCó Vi văn Rút. Defender không cho tải.
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 ạPhần định dạng chữ đậm function bó chân
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.em có lưu bản khác rồi ạ.. Nhờ anh chị giúp ạ
Bài đã được tự động gộp:
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 ạ
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
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2