Koordinat Seçimi

Büyük bir monitörünüz var ama çalıştığınız masalar daha da büyük. Ve gerekli bilgiyi aramak için ekrana bakarken, gözlerinizi bir sonraki satıra “kaydırma” ve yanlış yöne bakma şansı her zaman vardır. Hatta bu gibi durumlarda, monitördeki çizgiye tutturmak için tahta bir cetveli her zaman yanlarında tutan insanlar tanıyorum. Geleceğin teknolojileri! 

Ve etkin hücre sayfa boyunca hareket ettiğinde geçerli satır ve sütun vurgulanırsa? Bunun gibi bir tür koordinat seçimi:

Bir cetvelden daha iyi, değil mi?

Bunu uygulamak için karmaşıklığı değiştirmenin birkaç yolu vardır. Her yöntemin artıları ve eksileri vardır. Onlara ayrıntılı olarak bir göz atalım.

Yöntem 1. Açık. Geçerli satırı ve sütunu vurgulayan makro

"Alındaki" sorunumuzu çözmenin en belirgin yolu, sayfadaki seçimdeki değişikliği izleyecek ve geçerli hücre için tüm satırı ve sütunu seçecek bir makroya ihtiyacımız var. Gerekirse bu işlevi etkinleştirip devre dışı bırakabilmek de istenir, böylece böyle bir çapraz şekilli seçim, örneğin formüllere girmemizi engellemez, ancak yalnızca gerekli olanı aramak için listeye baktığımızda çalışır. bilgi. Bu bizi sayfa modülüne eklenmesi gereken üç makroya (seç, etkinleştir ve devre dışı bırak) getiriyor.

Böyle bir koordinat seçimi almak istediğiniz tabloyu içeren bir sayfa açın. Sayfa sekmesine sağ tıklayın ve içerik menüsünden komutu seçin Kaynak metin (Kaynak kodu).Visual Basic Düzenleyici penceresi açılmalıdır. Bu üç makronun bu metnini içine kopyalayın:

Dim Coord_Selection As Boolean 'Seçim açık/kapalı için küresel değişken Sub Selection_On() 'Makroda seçim Coord_Selection = True End Sub Selection_Off() 'Makro kapalı seçim Coord_Selection = False End Sub 'Seçimi gerçekleştiren ana prosedür Private Sub Worksheet_SelectionChange(ByVal) Range) Dim WorkRange As Range, Target.Cells.Count > 1 ise Sonra Exit Sub '1'den fazla hücre seçiliyse, çık Coord_Selection = False ise Exit Sub 'seçim kapalıysa, Application'dan çıkın.ScreenUpdating = False Set WorkRange = Aralık (" A6:N300") 'seçimin görünür olduğu çalışma aralığının adresi

Çalışma aralığının adresini kendinize göre değiştirin - seçimimiz bu aralık içinde çalışacaktır. Ardından Visual Basic Düzenleyicisini kapatın ve Excel'e dönün.

Klavye kısayoluna basın ALT + F8Kullanılabilir makroların listesini içeren bir pencere açmak için. Makro Seçim_Açık, tahmin edebileceğiniz gibi, geçerli sayfadaki koordinat seçimini ve makro Seçim_Kapalı – kapatır. Aynı pencerede butona tıklayarak parametreler (Seçenekler) Kolay başlatma için bu makrolara klavye kısayolları atayabilirsiniz.

Bu yöntemin avantajları:

  • göreceli uygulama kolaylığı
  • seçim – işlem zararsızdır ve sayfa hücrelerinin içeriğini veya biçimlendirmesini hiçbir şekilde değiştirmez, her şey olduğu gibi kalır

Bu yöntemin eksileri:

  • sayfada birleştirilmiş hücreler varsa bu tür bir seçim düzgün çalışmaz – birliğe dahil edilen tüm satırlar ve sütunlar bir kerede seçilir
  • yanlışlıkla Sil tuşuna basarsanız, yalnızca etkin hücre değil, seçilen alanın tamamı temizlenir, yani tüm satır ve sütundan veriler silinir

Yöntem 2. Orijinal. HÜCRE + Koşullu Biçimlendirme İşlevi

Bu yöntem, birkaç dezavantajı olmasına rağmen, bana çok zarif görünüyor. Yalnızca yerleşik Excel araçlarını kullanarak bir şeyler uygulamak için VBA'da programlamaya minimum düzeyde girmek akrobasidir 😉

Yöntem, belirli bir hücre hakkında yükseklik, genişlik, satır-sütun numarası, sayı biçimi vb. gibi birçok farklı bilgi verebilen HÜCRE işlevini kullanmaya dayanır. Bu işlevin iki argümanı vardır:

  • "sütun" veya "satır" gibi parametre için bir kod sözcüğü
  • bu parametrenin değerini belirlemek istediğimiz hücrenin adresi

İşin püf noktası, ikinci argümanın isteğe bağlı olmasıdır. Belirtilmezse mevcut aktif hücre alınır.

