[Chia sẻ] Điều chỉnh chiều cao của dòng (1 người xem)

[ego.bizzin]

[Chia sẻ] Điều chỉnh chiều cao nhiều dòng hàng loạt

' TAGS : 2014-05-05, EB.GPE, điều chỉnh, chiều cao, dòng, hàng, adjust, height, row, rows
' Xin cảm ơn : chuot0106, susu16b, concogia
' Cập nhận lần cuối : 2014-05-06-11-13#Chiều cao âm
[GPECODE=vb]Sub DieuChinhChieuCaoDong()
Dim ActRange, r As Range
Dim sPadding As String 'Nhan du lieu tu nguoi dung
Dim iPadding As Integer 'So pixel can dieu chinh

sPadding = InputBox("Nhap so pixel can dieu chinh :", "Dieu chinh chieu cao dong")
If Len(sPadding) = 0 Or IsNumeric(sPadding) = False Then Exit Sub
iPadding = CInt(sPadding)
Set ActRange = Selection
Application.ScreenUpdating = False
For Each r In ActRange.Rows
If (r.RowHeight + iPadding) > 0 Then 'Cap nhat : 2014-05-06-11-13
r.RowHeight = r.RowHeight + iPadding
End If 'Cap nhat : 2014-05-06-11-13
Next
Application.ScreenUpdating = True
End Sub
[/GPECODE]

 

[chuot0106]

' TAGS : 2014-05-05, EB.GPE, điều chỉnh, chiều cao, dòng, hàng, adjust, height, row, rows
[GPECODE=vb]Sub DieuChinhChieuCaoDong()
Dim ActRange, r As Range
Dim sPadding As String 'Nhan du lieu tu nguoi dung
Dim iPadding As Integer 'So pixel can dieu chinh

sPadding = InputBox("Nhap so pixel can dieu chinh :", "Dieu chinh chieu cao dong")
If Len(sPadding) = 0 Or IsNumeric(sPadding) = False Then Exit Sub
iPadding = CInt(sPadding)
Set ActRange = Selection
Application.ScreenUpdating = False
For Each r In ActRange.Rows
r.RowHeight = r.RowHeight + iPadding
Next
Application.ScreenUpdating = True
End Sub
[/GPECODE]

Rất cảm ơn tinh thần chia sẻ của bạn tuy nhiên mình nghĩ cách của bạn với cách sử dụng công cụ có sẵn của Excell thời gian cũng như nhau thôi.

 

[ego.bizzin]

Theo mình nghĩ, có khác đấy bạn chuot0106 àh:

' Tình huống như thế này :
' Nếu ta chọn vùng dữ liệu về Wrap Text thì hai biên trên-dưới sẽ rất sát chữ, mà nếu chỉnh chiều cao cho nhiều dòng cùng lúc thì cũng không ổn.
' Đoạn code này sẽ điều chỉnh tất cả các dòng tăng hoặc giảm về chiều cao một đoạn bằng nhau, sẽ dễ nhìn hơn.
' Trong trường hợp của mình, mình đưa code vào Add-in và dùng một cái biểu tượng ở trên Excel Ribbon để chạy.

 

[chuot0106]

Theo mình nghĩ, có khác đấy bạn chuot0106 àh:

Bạn chỉ dùm mình và mọi người công cụ có sẵn của Excell, hoặc bài viết nào có sẵn trên GPE rồi, để mình và mọi người tham khảo với nhé.

Thân.

(Trước khi tạo chủ đề mới mình luôn tìm kiếm trước, xem đã tồn tại chưa. Nếu chưa thì mình chia sẻ, đây là những gì mình đang áp dụng cho công việc hàng ngày. Còn nếu có rồi, nhưng không giống với cái của mình, thì mình để đường dẫn tham khảo cho mọi người tiện theo dõi, đánh giá, cùng đưa ra giải pháp cuối cùng. Như bạn chuot0106 phản hồi thì chung chung quá, cũng chẳng đưa ai đi đến đâu cả. Đóng góp chả thấy mà QUOTE nguyên bài của mình.)

Đừng bắt bẻ câu chữ quá bạn ạ!
Tôi cũng chỉ góp ý thôi mà! Mà tôi nói là theo tôi nghĩ thôi.
+ Trong Excel để điều chỉnh chiều cao của dòng ta vào Fomat--> Row--> Height--> Nhập chiều cao theo ý--> Ok.
+ Của bạn nhấn Alt+F8--> Chạy code--> Nhập chiều cao dòng--> Ok.
Thời gian thao tác cũng vậy thôi mà!

 

[susu16b]

' TAGS : 2014-05-05, EB.GPE, điều chỉnh, chiều cao, dòng, hàng, adjust, height, row, rows
[GPECODE=vb]Sub DieuChinhChieuCaoDong()

Mình thấy Code của bạn có nhược điểm là:
Giả sử có 1 sheet có nhiều dòng không cao bằng nhau thì không thể dùng Code để chỉnh cho bằng nhau được.

 

[concogia]

' TAGS : 2014-05-05, EB.GPE, điều chỉnh, chiều cao, dòng, hàng, adjust, height, row, rows
[GPECODE=vb]Sub DieuChinhChieuCaoDong()
Dim ActRange, r As Range
Dim sPadding As String 'Nhan du lieu tu nguoi dung
Dim iPadding As Integer 'So pixel can dieu chinh

sPadding = InputBox("Nhap so pixel can dieu chinh :", "Dieu chinh chieu cao dong")
If Len(sPadding) = 0 Or IsNumeric(sPadding) = False Then Exit Sub
iPadding = CInt(sPadding)
Set ActRange = Selection
Application.ScreenUpdating = False
For Each r In ActRange.Rows
r.RowHeight = r.RowHeight + iPadding
Next
Application.ScreenUpdating = True
End Sub
[/GPECODE]

Mình xin góp tí tẹo ý với code này:
Nếu các dòng tôi đang chọn (thí dụ A10 tới A15 ) có chiều cao dòng là 15, 18, 19...(túm lại là nhỏ hơn 20), khi chạy code, tôi nhập vào -20 vào bảng thì code bị......."tèo". Híc
Có khi bạn phải rào trường hợp này lại
Thân

 

[dangky47h]

[Chia sẻ] Điều chỉnh chiều cao nhiều dòng hàng loạt

' TAGS : 2014-05-05, EB.GPE, điều chỉnh, chiều cao, dòng, hàng, adjust, height, row, rows
' Xin cảm ơn : chuot0106, susu16b, concogia
' Cập nhận lần cuối : 2014-05-06-11-13#Chiều cao âm
[GPECODE=vb]Sub DieuChinhChieuCaoDong()
Dim ActRange, r As Range
Dim sPadding As String 'Nhan du lieu tu nguoi dung
Dim iPadding As Integer 'So pixel can dieu chinh

sPadding = InputBox("Nhap so pixel can dieu chinh :", "Dieu chinh chieu cao dong")
If Len(sPadding) = 0 Or IsNumeric(sPadding) = False Then Exit Sub
iPadding = CInt(sPadding)
Set ActRange = Selection
Application.ScreenUpdating = False
For Each r In ActRange.Rows
If (r.RowHeight + iPadding) > 0 Then 'Cap nhat : 2014-05-06-11-13
r.RowHeight = r.RowHeight + iPadding
End If 'Cap nhat : 2014-05-06-11-13
Next
Application.ScreenUpdating = True
End Sub
[/GPECODE]

E chạy code báo lỗi là do đâu ạ!

 

[vova2209]

E chạy code báo lỗi là do đâu ạ!View attachment 199285

Người đẹp: Cố lên ^^
[GPECODE=vb]Sub DieuChinhChieuCaoDong()
Thay thành
Sub DieuChinhChieuCaoDong()
Ví dụ:
Thủ tục code
Sub xxxx ()
code các loại
..........................
end sub