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

جرب التعديل التالي Sub Macro5() CurrentFile = Left(ThisWorkbook.FullName, (InStrRev(ThisWorkbook.FullName, ".", -1, vbTextCompare) - 1)) ActiveSheet.PageSetup.PrintArea = "$AC$7:$AF$50" ActiveWindow.SmallScroll Down:=-9 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ CurrentFile & ".pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Application.WindowState = xlMinimized Application.WindowState = xlMinimized ActiveSheet.PageSetup.PrintArea = "" MsgBox "xxxxxx?", , Now() End Sub

يمكن تحديد موقف الملف الحالي بالكود التالي Application.ThisWorkbook.Path و بالتالي يصبح اسم الملف فى الكود MsgBox Application.ThisWorkbook.Path & "\Filename.pdf" مع استبدال filename باسم الملف لديك

السلام عليكم PC فى الكود السابق ليس اسم الجهاز و لكن اسم مستخدم الويندوز يمكنك نقل الملف الي اي مسار سهل و ذلك باستبدال "C:\Users\pc\Desktop\ÌÏæá ÇáãÊãßäíä äÓÈíÇ.pdf" بمسار عام مثل C:\filename.pdf او اي مسار اخر لا يقع ضمن مجلد users لان هذا المجلد يحوي مجلدات فرعية لاسماء مستخدمي الويندوز المختلفين

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

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

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

اعرض الملف كود لتحويل مصفوفة إلى عمود واحد رأسي اجتجت الي تجويل البيانات فى مصفوفات الى عمود واجد رأسي ، فقمت باعداد هذا الملف و هذا هو الكود و يجب تظليل (اختيار) المصفوفة المطلوب تحويلها لعمود قبل تشغيل الكور اختار المصفوفة ثم اضغط على الزر ملاحظة : بفضل تجميل الاصدار الاخير الذي يظهر اسفل الصفحة لانه به ميزة اضافية Sub MakeOneColumn() Dim Myrows As Integer, Mycols As Integer Myrows = Selection.Rows.Count Mycols = Selection.Columns.Count With ActiveCell For i = 0 To Mycols '6 For j = 0 To Myrows '3 .Offset(Myrows * (i) + j) = .Offset(j, i) Next j Next i End With End Sub الكود المعدل فى الاصدار التاني ، للتشغيل اختار البيانات دون رؤس الأعمدةو الصفوف Sub MakeOneColumn() Dim Myrows As Integer, Mycols As Integer Myrows = Selection.Rows.Count Mycols = Selection.Columns.Count With ActiveCell For i = 0 To Mycols - 1 For j = 0 To Myrows - 1 ' record matrix value .Offset(Myrows * (i) + Myrows + 1 + j, 1) = .Offset(j, i) ' record Row .Offset(Myrows * (i) + Myrows + 1 + j, -1) = .Offset(j, -1) ' record Col .Offset(Myrows * (i) + Myrows + 1 + j, 0) = .Offset(-1, i) Next j Next i End With End Sub صاحب الملف محمد طاهر تمت الاضافه 10 يول, 2019 الاقسام قسم الإكسيل

السلام عليكم انا استخدمه طتطبيق يتم تنزيله من متجر التطبيقات للهاتف ، لم اجرب استخدامه على الكمبيوتر 🙂

Microsoft Office Picture Manager برنامج يمكن التعمل مع الصور و تغيير حجمها و خصائصها Microsoft Publisher. يستخدم لصميم الصفحات الاعلانية و البروشورات الدعائية و المطبوعات الاعلانية .... Microsoft Share Point Designer يستخدم لتصميم صفحات الاتش تي ام ال فى المواقع المصممة بالشير بوينت Microsoft Project إعداد و متابعة البرامج الزمنية Office Lens لعمل مس ضوئي للمستندات

Microsoft Office OneNote برنامج وان نوت: هو برنامج يمكنك من تسجيل و حفظ الملاحظات و البيانات الشخصية و الملاحظات خلال الاجتماعات سواء كانت مطبوعة بالكيبورد او بخط اليد باستخطام الاجهزة التي بها قلم و الشاشات الذكية من اشهر استخداماته تسجيل ملاحظات الاجتماعات و الملاحظات الشخصية و حفظ المستندات الشخصية و الميزة الهامة به ان الحساب بمكن استخدامه من اكثر من جهاز حاسب الي و اجهزة الهاتف المحمول و الاي باد بانواعه

دخول مجالي لمدة 7 ايام 3 اختبارات كاملة https://www.pm-exam-simulator.com/pmp-exam-simulator/free-pmp-exam-simulator?fbclid=IwAR2KyfsufKqqLSa2NWL1-zZ-mMVohQYnG1uyO7PyuWiMFnVaMdMEfjcaBIs 1600 سؤال مجالي https://pmstudycircle.com/pmp-questions/?fbclid=IwAR0iS-YQJ7UXeD6mU2tTtD4iID8xTjWD7Vz-YHozMr656BjDqUP0owxsn-g

اذا كان الاوفيس 2007 ـ فاحيانا يكون حل المشكلة فى تحميل نسخة الاصلاح رقم 1 Microsoft office Service Pack 1 و بالتالي قد ينطق ذلك على الاصدارات التالية

