Excel VBA ile Hücre Değeri Alın
Hücre, tek bir hücredir ve aynı zamanda bir aralığın parçasıdır, teknik olarak VBA'da bir hücre ile etkileşim kurmanın iki yöntemi vardır ve bunlar aralık yöntemi ve hücre yöntemidir; aralık yöntemi, aralık ("A2") gibi kullanılır Bize A2 hücresinin değerini verecek olan değer veya hücre yöntemini hücreler (2,1) .değer olarak kullanabiliriz, bu da bize A2 hücrelerinin değerini verecektir.
İster mükemmel çalışma ister VBA çalışması olsun, hepimizin hücre veya hücrelerle çalışmasına ihtiyacımız var çünkü tüm veriler hücrelerde saklanacak, böylece hepsi VBA'daki hücreler hakkında ne kadar iyi bildiğimize bağlı. Öyleyse, hücreler VBA'nın bu kadar önemli bir parçasıysa, onları iyi anlamak önemlidir ve VBA hücreleri konusunda bir başlangıç yapıyorsanız, bu makale Excel VBA'da Hücre Değerlerini nasıl alacağınız konusunda size rehberlik edecektir. detay.
İlk olarak, VBA'daki hücrelere iki şekilde başvurabilir veya bunlarla çalışabiliriz, yani CELLS özelliğini ve RANGE nesnesini kullanarak. CELLS neden bir özelliktir ve neden RANGE bir nesne ise farklı bir benzetmedir ve makalenin ilerleyen bölümlerinde bu noktaya geleceğiz.
Excel VBA'da Hücre Değeri Alma Örnekleri
Aşağıda, Excel VBA'da Hücre Değeri alma örnekleri verilmiştir.
Örnek 1 - RANGE veya CELLS Özelliğini Kullanma
Örneğin, A1 hücresinde "Hindistan" değerine sahibiz.
Bu hücreye başvurmak için bir CELLS özelliği veya RANGE nesnesi kullanabiliriz. İkisini de detaylı olarak görelim.
Aralık Özelliğini Kullanma
İlk önce makro prosedürünü başlatın.
Kod:
Alt Get_Cell_Value () Son Alt
Şimdi RANGE nesnesini açın.
Kod:
Alt Get_Cell_Value () Aralığı (End Sub
Bu nesnenin ilk argümanı "Cell1" dir, yani hangi hücreye atıfta bulunuyoruz. Bu durumda, bu A1 hücresidir, bu nedenle RANGE nesnesi için hücre adresini çift tırnak içinde sağlamamız gerekir.
Kod:
Alt Get_Cell_Value () Aralık ("A1") Son Alt
Yalnızca bir hücre diğer parametrelere atıfta bulunduğundan önemsiz olduğundan, parantezi kapatın ve IntelliSense listesini görmek için bir nokta koyun.
Yukarıda görebileceğiniz gibi, bir nokta koyduğumuz anda, range nesnesinin tüm mevcut IntelliSense özellikleri ve yöntemlerini görebiliriz.
Hücreyi seçtiğimiz için IntelliSense listesinden “SELECT” yöntemini seçmemiz gerekiyor.
Kod:
Alt Get_Cell_Value () Aralığı ("A1"). End Sub'ı seçin
Şimdi A1 dışındaki hücreyi seçin ve kodu çalıştırın.
Kodu çalıştırdığınız anda hangi hücreyi seçtiğiniz önemli değildir. Bahsedilen hücreyi, yani A1 hücresini seçmiştir.
Hücreler Özelliğini Kullanma
Benzer şekilde, şimdi CELLS özelliğini kullanıyoruz.
Kod:
Alt Get_Cell_Value () Aralığı ("A1"). Hücreleri Seçin (End Sub
Bu, hücre adresini doğrudan sağlayabildiğimiz RANGE nesnesinin aksine, ancak bu CELLS özelliğini kullanarak bunu yapamayız.
Bu özelliğin ilk argümanı “Satır İndeksi” dir, yani hangi satırdan bahsediyoruz. A1 hücresini seçtiğimiz için ilk satıra atıfta bulunuyoruz, bu yüzden 1'den bahsedin.
Bir sonraki argüman "Sütun Dizini" dir, yani hangi sütuna atıfta bulunuyoruz. A1 hücre sütunu ilk sütundur, bu nedenle 1 girin.
Kodumuz HÜCRE (1, 1) okur, yani ilk satır ilk sütun = A1.
Şimdi bir nokta koyun ve IntelliSense listesini görüp görmediğinize bakın.
CELLS özellikleriyle, herhangi bir IntelliSense listesini göremeyiz, bu nedenle ne yazdığımızdan kesinlikle emin olmamız gerekir. Yöntem olarak "Seç" girin.
Kod:
Alt Get_Cell_Value () Aralığı ("A1"). Hücreleri seçin (1, 1). End Sub seçin
Bu aynı zamanda A1 hücresini de seçecektir.
Örnek 2 - Excel VBA'da Hücreden Değer Alın
Seçmek öğrendiğimiz ilk şey, şimdi hücrelerden nasıl değer elde edeceğimizi göreceğiz. Hücreyi seçmeden önce, hücredeki değeri depolamak için değişkeni tanımlamamız gerekir.
Kod:
Alt Get_Cell_Value1 () Dim CellValue As String End Sub
Şimdi RANGE nesnesini veya CELLS özelliğini kullanarak hücre adresini belirtin. Yeni başlayan biri olduğunuz için, yalnızca RANGE nesnesini kullanın çünkü RANGE nesnesiyle IntelliSense listesini görebiliriz.
Tanımlanan değişken için eşittir işareti koyun ve hücre adresini belirtin.
Kod:
Alt Get_Cell_Value1 () Dim CellValue As String CellValue = Aralık ("A1") End Sub
IntelliSense listesini görmek için bir kez daha nokta koyun.
VBA IntelliSense listesinden, değeri belirtilen hücreden almak için "Değer" özelliğini seçin.
Kod:
Alt Get_Cell_Value1 () Dim CellValue As String CellValue = Aralık ("A1"). Değer Son Alt
Şimdi "CellValue" değişkeni A1 hücresindeki değeri tutar. Bu değişken değerini VBA'daki mesaj kutusunda gösterin.
Kod:
Alt Get_Cell_Value1 () Dim CellValue As String CellValue = Aralık ("A1"). Değer MsgBox CellValue End Sub
Tamam, kodu çalıştırın ve sonucu bir mesaj kutusunda görün.
A1 hücresinde "HİNDİSTAN" değeri olduğundan, aynı şey ileti kutusunda da göründü. Bunun gibi hücrenin VBA değerine göre hücrenin değerini alabiliriz.
Örnek 3 - Bir Hücreden Diğerine Değer Kazanın
VBA kullanarak hücreden nasıl değer elde edeceğimizi biliyoruz. Şimdi soru, hücreye nasıl değer ekleneceğidir. Sadece aynı örneği ele alalım. A1 hücresi için "HİNDİSTAN" değerini girmemiz gerekir ve bu aşağıdaki koddan yapılabilir.
Kod:
Alt Get_Cell_Value2 () Aralık ("A1"). Değer = "HİNDİSTAN" Son Alt
Bu, "INDIA" değerini A1 hücresine ekleyecektir. Benzer şekilde bir hücreden diğerine değer elde etmek için kodu aşağıdaki gibi yazabiliriz.
Kod:
Alt Get_Cell_Value2 () Aralık ("A5"). Değer = Aralık ("A1"). Değer Son Alt
Kodu size açıklamama izin verin.
Bu kodun tamamı "A5 hücresi için A1 hücresinden gelen değere ihtiyacımız var" diyor. Yani bu, VBA kodunu kullanarak A1 hücresinden A5'e değeri alacaktır.
Hatırlanacak şeyler
- Hücrelere değer eklemek ve hücreden değer almak, VBA "VALUE" özelliğinin kullanılmasını gerektirir.
- CELLS özelliğini kullanarak yalnızca bir hücre seçebiliriz, ancak RANGE nesnesini kullanabiliriz. Birden çok hücre seçebiliriz.
