Değerleri Değiştirmek

Bu örnek, Excel VBA'da iki değeri nasıl değiştireceğinizi öğretir. İleride göreceğimiz gibi daha karmaşık programlarda bu yapıya sıklıkla ihtiyaç duyacaksınız.

Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin: 

1. İlk olarak, Double türünde x adında bir değişken tanımlıyoruz.

Dim x As Double

2. Değişken x'i A1 hücresinin değeri ile başlatıyoruz.

x = Range("A1").Value

3. Artık B1 hücresinin değerini A1 hücresine güvenli bir şekilde yazabiliriz (A1 hücresinin değerini x olarak sakladık, böylece kaybetmeyeceğiz).

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

4. Son olarak, A1 hücresinin değerini (x'e yazılan) B1 hücresine yazarız.

Range("B1").Value = x

Sonuç:

Tüm Kodlar:

Option Explicit

Private Sub CommandButton1_Click()

Dim x As Double
x = Range("A1").Value

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

End Sub

Paylaş: