Excel - تحويل الارتباط التشعبي إلى تنسيق النص
القضية
أنا أعمل مع Excel 2003. المشكلة هي ، لا بد لي من تغذية قاعدة بيانات مع ملفات Excel القديمة. هناك الآلاف من الارتباطات التشعبية. تم تحويل الارتباط التشعبي لتظهر كـ "1". للحصول على البيانات الخاصة بي في قاعدة البيانات الجديدة ، لا بد لي من استيراد الاسم بتنسيق نصي. كيفية العثور عليه تلقائيا؟
حل
مع VBA:
- افتح المصنف ،
- عمل نسخة (احفظ باسم) واعمل على النسخة!
- في نسخة المصنف:
- اضغط ALT + F11
- إدراج / الوحدة
- انسخ / الصق هذا الرمز:
Sub AfficheNomCompletLienHypertexte () Dim Lign As Long، DrLig As Long Dim Col كما Byte Dim NomDuLien As String Col = 1 '==> محول: n ° de la colonne contenant vos liens hypertextes With Sheets ("Feuil1")' ==> محول le nom de la feuille contenant vos liens DrLig = Columns (Col) .Find ("*"،،، xlByColumns، xl سابقة) .Row For Lign = 1 To DrLig If .Cells (Lign، Col) .Hyperlinks.Count = 1 ثم NomDuLien = .Cells (Lign، Col). Hyperlinks (1) .Address .Cells (Lign، Col) .Hyperlinks.Delete .Cells (Lign، Col) .Clear ActiveSheet.Hyperlinks.Add Anchor: =. Cells ( Lign، Col)، Address: = NomDuLien، TextToDisplay: = NomDuLien End If Next Lign End With End Sub
يمكنك تكييف هذا الرمز مع جدول البيانات الخاص بك.
اضغط ALT + F8 ، حدد "AfficheNomCompletLienHypertexte" وقم بتشغيل.
بفضل بيكاجو لهذه النصيحة.