Агуулга
Харилцаа холбоо бол Excel-ийн маш хэрэгтэй функц юм. Эцсийн эцэст хэрэглэгчид ихэвчлэн бусад файлуудын мэдээллийг ашиглах шаардлагатай болдог. Гэхдээ зарим тохиолдолд тэд сайнаас илүү их хор хөнөөл учруулж болно. Эцсийн эцэст, жишээлбэл, хэрэв та эдгээр файлуудыг шуудангаар илгээвэл холбоосууд ажиллахгүй байна. Өнөөдөр бид ийм бэрхшээлээс зайлсхийхийн тулд юу хийх талаар илүү дэлгэрэнгүй ярих болно.
Excel дэх харилцаа холбоо гэж юу вэ
Excel дээрх харилцааг ихэвчлэн функцуудтай хамт ашигладаг VPRөөр ажлын номноос мэдээлэл авах. Энэ нь зөвхөн нүдний төдийгүй өгөгдөл байрлаж буй номын хаягийг агуулсан тусгай холбоос хэлбэртэй байж болно. Үүний үр дүнд ийм холбоос дараах байдлаар харагдаж байна. =VLOOKUP(A2;'[Борлуулалтын 2018.xlsx]Тайлбар'!$A:$F;4;0). Эсвэл илүү хялбар дүрслэхийн тулд хаягийг дараах хэлбэрээр илэрхийлнэ үү. ='[Борлуулалтын 2018.xlsx]Тайлан'!$A1. Энэ төрлийн холбоосын элемент бүрд дүн шинжилгээ хийцгээе:
- [Борлуулалт 2018.xlsx]. Энэ фрагмент нь таны мэдээлэл авахыг хүссэн файлын холбоосыг агуулна. Үүнийг мөн эх сурвалж гэж нэрлэдэг.
- Фото зураг. Бид дараах нэрийг ашигласан боловч энэ нь байх ёстой нэр биш юм. Энэ блок нь мэдээллийг олоход шаардлагатай хуудасны нэрийг агуулдаг.
- $A:$F ба $A1 – энэ баримт бичигт агуулагдсан өгөгдлийг агуулсан нүд эсвэл мужын хаяг.
Үнэндээ гадаад баримт бичигт холбоос үүсгэх үйл явцыг холбох гэж нэрлэдэг. Бид өөр файлд байгаа нүдний хаягийг бүртгэсний дараа "Өгөгдөл" табын агуулга өөрчлөгдөнө. Тухайлбал, "Холболтыг өөрчлөх" товчлуур идэвхтэй болж, түүний тусламжтайгаар хэрэглэгч одоо байгаа холболтуудыг засах боломжтой болно.
Асуудлын мөн чанар
Дүрмээр бол холбоосыг ашиглахын тулд нэмэлт бэрхшээл гарахгүй. Хэдийгээр эсүүд өөрчлөгдөх нөхцөл байдал үүссэн ч бүх холбоосууд автоматаар шинэчлэгддэг. Гэхдээ хэрэв та ажлын дэвтрийн нэрийг өөрчилсөн эсвэл өөр хаяг руу зөөсөн бол Excel ажиллахгүй болно. Тиймээс энэ нь дараах мессежийг үүсгэдэг.
Энд хэрэглэгч энэ нөхцөлд хэрхэн ажиллах талаар хоёр боломжит сонголттой байна. Тэр "Үргэлжлүүлэх" дээр дарж, өөрчлөлтүүд шинэчлэгдэхгүй, эсвэл "Холбоог өөрчлөх" товчийг дарж, гараар шинэчлэх боломжтой. Бид энэ товчийг дарсны дараа холбоосыг өөрчлөх боломжтой нэмэлт цонх гарч ирэх бөгөөд энэ нь яг одоо хаана байгаа зөв файл, түүнийг юу гэж нэрлэж байгааг харуулсан болно.
Нэмж дурдахад та "Өгөгдөл" таб дээр байрлах харгалзах товчлуураар дамжуулан холбоосыг засах боломжтой. Мөн хаяг нь хүчингүй болсны улмаас Excel тодорхой хаяг дээр байрлах мэдээлэлд хандах боломжгүй үед гарч ирдэг #LINK алдаанаас болж холболт тасарсныг хэрэглэгч мэдэж болно.
Excel дээр хэрхэн салгах вэ
Холбогдсон файлын байршлыг өөрөө шинэчлэх боломжгүй тохиолдолд дээр дурдсан нөхцөл байдлыг шийдвэрлэх хамгийн энгийн аргуудын нэг бол холбоосыг өөрөө устгах явдал юм. Баримт бичиг нь зөвхөн нэг холбоос агуулсан бол үүнийг хийхэд хялбар байдаг. Үүнийг хийхийн тулд та дараах дарааллыг гүйцэтгэх ёстой.
- "Өгөгдөл" цэсийг нээнэ үү.
- Бид "Холболтууд" хэсгийг олоод "Холболтыг өөрчлөх" гэсэн сонголтыг олно.
- Үүний дараа "Холбоосыг салгах" дээр дарна уу.
Хэрэв та энэ номыг өөр хүнд шуудангаар илгээх гэж байгаа бол үүнийг урьдчилан хийхийг зөвлөж байна. Эцсийн эцэст, холбоосыг устгасны дараа өөр баримт бичигт агуулагдсан бүх утгууд нь файлд автоматаар ачаалагдах бөгөөд томъёонд ашиглагдах бөгөөд нүдний хаягийн оронд харгалзах нүднүүдийн мэдээлэл зүгээр л утга болгон хувиргах болно. .
Бүх номыг хэрхэн салгах вэ
Гэхдээ хэрэв холбоосын тоо хэт их байвал тэдгээрийг гараар устгахад удаан хугацаа шаардагдана. Энэ асуудлыг нэг дор шийдэхийн тулд та тусгай макро ашиглаж болно. Энэ нь VBA-Excel нэмэлт хэрэгсэлд байдаг. Та үүнийг идэвхжүүлж, ижил нэртэй таб руу очих хэрэгтэй. "Холбоос" хэсэг байх бөгөөд бид "Бүх холбоосыг таслах" товчийг дарах хэрэгтэй.
VBA код
Хэрэв энэ нэмэлтийг идэвхжүүлэх боломжгүй бол та өөрөө макро үүсгэж болно. Үүнийг хийхийн тулд Alt + F11 товчийг дарж Visual Basic засварлагчийг нээж, код оруулах талбарт дараах мөрүүдийг бичнэ үү.
Дэд Unlink WorkBooks()
Бүдэг WbLinks
Dim and As Long
Case MsgBox-г сонгоно уу("Бусад номны бүх лавлагаа энэ файлаас устгагдах бөгөөд бусад номд хамаарах томьёо утгуудаар солигдох болно." & vbCrLf & "Та үргэлжлүүлэхдээ итгэлтэй байна уу?", 36, "Холбоосыг салгах уу?" )
Тохиолдол 7′ Үгүй
Дэд хэсгээс гарах
Сонголтыг дуусгах
WbLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
Хэрэв хоосон биш бол (WbLinks) Дараа нь
For i = 1 To UBound(WbLinks)
ActiveWorkbook.BreakLink Name:=WbLinks(i), Type:=xlLinkTypeExcelLinks
Дараа нь
бас
MsgBox "Энэ файлд бусад номны холбоос байхгүй байна.", 64, "Бусад номын холбоос"
Хэрэв үгүй бол
Төгсгөл дэд
Зөвхөн сонгосон мужид хэлхээ холбоог хэрхэн таслах вэ
Үе үе холбоосын тоо маш их байдаг бөгөөд хэрэглэгч аль нэгийг нь устгасны дараа зарим нь илүүц байсан бол бүгдийг буцааж өгөх боломжгүй болно гэж айдаг. Гэхдээ энэ бол зайлсхийхэд хялбар асуудал юм. Үүнийг хийхийн тулд та холбоосыг устгах мужийг сонгоод дараа нь устгах хэрэгтэй. Үүнийг хийхийн тулд та дараах үйлдлүүдийн дарааллыг гүйцэтгэх ёстой.
- Өөрчлөх шаардлагатай өгөгдлийн багцыг сонгоно уу.
- VBA-Excel нэмэлтийг суулгаад дараа нь тохирох таб руу очно уу.
- Дараа нь бид "Холбоос" цэсийг олоод "Сонгосон муж дахь холбоосыг таслах" товчийг дарна уу.
Үүний дараа сонгосон нүднүүдийн бүх холбоосууд устах болно.
Хэрэв зангиа тасрахгүй бол яах вэ
Дээр дурдсан бүх зүйл сайхан сонсогдож байгаа ч практик дээр үргэлж зарим нэг нюансууд байдаг. Жишээлбэл, зангиа тасрахгүй байх нөхцөл байдал байж болно. Энэ тохиолдолд холбоосыг автоматаар шинэчлэх боломжгүй гэсэн харилцах цонх гарч ирсээр байна. Ийм нөхцөлд юу хийх вэ?
- Эхлээд та нэрлэсэн мужид ямар нэгэн мэдээлэл байгаа эсэхийг шалгах хэрэгтэй. Үүнийг хийхийн тулд Ctrl + F3 товчлуурын хослолыг дарж эсвэл "Томъёо" таб - "Нэр менежер" -ийг нээнэ үү. Хэрэв файлын нэр дүүрсэн бол та үүнийг засах эсвэл бүрмөсөн устгах хэрэгтэй. Нэрлэсэн мужуудыг устгахын өмнө буруу алхам хийсэн тохиолдолд анхны хувилбар руугаа буцахын тулд файлыг өөр газар хуулах хэрэгтэй.
- Хэрэв та нэрийг арилгах замаар асуудлыг шийдэж чадахгүй бол нөхцөлт форматыг шалгаж болно. Өөр хүснэгтийн нүднүүдийг нөхцөлт форматын дүрмээр дурдаж болно. Үүнийг хийхийн тулд "Нүүр хуудас" таб дээрээс тохирох зүйлийг олоод "Файлын менежмент" товчийг дарна уу.
Ер нь Excel нь бусад ажлын дэвтрийн хаягийг нөхцөлт форматаар өгөх боломжийг танд олгодоггүй, гэхдээ хэрэв та өөр файлын лавлагаа бүхий нэрлэсэн мужид хандвал өгдөг. Ихэвчлэн холбоосыг устгасны дараа ч гэсэн холбоос хэвээр үлддэг. Ийм холбоосыг устгахад ямар ч асуудал байхгүй, учир нь холбоос нь үнэндээ ажиллахгүй байна. Тиймээс, хэрэв та үүнийг арилгавал муу зүйл тохиолдохгүй.
Та мөн "Өгөгдөл шалгах" функцийг ашиглан шаардлагагүй холбоос байгаа эсэхийг олж мэдэх боломжтой. "Жагсаалт" төрлийн өгөгдлийн баталгаажуулалтыг ашигласан тохиолдолд холбоосууд ихэвчлэн үлддэг. Гэхдээ олон тооны эсүүд байвал яах вэ? Тэр бүрийг дараалан шалгах шаардлагатай юу? Мэдээж үгүй. Эцсийн эцэст энэ нь маш удаан хугацаа шаардагдах болно. Тиймээс та үүнийг ихээхэн хэмнэхийн тулд тусгай код ашиглах хэрэгтэй.
Сонголт нь тодорхой байна
'———————————————————————————
Зохиогч: Прист (Дмитрий Щербаков)
' Ямар ч нарийн төвөгтэй MS Office програмуудыг мэргэжлийн түвшинд хөгжүүлэх
' MS Excel программ дээр сургалт явуулж байна
' https://www.excel-vba.ru
' [имэйлээр хамгаалагдсан]
'WebMoney—R298726502453; Yandex.Money — 41001332272872
' Зорилго:
'———————————————————————————
Дэд FindErrLink()
'бид эх файл руу өгөгдлийн холбоосыг өөрчлөх холбоосыг харах хэрэгтэй
Энд түлхүүр үгсийг жижиг үсгээр бичнэ үү (файлын нэрний хэсэг)
"Од тэмдэг нь хэдэн ч тэмдэгтийг орлуулдаг тул та яг нэрний талаар санаа зовох хэрэггүй болно
Const sToFndLink$ = “*борлуулалт 2018*”
Dim rr As Range, rc As Range, rres As Range, s$
'өгөгдлийн баталгаажуулалт бүхий бүх нүдийг тодорхойлох
Алдааг үргэлжлүүлнэ үү
Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
Хэрэв rr юу ч биш бол
MsgBox "Идэвхтэй хуудсан дээр өгөгдөл баталгаажуулсан нүд байхгүй", vbInformation, "www.excel-vba.ru"
Дэд хэсгээс гарах
Хэрэв үгүй бол
0 руу шилжих алдаа
"нүд бүрийг холбоос байгаа эсэхийг шалгана уу
rc In rr бүрийн хувьд
"Ямар ч тохиолдолд бид алдааг алгасах болно - энэ нь бас тохиолдож болно
'Гэхдээ бидний холболтууд тэдэнгүйгээр байх ёстой бөгөөд тэд гарцаагүй олдох болно
s = «»
Алдааг үргэлжлүүлнэ үү
s = rc.Validation.Formula1
0 руу шилжих алдаа
'олж байна - бид бүгдийг тусад нь цуглуулдаг
Хэрэв LCase(үүд) нь sToFndLink-д таалагдсан бол
If rres бол юу ч биш Дараа нь
rres = rc гэж тохируулна уу
бас
Тохируулах rres = Холбоо (rc, rres)
Хэрэв үгүй бол
Хэрэв үгүй бол
Дараа нь
'Хэрэв холболт байгаа бол ийм өгөгдөл шалгах бүх нүдийг сонгоно уу
Хэрэв үгүй бол rres бол юу ч биш
rres.Select
' rres.Interior.Color = vbRed 'хэрэв та өнгөөр тодруулахыг хүсвэл
Хэрэв үгүй бол
Төгсгөл дэд
Макро редактор дээр стандарт модулийг хийж, дараа нь энэ текстийг оруулах шаардлагатай. Үүний дараа Alt + F8 товчлуурын хослолыг ашиглан макро цонх руу залгаад манай макро сонгоод "Ажиллуулах" товчийг дарна уу. Энэ кодыг ашиглахдаа хэд хэдэн зүйлийг анхаарах хэрэгтэй:
- Холбогдохоо больсон холбоосыг хайхаасаа өмнө эхлээд түүнийг үүсгэсэн холбоос ямар байхыг тодорхойлох хэрэгтэй. Үүнийг хийхийн тулд "Өгөгдөл" цэс рүү очоод тэндээс "Холбоосыг өөрчлөх" хэсгийг олоорой. Үүний дараа та файлын нэрийг харж, хашилтанд оруулах хэрэгтэй. Жишээлбэл, иймэрхүү: Const sToFndLink$ = “*борлуулалт 2018*”
- Нэрийг нь бүтнээр нь бичихгүй, харин шаардлагагүй тэмдэгтүүдийг одоор солих боломжтой. Мөн хашилтанд файлын нэрийг жижиг үсгээр бичнэ үү. Энэ тохиолдолд Excel төгсгөлд ийм мөр агуулсан бүх файлыг олох болно.
- Энэ код нь зөвхөн одоо идэвхтэй байгаа хуудасны холбоосыг шалгах боломжтой.
- Энэ макроны тусламжтайгаар та зөвхөн түүний олсон нүдийг сонгох боломжтой. Та бүх зүйлийг гараар устгах хэрэгтэй. Энэ бол давуу тал, учир нь та бүх зүйлийг дахин шалгаж болно.
- Та мөн нүднүүдийг тусгай өнгөөр тодруулж болно. Үүнийг хийхийн тулд энэ мөрийн өмнөх апострофыг арилгах хэрэгтэй. rres.Interior.Color = vbRed
Ихэвчлэн дээрх зааварт заасан алхмуудыг гүйцэтгэсний дараа шаардлагагүй холболт байхгүй болно. Гэхдээ эдгээрийн зарим нь баримт бичигт байгаа бөгөөд та ямар нэг шалтгаанаар тэдгээрийг арилгах боломжгүй бол (ердийн жишээ бол хуудасны мэдээллийн аюулгүй байдал юм), та өөр дарааллыг ашиглаж болно. Энэ заавар нь зөвхөн 2007 болон түүнээс дээш хувилбаруудад хүчинтэй.
- Бид баримт бичгийн нөөц хуулбарыг үүсгэдэг.
- Архивлагч ашиглан энэ баримтыг нээнэ үү. Та ZIP форматыг дэмждэг ямар ч програмыг ашиглаж болно, гэхдээ WinRar нь Windows-д суулгасан шиг ажиллах болно.
- Гарч ирсэн архиваас та xl хавтсыг олж, дараа нь externalLinks-ийг нээх хэрэгтэй.
- Энэ хавтас нь бүх гадаад холбоосыг агуулж байгаа бөгөөд тэдгээр нь тус бүр нь externalLink1.xml хэлбэрийн файлтай тохирч байна. Эдгээр нь зөвхөн дугаарлагдсан тул хэрэглэгч энэ нь ямар төрлийн холболт болохыг ойлгох боломжгүй юм. Ямар төрлийн холболтыг ойлгохын тулд та _rels хавтсыг нээж, тэндээс харах хэрэгтэй.
- Үүний дараа бид externalLinkX.xml.rels файлаас сурсан зүйл дээрээ үндэслэн бүх эсвэл тодорхой холбоосыг устгана.
- Үүний дараа бид Excel програмыг ашиглан файлаа нээнэ. "Номын агуулгын хэсэг дэх алдаа" гэх мэт алдааны тухай мэдээлэл байх болно. Бид зөвшөөрч байна. Үүний дараа өөр харилцах цонх гарч ирнэ. Бид хаадаг.
Үүний дараа бүх холбоосыг устгах хэрэгтэй.