Code định dạng cell?

[xuan_huy2010]

Em có đoạn code để định dạng cho dòng text như sau:

ExcelBook.Sheets(2).Range("a36") = "Tinh hinh thuy van"

Định dạng kiểu chữ:

ExcelBook.Sheets(1).Range("a36").Font.Name = "Times New Roman"
ExcelBook.Sheets(1).Range("a36").Font.Bold = True
ExcelBook.Sheets(1).Range("a36").Font.Size = 10
ExcelBook.Sheets(1).Range("a36").HorizontalAlignment = -4108

Em muốn rút gọn lại đoạn code trên nhưng chưa làm được.
Các pro giúp em với.

 

[ndu96081631]

Em có đoạn code để định dạng cho dòng text như sau:

ExcelBook.Sheets(2).Range("a36") = "Tinh hinh thuy van"

Định dạng kiểu chữ:

ExcelBook.Sheets(1).Range("a36").Font.Name = "Times New Roman"
ExcelBook.Sheets(1).Range("a36").Font.Bold = True
ExcelBook.Sheets(1).Range("a36").Font.Size = 10
ExcelBook.Sheets(1).Range("a36").HorizontalAlignment = -4108

Em muốn rút gọn lại đoạn code trên nhưng chưa làm được.
Các pro giúp em với.

Rút gọn lại cùng lắm là thêm With... End With mà thôi

With ExcelBook.Sheets(1).Range("A36")
  .Font.Name = "Times New Roman"
  .Font.Bold = True: .Font.Size = 10
  .HorizontalAlignment = -4108
End With