Cố định dòng, cột? (1 người xem)

[790312]

Chào các bác, mình muốn cố định dòng chiều cao là 15 chẳng hạn, khi kéo mở rộng ra thì nó cũng trở lại 15, đối với cột thì sẽ cố định theo dữ liệu trong cột, thí dụ nhập AAA thì sẽ cố định theo AAA, nhưng khi nhập vào AAAAA thì nó sẽ tự động cố định theo AAAAA. Mong các bác bớt chút thời gian giúp mình. Chân thành cảm ơn trước.

 

[phulien1902]

Chào các bác, mình muốn cố định dòng chiều cao là 15 chẳng hạn, khi kéo mở rộng ra thì nó cũng trở lại 15, đối với cột thì sẽ cố định theo dữ liệu trong cột, thí dụ nhập AAA thì sẽ cố định theo AAA, nhưng khi nhập vào AAAAA thì nó sẽ tự động cố định theo AAAAA. Mong các bác bớt chút thời gian giúp mình. Chân thành cảm ơn trước.

Bạn tham khảo 1 cách cố định dòng, cột:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.DisplayAlerts = False
    If Not Intersect(Target, Range("A2:B10")) Is Nothing Then
        Target.RowHeight = 15   '
        Target.ColumnWidth = 30 'Bạn thay đổi giá trị này
        Application.DisplayAlerts = True
    End If
End Sub

 

[790312]

Bạn tham khảo 1 cách cố định dòng, cột:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.DisplayAlerts = False
    If Not Intersect(Target, Range("A2:B10")) Is Nothing Then
        Target.RowHeight = 15   '
        Target.ColumnWidth = 30 'Bạn thay đổi giá trị này
        Application.DisplayAlerts = True
    End If
End Sub

Code chỉ cố định hàng về 15 khi ta click vào hàng đó thôi bác ơi, mình muốn cố định rất nhiều hàng, bác sửa sao cho khi click vào cell bất kỳ rồi thoát ra thì code thực hiện.
Đối với cột thì chưa cố định bề rộng cột theo số ký tự trong ô bác ơi. Bác kiểm tra lại giúp mình với.

 

[phulien1902]

Code chỉ cố định hàng về 15 khi ta click vào hàng đó thôi bác ơi, mình muốn cố định rất nhiều hàng, bác sửa sao cho khi click vào cell bất kỳ rồi thoát ra thì code thực hiện.
Đối với cột thì chưa cố định bề rộng cột theo số ký tự trong ô bác ơi. Bác kiểm tra lại giúp mình với.

Code thì như vậy, bạn phải biến tấu cho phù hợp với dữ liệu của bạn.
Chẳng hạn:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.DisplayAlerts = False
    If Not Intersect(Target, Range("A2:W1000")) Is Nothing Then
        Target.RowHeight = 15   '
        Target.ColumnWidth = 20 'B?n thay d?i giá tr? này
        Application.DisplayAlerts = True
    End If
End Sub

Điều quan trọng là bạn phải tác động vào dòng( hay cột) có dữ liệu thay đổi đó.
Bạn thử đi nhé.

 

[befaint]

Module:

Sub RC()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    .EntireRow.RowHeight = 15
    .EntireColumn.AutoFit
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

WorkSheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
RC
End Sub

 

[phulien1902]

Bạn tham khảo bài #5( Tổng quát hơn).

 

[790312]

Module:

Sub RC()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    .EntireRow.RowHeight = 15
    .EntireColumn.AutoFit
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

WorkSheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
RC
End Sub

Cảm ơn bác, nhưng mình cố định hàng cao 15 từ hàng thứ 3 thì sửa như nào bác?

 

[vanle33]

Cảm ơn bác, nhưng mình cố định hàng cao 15 từ hàng thứ 3 thì sửa như nào bác?

Tôi dịch code #5 là khi đặt con trỏ tại dòng nào thì cố định chiều cao dòng đó mà không có xác định chính xác từ vùng nào hay cột dòng nào. Không biết có chuẩn không các cao thủ code?

 

[790312]

Tôi dịch code #5 là khi đặt con trỏ tại dòng nào thì cố định chiều cao dòng đó mà không có xác định chính xác từ vùng nào hay cột dòng nào. Không biết có chuẩn không các cao thủ code?

Không đâu bác ơi, tất cả dòng đều fit cao 15.

 

[quanluu]

Cảm ơn bác, nhưng mình cố định hàng cao 15 từ hàng thứ 3 thì sửa như nào bác?

Thế trong sheet bạn sửa thế này xem
If target.row > 2 then RC

 

[phulien1902]

Cảm ơn bác, nhưng mình cố định hàng cao 15 từ hàng thứ 3 thì sửa như nào bác?

Bạn dùng Code này:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.DisplayAlerts = False
    If Not Intersect(Target, Range("A3:W1000")) Is Nothing Then
        Target.RowHeight = 15
        Target.EntireColumn.AutoFit
        Application.DisplayAlerts = True
    End If
End Sub

 

[phulien1902]

Thế trong sheet bạn sửa thế này xem
If target.row > 2 then RC

Thêm vào không ổn bạn quanluu1989

 

[befaint]

Cảm ơn bác, nhưng mình cố định hàng cao 15 từ hàng thứ 3 thì sửa như nào bác?

Sao không nói luôn ngay từ đầu đi cho rồi...
Sửa lại trong Module:

Sub RC()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
    .Rows("3:" & .Row + .Rows.Count - 1).RowHeight = 15
    .EntireColumn.AutoFit
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub