Nhờ xem lại code chinh chieu cao dong (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 trong một sheets (nghĩa là trong sheet hàng nào mình bấm vào thì mới căn chỉnh lại còn không thì giữ nguyên) thì phải 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

 

[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 trong một sheets (nghĩa là trong sheet hàng nào mình bấm vào thì mới căn chỉnh lại còn không thì giữ nguyên) thì phải làm sao?

Không cần bận tâm đến code kiết gì đó cho nặng đầu, cứ record macro sẽ có ngay code cho bạn (1 dòng dễ hơn ăn khoai...)

 

[khoavu87]

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 trong một sheets (nghĩa là trong sheet hàng nào mình bấm vào thì mới căn chỉnh lại còn không thì giữ nguyên) thì phải 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

Dựa vào sự kiện của sheet. Đưa dòng recode code gán vào sự kiện là ok.

 

[tiep_pro2]

rất mong các pro nói rõ hơn hoặc có thể sửa lại giúp mình được không?
Cảm ơn các pro nhiều

 

[tiep_pro2]

Em muốn sử dụng cái đó cho các dòng " công trình"; "đối tượng nghiệm thu"; "tiêu chuẩn xây dựng" của file đính kèm. Em đang cần gấp mà lại ko rành VBA mong các bác giúp em cần gấp quá

 

[viehoai]

Em muốn sử dụng cái đó cho các dòng " công trình"; "đối tượng nghiệm thu"; "tiêu chuẩn xây dựng" của file đính kèm. Em đang cần gấp mà lại ko rành VBA mong các bác giúp em cần gấp quá

Bạn xem file mình làm file mẫu sheet "NT CVXD(TVGS)" có được như ý bạn không nhé
............................
File bạn công phu đấy, tuy nhiên BB nghiệm thu công việc xây dựng có 100 bản thì sheet bạn đưa 100 bản như vậy trong sheet? Chắc file sẽ nặng phải khủng. Bạn tham khảo thêm Link này nhé

 

[Quang_Hải]

Thử thế này xem được không. Chọn các dòng cần thay đổi chiều cao trước rồi chạy Sub
Sub Row_Height()
cao = InputBox("Ban Muon Dong Da Chon Cao Bao Nhieu")
Selection.EntireRow.RowHeight = cao
End Sub

 

[tiep_pro2]

cám ơn bạn viehoai mình căn chỉnh thủ công cũng được rồi nhưng muốn nhanh hơn thôi.
Tổng biên bản của mình khoảng 250 biên bản thêm mấy sheet phụ nữa khoảng 4-6mg; mình thử thay đổi dữ liệu lớn hơn vẫn không ổn

 

[tiep_pro2]

vâng cảm ơn anh quanghai1969. Để em thử.Anh ơi em thử rồi, nhưng không có cách nào nó tự động thay đổi chiều cao khi dữ liệu trong ô nhiều hoặc ít đi ạ? Tại các đối tượng nghiệm thu và TCXD luôn luôn phải thay đổi theo tiêu đề nghiệm thu.

 

[tiep_pro2]

không ổn lắm các bác ạ
em đã thử rồi vẫn bị như thê

 

[tiep_pro2]

không có cái nào phù hợp với yêu cầu của em hả các pác ... huuu?