Co dãn dòng + ẩn dòng

[vova2209]

Anh chị cho em xin code co dãn dòng, và ẩn dòng dòng trống. em cảm ơn ạ!
Khi giá trị ô AZ1 thay đổi code hoạt động co dãn dòng.

 

[Hoàng Tuấn 868]

Anh chị cho em xin code co dãn dòng, và ẩn dòng dòng trống. em cảm ơn ạ!
Khi giá trị ô AZ1 thay đổi code hoạt động co dãn dòng.

Co dãn và ẩn dòng bất kỳ hả bạn.

 

[vova2209]

Co dãn và ẩn dòng bất kỳ hả bạn.

Cõ dãn dòng có dữ liệu, ẩn dòng trống ^^!

 

[vova2209]

Mager là gì vậy bạn?

tìm trên diễn đàn

Mager là gì vậy bạn?

em diễn tả nhầm! code co dãn dòng ở diễn dàn dùng cho dòng có gộp ô. em muốn code dùng cho dòng không có gộp ô
em chạy đoạn code này code báo lỗi
Private Sub Worksheet_Calculate()
On Error Resume Next
Static oldval
If Range("AZ1").Value <> oldval Then
oldval = Range("AZ1")
Rows("D14").AutoFit
End If
End If
End Sub

 

[ptm0412]

Bạn ấy trả lời rồi. Sửa:
Rows("14:14").EntireRow.AutoFit

 

[Hoàng Tuấn 868]

Bạn ấy trả lời rồi. Sửa:
Rows("14:14").EntireRow.AutoFit

Private Sub Worksheet_Calculate()
On Error Resume Next
Static oldval
If Range("AZ1").Value <> oldval Then
oldval = Range("AZ1")
Rows("D14").AutoFit
End If
End If
End Sub

Có phải còn thừa một " if " không anh?

 

[ptm0412]

Có phải còn thừa một " if " không anh?

Đúng rồi. Tôi chỉ sửa chỗ sai nhất

 

[vova2209]

Bạn ấy trả lời rồi. Sửa:
Rows("14:14").EntireRow.AutoFit

Chạy được rồi anh ạ!
Mình muốn khống chế độ rộng dòng nhỏ giới hạn = 18 thì phải làm thế nào ạ anh!

Private Sub Worksheet_Calculate()
On Error Resume Next
Static oldval
If Range("AZ1").Value <> oldval Then
oldval = Range("AZ1")
Rows("15:34").EntireRow.AutoFit
End If
End Sub

Bài đã được tự động gộp: 30/3/21

Có phải còn thừa một " if " không anh?

đúng rồi anh ạ! thừa 1 end if

 

[vova2209]

Cho em hỏi đoạn code ẩn dòng này sửa chỗ sai như nào ạ

Sub andong()
Dim Lr As Long
Dim Ws As Worksheet

Lr = Range("D65000").End(xlUp).Row
Set Ws = ActiveSheet
With Ws
.Range ("D15: D" & Lr)
.SpecialCells(4).EntireRow.Hidden = True
ActiveSheet.DisplayPageBreaks = False
End With
End Sub

 

[Hoàng Tuấn 868]

Xin code co dãn dòng và ẩn dòng dòng trống.
Mình muốn độ rộng dòng nhỏ giới hạn = 18.

 

[vova2209]

Cảm ơn anh Hoàng Tuấn 868! code chạy tốt rồi ạ.