اذهب الي المحتوي
أوفيسنا

ياسر خليل أبو البراء

المشرفين السابقين
  • Posts

    13,165
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    412

كل منشورات العضو ياسر خليل أبو البراء

  1. ادخل لمحرر الأكواد عن طريق Alt + F11 ، ثم عدل السطر التالي الذي يحتوي الخلية الهدف WAVFile = ThisWorkbook.Path & "\" & Range("c2") & ".wav"
  2. بارك الله فيك أخي الكريم وائل الحمد لله أن تم المطلوب على خير .. بالنسبة لسؤالك : على حسب علمي لا يمكن التعامل بنفس الكود مع بقية الامتدادات التي ذكرتها .. ولا أعلم طرق للتعامل مع هذه الامتدادت (لم أجرب من قبل) .. ولكن إذا ثابرت في طرح موضوعات متتالية لكل امتداد ربما تحصل على كود لكل ملف أو امتداد وبعدها يمكن جمع هذه الأكواد كلها في ملف واحد شامل يلبي غرضك ، هذا والله أعلى وأعلم تقبل تحياتي
  3. وعليكم السلام جرب استبدال السطر الأخير Range("A4").Select بهذا السطر Application.GoTo Range("A4"),True
  4. حاول أن تقرأ أسطر الكود وستجد أن التعديل بسيط .. لو لم تستطع فأرجو من أحد الأخوة التعديل ليعمل الكود بشكل عكسي ..
  5. وعليكم السلام الخطأ قد يكون من نسخة الأوفيس التي لديك أو قد يكون لديك إضافة AddIn حدث معها تضارب أو ماشابه يرجى ذكر إصدار الأوفيس الذي تعمل عليه ..وجرب حذف الإضافات لديك ثم جرب الكود مرة أخرى Sub Test() Dim fName As String Dim Path As String fName = Range("A1").Value Path = ThisWorkbook.Path & "\" & fName Application.ActiveWorkbook.SaveAs Filename:=Path, FileFormat:=52 End Sub
  6. وعليكم السلام جرب إلغاء المشاركة الموجودة بالمصنف وسيفتح معك محرر الأكواد إن شاء المولى ..من خلال التبويب Review ثم Share Workbook على ما أتذكر
  7. جرب الكود التالي في حدث ورقة العمل Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row > 1 And Target.Column = 3 Then Application.EnableEvents = False Range("Z1").Value = Target.Value Application.EnableEvents = True End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 1 And Target.Column = 3 Then Sheets("list").Columns(6).Replace What:=Range("Z1").Value, Replacement:=Target.Value, LookAt:=xlWhole End If End Sub
  8. وعليكم السلام قم بدراسة الموضوع التالي بتأني وسيحل لك إن شاء الله المشكلات كلها فيما يخص التعامل مع محرر الأكواد رابط الموضوع من هنا
  9. قم ببساطة بتسجييل ماكرو من خلال التبويب Developer ثم Record Macro .. ونفذ الخطوات .. وفي النهاية أوقف التسجيل
  10. وعليكم السلام أخي الكريم زاكي أين الملف المرفق لمحاولة تقديم المساعدة المطلوبة؟ فك حماية محرر الأكواد أمر بسيط وميسور وإن شاء الله أي عضو ممكن يفيدك فيه ، فقط ارفق ملفك
  11. بالفعل الصورة تفي بالغرض ..لأنك واقف في ورقة العمل الأولى انتقل لورقة العمل المسماة Final ..
  12. أخي الكريم وائل لابد من منطق يفهمه الإكسيل .. أعتقد أنه يوجد سطر فارغ بين النصوص يمكن الاعتماد عليها ، حيث أنه يمكن عمل محاولة لدمج النصوص التي يفضل بينها سطر فارغ
  13. لا يمكنني التخمين في الموضوع بدون الإطلاع على الملف المرفق ..أعتذر وأترك غيري للمشاركة في الموضوع يمكن رفع الملف على موقع رفع خارجي ثم تضع الرابط هنا ..
  14. بصراحة الموضوع في هذه النقطة صعب إلى حدٍ ما ... ما المنطق فيما طلبت ...؟ هل هناك سطر فارغ بين الكتل التي تتحدث عنها ؟ الملف الأول المرفق كان يلبي طلبك في أن يضع كل النص الموجود في الملف النصي الواحد في خلية واحدة .. ربما من الأفضل أن تضع ملف نصي مرفق موضحاً شكل المخرجات مرة أخرى فلربما توصلنا لفكرة ...
  15. وعليكم السلام أخي الكريم لم أفهم المطلوب بشكل واضح قم بأخذ نسخة من ملفك واحذف منها كل الصفوف ما عدا 10 صفوف كمثال .. لتتضح صورة المطلوب بشكل أفضل
  16. حدد العمود الأول ثم كليك يمين واختر الأمر Format Cells ثم اذهب للتبويب Alignment وأزل أي علامة بجانب الخيار Wrap Text .....
  17. لا مجال إذاً إلا باستخدام الأكواد أو دالة معرفة لتوفر عليك العناء وبهذا لا يمكنك الاعتماد على ورقة العمل أو جدول يحتوي تلك البيانات ...
  18. هل تريد الاعتماد في المعادلة على جدول بالمعطيات موجود مسبقاً أم أنك تريد كتابة المعادلة بكافة المعطيات داخلها؟ في الحالة الثانية ستكون المعادلة صعبة في كتابتها من حيث طول المعادلة لذا أقترح استخدام دالة معرفة تشتمل على كافة المعطيات بحيث يكون أيسر لك استخدامها ... وفي النهاية لك حرية القرار
  19. الحمد لله أن تم المطلوب على خير أخي الكريم وائل .. الحمد لله الذي بنعمته تتم الصالحات جزاكم الله خيراً على كلماتك الطيبة ودعائك الطيب ، ولك بمثله إن شاء الله تقبل وافر تقديري واحترامي
  20. الحمد لله أن تم المطلوب على خير والحمد لله الذي بنعمته تتم الصالحات قم بوضع الكود النهائي بعد أن قمت بالتعديلات ليستفيد منه الجميع تقبل تحياتي
  21. هل قمت بتحميل المرفق الأخير وتجربته ؟ وضح الخطوة التي تعثرت فيها ..لأن الملف يعمل عندي اجعل ملف الإكسيل بخارج الفولدر وليس بداخله ثم قم بتنفيذ الكود ..
  22. ادخل على الـ Name Manager للتعرف على أسماء النطاقات المعرفة .. الأفضل إرفاق ملف للإطلاع عليه ومعرفة المشكلة بشكل أدق
×
×
  • اضف...

Important Information