Chỉnh chiều cao hàng theo giá trị cho trước

[Vongola104]

Xin chào các anh chị em của Diễn đàn GPE, mình có 1 vấn đề, tìm kiếm trên Diễn đàn nhưng chưa có nên xin phép các anh chị em được đăng bài nhờ giúp đỡ ạ

Mình muốn tạo 1 Mudule Để điều chỉnh chiều cao của hàng theo số liệu ở 1 cột ..

Như ví dụ ở file mình gửi, thì các hàng của trang ở kích thước mặc định, chỉ có những hàng mà ở cột J có giá trị thì chiều cao của hàng chính bằng giá trị ghi trên cột J đó.

Rất mong được các anh chị em hỗ trợ giúp đỡ ạ

 

[Hoàng Tuấn 868]

Bạn xem thử. . .

 

[HUONGHCKT]

Xin chào các anh chị em của Diễn đàn GPE, mình có 1 vấn đề, tìm kiếm trên Diễn đàn nhưng chưa có nên xin phép các anh chị em được đăng bài nhờ giúp đỡ ạ

Mình muốn tạo 1 Mudule Để điều chỉnh chiều cao của hàng theo số liệu ở 1 cột ..

Như ví dụ ở file mình gửi, thì các hàng của trang ở kích thước mặc định, chỉ có những hàng mà ở cột J có giá trị thì chiều cao của hàng chính bằng giá trị ghi trên cột J đó.

Rất mong được các anh chị em hỗ trợ giúp đỡ ạ

Thử code này xem sao

Sub DoCaoHang()
Dim i&, Lr&
With Sheet1
.Cells.RowHeight = 12
Lr = .Cells(100000, 10).End(xlUp).Row
For i = 1 To Lr
    If .Cells(i, 10) <> Empty And IsNumeric(.Cells(i, 10)) And .Cells(i, 10) > 12 Then Rows(i).RowHeight = .Cells(i, 10)
Next i
End With
End Sub

Đăng lên rồi mói thấy bài anh @Hoàng Tuấn 868 . Trót đăng nên không xóa.

 

[cantl]

Cái này mình mới sưu tầm được, có vẻ chạy cũng được. Theo 3 dòng yêu cầu thì chưa thấy lỗi, thêm chi tiết thì chịu.

Xin chào các anh chị em của Diễn đàn GPE, mình có 1 vấn đề, tìm kiếm trên Diễn đàn nhưng chưa có nên xin phép các anh chị em được đăng bài nhờ giúp đỡ ạ

Mình muốn tạo 1 Mudule Để điều chỉnh chiều cao của hàng theo số liệu ở 1 cột ..

Như ví dụ ở file mình gửi, thì các hàng của trang ở kích thước mặc định, chỉ có những hàng mà ở cột J có giá trị thì chiều cao của hàng chính bằng giá trị ghi trên cột J đó.

Rất mong được các anh chị em hỗ trợ giúp đỡ ạ

 

[Vongola104]

Bạn xem thử. . .

Mình đã làm được rồi, cảm ơn bạn nhiều nhé.

Thử code này xem sao

Sub DoCaoHang()
Dim i&, Lr&
With Sheet1
.Cells.RowHeight = 12
Lr = .Cells(100000, 10).End(xlUp).Row
For i = 1 To Lr
    If .Cells(i, 10) <> Empty And IsNumeric(.Cells(i, 10)) And .Cells(i, 10) > 12 Then Rows(i).RowHeight = .Cells(i, 10)
Next i
End With
End Sub

Đăng lên rồi mói thấy bài anh @Hoàng Tuấn 868 . Trót đăng nên không xóa.

Cảm ơn bạn đã qua tâm nhé. Mình đã làm được rồi.

Cái này mình mới sưu tầm được, có vẻ chạy cũng được. Theo 3 dòng yêu cầu thì chưa thấy lỗi, thêm chi tiết thì chịu.

Cảm ơn bạn nhiều nhé. Mình đã làm được
Rất cảm ơn các anh chị em GPE

 

[Vongola104]

Bạn xem thử. . .

Bạn có thể giúp mình chỉnh lại module có thể chạy được trên nhiều sheet được không ạ
Mình thử tạo 1 sheet mới thì nó không hoạt động.
Cảm ơn bạn

 

[Hoàng Tuấn 868]

Bạn có thể giúp mình chỉnh lại module có thể chạy được trên nhiều sheet được không ạ
Mình thử tạo 1 sheet mới thì nó không hoạt động.
Cảm ơn bạn

Bạn thử xem thế nào.

 

[Vongola104]

Bạn thử xem thế nào.

Cảm ơn bạn, mình đã làm được rồi.

 

[huhumalu]

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
      If .Column = 10 And IsNumeric(.Value) Then
        '10 là thứ tự cột (tương ứng là cột J)
        .RowHeight = .Value2
      End If
    End With
End Sub

Bạn tham khảo thêm Code trong Sheet thử, xài sheet nào thì copy ra sheet đó. Không được như ý là tất cả các sheets.

 

[Vongola104]

Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
      If .Column = 10 And IsNumeric(.Value) Then
        '10 là thứ tự cột (tương ứng là cột J)
        .RowHeight = .Value2
      End If
    End With
End Sub

Bạn tham khảo thêm Code trong Sheet thử, xài sheet nào thì copy ra sheet đó. Không được như ý là tất cả các sheets.

Cảm ơn bạn nhé. Mình đã làm được rồi

 

[Vongola104]

Bạn xem thử. . .

Chào anh.
Trong quá trình sử dụng VBA này em thấy có 1 vấn đề, đó là đối với những hàng có chiều cao bằng 16,5 17,5 18,5 ...... thì chiều cao hàng không còn chính xác nửa.
Không biết anh có thể giúp em sửa lỗi vấn đề này được không ạ.
Cám ơn anh nhiều nhé