Brian hỏi liệu có cách nào trong Excel để phóng đại nội dung của ô hiện tại không. Anh ấy đang làm việc trên một trang tính cần ở cài đặt thu phóng thấp (30% hoặc hơn) để xem toàn bộ trang tính. Khi các kịch bản khác nhau được chạy, các ô thay đổi màu tùy thuộc vào kết quả. Brian có thể dễ dàng nhìn thấy những ô nào anh ấy cần điều tra, nhưng anh ấy không thể đọc chúng do cài đặt thu phóng. Anh ấy thường thay đổi độ phóng đại, đọc câu trả lời và thu nhỏ lại để chạy một kịch bản khác. Sẽ dễ dàng hơn nhiều nếu chỉ ô hiện tại (ô được chọn) được phóng đại đến mức có thể đọc được.

Không có phương pháp tích hợp nào trong Excel để thực hiện phương pháp thu phóng chọn lọc này, nhưng có một số cách giải quyết bạn có thể sử dụng. Một cách giải quyết như vậy là sử dụng macro hiển thị giá trị trong ô hiện hoạt trong hộp thông báo. Macro như vậy rất dễ thêm vào mô-đun trang tính:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

MsgBox ActiveCell.Address & ": " & ActiveCell.Value End Sub

Mỗi khi bạn chọn một ô khác trong trang tính, macro sẽ bật lên một hộp thông báo hiển thị nội dung của ô đó. Điều này giải quyết được vấn đề, nhưng có thể khiến bạn mệt mỏi khi liên tục đóng các hộp thông báo mỗi khi bạn thay đổi ô được chọn.

Bạn cũng có thể tạo một macro chỉ đơn giản là thay đổi kích thước phông chữ của bất kỳ ô nào hiện đang được chọn. Macro đơn giản sau, được thêm vào mô-đun trang tính, sẽ xem ô hiện được chọn và tăng kích thước phông chữ của nó lên 500%.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

FontSize = ActiveCell.Font.Size     LargeSize = FontSize * 5     Cells.Font.Size = FontSize     ActiveCell.Font.Size = LargeSize End Sub

Tất nhiên, tiện ích của macro như vậy sẽ phụ thuộc vào cách bạn định dạng chiều cao và chiều rộng của ô đã chọn. Nếu chúng là chiều cao và chiều rộng tĩnh, có thể việc tăng kích thước phông chữ sẽ làm cho nội dung ô không thể đọc được. Nếu chiều cao và chiều rộng là động, thì nội dung vẫn phải khá dễ đọc.

Vẫn còn một cách tiếp cận khác là tạo ảnh phóng to của riêng bạn về mỗi ô khi nó được chọn:

Private Sub ZoomCell(ZoomIn As Single)

Dim s As Range     Set s = Selection

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing End Sub

Để sử dụng macro, bạn cần gọi nó mỗi khi vùng chọn trong trang tính thay đổi. Để thực hiện việc này, bạn thêm một macro nhỏ vào mô-đun trang tính:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ZoomCell 6 End Sub

Trong trường hợp này, mỗi khi vùng chọn ô được thay đổi, macro ZoomCell sẽ chạy để tạo ra một bức ảnh có kích thước gấp sáu lần kích thước của ảnh gốc. Nếu cảm thấy khó chịu khi hình ảnh tự động thay đổi mỗi khi bạn chọn một ô khác, bạn có thể loại bỏ macro kích hoạt trong mô-đun trang tính và sửa đổi macro ZoomCell để nó chạy bất cứ khi nào bạn bắt đầu, có thể bằng một phím tắt bạn thiết lập.

Sub ZoomCell()

Dim s As Range     Dim ZoomIn As Single     Set s = Selection     ZoomIn = 6

'Get rid of any existing zoom pictures     For Each p In ActiveSheet.Pictures         If p.Name = "ZoomCell" Then             p.Delete             Exit For         End If     Next

'Create a zoom picture     s.CopyPicture Appearance:=xlScreen, _       Format:=xlPicture     ActiveSheet.Pictures.Paste.Select     With Selection         .Name = "ZoomCell"

With .ShapeRange             .ScaleWidth ZoomIn, msoFalse, _               msoScaleFromTopLeft             .ScaleHeight ZoomIn, msoFalse, _               msoScaleFromTopLeft             With .Fill                 .ForeColor.SchemeColor = 9                 .Visible = msoTrue                 .Solid             End With         End With     End With     s.Select     Set s = Nothing End Sub

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (10426) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: