Nhờ chỉnh giúp Em độ cao dòng (1 người xem)

[dangky47h]

E muốn chỉnh độ cao dòng như sau:
Sau khi đã Wrap Text (Bao hết nội dung dòng tương ứng ở cột B), giờ em muốn cộng vào tất cả các hàng một độ cao nhất định nào đó (ví dụ: cộng 0,2cm để sau khi tất cả các hàng ở cột B được Warp Text và được dãn ra độ cao thêm 0,2 cm nữa)
Mục đích em làm như vậy để nhìn các dòng đẹp hơn chứ cứ Wrap text các dòng khit nhau và khó nhìn, không đẹp cho lắm
E nhờ sự giúp đỡ của các Thầy, các Anh Chị, E cám ơn!

 

[nlbx]

For each cllSel in Selection
cllSel.EntireRow.RowHeight=cllSel.EntireRow.RowHeight+0.2*72/2.54
next cllSel

 

[dangky47h]

For each cllSel in Selection
cllSel.EntireRow.RowHeight=cllSel.EntireRow.RowHeight+0.2*72/2.54
next cllSel

E chạy code nó báo vậy a! Cho Em hỏi lỗi gì vậy ạ!

 

[nlbx]

Sub xxx()
For each cllSel in Selection
cllSel.EntireRow.RowHeight=cllSel.EntireRow.RowHeight+0.2*72/2.54
next cllSel
end sub

 

[dangky47h]

Sub xxx()
For each cllSel in Selection
cllSel.EntireRow.RowHeight=cllSel.EntireRow.RowHeight+0.2*72/2.54
next cllSel
end sub

Chưa được Anh ơi, vẫn lỗi

 

[nlbx]

Vào excel Chọn các ô cần thay đổi , ấn Alt+F, chọn xxx và click Run.

 

[dangky47h]

Vào excel Chọn các ô cần thay đổi , ấn Alt+F, chọn xxx và click Run.

Cám ơn Anh, chọn Ô thì mới được nãy Em chọn cả dòng nên báo lỗi, giờ được rồi ạ!

 

[nlbx]

#2 là gợi í thôi bạn nhé. Chứ bạn cứ copy rồi paste mà k biết là lỗi.

 

[dangky47h]

Vào excel Chọn các ô cần thay đổi , ấn Alt+F, chọn xxx và click Run.

E hỏi thêm chút ạ!
trong đoạn code có xuất hiện: RowHeight + 0.2 * 72 / 2.54
thì " 0.2 * 72 / 2.54" có phải là giá trị mình cộng thêm vào không ạ!
Mình có thể sửa trực tiếp "RowHeight + 6" hay cộng thêm số nguyên nào đó như 7, hay 8 có được không ạ!
E cám ơn Anh

 

[nlbx]

E hỏi thêm chút ạ!
trong đoạn code có xuất hiện: RowHeight + 0.2 * 72 / 2.54
thì " 0.2 * 72 / 2.54" có phải là giá trị mình cộng thêm vào không ạ!
Mình có thể sửa trực tiếp "RowHeight + 6" hay cộng thêm số nguyên nào đó như 7, hay 8 có được không ạ!
E cám ơn Anh

OK

 

[dangky47h]

OK

Cám ơn Anh nhìu!

 

[♫ђöล♥ßล†♥†µ♫]

For each cllSel in Selection
cllSel.EntireRow.RowHeight=cllSel.EntireRow.RowHeight+0.2*72/2.54
next cllSel

Em cũng gặp phải vấn đề này như Chủ Topic. Em thử với dữ liệu của em máy nó đơ luôn Anh ạ, Có cách nào cải thiện được vấn đề này không
Anh

 

[nlbx]

Em cũng gặp phải vấn đề này như Chủ Topic. Em thử với dữ liệu của em máy nó đơ luôn Anh ạ, Có cách nào cải thiện được vấn đề này không
Anh

Bạn thử:
Sub xxx()
Application.Calculation = xlManual
Application.ScreenUpdating = False
For each cllSel in Selection
cllSel.EntireRow.RowHeight=cllSel.EntireRow.RowHeight+0.2*72/2.54
next cllSel
Application.Calculation = xlAutomatic
Application.ScreenUpdating = true
end sub

 

[♫ђöล♥ßล†♥†µ♫]

Bạn thử:
Sub xxx()
Application.Calculation = xlManual
Application.ScreenUpdating = False
For each cllSel in Selection
cllSel.EntireRow.RowHeight=cllSel.EntireRow.RowHeight+0.2*72/2.54
next cllSel
Application.Calculation = xlAutomatic
Application.ScreenUpdating = true
end sub

Ý. mấy cái dong Application. em cũng thêm vao rồi nhưng nó vẫn cữ xoay xoay miết ạ

 

[nlbx]

Ý. mấy cái dong Application. em cũng thêm vao rồi nhưng nó vẫn cữ xoay xoay miết ạ

Thử select 3 ô xem có xoay k. Nếu xoay chắc do file hoặc các macro với worksheet cụng nên.

 

[dangky47h]

Ý. mấy cái dong Application. em cũng thêm vao rồi nhưng nó vẫn cữ xoay xoay miết ạ

thuw

Ý. mấy cái dong Application. em cũng thêm vao rồi nhưng nó vẫn cữ xoay xoay miết ạ

Thử với ô Chị nhé với cả dòng sẽ bị xoay, với ô em thử là ok nhé!

 

[HieuCD]

Thử select 3 ô xem có xoay k. Nếu xoay chắc do file hoặc các macro với worksheet cụng nên.

Chọn nhầm các ô ở nhiều cột, hoặc chọn lần 2, 3... các ô đã chọn sẽ hao giấy in

 

[be_09]

E muốn chỉnh độ cao dòng như sau:
Sau khi đã Wrap Text (Bao hết nội dung dòng tương ứng ở cột B), giờ em muốn cộng vào tất cả các hàng một độ cao nhất định nào đó (ví dụ: cộng 0,2cm để sau khi tất cả các hàng ở cột B được Warp Text và được dãn ra độ cao thêm 0,2 cm nữa)
Mục đích em làm như vậy để nhìn các dòng đẹp hơn chứ cứ Wrap text các dòng khit nhau và khó nhìn, không đẹp cho lắm
E nhờ sự giúp đỡ của các Thầy, các Anh Chị, E cám ơn!

Thử sử dụng code sau:

Sub Canh_Dong()
    Dim CL As Range
    Dim newHeight
    With Sheets("Bang_1")
    Set CL = Range("B7:B500")
    For Each CL In CL.Rows
        If CL.WrapText Then CL.Rows.AutoFit
            newHeight = CL.rowheight + 2
            CL.rowheight = newHeight
    Next
    End With
End Sub

 

[dangky47h]

Thử sử dụng code sau:

Sub Canh_Dong()
    Dim CL As Range
    Dim newHeight
    With Sheets("Bang_1")
    Set CL = Range("B7:B500")
    For Each CL In CL.Rows
        If CL.WrapText Then CL.Rows.AutoFit
            newHeight = CL.rowheight + 2
            CL.rowheight = newHeight
    Next
    End With
End Sub

Vâng E cám ơn Thầy Ạ!