Ahmed Mohamed Eg قام بنشر أبريل 25, 2019 قام بنشر أبريل 25, 2019 السلام عليكم وكل عام وأنتم بخير أرجو المساعدة فى عمل هذا الكود وهو اضافة هايبر لينك لجميع اسماء الملفات على نفس اسماءها بشرط 1 - ان الملفات موجودة فى مجلد واحد مجاور لهذا الشيت وليس مع شيت الفهرس فى مجلد واحد 2 - ان اسماء الملفات سوف يتم وضعها مانيوال والكود لا يقوم بسحبها اوتوماتك مع جزيل الشكر hyperlink.rar
خالد ابوعوف قام بنشر أبريل 25, 2019 قام بنشر أبريل 25, 2019 السلام عليكم انظر الى الفيديو https://www.facebook.com/groups/1942934095921139/permalink/2325963047618240/
بن علية حاجي قام بنشر أبريل 25, 2019 قام بنشر أبريل 25, 2019 السلام عليكم جرب المرفق لعل فيه ما تريد... بن علية حاجي hyperlink.rar 1
خالد ابوعوف قام بنشر أبريل 25, 2019 قام بنشر أبريل 25, 2019 (معدل) السلام عليكم مرحبا استاذ ظهرت النتيجة ( لا يوجد مستمسك) تم تعديل أبريل 25, 2019 بواسطه خالد ابوعوف
بن علية حاجي قام بنشر أبريل 25, 2019 قام بنشر أبريل 25, 2019 السلام عليكم يجب حذف العلامة ' من الأمر ChDir ThisWorkbook.Path' حتى يصبح من الشكل ChDir ThisWorkbook.Path أي القيام بـ إعادة تنشيط هذا الأمر داخل الكود... ويكون الكود كاملا بالشكل التالي: Sub Create_Links() Set MyFile = CreateObject("Scripting.FileSystemObject") ChDir ThisWorkbook.Path For Each cell In Range("A2:A" & Range("A60000").End(xlUp).Row) If MyFile.fileexists("الملفات\" & Cells(cell.Row, 1).Value) = False Then Cells(cell.Row, 2).Value = "لا يوجد مستمسك": GoTo 1 ActiveSheet.Hyperlinks.Add Anchor:=Cells(cell.Row, 2), Address:="الملفات\" & Cells(cell.Row, 1).Value, TextToDisplay:="الملفات\" & Cells(cell.Row, 1).Value 1 Next End Sub المصطلح "لا يوجد مستمسك" (الذي وضعته لأحد الإخوة في موضوع مشابه سابق منذ أيام) يمكن تغييره بالمصطلح "لا يوجد ملف بهذا الاسم في المجلد".... بن علية حاجي 2
وجيه شرف الدين قام بنشر أبريل 26, 2019 قام بنشر أبريل 26, 2019 الله عليك استاذنا الفاضل الله ينور عليك كود فى غاية الجمال والروعة جزاكم الله خير الجزاء
وجيه شرف الدين قام بنشر أبريل 26, 2019 قام بنشر أبريل 26, 2019 (معدل) بعد اذن استاذى الحبيب بن عليه الى اخى خالد السلام عليكم ورحمة الله وبركاته قمت بتجربة كود استاذنا الفاضل الاستاذ بن علية حاجى ويعمل معى بشكل رائع وممتاز ويحقق النتائج المرجوه منه بكفاءة عاليه وهذا هو ملف الاستاذ بن علية فى الارتباط التشعبى جزاه الله عنا خير الجزاء الاستاذ بن علية حاجىhyperlink.rar تم تعديل أبريل 26, 2019 بواسطه mostafa sharaf 1
خالد ابوعوف قام بنشر أبريل 26, 2019 قام بنشر أبريل 26, 2019 السلام عليكم صحيح كود الاستاذ الخبير المعتمد (بن علية حاجي ) يعمل والخلل من يمي ، بسبب يوجد لدي بنفس البارتيشن ملف اسمه (ملفات) وعند قيامي بتغيير البارتيشن عمل الكود اعتذر - وتسلموا جزيتم خيرا 1
Ahmed Mohamed Eg قام بنشر مايو 1, 2019 الكاتب قام بنشر مايو 1, 2019 شكرا جزيلا للأساتذة الكرام سؤال هل ممكن تعديل الكود بحيث يكون كود خاص فقط بأنه يقول ( الملف موجود أو غير موجود) فى عامود مستقل ولا علاقة له بالهايبر لينك
بن علية حاجي قام بنشر مايو 1, 2019 قام بنشر مايو 1, 2019 السلام عليكم تفضل ما تريد... بن علية حاجي الملفات روابطها ووجودها.rar 2
Ahmed Mohamed Eg قام بنشر مايو 1, 2019 الكاتب قام بنشر مايو 1, 2019 (معدل) اللسان يعجز عن شكر الاستاذ الفاضل / بن علية حاجي أطمع فى كود آخر بالملف حتى يكون الموضوع كاملا ومفيدا لي وللجميع ان شاء الله تعالى بفضل الأستاذ / بن علية حاجي جعله الله فى ميزان حسناته لكن قبل الكود المطلوب أحب أن اوضح بعض الامور هدف الملف أن يكون لديك أرشيف يغنيك عن متاعب وحيرة تصنيف الملفات فى مجلدات فكل شخص لديه الخبرة فى التعامل مع الامكانيات الاساسية فى الاكسل يمكنه أن يضع كل ملفاته فى مجلد واحد أيا كان موضوعها أو نوعها ثم يصنفها ويصل إليها من خلال ملف اكسل بكل سهولة يوجد فى المنتدى اسهامات بملفات بها نفس الفكرة لكن الكود يقوم بسحب اسماء الملفات اوتوماتيك ويضع عليها الهايبر لينك بضغطة زر واحدة لكن هذا الموضوع سوف يتسبب فى مشاكل اذا وضعت تصنيفات معينة أمام اسماء الملفات ومسحت بعض الملفات ثم قمت بالتحديث لذلك سوف تجد فى الملف فى الخلية البرتقالي كود إذا وضعته فى مسار اى مجلد سوف يأخذ كوبي من أسماء جميع الملفات الموجودة فى المجلد لتضعها فى ملف الاكسل وبهذا يمكنك اضافة أى ملفات مانيوال بدون مشاكل فى ترتيب الملفات يمكنك بعد تمكين وحدات الماكرو والضغط على زرار (التأكد من وجود الملف أو عدمه ) الفلترة على (لا يوجد ملف) لمسح أسماء الملفات التى قمت بحذفها من المجلد قمت بايقاف الكود الخاص بالهايبر لينك وعمل معادلة هايبر لينك بدلا منه وذلك بوضع مسار الملفات فى الخلية الصفراء مع مراعاة تغيير هذا المسار حسب اسماء المجلدات ومواضعها فى جهازك ولا تنسى وضع (\) فى اخر المسار لان المعادلة سوف تقرا المسار ثم اسم الملف وهذا سوف يكون مناسب لشخص سوف يكتفى بمعادلة الهايبر لينك بدون أكواد بالملف يمكنك وضع أى تصنيفات أخرى لعمل ترتيب للملفات أو فلترة بعد ذلك الاكواد المطلوبة فى الخلايا الحمراء على نفس الزرار هي كود لجلب أحجام الملفات كود لجلب تاريخ انشاء الملفات كود لجلب تاريخ تعديل الملفات وهما أهم ثلاثة أشياء نحتاجها فى معلومات أى ملفات لدينا مرفق ملف وجدته بالمنتدى يقوم بهذه العملية لكنى ليس لدي الخبرة فى استخلاص وتعديل هذه الاكواد ان شاء الله سوف يكون الموضوع سهل على الاستاذ / بن علية حاجي فى استخلاص هذه الاكواد وتعديلها او ابتكار اكواد جديدة أتمنى ان يكون الموضوع مفيد لأعضاء المنتدى وان لا اكون أثقلت على الاستاذ الفاضل مشروع عمل أرشيف للملفات.rar تم تعديل مايو 1, 2019 بواسطه أحمد فؤاد AF
بن علية حاجي قام بنشر مايو 1, 2019 قام بنشر مايو 1, 2019 السلام عليكم لست أدري إن كان الملف المرفق يفي الغرض المطلوب... بن علية حاجي مشروع عمل أرشيف للملفات.rar 1
Ahmed Mohamed Eg قام بنشر مايو 1, 2019 الكاتب قام بنشر مايو 1, 2019 (معدل) عليكم السلام ورحمة الله وبركاته تسلم ايدك وجزاك الله كل خير ملحوظة الكود وجدته يعمل جيدا طالما المجلد فى الـ C أما إذا نقلت المجلد إلى D لا يعمل تم تعديل مايو 1, 2019 بواسطه أحمد فؤاد AF
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.