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

محمد طاهر

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

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

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

  • Days Won

    23

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

  1. و عليكم السلام و رحمة الله و بركاته هذا الاسم محجوز لعضو اخر لا يمكن استخدامه كاسم للدخول كما هو مذكور يمكنك تجربة اسماء اخري من اعدادت الحساب
  2. السلام عليكم تم تعديل الروابط فى المشاركة الأولى التى كانت بها خطأ لقدم الموضوع و تغير تنسيق الروابط مع مرور الزمن و ذلك بناء على تنبيه الأخ أحمد الفلاحجي برسالة و الأخ بوسف بالموضوع مع الشكر و التقدير
  3. تم نقل الموضوع لقسم الوورد قد تكون هناك فصول Sections ضمن الملف و بالتالي يبدأ الترقيم ببداية كل فصل
  4. هذا يتوقف على الامر هل ينفذ على الكلمة او الحرف او السطر ، فلكل منها طريقة تكرار للتنفيذ و فى كل الاحوال يتم عمل loop لتكرار التنفيذ او استخدام امر مثل Find لتنفيذ الاستبدال للمجموعة المختارة بعض الامثلة للكلمات For i = 1 To Selection.Words.Count With Selection.Words(i) If IsNumeric(.Text) Then .Text = "(" & Trim(.Text) & ")" i = i + 1 End If End With Next i او For Each R_o_w In ActiveDocument.Words R_o_w.Select If Len(Selection) = 0 Then R_o_w.Delete Unit:=wdCharacter, Count:=1 Next استخدام Find With Selection.Find .Text = "^p" .Replacement.Text = "، " End With Selection.Find.Execute Replace:=wdReplaceAll
  5. موقع الشركة نفسه به صفحة لتنزيل الملفات و لم اجد به طابعة بهذا الاسم جرب فربما توجد محركات عامة http://www.gestetner-support.com/downloads/infotec-office-product-downloads.aspx
  6. جرب هنا http://support.ricoh.com/bb/html/dr_ut_e/nrg1/model/p410a/p410a.htm?lang=gr
  7. السلام عليكم راجع الرسائل الخاصة
  8. السلام عليكم بعد اذن الاخ تومي فعلا الامر غير متاح كاملا بصورة مباشرة و لكن يمكن عمل بعض التحايل ما فهمته ان السؤال يتضمن شقين 1- ان تكون الخلايا غير قابلة للاتساع 2- تحديد الحروف لكل خلية الجزء الاول : من خصائص الجدول اختار الصفوف ثم حدد الارتفاع بعد اختيار Exactly من خصائص الجدول بعد اختياره مع ملاحظة ان ذلك لن يمنع اضافة نصوص بحجم اكبر من ارتفاع الخلية و انما هو تحديد شكلي فقط الجزء الثاني لا يمكن بصورة مباشرة ، و لكن للتحايل ، من قائمة المطورين Developers اختار هذه أداة مربع النص الظاهر فى الصورة و ادرج مربع النصوص هذا فى الخلية المراد تحديد عدد حروفها ثم اختار خصائص مريع النص ثم حدد الحد الاقصي فى الخصائص فى عند Max_Length ضع الحد المطلوب و ليكن 5 حروف ويمكن ايضا التحكم بالارتفاع و العرض و هل يتسع تلقائيا ام لا ثم بعد ذلك الغي تفعيل وضع التصميم و لن يقبل صندوق النص نصوصا اطول مما حددت
  9. اخي الكريم الموضوع مخالف لقواعد المشاركة يرجى الالتزام بالقواعد لا يجب فتح موضوع جديد لاستعجال الرد https://www.officena.net/Tips/Questions.htm
  10. تم فصل الطلب فى موضوع مستقل اخي الكريم ، رجاء توضيح الطلب ليستطيع الأخوة مساعدتك
  11. الف مبروك مع الشكر و التقدير و اطيب الامنيات و الي الامام دائما 🌹
  12. السلام عليكم تعرفت على طريفة أخرى لعمل نفس الشي بدون كود و ذلك عن طريق اتباع الخطوات التالية اضغط ALT+D ثم P و ذلك لاستدعاء مساعد الجدوال المحورية ثم اختار الاختبارات الموضحة فى الصورة التالية ثم ثم ختار المجال المراد تحويلة ثم اضغط ADD و سيتم انشار الجدول ثم الان اختار الخلية المعبرة عن المجال المراد تحويله فمثلا لو ارد تحويل كامل الجدول اختار خلية الاجمالي التي بها الرقم 171 و الان انقر نقر مزدوج Double Click و ستجد المفاجأة التحويل المطلوب قد تم و كذلك اذا اردت تحويل فقط احد الصفوف او الاعمدة ـ فاختر خلية المجموع الخاصة بها و كرر نفس الامر فمثلا لتحويل الصف الاول فقط فى المصفوفة اختار الخلية H5 و انقر نقر مزدوج
  13. السلام عليكم لم ينزل معي الفيديو و لكن لم اجد مشكلة فى الملف فور تحديث الخلايا فى الاعمدة E أو F يتم تحديث الاعمدة من G الى S بصورة عادية
  14. السلام عليكم لم افهم السؤال ـ يرجي التوضيح اذا كان الموضوع يخض الرسم فى الاكسيل يرجى طرح الاستفسار فى قسم الاكسيل مع التوضيح
  15. احتجت لدمج محتويات عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها فاعددت هذا الكود اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود 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 لتنزل الملف
  16. Version 1.0.1

    25 تنزيل

    احتجت لدمج محتويات عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها فاعددت هذا الكود اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود 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
  17. السلام عليكم أولا أشكرك أخي الكريم الحقيقة ان هناك نوعين من التعليمات ، التعليمات المختصرة التى ذكرتها و التي بها اهم واعم ما ينطبق و الوصلة الموجودة فى اعلى الجزء المختصر و بها تعليمات تفصيلية و ملونة https://www.officena.net/Tips/Questions.htm اما الاقتباس فهو احيانا محمود حين يتم تحديد جزء معين من المشاركة للرد عليه اما الاقتباس الكامل فهو غير مفيد و يجب تجنبه و هذه الجزئية فعلا غير مغطاة فى قواعد المشاركة ، و سيتم تداركها باذن الله مع التعديل القادم
  18. يرجي توضيح المطلوب و حبذا لو بمثال بصفة عامة الأكسيل يمكنه ذلك عن طريق استنتاج المعادلة بالرسم أو استنتاج العلاقة عن طريق تحليل الانحدار Regression analysis لذا يتنقل الموضوع لقسم الاكسيل
  19. مرفق الملف للتجربة تأكد من أن الشيت المسمي list Sheet هو اخر ورقة عمل فى الملف تأكد من تفعيل الخلية الصفراء او اية خلية اخرى ترغب بها كهدف للناتج قبل تشغيل الكود Get_FromAll_Sheets.xlsm
  20. السلام عليكم احتجت اليوم لحصر خلية معينة من كافة اوراق العمل فى ملف يحوي عدد كبير من اوراق العمل بتنسيق متكرر اي انها كلها متطابقة التنسيق مع اختلاف البيانات و كانت مثلا الخلية المستهدفة هي 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
  21. السلام عليكم عادة ما تكون هذه الاسطوانات مدفوعة و ليس مجانية و هنا فى الموقع لا نسمح بنشر ما لم يسمح صاحبه بتداوله بالبحث على جوجل ستجد مواد مجانية كثيرة اون لاين مثال اضعط هنا
×
×
  • اضف...