Giúp sửa code tự động căn chỉnh chiều cao dòng trong excel (1 người xem)

[tiep_pro2]

các bác cho em hỏi đoạn này (copy của một bạn trong diễn đàn) em muốn sửa thành chuyển đổi chiều cao trong từng hàng một thì làm sao:
Sub ChieuCao()
HangDau = 1
HangCuoi = [A65000].End(xlUp).Row
TruocSau = 10
With Rows(HangDau & ":" & HangCuoi)
.VerticalAlignment = xlCenter
.WrapText = True
.EntireRow.AutoFit
.RowHeight = .RowHeight + TruocSau
End With
End Sub
rất mong được giúp đỡ, nếu không đúng đề tài xin thứ lỗi vì là thành viên mới chưa hiểu rõ lắm

 

[ndu96081631]

các bác cho em hỏi đoạn này (copy của một bạn trong diễn đàn) em muốn sửa thành chuyển đổi chiều cao trong từng hàng một thì làm sao:
Sub ChieuCao()
HangDau = 1
HangCuoi = [A65000].End(xlUp).Row
TruocSau = 10
With Rows(HangDau & ":" & HangCuoi)
.VerticalAlignment = xlCenter
.WrapText = True
.EntireRow.AutoFit
.RowHeight = .RowHeight + TruocSau
End With
End Sub
rất mong được giúp đỡ, nếu không đúng đề tài xin thứ lỗi vì là thành viên mới chưa hiểu rõ lắm

Hôm qua bạn đã hỏi đề tài này rồi, vậy bạn có theo dõi để biết người ta trả lời bạn thế nào chưa? Nếu chưa xem tức là bạn thiếu trách nhiệm với chính mình.. bằng ngược lại, đã xem sao còn hỏi nữa?

 

[tiep_pro2]

vâng chào anh, thực sự là em chưa vào theo dõi đề tài đó được. Bởi khi em vào mục theo dõi đề tài chỉ có theo dõi được một đề tài em đã gửi đầu tiên còn đề tài này em không theo dõi được. Em phải dùng cách lưu trang này lại và nay mở lên đó.
Vì là thành viên mới rất mong các pro thông cảm
Em không vào mục có trả lời đó được. rất mong giúp đỡ

 

[tiep_pro2]

theo như vào theo dõi em chỉ theo dõi được có một đề tài này

 

[tiep_pro2]

http://www.giaiphapexcel.com/forum/...h-chieu-cao-dong&p=404368&posted=1#post404368
Rất mong giúp đỡ