تم فصل الحل فى رد منفصل ، ليتم تفعيل خيار تمت الاجابة : الاجابة : 1- تختار كل المحتوي ctr+a 2- تضغط ctr+shift+F9 فتبقي جميع النصوص دون الروابط ، وكانك عملت لصق قيم Paste Value فى الاكسيل و بالطبع يمكن اختيار منطقة محددة بدلا من كل الملف

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

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

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

أتصور أن المشكلة تكمن إما فى أن الاوفيس فى حاجة إلى تحديث رجع آخر التحديثات Office Updates او الكيبورد نفسها أو الاضافات الخاصة بالاوفيس Add-ins أو أن هناك مشكلة فى الريجسيتي ، و يمكنك مراجعة ما ورد فى الموضوع التالي على موقع مايكروسوفت https://technet.microsoft.com/library/dn789213(v=office.14).aspx و قد ورد فى نفس الموضوع بديل تغيير الطابعة الاضافية و قد ورد فى الموضوع ثمانية طرق محتملة لعلاج مشاكل الوورد الغريبة عن طريق التجربة و المحاولة و طبعا من الصعب الحكم اي من هذه الاحتمالات قد يفيد و لو مكانك سابدأ بالاسهل و هو الاحتمال رقم 8 الخاص بتغيير الطابعة الافتراضية او حتى اعادة تحميل المحرك الخاص بها فاحيانا يؤثر ذلك على ما يتعدى الطباعة ، ثم قد اجرب تغيير الكيبورد و تحديثات الاوفيس ثم ايقاف الاضافات المحملة حاليا Add-ins و ا و قد يكون هناك حل غير فني غير منطقي و لكنه مرجح قبل كل هذا هو اعادة تحميل الاوفيس 😃 و كنت ساترك موضوع تعديل الريجيستري للنهاية و فى الكثير من المواقف قد ينصح الدعم الفني بفتح الورد او اي تطبيق به مشكلة فى حالة safe mode فاذا لم تظهر المشكلة قد يكون السبب فى الاضافات و يتم ذلك عن طريق ضغط علامة ويندور مع R و كتابة winword /safe

تقف بالماوس بعد العلامة السوداء مباشرة ثم تتحرك بالماوس يسارً فى اتجاه السواد فتفاجأ بتغير السواد الي اللون الرصاصي مع التعجب الشديد ! ثم تضغط CTR+Shift+S لتستدعي أمر Apply Styles و تضغط Reapply فتحل المشكلة فى كامل ترقيم الملف !!! و نقول الحمد لله 😄 المصدر

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

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

الف مبروك 😃 و الي الامام دائما ياذن الله

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

جرب الكود التالي ، اعتقد انه يمكن اختصاره بعض الشيء ، و لكن اتصور انه يؤدي المطلوب اولا ظلل الخلايا المطلوب تحليلها ثم شغل الكود و قم باختباره ملاحظة بعد النشر : وضعت الوان مختلفة حيث لم انتبه للون الاصفر و ووضعت بدلا منه اخضر ، يمكنك تعديله كما تشاء علما بان كود اللون الاصفر 65535 Sub Color_Dubplicatesl() ' color duplicates hzl adn vl as requested by youssef Atta on 14 june Dim myrow, mycol As Integer mycol = Selection.Columns.Count myrow = Selection.Rows.Count Selection.Interior.ColorIndex = xlNone '================= ' Hzl Dubplicate For i = 0 To myrow - 1 For j = 0 To mycol - 1 If Not IsNull(ActiveCell.Offset(i, j).Value) And ActiveCell.Offset(i, j).Value <> "" Then If IsNumeric(ActiveCell.Offset(i, j).Value) Then For k = j + 1 To mycol - 1 ' compare this col If ActiveCell.Offset(i, j).Value = ActiveCell.Offset(i, k).Value Then ActiveCell.Offset(i, j).Cells.Interior.Color = 255 ' red ActiveCell.Offset(i, k).Cells.Interior.Color = 255 ' red Exit For End If Next k ' compare this col End If ' if numeric End If ' not if null Next j Next i '============== ' Vl Duplicates '================= For i = 0 To mycol - 1 For j = 0 To myrow - 1 If Not IsNull(ActiveCell.Offset(j, i).Value) And ActiveCell.Offset(j, i).Value <> "" Then If IsNumeric(ActiveCell.Offset(j, i).Value) Then For k = j + 1 To myrow - 1 ' compare this col If ActiveCell.Offset(j, i).Value = ActiveCell.Offset(k, i).Value Then If ActiveCell.Offset(j, i).Cells.Interior.Color = 255 Then ActiveCell.Offset(j, i).Cells.Interior.Color = 5287936 ' green Else ActiveCell.Offset(j, i).Cells.Interior.Color = 15773696 ' cyan End If If ActiveCell.Offset(k, i).Cells.Interior.Color = 255 Then ActiveCell.Offset(k, i).Cells.Interior.Color = 5287936 ' green Else ActiveCell.Offset(k, i).Cells.Interior.Color = 15773696 ' cyan End If Exit For End If Next k ' compare this col End If ' if numeric End If ' not if null Next j Next i End Sub ساقية.xls

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

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