Ví dụ này hướng dẫn bạn cách hoán đổi hai giá trị trong Excel VBA. Bạn thường sẽ cần cấu trúc này trong các chương trình phức tạp hơn như chúng ta sẽ thấy ở phần sau.

Tình huống:

Hai giá trị trên trang tính của bạn.

Swap Values in Excel VBA

Đặt một nút lệnh trên trang tính của bạn và thêm các dòng mã sau:

  1. Đầu tiên, chúng ta khai báo một biến có tên là temp kiểu Double.

Dim temp As Double

  1. Chúng ta khởi tạo biến temp với giá trị là ô A1.

temp = Range("A1").Value

  1. Bây giờ chúng ta có thể ghi giá trị của ô B1 vào ô A1 một cách an toàn (chúng tôi đã lưu trữ giá trị của ô A1 thành tạm thời nên chúng tôi sẽ không bị mất nó).

Range("A1").Value = Range("B1").Value

  1. Cuối cùng, chúng ta ghi giá trị của ô A1 (ghi vào tạm thời) vào ô B1.

Range("B1").Value = temp

  1. Nhấp vào nút lệnh hai lần.

Kết quả:

Swap Values Result

Swap Values Result