HorizontalAlignment VÀ VerticalAlignment = xlCenter TRONG 1 VÙNG (1 người xem)

[0167767]

Câu 1: VD như: Mình muốn 1 vùng (A1515) đều là xlCenter
thì code như thế nào các bác giúp dùm cho đoạn code dưới hoàn chỉnh
mình làm mãi và tìm bài chưa được.

Range("A15:d15").HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter

Câu 2: Đoạn code dưới có cách nào viết cho gọn lại được không?

[A15] = Sheet1.[A5][B15] = Sheet1.[B5]
[C15] = Sheet1.[C5]

Thành thật cảm ơn.

 

[giaiphap]

Câu 1: VD như: Mình muốn 1 vùng (A1515) đều là xlCenter
thì code như thế nào các bác giúp dùm cho đoạn code dưới hoàn chỉnh
mình làm mãi và tìm bài chưa được.

Câu 2: Đoạn code dưới có cách nào viết cho gọn lại được không?


Thành thật cảm ơn.

Câu 1: Sử dụng code sau

With Range("A15:D15")
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
End With

Câu 2. Sử dụng code sau

[A15:C15].Value = Sheet1.[A5:C5].Value