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

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

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

اللهم رب الناس أذهب البأس اشفه أنت الشافي لا شفاء إلا شفاؤك.

الف مبروك و جزاكي الله خيرا على جهودك

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

هناك العديد من المواضيع و علي سبيل المثال لا الحصر راجع بعض المواضيع المثبتة فى قسم الاكواد ضمن قسم خلاصة مشاركات الاكسيل http://www.officena.net/ib/index.php?showforum=51 و مسار القسم كالتالي: ← الأوفيس Msoffice ← Excel منتدى الاكسيل ← دروس و خلاصة مشاركات الإكسيل ← قسم أكواد فيجوال بيزيك التطبيقات - VBA

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

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

السلام عليكم بصورة ما أقسام خلاصة المشاركات تقوم بجزء من هذا التصنيف مثلا قسم خلاصة مشاركات الاكسيل http://www.officena.net/ib/index.php?showforum=9 أما عن الكتاب فهو فكرة جميلة و لكن تجتاج لجهد ، و قد قام بعض الاخوة بمجاولات جزئية سابقا و هي موجودة فى المكتبة و بسعدنا أن نجد متطوعين للمساعدة فى هذا الانجاز حيث يحتاج لجهد كبير

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

لقد جربته ، و يعمل جيدا الملف يحتاج برنامج winrar لفك الضغط

السلام عليكم فى 2010 يتم ضغط ALT ثم الحرف المناظر مثلا لفتح صندوق الخيارات ALT+FT أو التحرك بالاسهم او TAB و للتنقل بين اجزاء الشاشة F6

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

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

تم الحذف

بارك الله لهما و بارك عليهما و جمع بينهما في خير الف مبروك

قسم الاقتراحات و الملاحظات http://www.officena.net/ib/index.php?showforum=159

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

اقتراح جيد سيتم اضافة القسم باذن الله

إنا لله و انا اليه راجعون اللهم أدخلها الفردوس الأعلي من الجنة

السلام عليكم أخوتي الكرام هذا استطلاع رأي بخصوص إدارة المشاريع المؤسسية ، ذو علاقة ببحث أقوم بها انا و صديقي د. عمرو مسلم https://www.surveymonkey.com/s/YVW25ND أرجو المشاركة فى الاستطلاع لمن هو مجال عمله ذو علاقة بهذا الاستطلاع ـ او دعوة من تعرفونه للمشاركة

اللهم رب الناس أذهب البأس اشفِ أنت الشافي لا شفاء إلا شفاؤك ، شفاء لا يغادر سقماً

نرحب بالأخ أبا عمر فى فريق الموقع مشرفا على قسم الأكسيس أهلا وسهلا

جزاكم الله خيرا على هذا الجهد المميز

يحتوى برنامج الفيزيو 2010 على خاصية اضافة الملاحظات و علامات المراجعة Mark up و لكن للاسف لا يحوي امكانيات متقدمة مثل برنامج الوورد للتحكم فى طباعتها و لكن يوجد حل بديل عن طريق الماكرو حيث يتم انشاء مربع نص و نسخ قائمة بالتعديلات اليه و ذلك بجوار الرسم المصدر http://support.microsoft.com/kb/898514/en-us و هذا هو الكود Public Sub GetComments() Dim pagMarkup As Visio.Page Dim pag As Visio.Page Dim shp As Visio.Shape Dim sText As String Dim iRow As Integer Set pag = Visio.ActivePage sText = "Reviewer" & vbTab & "Date" & vbTab & "Comment" If pag.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then For iRow = 0 To pag.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If For Each pagMarkup In pag.Document.Pages If pagMarkup.Type = visTypeMarkup Then If pagMarkup.OriginalPage = pag Then If pagMarkup.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then sText = sText & vbCrLf sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.ReviewerID - 1, Visio.visReviewerName).ResultStr("") For iRow = 0 To pagMarkup.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If End If End If Next pagMarkup Dim iAutoSize as Integer 'new iAutoSize = pag.AutoSize 'new pag.AutoSize = 0 'new Set shp = pag.DrawRectangle(-pag.PageSheet.Cells("PageWidth").ResultIU, 0, 0, pag.PageSheet.Cells("PageHeight").ResultIU) pag.AutoSize = iAutoSize 'new shp.AddSection visSectionUser 'new shp.AddNamedRow visSectionUser, "msvNoAutoSize", visTagDefault 'new shp.CellsU("User.msvNoAutoSize").FormulaU = 1 'new shp.Cells("Para.HorzAlign").Formula = "0" shp.Cells("VerticalAlign").Formula = "0" shp.Name = "Reviewers Comments" shp.Text = sText End Sub