Cần giúp đỡ tự động tô đậm và in nghiêng cả dòng nếu ô thuộc cột A có chữ "Tổng cộng" (1 người xem)

[hung2412]

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động bôi đậm và chữ nghiêng cả dòng nếu trong các ô ở cột A có chữ "Tổng cộng" (Ngoại trừ dòng cuối).
Ví dụ:
- ô A10 thuộc cột A và có chữ "tổng cộng" => Được bôi đậm và chữ nghiêng cả dòng 10.
- ô A13 thuộc cột A và có chữ "tổng cộng" => Được bôi đậm và chữ nghiêng cả dòng 13.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có File đính kèm.

 

[phihndhsp]

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động bôi đậm và chữ nghiêng cả dòng nếu trong các ô ở cột A có chữ "Tổng cộng" (Ngoại trừ dòng cuối).
Ví dụ:
- ô A10 thuộc cột A và có chữ "tổng cộng" => Được bôi đậm và chữ nghiêng cả dòng 10.
- ô A13 thuộc cột A và có chữ "tổng cộng" => Được bôi đậm và chữ nghiêng cả dòng 13.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có File đính kèm.

Bạn sử dụng Định dạng có điều kiện

 

[hung2412]

Bạn sử dụng Định dạng có điều kiện

Cảm ơn Quý vị đã hướng dẫn, có thể làm theo VBA được không nhỉ? Tôi đang xây dựng dự án VBA mà lại vướng đoạn này (Chẳng lẽ làm rồi record Macro?, hơn nữa dữ liệu các dòng không cố định, lại còn ngoại trừ dòng cuối nữa).

 

[phihndhsp]

Cảm ơn Quý vị đã hướng dẫn, có thể làm theo VBA được không nhỉ? Tôi đang xây dựng dự án VBA mà lại vướng đoạn này (Chẳng lẽ làm rồi record Macro?, hơn nữa dữ liệu các dòng không cố định, lại còn ngoại trừ dòng cuối nữa).

Muốn VBA thì có VBA. vì file này sử dụng tiếng việt tôi không muốn rắc rối nên gõ chữ tổng cộng vào ô F1 để dễ so sánh, nếu bạn thấy chướng ngại thì tìm vài cái module chuyển về tiếng việt để gõ trực tiếp vào code

 

[hung2412]

Muốn VBA thì có VBA. vì file này sử dụng tiếng việt tôi không muốn rắc rối nên gõ chữ tổng cộng vào ô F1 để dễ so sánh, nếu bạn thấy chướng ngại thì tìm vài cái module chuyển về tiếng việt để gõ trực tiếp vào code

Cảm ơn Quý vị đã chia sẻ, cũng hay đấy.

 

[hung2412]

Xin hỏi chư vị là sao tôi dùng Code này mà không ăn thua nhỉ?:

For t = [A65536].End(xlUp).Offset(-1,0).Row To 8 Step -1       
  If Cells(t, 1).Value = "T?ng c?ng" Then          
     Cells(t, 1).EntireRow.Font.Bolt = True:Cells(t, 1).EntireRow.Font.Italic = True
  End If   
Next

Hay là do đánh lỗi Font chữ "Tổng cộng" nhỉ?
P/s: Tôi copy chữ "Tổng cộng" ở File rồi paste vào Code nhưng vẫn không ăn thua.

 

[ec ec]

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động bôi đậm và chữ nghiêng cả dòng nếu trong các ô ở cột A có chữ "Tổng cộng" (Ngoại trừ dòng cuối).
Ví dụ:
- ô A10 thuộc cột A và có chữ "tổng cộng" => Được bôi đậm và chữ nghiêng cả dòng 10.
- ô A13 thuộc cột A và có chữ "tổng cộng" => Được bôi đậm và chữ nghiêng cả dòng 13.
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có File đính kèm.

thử code còi coi sao

Sub formas()
Dim c As Range
Set c = Cells.Find("T?ng c?ng")
If Not c Is Nothing Then
fr = c.Row
Set c = Cells.FindPrevious(c)
Do
Set c = Cells.FindPrevious(c)
With c.EntireRow.Font
.Bold = True
.Italic = True
End With
Loop While c.Row <> fr
End If
End Sub

 

[Hoàng Tuyên]

Hay là dođanh lỗi Font chữ "Tổng cộng" nhi?

Chính xác luôn. Bạn phải dùng module như bạn phihndhsp nói.

 

[Hong.Van]

Xin hỏi chư vị là sao tôi dùng Code này mà không ăn thua nhỉ?:

For t = [A65536].End(xlUp).Offset(-1,0).Row To 8 Step -1       
  If Cells(t, 1).Value = "T?ng c?ng" Then          
     Cells(t, 1).EntireRow.Font.Bolt = True:Cells(t, 1).EntireRow.Font.Italic = True
  End If   
Next

Hay là do đánh lỗi Font chữ "Tổng cộng" nhỉ?
P/s: Tôi copy chữ "Tổng cộng" ở File rồi paste vào Code nhưng vẫn không ăn thua.

Bạn dùng thử cách này

Sub dinhdang_HV()
Dim i As Long
Dim LastR As Long
Sheet1.Select
LastR = Range("A65000").End(xlUp).Row - 1
For i = 8 To LastR
    If Cells(i, 1) = "T" & ChrW(7893) & "ng c" & ChrW(7897) & "ng" Then
        Range(Cells(i, 1), Cells(i, 4)).Font.Bold = True
       Range(Cells(i, 1), Cells(i, 4)).Font.Italic = True
    End If
  Next
End Sub

 

[hung2412]

Bạn dùng thử cách này

Sub dinhdang_HV()
Dim i As Long
Dim LastR As Long
Sheet1.Select
LastR = Range("A65000").End(xlUp).Row - 1
For i = 8 To LastR
    If Cells(i, 1) = "T" & ChrW(7893) & "ng c" & ChrW(7897) & "ng" Then
        Range(Cells(i, 1), Cells(i, 4)).Font.Bold = True
       Range(Cells(i, 1), Cells(i, 4)).Font.Italic = True
    End If
  Next
End Sub

Chính xác, Quý vị sáng tạo thiệt, "Bỏ qua" chữ "ô" (?), rồi ghép các chữ còn lại với nhau. Uhm, còn tên Sub dinhdang_HV (Chữ HV) Là Hồng Vân rồi.