Bu dərslikdə siz Excel-də seçilmiş xananın sətir və sütununu dinamik şəkildə vurğulamaq üçün 3 müxtəlif üsul öyrənəcəksiniz.

Böyük iş vərəqinə uzun müddət baxarkən, siz nəticədə kursorunuzun harada olduğunu və hansı məlumatlara baxdığınızın izini itirə bilər. İstənilən an harada olduğunuzu dəqiq bilmək üçün Excel-i sizin üçün aktiv sətir və sütunu avtomatik olaraq vurğulamaq üçün əldə edin! Təbii ki, vurğulama dinamik olmalıdır və hər dəfə başqa bir xana seçdiyiniz zaman dəyişməlidir. Əsasən, nail olmaq istədiyimiz budur:

VBA ilə seçilmiş xananın sətir və sütununu avtomatik vurğulayın

Bu nümunə VBA ilə proqramlı şəkildə aktiv sütun və sətiri necə vurğulaya biləcəyinizi göstərir. Bunun üçün biz İş vərəqi obyektinin SelectionChange hadisəsindən istifadə edəcəyik.

İlk olaraq, ColorIndex xassəsini 0-a təyin edin. Və sonra siz onların ColorIndex xassəsini istədiyiniz rəng üçün indeks nömrəsinə təyin etməklə aktiv xananın bütün sətir və sütununu vurğulayırsınız.

Kodun fərdiləşdirilməsi

Əgər kodu ehtiyaclarınız üçün fərdiləşdirmək istəyirsinizsə, bu kiçik məsləhətlər sizə kömək edə bilər:

• Nümunə kodumuz yuxarıdakı gif-də nümayiş etdirilən iki fərqli rəngdən istifadə edir - sətir üçün 38 və sütun üçün 24 rəng indeksi. Vurğu rəngini dəyişmək üçün onları istədiyiniz istənilən ColorIndex kodları ilə əvəz edin.
• Sətrin və sütunun eyni şəkildə rənglənməsini əldə etmək üçün eynidən istifadə edin. hər ikisi üçün rəng indeksi nömrəsi.
• Yalnız aktiv cərgəni vurğulamaq üçün bu sətri silin və ya şərh yazın: .EntireColumn.Interior.ColorIndex = 24
• Yalnız aktiv sütunu vurğulamaq üçün bu sətri silin və ya şərh yazın: .EntireRow.Interior.ColorIndex = 38

Kodu necə əlavə etmək olar iş vərəqinizə

Kodun konkret iş vərəqinin fonunda səssizcə icrası üçün onu adi modulda deyil, həmin iş vərəqinə aid olan kod pəncərəsinə daxil etməlisiniz. Bunu etmək üçün bu addımları yerinə yetirin:

1. İş dəftərinizdə VBA redaktoruna daxil olmaq üçün Alt + F11 düymələrini basın.
2. Soldakı Layihə Explorer-də siz' Bütün açıq iş dəftərlərinin və onların iş vərəqlərinin siyahısını görəcəksiniz. Əgər onu görmürsünüzsə, Project Explorer pəncərəsini görmək üçün Ctrl + R qısa yolundan istifadə edin.
3. Hədəf iş kitabını tapın. Microsoft Excel-dəObyektlər qovluğunda işıqlandırma tətbiq etmək istədiyiniz vərəqə iki dəfə klikləyin. Bu misalda bu, Cədvəl 1 -dir.
4. Sağdakı Kod pəncərəsində yuxarıdakı kodu yerləşdirin.
5. Faylınızı Makro İşçi Kitabı kimi yadda saxlayın. (.xlsm).

Üstünlüklər : hər şey arxa hissədə edilir; istifadəçi tərəfindən heç bir düzəliş/fərdiləşdirmə tələb olunmur; bütün Excel versiyalarında işləyir.

Müəyyən çatışmazlıqlar : bu texnikanı müəyyən şərtlərdə tətbiq olunmaz edən iki əsas çatışmazlıq var:

• Kod arxa fonu təmizləyir iş vərəqindəki bütün xanaların rəngləri . Hər hansı rəngli xanalarınız varsa, bu həlli istifadə etməyin, çünki fərdi formatlaşdırmanız itiriləcək.
• Bu kodun icrası vərəqdə bloklar geri qaytarma funksiyasını və siz Ctrl + Z düymələrinə basmaqla səhv əməliyyatı geri qaytara bilməyəcəksiniz.

