Trên một số máy tính, có một nút nhỏ có thể rất tiện dụng: nút cộng / trừ. Nút này, khi được nhấn, sẽ chuyển bất kỳ giá trị nào trên màn hình giữa các giá trị âm và dương của nó. Ví dụ, nếu màn hình hiển thị số 57, thì việc nhấn nút sẽ thay đổi màn hình thành -57. Nhấn nó lần nữa sẽ chuyển giá trị trở lại 57.

Nếu bạn muốn có một “nút” thực hiện điều này trong Excel, bạn sẽ nhanh chóng thấy rằng không có gì được tích hợp sẵn trong chương trình. Tuy nhiên, bạn có thể nhanh chóng tạo một tệp bằng cách sử dụng macro:

Sub PlusMinus1()

Dim cell As Range

For Each cell In Selection         If Application.IsNumber(cell) Then             cell.Value = cell.Value * -1         End If     Next cell End Sub

Lưu ý rằng macro chỉ cần bước qua bất kỳ phạm vi ô nào bạn đã chọn khi macro bắt đầu. Mỗi ô được kiểm tra để xem nó có chứa một số hay không. Nếu đúng, thì giá trị của số đó được nhân với -1. Kết quả là một chuyển đổi đăng nhập cho số.

Một nhược điểm đối với macro là nếu ô chứa công thức, công thức đó sẽ được chuyển đổi thành giá trị và sau đó nhân với giá trị -1. Bạn có thể không muốn mất công thức của mình. Trong trường hợp đó, bạn có thể dựa vào macro phân biệt hơn, macro kiểm tra xem ô có chứa công thức hay không. Nếu không, thì nó chỉ đơn giản là nhân với -1. Nếu vậy, thì công thức được điều chỉnh để kết quả được nhân với -1.

Sub PlusMinus2()

Dim cell As Range

For Each cell In Selection         If Left(cell.Formula, 1) = "=" Then             Cell.Formula = cell.Formula & " * -1"

Elseif Application.IsNumber(cell) Then             cell.Value = cell.Value * -1         End If     Next cell End Sub

Bạn có thể gán một trong hai macro này cho một phím tắt hoặc cho một nút trên thanh công cụ để dễ sử dụng bất cứ lúc nào.

_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 (3256) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: