Paste special không có chiều sâu

[digita]

Chức năng này thì không lạ gì với nhiều người dùng XL. 1 cái thiếu sót không thể hiểu nổi là paste special cho copy chiều ngang trong cột (column width) mà mà lại quên bẳng cái việc copy chiều cao của dòng (row height).

Để khỏi chờ dài cái cổ đến ngày nào đó cái paste special có row height thì mời copy cái code này dùng khi hữu sự

[FONT=Times New Roman][SIZE=3]Sub CopyRowHeight()[/SIZE]
[SIZE=3]'************************************************[/SIZE]
[SIZE=3]'*     Written for public use (c) All rights removed!                   *[/SIZE]
[SIZE=3]'************************************************[/SIZE]
[SIZE=3]Dim SelectRnge As Range[/SIZE]
[SIZE=3]On Error Resume Next[/SIZE]
[SIZE=3]Set SelectRnge = Application.InputBox(Prompt:="Please select a source cell and hit OK/ENTER.", Title:="Select Source", Default:=ActiveCell.Address, Type:=8)[/SIZE]
[SIZE=3]If SelectRnge Is Nothing Then CopyRowHeight[/SIZE]
[SIZE=3]rowht = SelectRnge.RowHeight[/SIZE]
[SIZE=3]Set SelectRnge = Application.InputBox(Prompt:="Please select a target cell & hit OK/ENTER.", Title:="Select Target", Default:=ActiveCell.Address, Type:=8)[/SIZE]
[SIZE=3]SelectRnge.RowHeight = rowht[/SIZE]
[SIZE=3]End Sub[/SIZE][/FONT]

Mến

 

[digita]

Chào anh bạn.

Không có gì mà. Chia sẽ nhửng cái mẹo vặt cho nhau. Chẳng qua gặp trường hợp cần có nhửng hàng đều nhau mà khám phá ra là XL không có cái row height paste.

Mến

 

[iamcuong]

anh ơi. cái này anh hướng dẫn em cụ thể vs ạ.....em không hiểu cách dùng code này như thế nào....thánks anh nhiều nhé....