محمد الزريعي قام بنشر أغسطس 20, 2015 قام بنشر أغسطس 20, 2015 الاخوة الاعزاء . السلام عليكم ورحمة الله وبركاته .. عندي العملاء يقوموا بتسجيل بياناتهم عبر الانترنت .. من ضمن البيانات رقم الهاتف ومنهم من يسجل رقم هاتفة بالطريقة التالية وهي ( 0561212135 ، ومنهم من يسجل رقم هاتفة بطريقة اخرى مثل 00966561212147 ) .. هذا ليس مهم . المهم هو عملي = انني اقوم بنسخ مجموعة من الارقام من الانترنت ( الموقع الإلكتروني ) ثم ألصقهم في داخل ملف اكسل المرفق وأضيفهم الي العملاء السابقين حوالي من سنة .. اكرر العملية عدة مرات حتى تنتهي الصفحات من الانترنت ، ربما يكون للموظف الواحد أكثر من 20 ألف رقم .. المشكلة هي : عند لصق الارقام الجديدة .. يتم لصق الرابط التشعبي ضمن الرقم وأحتاج الي إزالة الرابط التشعبي من كل رقم موجود في الخلايا . --------------------------------------------------------------- المطلوب : 1- كود يقوم بحذف الرابط التشعبي من الارقام .. 2- طريقة تسريع الملف المرفق بحيث يتم بالعمل 20 الف رقم بسرعة .. ولا يكون بطئ بهذا الشكل .. انا ارفقت الملف جاهز بالاكواد السابقة . حذف الرابط التشعبي.rar
ياسر خليل أبو البراء قام بنشر أغسطس 20, 2015 قام بنشر أغسطس 20, 2015 اطلعت على الملف ولم أجد روابط تشعبية يرجى التوضيح للمطلوب بدقة ... بالنسبة لحذف الارتباطات التشعبية استخدم الكود التالي Sub NoLinks() 'يقوم الكود بإزالة كل الارتباطات التشعبية في ورقة العمل النشطة '------------------------------------------------------------ ActiveSheet.Hyperlinks.Delete End Sub
محمد الزريعي قام بنشر أغسطس 26, 2015 الكاتب قام بنشر أغسطس 26, 2015 شكراً على ردك استاذي الغالي ياسر خليل .. لقد رفقت لك الملف وفيه المشكلة .. ووضحت داخل الملف المشكلة . أتمنى أن اجد الحل .. وهذا يأتي بعدما ألصق الخلايا من الانترنت . حذف الرابط التشعبي.rar
بن علية حاجي قام بنشر أغسطس 26, 2015 قام بنشر أغسطس 26, 2015 (معدل) السلام عليكم ورحمة الله هذه المشكلة هي سبب خاصية نسخ/لصق من الإنترنيت... إذ أن هذه تظهر بهذا اللون باعتبار أنها أشكال Objects، ولحذفها نقوم بالضغط على مفتاح F5 ونختار Cells (بالأسفل) ثم Objects (بالأسفل) ثم على مفتاح OK وبهذا نكون قد قمنا بتحديد جميع الأشكال في الشيت ولاسثناء أحد الأشكال (مثلا زر تنفيذ الكود في الشيت) نقوم بالضغط على مفتاح Ctrl مع النقر باليمين بواسطة الفأرة Mouse على الزر... ثم نقوم نضغط على مفتاح DELETE... والله أعلم بن علية تم تعديل أغسطس 26, 2015 بواسطه بن علية حاجي للتوضيح أكثر
محمد الزريعي قام بنشر أغسطس 26, 2015 الكاتب قام بنشر أغسطس 26, 2015 اشكركم على مشاركاتكم الطيبة : وانا سعيد جداً لاني وجدت الكود المطلوب بحث علية في الصفحات الانجليزية لين جمعت الكلمات حتى طلع ليا كود مكتمل .. ومن نبهني الي هذا الكود هو الاستاذ بن علية حاجي .. خلاني أبحث عن objects الاشكال .. اقول لك شكراً اخي ومعلمي على هذا التنبية . واخص بالشكر ايضاً استاذي القدير الغني عن التعريف الاستاذ ياسر خليل على مشاركته القيمة . والان أترك لكم الكود ولمن اراد ان ينسخه مرة أخرى . ActiveSheet.Buttons.Copy On Error Resume Next ActiveSheet.DrawingObjects.Visible = True ActiveSheet.DrawingObjects.Delete On Error GoTo 0 Range("e1").Select ActiveSheet.Paste Range("b2").Select وشرحة كالتالي : قمت بنسخ الزر كي لا يتم حذفة ثم وضعت كود حذف الاشكال ليتم حذف جميع الاشكال في داخل الشيت النشط ثم قمت بتحديد العمود E1 ليتم لصق الزر في نفس المكان ثم امر لصق ما تم نسخة وهو ( الزر ) ولكي الغي التحديد على الزر .. قمت بتحديد الخلية B2 وهي علامة للعمود المهم . انتهى شكراً لكم
ياسر خليل أبو البراء قام بنشر أغسطس 26, 2015 قام بنشر أغسطس 26, 2015 حاول أن تتجنب في كتابة الأكواد عملية التحديد فهي تبطيء عمل الكود مع البيانات الكثيرة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.