Kullanmanın en kolay yollarından bazılarını arıyorsanız VBA Range Offset'i kullanıyorsanız, bu makaleyi okumaya değer bulacaksınız. VBA Aralık Ofseti.

Çalışma Kitabını İndirin

VBA Aralık Ofsetini Kullanmanın 11 Yolu

Bir üniversitenin bazı öğrencilerinin bilgilerini içeren aşağıdaki veri tablosuna sahibim. Bu veri kümesini kullanarak, veri setini kullanmanın yollarını açıklayacağım. VBA Aralık Ofseti.

Bu amaçla şunları kullandım Microsoft Excel 365 sürümünü kullanıyorsanız, uygunluğunuza göre diğer sürümleri de kullanabilirsiniz.

Yöntem-1: VBA Aralığı Kullanarak Hücre Seçme

Burada, adı içeren bir hücre seçeceğiz Daniel Defoe. Bu amaç için, biz kullanacağız RANGE işlevi içinde VBA .

Adım-01 :

➤ Şuraya git Geliştirici Tab>> Visual Basic Opsiyon

O zaman Visual Basic Düzenleyicisi açılacak.

➤ Şuraya git Ekleme Tab>> Modül Opsiyon

Bundan sonra, bir Modül oluşturulacaktır.

Adım-02 :

➤ Aşağıdaki kodu yazın

 Sub SelectCell() Range("B8").Select End Sub 

Hücre seçecektir B8 .

Basın F5

Sonuç :

Bu şekilde, aşağıdakileri içeren hücreyi elde edersiniz Daniel Defoe seçildi.

Daha fazlasını okuyun: Excel'de VBA'nın Aralık Nesnesi Nasıl Kullanılır

Yöntem-2: VBA Aralığı Kullanarak Bir Grup Bitişik Hücre Seçme

gibi bitişik hücrelerden oluşan bir aralık seçebilirsiniz. Öğrenci Adı sütunu ve Sonuç Bu yöntemi izleyerek aşağıdaki tabloda yer alan sütunu seçin.

Adım-01 :

Takip et Adım-01 . Yöntem-1

 Sub ContiguousCells() Range("B5:C10").Select End Sub 

Hücreleri şuradan seçecektir B5 için C10 .

Basın F5

Sonuç :

Bundan sonra, hücreleri Sütun B ve Sütun C seçildi.

Yöntem-3: VBA Aralığı Kullanarak Bitişik Olmayan Hücrelerden Oluşan Bir Grubu Seçme

Diyelim ki, aşağıdaki öğrencileri seçmek istiyorsunuz William David ve Michael Anthony bunların ilgili E-posta Kimliği Bu uyumsuz hücreleri seçmek için şu yöntemi izleyebilirsiniz.

Adım-01 :

Takip et Adım-01 . Yöntem-1

 Sub nonContiguous() Range("B6,D6,B9,D9").Select End Sub 

Hücreleri seçecektir B6 , D6 , B9, ve D9 .

Basın F5

Sonuç :

Ardından, öğrencinin adını içeren hücreleri alacaksınız William David , Michael Anthony, ve onların ilgili E-posta Kimliği seçildi.

Yöntem-4: VBA Aralık Kullanarak Bitişik Olmayan Hücreler Grubunu ve Bir Aralığı Seçme

Bu yöntemi izleyerek bir hücre aralığını ve bitişik olmayan bazı hücreleri aynı anda seçebilirsiniz.

Adım-01 :

Takip et Adım-01 . Yöntem-1

 Sub nonContiguouswithrange() Range("B5:B10,D6,D10").Select End Sub 

Aralıktaki hücre aralığını seçecektir B5:B10 ve diğer iki hücre D6 , D10 .

Basın F5

Sonuç :

Daha sonra, sütundaki hücreleri alacaksınız Öğrenci Adı ve iki E-posta Kimlikleri için William David ve Donald Paul seçildi.

Yöntem-5: VBA Aralık Ofseti Kullanarak Aralık Seçme

içinde bir hücre aralığı seçebilirsiniz. Öğrenci Adı sütunu kullanarak OFFSET işlevi .

Adım-01 :

Takip et Adım-01 . Yöntem-1

 Sub selectrangeoffset() Range("A1:A6").Offset(4, 1).Select End Sub 

İlk başta, Aralık("A1:A6") aralığı seçecektir A1:A6 ve sonra Ofset(4, 1) hücresinden aşağıya doğru 4 satır taşıyacaktır A1 ve sağ tarafa 1 sütun. Bundan sonra, aralıktaki eşit sayıda hücre A1:A6 buradan seçilecektir.

Basın F5

Sonuç :

Bu şekilde, sütunu seçeceksiniz Öğrenci Adı .

Yöntem-6: VBA Aralık Ofseti Negatif

Seçebilirsiniz E-posta Kimliği sütunu Bu yöntemi izleyerek.

Adım-01 :

Takip et Adım-01 . Yöntem-1

 Sub negativerangeoffset() Range("F11:F16").Offset(-6, -2).Select End Sub 

İlk başta, Aralık("F11:F16") aralığı seçecektir F11:F16 ve sonra Ofset(-6, -2) hücresinden yukarı doğru 6 satır taşıyacaktır F11 ve sol tarafa 2 sütun. Bundan sonra, aralıktaki eşit sayıda hücre F11:F16 buradan seçilecektir.

Basın F5

Sonuç :

Bundan sonra, sütunu seçebileceksiniz E-posta Kimliği .

Benzer Okumalar:

• Excel'de Aralıktaki Her Hücre için VBA (3 Yöntem)
• Excel'de Metin Nasıl Sayılır (7 Kolay Püf Noktası)

Yöntem-7: Aktif Hücreye Göre Bir Aralık Seçme

Burada, aktif bir hücreye sahibiz (hücre A1 ) ve bu hücreye göre, bu yöntemde veri aralığını seçeceğiz.

Adım-01 :

Takip et Adım-01 . Yöntem-1

 Sub actvcell() Range(activecell.Offset(4, 1), activecell.Offset(9, 3)).Select End Sub 

İşte, activecell o A1

İlk bölüm activecell.Offset(4, 1) hücreden 4 satır aşağı ve 1 sütun sağa doğru bir hücre seçecektir A1 ve ikinci bölüm activecell.Offset(9, 3) hücresinden 9 satır aşağı ve 3 sütun sağa doğru bir hücre seçecektir A1 .

Son olarak, bu iki hücre arasındaki tüm hücreler seçilecektir.

Basın F5

Sonuç :

Ardından, tüm veri aralığını seçebileceksiniz.

Yöntem-8: Bir Aralığı Kopyalama

Bir hücre aralığını kopyalamak istiyorsanız, bu yöntemi izleyebilirsiniz.

Adım-01 :

Takip et Adım-01 . Yöntem-1

 Sub copyrangeoffset() Range("A1:A6").Offset(4, 1).Copy End Sub 

İlk başta, Aralık("A1:A6") aralığı seçecektir A1:A6 ve sonra Ofset(4, 1) hücresinden aşağıya doğru 4 satır taşıyacaktır A1 ve sağ tarafa 1 sütun. Bundan sonra, aralıktaki eşit sayıda hücre A1:A6 buradan seçilecektir.

Son olarak, aralıktaki değerleri kopyalayacaktır B5:B10 .

Basın F5

Sonuç :

Bundan sonra, aşağıdaki veri aralığını kopyalayabileceksiniz Öğrenci Adı sütunu .

Yöntem-9: Bir Aralığı Silme

Burada, aşağıdakileri kullanarak bir veri aralığını silmenin yolunu göstereceğiz VBA Kod.

Adım-01 :

Takip et Adım-01 . Yöntem-1

 Sub dltrangeoffset() Range("F11:F17").Offset(-7, -2).Delete End Sub 

