محمد طاهر عرفه

و لتحويل المعادلات لارفام نضيف جزء جديد Sub SplitSpecificSheet_onefile() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("Sheet1", "Sheet2")).Select Sheets(Array("Sheet1", "Sheet2")).Copy For k = 1 To ActiveWorkbook.Sheets.Count ActiveWorkbook.Sheets(k).Activate Cells.Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next k Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & "officena" & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

السلام عليكم لنقل ورقتي عمل او اكثر لنفس الملف ، هنا اعليك اختيار اسم الملف و قد اخترته officena على سبيل المثال Sub SplitSpecificSheet_onefile() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("Sheet1", "Sheet2")).Select Sheets(Array("Sheet1", "Sheet2")).Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & "officena" & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub و لتحويل المعادلات لارفام نضيف جزء جديد Sub SplitSpecificSheet_onefile() Dim xPath As String xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets(Array("Sheet1", "Sheet2")).Select Sheets(Array("Sheet1", "Sheet2")).Copy For k = 1 To ActiveWorkbook.Sheets.Count ActiveWorkbook.Sheets(k).Activate Cells.Select Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Next k Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & "officena" & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

السلام عليكم اذا اردت تكرار الامر علي عدد من اوراق العمل التي تختارها بمعرفتك عن طريق تحديد اسمها ، يمكنك تكرار الجزء الاوسط من الكود كما يلي: Sub SplitSpecificSheet() Dim xPath As String Dim SH As Worksheet xPath = Application.ActiveWorkbook.Path Application.ScreenUpdating = False Application.DisplayAlerts = False ' Sheet1 Set SH = Sheets("Sheet1") With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With ' Sheet2 Set SH = Sheets("Sheet2") Application.ScreenUpdating = False Application.DisplayAlerts = False With SH .Copy Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled Application.ActiveWorkbook.Close False End With Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

جرب البحث التفصيلي الوارد فى More Tools

من بريد الجي ميل نفسه على الويب اضغط علامة الترس التي بها قائمة منسدلة ، ثم Setting ثم من القوائم العرضية اختار forwardnig and pop / imap و تاكد من التفعيل لل pop ثم اختار configurstion instructions للاوتلوك فى نهاية خيار ال pop و التي توصل الي التفاصيل التالية ، و عليك اتباعها https://support.google.com/mail/answer/7104828?hl=en&visit_id=1-636274382355152313-3169470171&rd=1

عند انشار رسالة جديد او رد ، اضغط options request a read receivpt اشعار بالوصول اي التسليم على صندوق بريد المستلم request a delivery receipt اشعار بقيام المستلم بالقراءة و لكن يمكن للطرف الاخر تجاهل ارسال الاشعار

راجع الخيار التالي File options advanced autoarchive

لا يبدو ذلك امرا طبيعيا ، ربما هناك اختلاف فى الاصدار بين الاجهزة او احدها يحتاج الي تحديث عموما تاكد من قبامك بالبحث بالطريقة السليمة من قائمة البحث اكتب كلمة البحث فى مربع البحث العام كما هو موضح فى الصورة و يمكن اضافة خيارات بحثية اكثر من قائمة More Tools كما يمكن ايضا التاكد من مجال ابحث من قائمة search Tools

السلام عليكم هي متاحة ايضا فى حالة عدم استخدام exchange server و يمكن الوصول اليها من قائمة File Cleanup Toos

السلام عليكم مؤقتا الي حين انتهاء النقاش ـ تم تعديل حد الترقية لعضو فعال و بالتالي اتاحة الرسائل الي 100 مشاركة ، بدلا من 200 فيما سبق بعد اول مشاركة يفترض ان تتم الترقية اليا و بالتالي تتاح الرسائل

السلام عليكم الاصل فى الموضوع انه كان كذلك و قد كانت الرسائل متاحة للجميع ـ، و لكن ما داعانا للتغيير هو واقع الممارسة و طريقة استغلال الرسائل الخاصة للمتابعةو الاستعجال و الاستفسار و طلب المساعدة على الخاص بل و الالحاح و الاحراج احيانا فى ذلك من قبل البعض وبطريقة مزعجة بدرجة كبيرة ، و يعود ذلك لعدم المامهم بعد بنظام المنتديات و طريقة التفاعل و عدم الاهتمام بقراءة قواعد المشاركة عند التسجيل، و بعد مضي فترة من التواجد الفاعل فى المنتدى تقل نسبة هذه الامور بصورة ملحوظة فنادرا ما تحدث بعد مضي فترة من المشاركة ، و هذا هو السبب فى تأخر تفعيل خاصية الرسائل الي ما بعد وصول عدد المشاركات الي عدد يدل على التواجد و التفاعل. و عموما سنطرح الموضوع مرة اخرى للنقاش مع فريق العمل أما عن خاصية ألوان المشاركات ، فقد تم ايقافها

و لم لا تطرح الموضوع فى قسم الاكسيل العام اولا ؟ https://www.officena.net/ib/forum/135-منتدى-الاكسيل-excel/

السلام عليكم لقد رددت على البريد مرتان ، و ارتد الي في المرتان لرفض بريدك استقبال الرد و لا ادري ما السبب بصفة عامة للجميع فان قواعد المشاركة تمنع أي تواصل على الخاص بخصوص المواضيع و ذلك لسببان: - الاول : لتعم الفائدة على الجميع و تساهم في افادة غيرك - الثاني: لتحصل على أفضل اجابة ، فدائما هناك وجهة نظر او طريقة اخرى افضل لدى شخص اخر فيرجى طرح أي استفسار مع شرحه في القسم العام المناظر لتعم الفائدة و تحصل على افضل اجابة ، و هو قسم الاكسيل في حالتنا هذه و في حال عدم توفر ما تطلب و ان كنت لا ارجح ذلك ، ووجود رغبة لديك ، يمكن طرح الموضوع في القسم الخاص بطلبات الاعضاء بمقابل مادي ،ـ مع وضع وسائل الاتصال ليتواصل معك من يؤغب في ذلك

السلام عليكم اخي الكريم ان الصلاحيات مرتبطة بالمجموعة و من ضمنها المراسلات على الخاص يمكن ارسال بريد الي admin@officena.net

جزاك الله خيرا اخي العزيز

السلام عليكم رابط موضوع الاخ سعيد

السلام عليكم يرجى اضافة اي ملاخظات قد تظهر نتيجة لنقل الموقع و المقصود هنا ليس الخواص او الاضافات المطلوبة و لكن اي خاصية كانت تعمل جيدا قبل النقل و ظهرت بها مشكلة بعد النقل للسيرفر الجديد (ان وجدت)

السلام عليكم الان نسخة الموبايل افضل كثيرا يرجاء التجربة

السلام عليكم هل تفتح معك الوصلة التى اضفتها عند الضعط عليها ؟

الأخ سعيد تم التعديل ، ليتمكن العضو الفضي و الذهبي و الماسي بالتعديل خلال 3 ساعات من وضع المشاركة ، فهل هذا مناسب مؤقتا ؟ بالمناسبة ، اثناء التعديل اكتشفت ان مجموعة عضو ماسي بها حاليا فقط عضو واحد فقط ، اي ان لديك مجموعة باسمك رجاء اضافة اي مواضيح مثيلة فى فسم الاقتراحات و الملاحظات حيث اتابعه بصورة اكبر من المنتدى الاجتماعي الذي تم نشر الموضوع به الاخ اخمد ، اعدت الموضوع لقسم الاكسيس بناء على طلبك

السلام عليكم ان اتاحة التعديل موجودة و هي مرتبطة بفترة زمنية تختلف من مجموعة لاخرى و ليس بعدد مرات و هناك ما يمنع اتاحتها على العموم من تجارب سابقة ، و منها ان هناك احيانات تعديلات تتم فى محتوي الموضوع تجعل الردود التالية عير متسقة مع ما كتب و امور اخرى حدثت كحالات استثنائية من سوء استخدام للخاصية وفتما كانت متاحة من عدد محدود من الاعضاء سانقل الموضوع الي قسم الشكاوي و الاقتراحات

السلام عليكم الاخ ابو عبد الرحمن، هناك مشكلة فى ظهور الرابط الذي اضفته ، يرجى اضافة الرابط مرة اخرى

لم احاول فيه بعد ، فقط وجدت هذا الطلب ضمن مشاركة اخرى و فصلته كموضوع مستقل حتى يظهر بالنسبة للطلب هل ما تحتاجه هو اضافة الاقواس لأرقام محددة ام أي ارقم ؟ هل الارقام اقل من عدد معين ؟ من 1 الي 9 فقط مثلا ؟ هل هي ارقام صحيحة ام قد يكون بها رقم عشري ؟ بناء على ما سبق قد يكون الحل سهلا او قد يكون معقدا لدرجة ما

السلام عليكم عند تطبيق الملف وجدت انه من المفيد اضافة السطر التالي فى نهاية الكود لكي تظهر التعديلات مباشرة Application.ScreenRefresh

السلام عليكم اذا اردت التأثير على الملف المفتوح فقط دون التطبيق ككل جرب استبدال applictation ب activeworkbook مثال ActiveWorkbook.Save ActiveWorkbook.Close