hướng dẫn Em đang mở 1 sheets nhưng làm định ng tổng cộng (dòng cuối +1)

Nhờ thầy hướng dẫn: Em đang mở 1 sheets nhưng làm định dạng tổng cộng (dòng cuối +1) của 1 sheet khác, câu lệnh:

Sheets("Mau1_CT").Range("A" & Dongcuoi + 1).EntireRow.Select

Selection.Style = "Comma"

Selection.NumberFormat = "_(* #,##0_);_(* (#,##0);_(* ""-""??_);_(@_)"

Selection.Font.Bold = True

Tuy nhiên khi chạy bị báo lỗi 1004 với nội dung "Select method of range class failed"

Trong khi ngay trước câu lệnh trên, em có viết vùng range như vậy nhưng với thao tác tính tổng

5 câu trả lời

477 lượt xem

vỗ tay

Domifa 16:06 - Jun 24, 2021

Chào bạn bạn có thể làm như sau

Function ddso(rng As Range)
    With rng
        .Style = "Comma"
        .NumberFormat = "_-* #,##0.0_-;-* #,##0.0_-;_-* ""-""??_-;_-@_-"
  End With
End Function
sub dinhdang
 ddsoRange("f8:R" & dc + 1)
end sub

vỗ tay

Domifa 16:06 - Jun 24, 2021

vậy lỗi của e ở đây là gì ak?

vỗ tay

Domifa 16:06 - Jun 24, 2021

Chào bạn bạn bỏ giúp mình EntireRow đi nhé chỉ select thôi

vỗ tay

Domifa 16:06 - Jun 24, 2021

nếu bỏ entirerow đi thì nó chỉ định dạng 1 ô thôi, trong khi e muốn định dạng cả dòng tổng cộng đó.

Ngoài ra nếu e mở trên đúng sheet em muốn định dạng (tức là sheet Mau1_CT) thì khi bấm chạy lệnh vẫn chạy okie ak, chỉ khi mở trên sheet khác mà chạy lệnh của sheet này mới bị báo lỗi như thế

vỗ tay

Domifa 16:06 - Jun 24, 2021

Chào bạn bạn dùng như sau nhé

Sheets("Mau1_CT").Range("A1:A" & Dongcuoi + 1).Select

vỗ tay

Gói Hội viên Gitiho: Trọn bộ khoá học theo Khung năng lực

Gói Hội viên G-Skills: 03 kỹ năng bổ trợ thiết yếu

hướng dẫn Em đang mở 1 sheets nhưng làm định ng tổng cộng (dòng cuối +1)

Câu hỏi liên quan