Excel'deki tüm kilitlenmemiş hücreler nasıl seçilir?
Hepimizin bildiği kadarıyla, excel hücreleri varsayılan olarak kilitlenir, çalışma sayfasını koruduğumuzda ve bazı belirli hücre değerlerini değiştirmemiz gerektiğinde, önce hücrelerin kilidini açmamız gerekir. Ancak, biraz değişiklik yapmak istiyorsanız, tüm kilitli hücreleri nasıl bulabilir ve seçebilirsiniz?
- Her Şeyi Yeniden Kullanın: En çok kullanılan veya karmaşık formülleri, grafikleri ve diğer her şeyi favorilerinize ekleyin ve gelecekte bunları hızla yeniden kullanın.
- 20'den fazla metin özelliği: Metin Dizesinden Sayı Ayıklama; Metin Parçalarını Çıkarın veya Çıkarın; Sayıları ve Para Birimlerini İngilizce Kelimelere dönüştürün.
- Araçları Birleştirme: Birden Fazla Çalışma Kitabı ve Çalışma Sayfası Bir Arada; Veri Kaybetmeden Birden Çok Hücre / Satır / Sütunu Birleştirme; Yinelenen Satırları ve Toplamı Birleştir.
- Araçları Böl: Verileri Değere Göre Birden Çok Sayfaya Bölün; Birden Çok Excel, PDF veya CSV Dosyasına Bir Çalışma Kitabı; Birden Çok Sütuna Bir Sütun.
- Atlamayı Yapıştır Gizli / Filtrelenmiş Satırlar; Say ve Toplam Arka Plan Rengine Göre; Kişiselleştirilmiş E-postaları Birden Fazla Alıcıya Toplu Olarak Gönderin.
- Süper Filtre: Gelişmiş filtre şemaları oluşturun ve herhangi bir sayfaya uygulayın; Sırala hafta, gün, sıklık ve daha fazlasına göre; filtre kalın, formüller, yorum ...
- 300'den fazla güçlü özellik; Office 2007-2021 ve 365 ile çalışır; tüm dilleri destekler; Kuruluşunuzda veya kuruluşunuzda kolay devreye alma.
Aşağıdaki VBA kodu, tüm kilitli hücreleri bir kerede hızlı bir şekilde seçmenize yardımcı olabilir, lütfen şu şekilde yapın:
1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic pencere.
2. Tıkla Ekle > modülve aşağıdaki kodu Modül penceresine yapıştırın.
VBA kodu: tüm kilitli olmayan hücreleri seçin
Sub SelectUnlockedCells() 'Update 20130830 Dim WorkRng As Range Dim OutRng As Range Dim Rng As Range On Error Resume Next Set WorkRng = Application.ActiveSheet.UsedRange Application.ScreenUpdating = False For Each Rng In WorkRng If Rng.Locked = False Then If OutRng.Count = 0 Then Set OutRng = Rng Else Set OutRng = Union(OutRng, Rng) End If End If Next If OutRng.Count > 0 Then OutRng.Select Application.ScreenUpdating = True End Sub
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve tüm kilitli olmayan hücreler seçilmiştir. Ardından, çalışma sayfası korunduktan sonra bu hücre değerlerini değiştirebilirsiniz.
notlar:
- 1. Çalışma sayfanızda kilitli olmayan hücre yoksa, bu kod etkili olmayacaktır.
- 2. Bu VBA kodu yalnızca kullanılan aralık için geçerlidir
VBA koduna aşina değilseniz, bunu kullanarak bir tıklama ile tüm kilitli hücreleri de seçebilirsiniz. Kilitli Olmayan Hücreleri Seçin of Kutools for Excel.
Kutools for Excel yüklediyseniz, lütfen şu şekilde yapın:
1. Kilitlenmemiş hücre aralığını seçmek istediğiniz aralığı veya tüm çalışma sayfasını seçin.
2. tıklayın Kutools > Araçlar'ı seçin > Kilitli Olmayan Hücreleri Seçin, ekran görüntüsüne bakın:
3. Ve sonra, seçiminizdeki kilitli olmayan tüm hücreler, gösterilen aşağıdaki ekran görüntüsü gibi aynı anda seçildi:
Bu özellik hakkında daha fazla bilgi edinmek istiyorsanız, lütfen tıklayın Kilitli Olmayan Hücreleri Seçin.
İlgili makale: