Thiết lập Font, text aligment khi trong cột D nhận giá trị nhất định bằng VBA (1 người xem)

[hoanganhcuong87]

Em có bài toán là Khi cột D nhận giá trị là " Vật liệu" , " Nhân công", "Máy thi công" thì sẽ có Font là : Italy và Bold , text aligment là Center đồng thời Row Hieght=15; và không dùng Conditional Fomatting mà dùng VBA nhé!
Và những dòng mà Cột A và cột B có dữ liệu thì kẻ ngang ( như file đính kèm)
Mong mọi người giúp!!! Thân!!!!
có file đính kèm!

 

[viehoai]

Em có bài toán là Khi cột D nhận giá trị là " Vật liệu" , " Nhân công", "Máy thi công" thì sẽ có Font là : Italy và Bold , text aligment là Center đồng thời Row Hieght=15; và không dùng Conditional Fomatting mà dùng VBA nhé!
Và những dòng mà Cột A và cột B có dữ liệu thì kẻ ngang ( như file đính kèm)
Mong mọi người giúp!!! Thân!!!!
có file đính kèm!

Bạn thử đoạn code nay thử xem sao nhé

Sub FormatCells()
Dim i&
For i = 7 To Sheet1.Range("D65500").End(xlUp).Row
  If InStr(1, Sheet1.Range("D" & i).Value, ":") > 0 Then
    With Sheet1.Range("D" & i).Font
        .Bold = True
        .Italic = True
    End With
  End If
 If Sheet1.Range("A" & i).Value <> "" Then
   Sheet1.Range("A" & i).Resize(, 9).Borders(xlEdgeTop).LineStyle = xlContinuous
 End If
Next
End Sub

 

[hoanganhcuong87]

Bạn thử đoạn code nay thử xem sao nhé

Sub FormatCells()
Dim i&
For i = 7 To Sheet1.Range("D65500").End(xlUp).Row
  If InStr(1, Sheet1.Range("D" & i).Value, ":") > 0 Then
    With Sheet1.Range("D" & i).Font
        .Bold = True
        .Italic = True
    End With
  End If
 If Sheet1.Range("A" & i).Value <> "" Then
   Sheet1.Range("A" & i).Resize(, 9).Borders(xlEdgeTop).LineStyle = xlContinuous
 End If
Next
End Sub

Run success!!! Thanks viehoai