Cách dãn chiều cao của dòng lên gấp 2 lần

[yeuthamhangxom]

Gửi các anh chị GPE.
em có câu hỏi nhờ các anh chị giúp.
em có 1 file có rất nhiều hàng. Chiều cao mỗi hàng thì chỉ có đúng 3 loại. loại cao 27, loại cao 36, loại cao 45. Tất cả các hàng này rất nhiều mà đan xen lẫn nhau.
Cho em hỏi bây giờ em muốn tăng chiều cao hàng lên gấp 2 lần. Nghĩa là loại cao 27 sẽ thành 54, loại cao 36 thành 72, loại cao 45 thành 90. Vì có quá nhiều hàng nên em không muốn làm thủ công lại không chính xác.
Rất mong các anh chị giúp đỡ.
Cám ơn các anh chị nhiều.

 

[hoangminhtien]

Bạn thử dùng đoạn code sau xem có được không nhé!

Sub chieucaocot()
For Each dong In Rows
    dong.RowHeight = 2 * dong.RowHeight
Next
End Sub

 

[yeuthamhangxom]

Bạn thử dùng đoạn code sau xem có được không nhé!

Sub chieucaocot()
For Each dong In Rows
    dong.RowHeight = 2 * dong.RowHeight
Next
End Sub

Mình thử thấy chưa được bạn ạ. Mình copy code của bạn vào cho chay nó báo lỗi màu hàng ở hàng Sub chieucaocot() .
Bạn giúp mình nhé.
Cám ơn bạn nhiều.

 

[ndu96081631]

Mình thử thấy chưa được bạn ạ. Mình copy code của bạn vào cho chay nó báo lỗi màu hàng ở hàng Sub chieucaocot() .
Bạn giúp mình nhé.
Cám ơn bạn nhiều.

Lổi có thể xuất hiện vì thiếu khai báo biến
-----------

Bạn thử dùng đoạn code sau xem có được không nhé!

Sub chieucaocot()
For Each dong In Rows
    dong.RowHeight = 2 * dong.RowHeight
Next
End Sub

Làm vầy là "chơi" hết toàn bộ bảng tính à nha
Có lẽ nên vầy:
- Quét chọn vùng dữ liệu
- Chạy code

Sub chieucaocot()
  Dim iR As Range
  For Each iR In Selection.Rows
    iR.RowHeight = 2 * iR.RowHeight
  Next
End Sub

 

[yeuthamhangxom]

Lổi có thể xuất hiện vì thiếu khai báo biến
-----------

Làm vầy là "chơi" hết toàn bộ bảng tính à nha
Có lẽ nên vầy:
- Quét chọn vùng dữ liệu
- Chạy code

Sub chieucaocot()
  Dim iR As Range
  For Each iR In Selection.Rows
    iR.RowHeight = 2 * iR.RowHeight
  Next
End Sub

Thầy ndu ơi em copy code của thầy vào. Quét chọn vùng dữ liệu. chạy code thấy có hiện tượng dãn dòng lên gấp 2 nhưng chưa xong thì đơ máy. mà máy em cấu hình cũng cao không biết là do lý do gì thầy giúp em tiếp nha.
Cám ơn thầy nhiều.

 

[ndu96081631]

Thầy ndu ơi em copy code của thầy vào. Quét chọn vùng dữ liệu. chạy code thấy có hiện tượng dãn dòng lên gấp 2 nhưng chưa xong thì đơ máy. mà máy em cấu hình cũng cao không biết là do lý do gì thầy giúp em tiếp nha.
Cám ơn thầy nhiều.

Cũng có thể!
Vậy thêm ScreenUpdating vào cho nó nhẹ bớt
Thử nhé:

Sub ChangeRH()
  Dim iR As Range
  Application.ScreenUpdating = False
  For Each iR In Selection.Rows
    iR.RowHeight = 2 * iR.RowHeight
  Next
  Application.ScreenUpdating = True
End Sub

Tôi vừa thử nghiệm với 10.000 dòng dữ liệu, code chạy chưa đến 1s

 

[yeuthamhangxom]

Cũng có thể!
Vậy thêm ScreenUpdating vào cho nó nhẹ bớt
Thử nhé:

Sub ChangeRH()
  Dim iR As Range
  Application.ScreenUpdating = False
  For Each iR In Selection.Rows
    iR.RowHeight = 2 * iR.RowHeight
  Next
  Application.ScreenUpdating = True
End Sub

Tôi vừa thử nghiệm với 10.000 dòng dữ liệu, code chạy chưa đến 1s

Được rồi thầy ạ. Chạy rất nhanh. Cám ơn thầy nhiều.

 

[597335]

May quá, nhờ có Code của thày Ndu em có thể điều chỉnh các dòng nhanh hơn trước

Sub chieucaocot()
  Dim iR As Range
  For Each iR In Selection.Rows
    iR.RowHeight = 2 * iR.RowHeight
  Next
End Sub

Em thắc mắc tại sao một số trường hợp dùng AutoFit mà nó vẫn bị mất chữ (chiều cao dòng nhỏ hơn chiều cao của chữ), đặc biệt là những Cell có số dòng nhiều mặc dù không dùng Merge Cell