Bu yöntemin ikinci bileşeni koşullu biçimlendirmedir. Bu son derece kullanışlı Excel özelliği, belirtilen koşulları karşılıyorlarsa hücreleri otomatik olarak biçimlendirmenize olanak tanır. Bu iki fikri tek bir fikirde birleştirirsek, koşullu biçimlendirme yoluyla koordinat seçimimizi uygulamak için aşağıdaki algoritmayı elde ederiz:

  1. Tablomuzu, yani gelecekte koordinat seçiminin görüntülenmesi gereken hücreleri seçiyoruz.
  2. Excel 2003 ve daha eski sürümlerde menüyü açın Biçim – Koşullu Biçimlendirme – Formül (Biçim — Koşullu Biçimlendirme — Formül). Excel 2007 ve daha yeni sürümlerde - sekmeye tıklayın Ana Sayfa (Ev)düğmesine tıklayın Koşullu Biçimlendirme – Kural Oluştur (Koşullu Biçimlendirme — Kural Oluştur) ve kural türünü seçin Biçimlendirilecek hücreleri belirlemek için bir formül kullanın (Formülü kullanın)
  3. Koordinat seçimimiz için formülü girin:

    =VEYA(HÜCRE(“satır”)=SATIR(A2),HÜCRE(“sütun”)=SÜTUN(A2))

    =VEYA(HÜCRE(«satır»)=SATIR(A1),HÜCRE(«sütun»)=SÜTUN(A1))

    Bu formül, tablodaki her hücrenin sütun numarasının mevcut hücrenin sütun numarasıyla aynı olup olmadığını kontrol eder. Aynı şekilde sütunlarda. Böylece, yalnızca geçerli hücreyle eşleşen bir sütun numarasına veya bir satır numarasına sahip olan hücreler doldurulacaktır. Ve bu, elde etmek istediğimiz çapraz şekilli koordinat seçimidir.

  4. Düğmeye bas iskelet (Biçim) ve dolgu rengini ayarlayın.

Her şey neredeyse hazır, ancak bir nüans var. Gerçek şu ki, Excel, seçimdeki bir değişikliği sayfadaki verilerde bir değişiklik olarak görmez. Ve sonuç olarak, formüllerin yeniden hesaplanmasını ve koşullu biçimlendirmenin yeniden renklendirilmesini yalnızca etkin hücrenin konumu değiştiğinde tetiklemez. Bu yüzden bunu yapacak olan sayfa modülüne basit bir makro ekleyelim. Sayfa sekmesine sağ tıklayın ve içerik menüsünden komutu seçin Kaynak metin (Kaynak kodu).Visual Basic Düzenleyici penceresi açılmalıdır. Bu basit makronun bu metnini içine kopyalayın:

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveCell.End Sub'ı Hesapla

Şimdi, seçim değiştiğinde, formülle fonksiyonla yeniden hesaplama işlemi başlatılacak. HÜCRE koşullu biçimlendirmede ve geçerli satırı ve sütunu taşkın.

Bu yöntemin avantajları:

  • Koşullu biçimlendirme, özel tablo biçimlendirmesini bozmaz
  • Bu seçim seçeneği, birleştirilmiş hücrelerle doğru şekilde çalışır.
  • Yanlışlıkla tıklamayla tüm bir satır ve veri sütununu silme riski yok Sil.
  • Makrolar minimum düzeyde kullanılır

Bu yöntemin eksileri:

  • Koşullu biçimlendirme formülü manuel olarak girilmelidir.
  • Bu tür biçimlendirmeyi etkinleştirmenin/devre dışı bırakmanın hızlı bir yolu yoktur – kural silinene kadar her zaman etkindir.

Yöntem 3. Optimal. Koşullu Biçimlendirme + Makrolar

Altın anlam. Yöntem-1'deki makroları kullanarak sayfadaki seçimi izlemek için mekanizmayı kullanırız ve yöntem-2'den koşullu biçimlendirme kullanarak ona güvenli vurgulama ekleriz.

Böyle bir koordinat seçimi almak istediğiniz tabloyu içeren bir sayfa açın. Sayfa sekmesine sağ tıklayın ve içerik menüsünden komutu seçin Kaynak metin (Kaynak kodu).Visual Basic Düzenleyici penceresi açılmalıdır. Bu üç makronun bu metnini içine kopyalayın:

Dim Coord_Selection As Boolean Sub Selection_On() Coord_Selection = True End Sub Sub Selection_Off() Coord_Selection = False End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim WorkRange As Range, CrossRange Range As Range Set WorkRange = Range(")A7:N300 'адрес рабочего диапазона с таблицей If Target.Count > 1 Then Exit Sub If Coord_Selection = False Then WorkRange.FormatConditions.Delete Exit Sub End If Application.ScreenUpdating = False If Not Intersect(Target) WorkRange, Union(Target.EntireRow, Target.EntireColumn)) WorkRange.FormatConditions.Delete CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:="=1" CrossRange.FormatConditions(1).Interior.ColorIndex = 33 Target.FormatConditions .Delete End If End Sub

Çalışma aralığı adresini tablo adresinize değiştirmeyi unutmayınız. Visual Basic Düzenleyicisini kapatın ve Excel'e dönün. Eklenen makroları kullanmak için klavye kısayoluna basın ALT + F8  ve yöntem 1 ile aynı şekilde ilerleyin. 

Yöntem 4. Güzel. FollowCellPointer eklentisi

Hollanda'dan Excel MVP'si Jan Karel Pieterse, web sitesinde ücretsiz bir eklenti sunuyor TakipHücreİşaretçisiMevcut satırı ve sütunu vurgulamak için makroları kullanarak grafik ok çizgileri çizerek aynı sorunu çözen (36Kb):

 

Güzel çözüm. Yerlerde aksaklıklar olmadan değil, kesinlikle denemeye değer. Arşivi indirin, diske paketinden çıkarın ve eklentiyi yükleyin:

  • Excel 2003 ve daha eski sürümlerde - menü aracılığıyla Servis – Eklentiler – Genel Bakış (Araçlar — Eklentiler — Gözat)
  • Excel 2007 ve sonrasında, aracılığıyla Dosya – Seçenekler – Eklentiler – Git – Gözat (Dosya — Excel Seçenekleri — Eklentiler — Git — Gözat)

  • Makro nedir, Visual Basic'te makro kodu nereye eklenir

 

Yorum bırak