Mündəricat
Ünsiyyət Excel-də çox faydalı xüsusiyyətdir. Axı, çox vaxt istifadəçilər digər faylların məlumatlarından istifadə etməlidirlər. Ancaq bəzi hallarda onlar xeyirdən çox zərər verə bilərlər. Axı, məsələn, bu faylları poçtla göndərsəniz, bağlantılar işləmir. Bu gün belə bir problemin qarşısını almaq üçün nə etməli olduğumuz barədə daha ətraflı danışacağıq.
Excel-də əlaqələr nədir
Excel-də əlaqələr çox vaxt kimi funksiyalarla birlikdə istifadə olunur VPRbaşqa iş kitabından məlumat almaq. O, təkcə xananın deyil, həm də verilənlərin yerləşdiyi kitabın ünvanını ehtiva edən xüsusi keçid formasını ala bilər. Nəticədə belə bir əlaqə bu kimi görünür: =VLOOKUP(A2;'[Satış 2018.xlsx]Hesabat'!$A:$F;4;0). Və ya daha sadə təqdimat üçün ünvanı aşağıdakı formada təqdim edin: ='[Satış 2018.xlsx]Hesabat'!$A1. Bu tip keçid elementlərinin hər birini təhlil edək:
- [Satış 2018.xlsx]. Bu fraqmentdə məlumat almaq istədiyiniz fayla keçid var. Buna mənbə də deyilir.
- pics. Aşağıdakı addan istifadə etdik, lakin bu, olması lazım olan ad deyil. Bu blok məlumat tapmaq üçün lazım olan vərəqin adını ehtiva edir.
- $A:$F və $A1 – bu sənəddə olan məlumatları ehtiva edən xana və ya diapazonun ünvanı.
Əslində, xarici sənədə keçid yaratmaq prosesi əlaqələndirmə adlanır. Başqa bir faylda olan xananın ünvanını qeyd etdikdən sonra “Məlumat” sekmesinin məzmunu dəyişir. Məhz, "Əlaqələri dəyişdir" düyməsi aktivləşir, onun köməyi ilə istifadəçi mövcud əlaqələri redaktə edə bilər.
Problemin mahiyyəti
Bir qayda olaraq, keçidlərdən istifadə etmək üçün heç bir əlavə çətinlik yaranmır. Hüceyrələrin dəyişdiyi bir vəziyyət yaransa belə, bütün bağlantılar avtomatik olaraq yenilənir. Ancaq artıq iş kitabının adını dəyişdirsəniz və ya başqa ünvana köçürsəniz, Excel gücsüz olur. Beləliklə, aşağıdakı mesajı verir.
Burada istifadəçinin bu vəziyyətdə necə davranacağı ilə bağlı iki mümkün variant var. O, "Davam et" düyməsini klikləyə bilər və sonra dəyişikliklər yenilənməyəcək və ya onları əl ilə yeniləyə biləcəyi "Assosiasiyaları dəyişdir" düyməsini klikləə bilər. Bu düyməni basdıqdan sonra, düzgün faylın hazırda harada yerləşdiyini və nə adlandığını göstərən bağlantıları dəyişdirmək mümkün olacaq əlavə bir pəncərə görünəcəkdir.
Bundan əlavə, "Məlumatlar" sekmesinde yerləşən müvafiq düymə vasitəsilə bağlantıları redaktə edə bilərsiniz. İstifadəçi həmçinin əlaqənin #BAĞLANTI xətası ilə pozulduğunu öyrənə bilər ki, bu, Excel ünvanın özünün etibarsız olması səbəbindən konkret ünvanda yerləşən məlumatlara daxil ola bilmədikdə yaranır.
Excel-də əlaqəni necə kəsmək olar
Əlaqədar faylın yerini özünüz yeniləyə bilmədiyiniz halda yuxarıda təsvir olunan vəziyyəti həll etməyin ən sadə üsullarından biri linkin özünü silməkdir. Sənəddə yalnız bir keçid varsa, bunu etmək xüsusilə asandır. Bunu etmək üçün aşağıdakı addımlar ardıcıllığını yerinə yetirməlisiniz:
- "Məlumat" menyusunu açın.
- Biz "Əlaqələr" bölməsini tapırıq və orada - "Əlaqələri dəyişdir" seçimini tapırıq.
- Bundan sonra "Bağlantıyı kəsin" düyməsini basın.
Bu kitabı başqa bir şəxsə poçtla göndərmək niyyətindəsinizsə, bunu əvvəlcədən etməyiniz çox tövsiyə olunur. Axı, bağlantıları sildikdən sonra, başqa bir sənəddə olan bütün dəyərlər avtomatik olaraq fayla yüklənəcək, düsturlarda istifadə ediləcək və hüceyrə ünvanı əvəzinə müvafiq xanalardakı məlumatlar sadəcə dəyərlərə çevriləcəkdir. .
Bütün kitabları necə ayırmaq olar
Lakin bağlantıların sayı çox olarsa, onları əl ilə silmək uzun müddət çəkə bilər. Bu problemi bir anda həll etmək üçün xüsusi makrodan istifadə edə bilərsiniz. Bu VBA-Excel əlavəsindədir. Onu aktivləşdirmək və eyni adlı nişana keçmək lazımdır. "Bağlantılar" bölməsi olacaq, orada "Bütün bağlantıları sındır" düyməsini sıxmalıyıq.
VBA kodu
Bu əlavəni aktivləşdirmək mümkün deyilsə, özünüz makro yarada bilərsiniz. Bunun üçün Alt + F11 düymələrini sıxaraq Visual Basic redaktorunu açın və kodun daxil edilməsi sahəsinə aşağıdakı sətirləri yazın.
Sublink Unlink WorkBooks()
Dim WbLinks
Dim və As Long
Case MsgBox seçin("Digər kitablara olan bütün istinadlar bu fayldan silinəcək və digər kitablara istinad edən düsturlar dəyərlərlə əvəz olunacaq." & vbCrLf & "Davam etmək istədiyinizə əminsiniz?", 36, "Əlaqəni kəsin?" )
İş 7′ №
Altdan çıxın
Seçimi bitir
WbLinks = ActiveWorkbook.LinkSources(Növ:=xlLinkTypeExcelLinks)
Əgər Boş deyilsə(WbLinks) Sonra
i = 1 UBound (WbLinks) üçün
ActiveWorkbook.BreakLink Adı:=WbLinks(i), Növ:=xlLinkTypeExcelLink
sonrakı
daha
MsgBox “Bu faylda başqa kitablara keçid yoxdur.”, 64, “Digər kitablara keçidlər”
Axırıncı halda
End Sub
Yalnız seçilmiş diapazonda əlaqələri necə kəsmək olar
Zaman zaman bağlantıların sayı çox olur və istifadəçi onlardan birini sildikdən sonra bəziləri artıq olsaydı, hər şeyi geri qaytarmaq mümkün olmayacaqdan qorxur. Ancaq bu, qarşısını almaq asan bir problemdir. Bunun üçün siz linklərin silinəcəyi diapazonu seçməli və sonra onları silməlisiniz. Bunu etmək üçün aşağıdakı hərəkətlər ardıcıllığını yerinə yetirməlisiniz:
- Dəyişdirilməli olan məlumat dəstini seçin.
- VBA-Excel əlavəsini quraşdırın və sonra müvafiq nişana keçin.
- Sonra, "Bağlantılar" menyusunu tapırıq və "Seçilmiş diapazonlarda bağlantıları qırmaq" düyməsini klikləyirik.
Bundan sonra seçilmiş xanalar dəstindəki bütün bağlantılar silinəcək.
Bağlar qırılmırsa nə etməli
Yuxarıda göstərilənlərin hamısı yaxşı səslənir, amma praktikada həmişə bəzi nüanslar var. Məsələn, bağların qırılmadığı bir vəziyyət ola bilər. Bu halda, əlaqələri avtomatik yeniləməyin mümkün olmadığını bildirən bir dialoq qutusu hələ də görünür. Bu vəziyyətdə nə etməli?
- Birincisi, adı çəkilən diapazonlarda hər hansı məlumatın olub olmadığını yoxlamaq lazımdır. Bunu etmək üçün Ctrl + F3 düymələri birləşməsini basın və ya "Formullar" sekmesini açın - "Ad Meneceri". Faylın adı doludursa, sadəcə onu redaktə etmək və ya tamamilə silmək lazımdır. Adlandırılmış diapazonları silməzdən əvvəl faylı başqa yerə kopyalamalısınız ki, səhv addımlar atılıbsa, orijinal versiyaya qayıda biləsiniz.
- Əgər adları silməklə problemi həll edə bilmirsinizsə, şərti formatlaşdırmanı yoxlaya bilərsiniz. Başqa cədvəldəki xanalara şərti formatlaşdırma qaydalarında istinad edilə bilər. Bunu etmək üçün "Ev" sekmesinde müvafiq elementi tapın və sonra "Fayl İdarəetmə" düyməsini basın.
Normalda Excel sizə şərti formatlaşdırmada digər iş kitablarının ünvanını vermək imkanı vermir, lakin siz başqa fayla istinadla adlandırılmış diapazona istinad edirsinizsə, bunu edirsiniz. Adətən, link silindikdən sonra belə link qalır. Belə bir keçidin silinməsində heç bir problem yoxdur, çünki link əslində işləmir. Buna görə də, onu çıxarsanız, pis bir şey olmayacaq.
Lazımsız keçidlərin olub-olmadığını öyrənmək üçün “Məlumatların yoxlanılması” funksiyasından da istifadə edə bilərsiniz. “Siyahı” tipli məlumatların yoxlanılması istifadə edilərsə, bağlantılar adətən qalır. Ancaq bir çox hüceyrə varsa nə etməli? Doğrudanmı onların hər birini ardıcıl olaraq yoxlamaq lazımdır? Əlbəttə yox. Axı bu, çox uzun vaxt aparacaq. Buna görə də, onu əhəmiyyətli dərəcədə saxlamaq üçün xüsusi koddan istifadə etməlisiniz.
Seçim Aydındır
'—————————————————————————————
Müəllif: The_Prist (Şerbakov Dmitri)
' İstənilən mürəkkəblikdə MS Office proqramlarının peşəkar inkişafı
' MS Excel üzrə təlimlərin keçirilməsi
' https://www.excel-vba.ru
' [email protected]
'WebMoney—R298726502453; Yandex.Money — 41001332272872
' Məqsəd:
'—————————————————————————————
Sub FindErrLink()
'biz mənbə faylına Data -Change links linkinə baxmalıyıq
'və açar sözləri buraya kiçik hərflə yazın (fayl adının bir hissəsi)
"ulduz işarəsi sadəcə istənilən sayda simvolu əvəz edir ki, siz dəqiq ad barədə narahat olmayasınız
Const sToFndLink$ = “*satış 2018*”
Dim rr As Range, rc As Range, rres As Range, s$
'məlumatların yoxlanılması ilə bütün xanaları təyin edin
Error Sonraki Resume
Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
Əgər rr Heç bir şey deyilsə
MsgBox “Aktiv vərəqdə verilənlərin yoxlanılması olan xanalar yoxdur”, vbInformation, “www.excel-vba.ru”
Altdan çıxın
Axırıncı halda
Xəta haqqında 0
'linklər üçün hər bir xananı yoxlayın
Hər rc In rr üçün
'Hər halda, səhvləri atlayırıq - bu da baş verə bilər
'Ancaq əlaqələrimiz onlarsız olmalıdır və onlar mütləq tapılacaqdır
s = «»
Error Sonraki Resume
s = rc.Validasiya.Formula1
Xəta haqqında 0
'tapıldı - biz hər şeyi ayrı bir sıraya yığırıq
Əgər LCase(lər) sToFndLink-i Bəyənirsə Sonra
Əgər rres Heç bir şey deyilsə
rres = rc təyin edin
daha
Set rres = Birlik (rc, rres)
Axırıncı halda
Axırıncı halda
sonrakı
'əgər əlaqə varsa, bu cür məlumat yoxlamaları olan bütün xanaları seçin
Əgər rres deyilsə, onda heç bir şey yoxdur
rres.Seçin
' rres.Interior.Color = vbRed 'rənglə vurğulamaq istəyirsinizsə
Axırıncı halda
End Sub
Makro redaktorda standart modul hazırlamaq və sonra bu mətni ora daxil etmək lazımdır. Bundan sonra Alt + F8 düymələri birləşməsindən istifadə edərək makro pəncərəsinə zəng edin və sonra makromuzu seçin və "Çalış" düyməsini basın. Bu kodu istifadə edərkən nəzərə alınmalı olan bir neçə şey var:
- Artıq uyğun olmayan linki axtarmazdan əvvəl, ilk növbədə onun yaradıldığı linkin necə göründüyünü müəyyən etməlisiniz. Bunu etmək üçün "Məlumatlar" menyusuna keçin və orada "Əlaqələri dəyişdir" maddəsini tapın. Bundan sonra, fayl adına baxmaq və onu dırnaq içərisində göstərməlisiniz. Məsələn, bu kimi: Const sToFndLink$ = “*satış 2018*”
- Adı tam olaraq deyil, sadəcə olaraq lazımsız simvolları ulduzla əvəz etmək mümkündür. Və dırnaq içərisində fayl adını kiçik hərflərlə yazın. Bu halda, Excel sonunda belə bir sətir olan bütün faylları tapacaqdır.
- Bu kod yalnız hazırda aktiv olan vərəqdəki keçidləri yoxlaya bilər.
- Bu makro ilə siz yalnız onun tapdığı xanaları seçə bilərsiniz. Hər şeyi əl ilə silməlisiniz. Bu bir artıdır, çünki hər şeyi yenidən yoxlaya bilərsiniz.
- Hüceyrələri xüsusi rənglə vurğulamaq da olar. Bunu etmək üçün bu sətirdən əvvəl apostrofu çıxarın. rres.Interior.Color = vbRed
Adətən, yuxarıdakı təlimatlarda təsvir olunan addımları tamamladıqdan sonra artıq lazımsız bağlantılar olmamalıdır. Ancaq sənəddə onlardan bəziləri varsa və bu və ya digər səbəbdən onları silə bilmirsinizsə (tipik bir nümunə vərəqdəki məlumatların təhlükəsizliyidir), onda siz fərqli hərəkətlər ardıcıllığından istifadə edə bilərsiniz. Bu təlimat yalnız 2007 və daha yüksək versiyalar üçün etibarlıdır.
- Sənədin ehtiyat nüsxəsini yaradırıq.
- Arxivdən istifadə edərək bu sənədi açın. ZIP formatını dəstəkləyən hər hansı birini istifadə edə bilərsiniz, lakin WinRar da işləyəcək, həmçinin Windows-da quraşdırılmış.
- Görünən arxivdə xl qovluğunu tapmalı, sonra isə externalLinks-i açmalısınız.
- Bu qovluqda hər biri externalLink1.xml formasının faylına uyğun gələn bütün xarici keçidlər var. Onların hamısı yalnız nömrələnmişdir və buna görə də istifadəçinin bunun hansı əlaqə olduğunu başa düşmək imkanı yoxdur. Hansı əlaqənin olduğunu başa düşmək üçün _rels qovluğunu açmaq və orada baxmaq lazımdır.
- Bundan sonra, biz externalLinkX.xml.rels faylında öyrəndiklərimizə əsaslanaraq, bütün və ya xüsusi bağlantıları silirik.
- Bundan sonra Excel-dən istifadə edərək faylımızı açırıq. “Kitabdakı məzmunun bir hissəsində xəta” kimi xəta haqqında məlumat olacaq. razılıq veririk. Bundan sonra başqa bir dialoq görünəcək. Biz onu bağlayırıq.
Bundan sonra bütün bağlantılar silinməlidir.