VBA olmadan aktiv sətir və sütunu vurğulayın

Seçilmiş cərgəni və / və ya VBA olmayan sütun Excel-in şərti formatıdır. Onu qurmaq üçün bu addımları yerinə yetirin:

1. Vurğulanmanın aparılacağı məlumat dəstinizi seçin.
2. Ev tabında, Üslublar qrupu, Yeni Qayda üzərinə klikləyin.
3. Yeni Formatlaşdırma Qaydası dialoq qutusunda Hansı xanaların təyin edilməsi üçün düsturdan istifadə edin format .
4. Bu formulun olduğu dəyərləri formatlayındoğrudur qutusuna bu düsturlardan birini daxil edin:

   aktiv sətir -ü vurğulamaq üçün:

   =CELL("row")=ROW()

   aktiv sütunu vurğulamaq üçün :

   =CELL("col")=COLUMN()

   aktiv sətir və sütunu vurğulamaq üçün:

   =OR(CELL("row")=ROW(), CELL("col")= COLUMN())

   Bütün düsturlar CELL funksiyasından istifadə edir. seçilmiş xananın satır/sütun nömrəsini qaytarın.

5. Format düyməsini klikləyin, Doldur tabına keçin və bəyəndiyiniz rəngi seçin.
6. Bağlamaq üçün iki dəfə OK üzərinə klikləyin hər iki dialoq pəncərəsi.

Əgər sizə daha ətraflı təlimatlara ehtiyacınız olduğunu hiss edirsinizsə, lütfən, düstura əsaslanan şərti formatlaşdırma qaydasını necə yaratmaq olar bölməsinə baxın.

Bu misal üçün biz OR-u seçdik. həm sütunu, həm də sıranı eyni rəngdə kölgələmək üçün formula. Bu, daha az iş tələb edir və əksər hallarda uyğundur.

Təəssüf ki, bu həll VBA həlli qədər gözəl deyil, çünki vərəqin əl ilə yenidən hesablanmasını tələb edir (F9 düyməsini basmaqla). Varsayılan olaraq, Excel iş vərəqini yalnız yeni məlumat daxil etdikdən və ya mövcud olanı redaktə etdikdən sonra yenidən hesablayır, lakin seçim dəyişdikdə yox. Beləliklə, başqa bir hüceyrə seçirsiniz - heç bir şey olmur. F9 düyməsini basın - vərəq təzələnir, düstur yenidən hesablanır və vurğulama yenilənir.

İş vərəqinin hər dəfə SelectionChange hadisəsi olduqda avtomatik olaraq yenidən hesablanması üçün baş verərsə, bu sadə VBA kodunu bölmədə izah edildiyi kimi hədəf vərəqinizin kod moduluna yerləşdirə bilərsinizəvvəlki misal:

Kod seçilmiş diapazonu/xananı yenidən hesablamağa məcbur edir, bu da öz növbəsində CELL funksiyasını yeniləməyə və şərti formatlaşdırmanı əks etdirməyə məcbur edir. dəyişiklik.

Üstünlüklər : əvvəlki üsuldan fərqli olaraq, bu, əl ilə tətbiq etdiyiniz mövcud formatlaşdırmaya təsir göstərmir.

Mühüm cəhətlər : ola bilər Excel-in işini pisləşdirir.

• Şərti formatlaşdırmanın işləməsi üçün Excel-i hər seçim dəyişikliyində formulanı yenidən hesablamağa məcbur etməlisiniz (ya F9 düyməsi ilə əl ilə, ya da VBA ilə avtomatik). Məcburi yenidən hesablamalar Excel-i ləngidə bilər. Kodumuz bütöv vərəqdən çox seçimi yenidən hesabladığından, mənfi təsir çox güman ki, yalnız həqiqətən böyük və mürəkkəb iş kitablarında nəzərə çarpacaq.
• CELL funksiyası Excel 2007 və daha yüksək versiyalarda mövcud olduğundan, metod qalib gələcək' t əvvəlki versiyalarda işləmir.

Şərti formatlaşdırma və VBA-dan istifadə edərək seçilmiş sətir və sütunu vurğulayın

Əvvəlki metod iş kitabınızı xeyli yavaşlatırsa, tapşırığa başqa cür yanaşa bilərsiniz - bunun əvəzinə Hər istifadəçi hərəkətində iş vərəqini yenidən hesablamaq üçün VBA-nın köməyi ilə aktiv sətir/sütun nömrəsini əldə edin və şərti formatlaşdırma düsturlarından istifadə edərək həmin nömrəni ROW() və ya SÜTUN() funksiyasına xidmət edin.

To. bunu yerinə yetirmək,sizə əməl etməli olduğunuz addımlar bunlardır:

1. İş dəftərinizə yeni boş vərəq əlavə edin və onu Köməkçi Vərəqi adlandırın. Bu vərəqin yeganə məqsədi seçilmiş xananı ehtiva edən sətir və sütunu təmsil edən iki rəqəmi saxlamaqdır, beləliklə siz vərəqi daha sonra təhlükəsiz şəkildə gizlədə bilərsiniz.
2. Aşağıdakı VBA-nı iş vərəqinin kod pəncərəsinə daxil edin. işıqlandırmanı həyata keçirmək istədiyiniz yerdə. Ətraflı təlimatlar üçün ilk nümunəmizə müraciət edin. Private Sub Worksheet_SelectionChange( ByVal Target As Range) Application.ScreenUpdating = False Worksheets( "Helper Sheet" ).Cells(2, 1) = Target.Row Worksheets( "Helper Sheet" ).Cells(2, 2) = Target.Column Application.ScreenUpdating = True End Sub

   Yuxarıdakı kod aktiv sətir və sütunun koordinatlarını "Yardımçı vərəq" adlı vərəqə yerləşdirir. 1-ci addımda vərəqinizi fərqli adlandırmısınızsa, koddakı iş vərəqinin adını müvafiq olaraq dəyişdirin. Sətir nömrəsi A2-yə, sütun nömrəsi isə B2-yə yazılır.

3. Hədəf iş vərəqinizdə bütün verilənlər dəstini seçin və aşağıdakı düsturlarla şərti formatlaşdırma qaydası yaradın. Addım-addım təlimat yuxarıdakı misalda verilmişdir.

İndi isə üç əsas istifadə halını ətraflı nəzərdən keçirək.

Aktiv sıranı necə vurğulamaq olar

Hazırda kursorunuzun yerləşdiyi cərgəni vurğulamaq üçün bununla şərti formatlaşdırma qaydası qurundüstur:

=ROW()='Helper Sheet'!$A$2

Nəticədə istifadəçi hazırda hansı sıranın seçildiyini aydın görə bilər:

Aktiv sütunu necə vurğulamaq olar

Seçilmiş sütunu vurğulamaq üçün bu düsturdan istifadə edərək sütun nömrəsini COLUMN funksiyasına köçürün:

=COLUMN()='Helper Sheet'!$B$2

İndi vurğulanmış sütun sizə şaquli datanı rahat və səylə oxumağa imkan verir.

Aktiv sətir və sütunu necə vurğulamaq olar

Seçilmiş sətir və sütunun avtomatik olaraq eyni rəngdə kölgələnməsini əldə etmək üçün ROW() və COLUMN() funksiyalarını bir düsturda birləşdirin:

=OR(ROW()='Helper Sheet'!$A$2, COLUMN()='Helper Sheet'!$B$2)

Müvafiq məlumatlar dərhal diqqət mərkəzində saxlanılır, beləliklə siz onları yanlış oxumaqdan qaça bilərsiniz.

Üstünlüklər : optimallaşdırılmış performans; bütün Excel versiyalarında işləyir

Qüsurlar : ən uzun quraşdırma

Excel-də seçilmiş xananın sütununu və cərgəsini belə vurğulamaq olar. Oxuduğunuz üçün sizə təşəkkür edirəm və sizi gələn həftə bloqumuzda görməyi səbirsizliklə gözləyirəm!

Endirmək üçün məşq kitabı

Aktiv sətir və sütunun vurğulanması (.xlsm faylı)