VBA Değeri - Excel VBA Değer Özelliği nasıl kullanılır? (Örnekler)

Excel VBA Değer Özelliği

Değer, VBA'da çoğunlukla belirli bir aralığa bir değer atamak için aralık yöntemiyle kullanılan bir özelliktir, VBA'da yerleşik bir ifadedir, örneğin, aralık kullanırsak ("B3"). Değer = 3, bu atanır B3 hücresi 3 değerindedir, bu değer özelliğinin yalnızca aralık yöntemiyle kullanılması gerekmez, onu diğer işlevlerle de kullanabiliriz.

VBA ile öğrenmemizin başlarında, verilerin hücrelerde nasıl saklanacağını öğrenmeyi çok merak ediyoruz. Bu kadar meraklıysanız, “Değer” özelliğini anlamanız gerekir. Bu yazımızda sizlere “Değer” özelliğini, değerlerin nasıl ekleneceğini veya ayarlanacağını, hücreden nasıl değer alınacağını ve daha pek çok şeyi açıklayacağız.

Önceki makalelerden birinde "VBA Range Hücreleri" ni tartışmıştık. Aralık nesnesi, tek bir hücreye ve birden çok hücreye başvurmamıza yardımcı olabilir. Önce RANGE nesnesini kullanmak için, değeri hangi hücreye eklememiz gerektiğine ve ekleyeceğimiz değerin ne olduğuna karar vermeliyiz.

Değer Özelliği VBA'da nasıl kullanılır?

Örnek 1 - Hücrelere Değer Atamak için Aralık Nesnesi

  • Örneğin, A1 hücresine bir değer eklemek istiyorsanız, A1 hücresine şu Aralık ("A1") gibi başvurmalısınız.

Kod:

Alt Değer () Aralık ("A1") Son Alt
  • RANGE nesnesini kullanarak hücreye başvurduktan sonra, bu nesneyle ilişkili tüm özelliklerin ve yöntemlerin IntelliSense listesini görmek için şimdi bir nokta (.) Koyun.

Kod:

Alt Değer () Aralık ("A1"). Sub
  • Bu çeşitli seçenekleri oluşturun, "DEĞER" özelliğini seçin.

Kod:

Alt Değer () Aralık ("A1"). Değer Son Alt
  • "DEĞER" özelliği seçildikten sonra, değeri eşittir işaretine koyarak değeri A1 hücresine ayarlamamız gerekir.

Kod:

Alt Değer () Aralık ("A1"). Değer = "VBA'ya Hoş Geldiniz" Son Alt
  • Tamam, bu A1 hücresine "VBA'ya Hoş Geldiniz" değerini ekleyecektir.
  • Aynı değeri birden çok hücreye eklemek istiyorsanız, hücrelere aşağıdaki kod gibi bakın.

Kod:

Alt Değer () Aralık ("A1: A5"). Değer = "VBA'ya Hoş Geldiniz" Son Alt
  • Bu, değeri A1 hücresinden A5'e ekleyecektir .
  • Farklı hücrelere değerler eklemek istiyor ancak hücre serileri için değil, o zaman kodu ve hücre adresini aşağıdaki gibi ayrı bağımsız değişkenlerde kullanmamız gerekir.

Kod:

Alt Değer () Aralık ("A1, A5, B4, C2"). Değer = "VBA'ya Hoş Geldiniz" Son Alt
  • Bu, A1, A5, B4 ve C2 hücrelerine "VBA'ya Hoş Geldiniz" metnini ekleyecektir .

Örnek 2 - CELLS Özelliğini Kullanarak Değer Girin

RANGE nesnesi üzerinden değil, aynı zamanda VBA CELLS özelliğini kullanarak da değerler ekleyebiliriz. Ancak CELLS nesnesiyle ilgili sorunlardan biri, RANGE nesnesi için elde ettiğimiz gibi IntelliSense listesine erişemememizdir.

Burada, değeri girmemiz gereken satır ve sütun numaralarından bahsetmemiz gerekiyor. Örneğin, değeri A1 hücresine eklemek istiyorsanız, kod CELLS (1,1) olur. Değeri B5 hücresine eklemek istiyorsanız, kod CELLS (5,2), yani B5 hücresine eşittir.

CELLS özelliğini kullanarak birden çok hücreye değer ekleyemiyoruz. Bu, RANGE nesnemizden farklıdır.

Örnek 3 - Hücre Değerini Alın

Hücrelere nasıl değer ekleneceğini gördük, şimdi hücrelerden nasıl değer alacağımızı göreceğiz.

Adım 1: Bir değişkeni String olarak tanımlayın.

Kod:

Alt Değer () Dim K As String End Sub

Adım 2: Bu "k" değişkeni için A1 hücresinin değerini atayacağız. A1 hücresine "VBA'ya Hoş Geldiniz" değerini girdim.

Dolayısıyla kod k = Aralık ("A1") olacaktır. Değer

Kod:

Alt Değer () Dim K As String K = Aralık ("A1"). Değer Son Alt

Adım 3: VBA mesaj kutusunda “k” değişkeninin sonucunu gösterin.

Kod:

Alt Değer () Dim K As String K = Aralık ("A1"). Değer MsgBox K End Sub

Kodu çalıştırarak, mesaj kutusunda A1 hücresi değerinin sonucunu vermeliyiz.

A1 hücresinin verilerini almak için RANGE nesnesini de kullanabiliriz. Aşağıdaki kod size aynısını gösterecektir.

Kod:

Alt Değer () Dim K As String Set CellValue = Range ("A1") MsgBox CellValue End Sub

Bu aynı zamanda ileti kutusundaki A1 hücresinin değerini de almalıdır.

Örnek 4 - Birden Fazla Hücre Değeri Gerekiyorsa Hata Değeri

Örneğin, aşağıdaki koda bakın.

Kod:

Alt Değer () Dim K Aralık Olarak Ayarla CellValue = Aralık ("A1: A5") MsgBox CellValue End Sub

Yukarıdaki kodu çalıştırırsanız, "Tür Uyuşmazlığı" hatası alacağız.

Bu hatayı almamızın nedeni, nesne değişkeni birden fazla hücre "değerine" ayarlandığında, özelliğin hangi hücre değerinin verileceğini gerçekten anlamaması, dolayısıyla bir seferde tek bir hücre değeri alabilmesidir.

Ilginç makaleler...