İlk olarak, Aralık("F11:F17") aralığı seçecektir F11:F17 ve sonra Ofset(-7, -2) hücresinden yukarı doğru 7 satır taşıyacaktır F11 ve sol tarafa 2 sütun. Bundan sonra, aralıktaki eşit sayıda hücre F11:F17 buradan seçilecektir.

Son olarak, aralığı silecektir D4:D10 .

Basın F5

Sonuç :

Bu şekilde, aşağıdaki veri aralığını kopyalayacaksınız E-posta Kimliği sütunu .

Yöntem-10: Değer Girmek için VBA Aralık Ofsetini Kullanma

Burada, boş bir hücremiz var (bu yöntemi açıklamak için bu hücredeki değeri kaldırdık) Öğrenci Adı sütunu ve biz onu şu isimle doldurmak istiyoruz Joseph Michael kullanarak VBA kodunu kullanarak bu değeri kolayca girebiliriz.

Adım-01 :

Takip et Adım-01 . Yöntem-1

 Sub valuerangeoffset() Range("A1").Offset(6, 1).Value = "Joseph Michael" End Sub 

İlk olarak, Aralık("A1") hücreyi seçecektir A1 ve sonra Ofset(6, 1) hücresinden aşağıya doğru 6 satır taşıyacaktır A1 ve sağ tarafa 1 sütun. Bundan sonra, hücre B7 seçilecek ve son olarak, aşağıdaki değeri girecektir "Joseph Michael" bu hücrede.

Basın F5

Sonuç :

Bu şekilde, şu ismi alacaksınız Joseph Michael hücre içinde B7 .

Yöntem-11: Çıktı Almak için VBA Aralık Ofseti Kullanma

Diyelim ki şunları yazmak istiyorsunuz Geçti veya Yazışma yapılamadı bağlı olarak öğrencilerin isimlerine Sonuç sütunu nerede Geçmek veya Başarısız parantez içinde yazılmıştır. Bu alt dizeyi bulmak için Sonuç sütunu ve bir yere yazın Geçti/Kaldı sütunu bu yöntemi izleyin.

Adım-01 :

Takip et Adım-01 . Yöntem-1

 Sub CheckSubstring() Dim cell As Range For Each cell In Range("C5:C10") If InStr(cell.value, "Pass")> 0 Then cell.Offset(0, 1).value = "Passed" Else cell.Offset(0, 1).value = "Failed" End If Next cell End Sub 

Burada, hücre aralığı C5:C10 tarafından seçilir Aralık("C5:C10") ki bu da Sonuç sütunu

InStr(hücre. değer, "Geçer")> 0 sayının sıfırdan büyük olduğu durumdur (hücre aşağıdakileri içerdiğinde "Pas" ) sonra aşağıdaki satır devam edecek ve bitişik hücredeki çıktıyı şu şekilde verecektir Geçti Burada, bitişik hücre şu şekilde seçilecektir hücre.Ofset(0, 1) bu da giriş hücresinden 1 sütun sağa hareket edeceği anlamına gelir.

Koşulun yanlış olması, hücrenin hiçbir şey içermediği anlamına gelir "Pas" altındaki satır Başka yürütülecek ve bitişik hücredeki çıktı değerini şu şekilde verecektir Başarısız .

Bu döngü her hücre için devam edecektir.

Basın F5

Sonuç :

Ardından, çıktıları alacaksınız Geçti veya Kaldı içinde Geçer/Kalır sütun.

Uygulama Bölümü

Kendi kendinize pratik yapmanız için bir Uygulama adlı bir sayfada aşağıdaki gibi bir bölüm Uygulama Lütfen bunu kendiniz yapın.

Sonuç

Bu yazıda, en kolay kullanım yollarını ele almaya çalıştım VBA Umarım faydalı bulursunuz. Herhangi bir öneriniz veya sorunuz varsa, bunları bizimle paylaşmaktan çekinmeyin.