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

السلام عليكم أرى الأخ سليم قد أجاب على طلبك هنا

السلام عليكم يرجي مراسلتي علي admin@officena.net مع الشكر و التقدير

تم النقل لقسم الاكسيس مرة اخري حبث كان هاك مشكلة فى ظهور الموضع نتيجة لكتابة الاوامر فى العنوان

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

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

لماذا لا تستخدم خاصية الاستبدال Replace CTR+H

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

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

السلام عليكم لا الخاصية لا يمكن ايقافها من المنتدي ، بل فقط يمكن تقنين الاستخدم لكل مجموعة و ليس لكل شخص االايقاف لابد أن يتم من صاحب الحساب من خلال الوصلة التالية فى شاشة المراسلة على اسفل يمين الشاشة : تعطيل المراسل الشخصي

السلام عليكم ان المراسلة الشخصية كانت معطلة تماما فى حسابك تم تفعيلها

اخي الكريم كما ذكرت لك اضغط على اسمك اعلي يسار المنتدى ستجد اعدادت الحساب و الاعضاء المتجاهلين علينا التأكد من ذلك اولا ا قبل التطرق الى دراسة اسباب اخري لما ذكرت

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

السلام عليكم لا يفترض حدوث ذلك ، سابحث الامر باذن الله و اتخذ ما يلزم و سانقل الموضوع الي القسم المعني

الف مبروك و تستاهلون اكثر من ذلك

السلام عليكم الان هل المشكلة قد تم حلها ؟

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

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

السلام عليكم ارجو التوضيح اكثر ، لقد اضفت رد فى الموضوع و ظهر لي ما الذي لا يظهر ؟

فهرس تسجيلات الدورة http://www.officena.net/ib/index.php?showtopic=55853

فهرس الحقات السابقة http://www.officena.net/ib/index.php?showtopic=55853

فهرس الحقات السابقة http://www.officena.net/ib/index.php?showtopic=55853

السلام عليكم ارجو مراجعة هذا الملف فى مكتبة الموقع ، ربما به ما تريدين

و لتحويل المعادلات لارفام نضيف جزء جديد 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