Làm cách nào để thu phóng hoặc phóng đại các ô đã chọn trong Excel?
Như chúng ta đã biết, Excel có tính năng Thu phóng để giúp chúng ta tăng kích thước của giá trị ô trong toàn bộ trang tính. Tuy nhiên, đôi khi, chúng ta chỉ cần thu phóng hoặc phóng đại chỉ các ô đã chọn. Có ý tưởng hay nào để chúng tôi phóng to các ô đã chọn chỉ trong một trang tính không?
Thu phóng hoặc phóng đại ô đã chọn bằng mã VBA
Thu phóng hoặc phóng đại ô đã chọn bằng mã VBA
Có thể không có cách nào trực tiếp để chúng tôi phóng đại các ô đã chọn trong Excel, nhưng ở đây, tôi có thể giới thiệu mã VBA để giải quyết công việc này như một giải pháp thay thế. Vui lòng làm như sau:
1. Bấm chuột phải vào tab trang tính mà bạn muốn tự động phóng to các ô đã chọn, rồi chọn Mã Chế độ xem từ menu ngữ cảnh, trong Microsoft Visual Basic cho các ứng dụng cửa sổ, sao chép và dán mã sau vào Mô-đun trống:
Mã VBA: Thu phóng hoặc phóng đại các ô đã chọn:
Private Sub worksheet_selectionchange(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xShape As Variant
Set xRg = Target.Areas(1)
For Each xShape In ActiveSheet.Pictures
If xShape.Name = "zoom_cells" Then
xShape.Delete
End If
Next
If Application.WorksheetFunction.CountBlank(xRg) = xRg.Count Then Exit Sub
Application.ScreenUpdating = False
xRg.CopyPicture appearance:=xlScreen, Format:=xlPicture
Application.ActiveSheet.Pictures.Paste.Select
With Selection
.Name = "zoom_cells"
With .ShapeRange
.ScaleWidth 1.5, msoFalse, msoScaleFromTopLeft
.ScaleHeight 1.5, msoFalse, msoScaleFromTopLeft
With .Fill
.ForeColor.SchemeColor = 44
.Visible = msoTrue
.Solid
.Transparency = 0
End With
End With
End With
xRg.Select
Application.ScreenUpdating = True
Set xRg = Nothing
End Sub
2. Sau đó, lưu và đóng cửa sổ mã này, bây giờ, khi bạn chọn hoặc nhấp vào một số ô dữ liệu, các ô sẽ tự động được phóng đại thành hình ảnh, xem ảnh chụp màn hình:
Chú thích: Các ô đã chọn sẽ được thay đổi trở lại kích thước ban đầu sau khi chọn các ô khác.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!