اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

محمد طاهر

إدارة الموقع
  • Content Count

    7,869
  • تاريخ الانضمام

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

  • Days Won

    22

كل منشورات العضو محمد طاهر

  1. السلام عليكم تعرفت على طريفة أخرى لعمل نفس الشي بدون كود و ذلك عن طريق اتباع الخطوات التالية اضغط ALT+D ثم P و ذلك لاستدعاء مساعد الجدوال المحورية ثم اختار الاختبارات الموضحة فى الصورة التالية ثم ثم ختار المجال المراد تحويلة ثم اضغط ADD و سيتم انشار الجدول ثم الان اختار الخلية المعبرة عن المجال المراد تحويله فمثلا لو ارد تحويل كامل الجدول اختار خلية الاجمالي التي بها الرقم 171 و الان انقر نقر مزدوج Double Click و ستجد المفاجأة التحويل المطلوب قد تم و كذلك اذا اردت تحويل فقط احد الصفوف او الاعمدة ـ فاختر خلية المجموع الخاصة بها و كرر نفس الامر فمثلا لتحويل الصف الاول فقط فى المصفوفة اختار الخلية H5 و انقر نقر مزدوج
  2. السلام عليكم لم ينزل معي الفيديو و لكن لم اجد مشكلة فى الملف فور تحديث الخلايا فى الاعمدة E أو F يتم تحديث الاعمدة من G الى S بصورة عادية
  3. السلام عليكم لم افهم السؤال ـ يرجي التوضيح اذا كان الموضوع يخض الرسم فى الاكسيل يرجى طرح الاستفسار فى قسم الاكسيل مع التوضيح
  4. احتجت لدمج محتويات عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها فاعددت هذا الكود اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود Sub mergitwithcomma() Selection.Cells.merge With Selection.Find .Text = "^p" .Replacement.Text = "، " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub لتنزل الملف
  5. Version 1.0.1

    7 تنزيل

    احتجت لدمج محتويات عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها فاعددت هذا الكود اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود Sub mergitwithcomma() Selection.Cells.merge With Selection.Find .Text = "^p" .Replacement.Text = "، " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
  6. السلام عليكم أولا أشكرك أخي الكريم الحقيقة ان هناك نوعين من التعليمات ، التعليمات المختصرة التى ذكرتها و التي بها اهم واعم ما ينطبق و الوصلة الموجودة فى اعلى الجزء المختصر و بها تعليمات تفصيلية و ملونة https://www.officena.net/Tips/Questions.htm اما الاقتباس فهو احيانا محمود حين يتم تحديد جزء معين من المشاركة للرد عليه اما الاقتباس الكامل فهو غير مفيد و يجب تجنبه و هذه الجزئية فعلا غير مغطاة فى قواعد المشاركة ، و سيتم تداركها باذن الله مع التعديل القادم
  7. يرجي توضيح المطلوب و حبذا لو بمثال بصفة عامة الأكسيل يمكنه ذلك عن طريق استنتاج المعادلة بالرسم أو استنتاج العلاقة عن طريق تحليل الانحدار Regression analysis لذا يتنقل الموضوع لقسم الاكسيل
  8. مرفق الملف للتجربة تأكد من أن الشيت المسمي list Sheet هو اخر ورقة عمل فى الملف تأكد من تفعيل الخلية الصفراء او اية خلية اخرى ترغب بها كهدف للناتج قبل تشغيل الكود Get_FromAll_Sheets.xlsm
  9. السلام عليكم احتجت اليوم لحصر خلية معينة من كافة اوراق العمل فى ملف يحوي عدد كبير من اوراق العمل بتنسيق متكرر اي انها كلها متطابقة التنسيق مع اختلاف البيانات و كانت مثلا الخلية المستهدفة هي C3 و اريد تجميع ما بها من قيمة من كل اوراق العمل فى قائمة واحد تحوي اسم كل ورقة عمل و القيمة المناظرة فى الخلية c3 فتذكرت على الفور ملف مجمع البيانات الموجود فى مكتبة الموقع ، و الذي تم بحمد الله تنزيله ما يربو على 22 الف مرة و لكن وجدت ان الذاكرة قد خانتني فهذا التطبيق يقوم بالتجميع من عدة ملفات و ليس عدة اوراق عمل فى نفس الملف و يستخدم ورقة عمل واحدة فقط من كل ملف لذا قمت باعداد ملف جديد بسيط يقوم بالغرض ، و سأضيفه هنا خلال الدقائق القادمة باذن الله و يعتمد الكود التالي: Sub GetCellFrom_Allsheets() Dim n As Byte, R As String n = ActiveWorkbook.Sheets.Count R = InputBox("Type your Cel Ref Example C3 ", "Officena Cell Collector") For i = 1 To n - 1 ActiveCell.Value = ActiveWorkbook.Worksheets(i).Name ActiveCell.Offset(0, 1).Value = ActiveWorkbook.Worksheets(i).Range(R) ActiveCell.Offset(1, 0).Activate Next End Sub
  10. السلام عليكم عادة ما تكون هذه الاسطوانات مدفوعة و ليس مجانية و هنا فى الموقع لا نسمح بنشر ما لم يسمح صاحبه بتداوله بالبحث على جوجل ستجد مواد مجانية كثيرة اون لاين مثال اضعط هنا
  11. السلام عليكم جميل أن المشكلة قد حلت ، و لكن صراحة لم افهم المشكلة تماما حتى الان قرأت الملف قبل تعقيب الأخ برقش سريعا و لم افهم المطلوب على الفور ، و تركته لاعود له حين استطيع توفير وقت اكثر و نشكر للأخ برقش مساهمته القيمة كالعادة و للأخ مصطفي طرح المشكلة و الحل و ليس متأكدا من اني فهمت المشكلة تماما من الحوار السابق ما حدث بعد تجربة الكود ان الكود يقوم باعادة تسجيل الحواشي مرة اخرى لتصحيح اي خطأ فى تسجيلها فهذا هو الوضع قبل و بعد تشغيل الكود كما توضحه الصورة التالية أيضا هل اقوم بحذف المرفق الاول و استبداله بالثاني ليكون الموضوع اوضح ؟ أم هناك حاجة لاضافة شرح اضافي لتعم الفائدة من الموضوع ؟
  12. استكمالا للملف السابق اعلاه ، و الذي يعطي التوقيتات فى مختلف الدول احتجت اليوم لمعرفة مجال معين من الساعات فى عدة بلدان مختلفة لاختيار وقت يلائم اشخاص مختلفين متواجدين فى تلك الدول و عليه اعددت الملف البسيط المرفق و احببت مشاركته لعله يفيد من يحتاج مثل ذلك الملف فقط يعتمد على الدالة time لاضافة عدد الساعات ، و لاستخدامه يتم فيه تسجيل مجال العمل بالساعة فى الدولة الاولي ثم قيمة الاختلاف عن توقيت جرينتش افقيا للثلاث دول الاخرى ( الخلايا باللون الاصفر) GMT-converster.xlsx
  13. أما إذا أردنا دمج الاسطر فقط دون اضافة فاصلة، بيتم استبدال السطر التالي 'replace with comma .Replacement.Text = ", " بالاتي ' replace only without comma .Replacement.Text = " "
  14. احتجت لتحويل عدد كبير من القوائم الي فقرات ، فقما باعداد هذا الكود ليحول القائمة الي فقرات بدمج الاسظر ووضع فاصلية بين المحتويات.، و لتفعيله اختار محتويات القائمة ثم شغل الكود. و هو يصلح لاي نوع من القوائم فى الوورد سواء كانت مرقمة او تبدأ باحدى علامات النقاط ، Numbered Lists , or Bullet points فسيقوم القوم بدمجها فى فقرة واحدة و اضافة فصلة بينها و هذا الأمر مفيد فى الأبحاث العلمية ، حيث هناك جانب كبير من المختصين لا يحبذ الإكثار من استخدام الفوائم فى كتابات البحث العلمي ، مثل الأوراق البحثية أو الرسائل العلمية. و ان كنت أرى ان القوائم اوضح كثيرا من الفقرات 😊 Sub ReplaceLineBreak() With Selection.Find .Text = "^p" 'replace with comma .Replacement.Text = ", " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub
  15. أعلنت الجمعية الامريكية لعلم النفس و المسؤولة عن اصدار نظام التوثيق العلمي الأشهر APA أن النسخة السابعة من APA Style ستصدر فى أكتوبر القادم للمزيد حول النسخة ، اضعط هنا و هذا الملف يوضح التحديثات فى النسخة الجديدة
  16. صراحة بحسب ما اعرف ، لا يمكن عمل المطلوب بالنسبة للملاحظة الأولي ، و الله اعلم و كما سبق اتمنى أن يأتينا أحد الأخوة بفكرة تتيح ذلك
  17. اللهم رب الناس اذهب البأس و اشف انت الشاف أجر و عافية باذن الله 🌹
  18. الملحوظة الأولي : تطبيق التلوين على المعادلات ايضا و ليس النصوص فقط ربما لا يمكن عمل ذلك ، و اتمني أن يجد الأخوة حل لهذا الأمر الملحوظة الثانية : تطبيق التلوين على ما يكتب من النصوص و ليس فقط عند تعديل الخلية C1 جرب التعديل البسيط التالي لكود الأخ وجيه Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As Integer If IsEmpty(Range("c1")) Then Exit Sub lr = Range("b" & Rows.Count).End(xlUp).Row Range("b4:b" & lr).Font.ColorIndex = xlAutomatic For Each c In Range("b4:b" & lr) For i = 1 To lr If Mid(c.Value, i, Len(Range("c1"))) = Range("c1").Value Then c.Characters(i, Len(Range("c1"))).Font.Color = vbRed End If Next Next End Sub
  19. السلام عليكم شكرا على المشاركة حاليا يمكن تغيير اللغة من اسفل صفحة المنتدى اللي اللغة المسماة أوفيسنا. فيتغير بذلك التنسيق الي المطلوب
  20. إذا وجهتك مشكلة فى أداء أي من تطبيقات أوفيس 2019 على ويندوز 10 قم بتفعيل خيار Disable Hardware Graphic Accelerator من File>options >advanced>Display من خيارات اي من تطبيقات الاوفيس ، و ستنطبق عليها جميعا و جرب الاداء 😀 وبالطبع هذا لا ينطبق على جميع الأجهزة ، و لكن يناسب العديد من اجهزة اللاب توب ، و لكن من ناحية أخرى هناك أجهزة تحتاج هذه الخاصية و لا يجب ايقاف تفعيلها فيها بحسب مواصفات الجهاز ، و التجربة هي خير دليل ، اذا واجهتك مشكلة جرب إلغاء الخاصية ، و اذا لم تأت بالنتيجة المطلوبة ، أعد تفعيلها و يادار ما دخلك شر 😎
  21. نعم يرجى توضيح الاسم المطلوب ، علما بانه فور التعديل ستحتاج الي الدخول بالاسم الجديد
×
×
  • اضف...