Ana içeriğe atla

Excel'de seçilen aralıkların seçimlerini kolayca nasıl tersine çevirebilirim?

Bir aralığın bazı belirli hücrelerini seçtiğinizi varsayarsak ve şimdi seçimi tersine çevirmeniz gerekir: seçilen hücrelerin seçimini kaldırın ve diğer hücreleri seçin. Aşağıdaki ekran görüntüsüne bakın:

Elbette seçimi manuel olarak tersine çevirebilirsiniz. Ancak bu makale, seçimleri hızlı bir şekilde tersine çevirmek için size bazı sevimli hileler getirecek:

VBA ile Excel'de seçimleri tersine çevirin

Kutools for Excel ile Excel'de ters seçim


ok mavi sağ balon VBA ile Excel'de seçimleri tersine çevirin

VBA makrosunun kullanılması, etkin çalışma sayfasının çalışma alanındaki seçimleri tersine çevirmek için kolay çalışmanızı sağlayacaktır.

Step1: Ters çevirmek istediğiniz hücreleri seçin.

Step2: Tuşunu basılı tutun. Ara Toplam + F11 Excel'de anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.

Step3: Tıklayın Ekle > modülve aşağıdaki makroyu Modül Penceresine yapıştırın.

Seçimleri ters çevirmek için VBA

Sub InvertSelection()
'Updateby20140314
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
    If Application.Intersect(rng, Rng1) Is Nothing Then
        If OutRng Is Nothing Then
            Set OutRng = rng
        Else
            Set OutRng = Application.Union(OutRng, rng)
        End If
    End If
Next
OutRng.Select
End Sub
	

Step4: Tuşuna basın. F5 Bu makroyu çalıştırmak için anahtar. Ardından, sonuçta seçilmesi gerekmeyen bazı hücreleri seçmeniz için bir iletişim kutusu görüntülenir. Ekran görüntüsüne bakın:




5. Adım: Tıklayın OKtıklayın ve başka bir açılır pencerede seçimi tersine çevirmek istediğiniz bir aralık seçin. Ekran görüntüsüne bakın:




6. Adım: Tıklayın OK. seçimin tersine çevrildiğini görebilirsiniz.


Notlar: Bu VBA ayrıca boş çalışma sayfasında çalışıyor.


ok mavi sağ balon Kutools for Excel ile Excel'de seçimleri tersine çevirin

Excel'de herhangi bir seçimi hızlı bir şekilde tersine çevirmek isteyebilirsiniz. Aralık Yardımcısı'nı seçin araçları Kutools for Excel Excel'de seçimi hızla tersine çevirmenize yardımcı olabilir. Bu numara, tüm çalışma kitabındaki herhangi bir seçimi tersine çevirmenizi kolaylaştırır.

Kutools for Excel, 300'den fazla kullanışlı Excel aracı içerir. 30 gün içinde hiçbir sınırlama olmaksızın ücretsiz deneyin. Şimdi alın.

Step1: Ters çevirmek istediğiniz hücreleri seçin.

Step2: Tıkla Kutools > Araçlar'ı seçin > Aralık Yardımcısı'nı seçin….

Step3: İçinde Aralık Yardımcısı'nı seçin iletişim kutusunda Ters Seçim seçeneği.

Step4: Ardından, seçimleri tersine çevirmek istediğiniz aralığı seçmek için fareyi sürükleyin. Fareyi bıraktığınızda, seçili hücrelerin seçimi kaldırılmış ve seçili olmayan hücreler aynı anda aralıktan seçilmiştir.

Step5: Ve sonra Aralık Yardımcısı'nı seçin iletişim kutusu.

Hakkında daha ayrıntılı bilgi için Aralık Yardımcısı'nı seçinZiyaret edin Aralık Yardımcısı özelliği açıklamasını seçin.


İlgili Makaleler:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

 

 

 

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Reverse Selections In Excel With VBA - confirmed not working.

Please fix.
This comment was minimized by the moderator on the site
Try this:


Sub InvertSelection()
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
Dim xTitleId As String
xTitleId = "Invert Selection"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub
This comment was minimized by the moderator on the site
invert selection vba not working
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations