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

احتجت لتحويل عدد كبير من القوائم الي فقرات ، فقما باعداد هذا الكود ليحول القائمة الي فقرات بدمج الاسظر ووضع فاصلية بين المحتويات.، و لتفعيله اختار محتويات القائمة ثم شغل الكود. و هو يصلح لاي نوع من القوائم فى الوورد سواء كانت مرقمة او تبدأ باحدى علامات النقاط ، Numbered Lists , or Bullet points فسيقوم القوم بدمجها فى فقرة واحدة و اضافة فصلة بينها و هذا الأمر مفيد فى الأبحاث العلمية ، حيث هناك جانب كبير من المختصين لا يحبذ الإكثار من استخدام الفوائم فى كتابات البحث العلمي ، مثل الأوراق البحثية أو الرسائل العلمية. و ان كنت أرى ان القوائم اوضح كثيرا من الفقرات 😊 Sub ReplaceLineBreak() With Selection.Find .Text = "^p" 'replace with comma .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

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

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

اللهم رب الناس اذهب البأس و اشف انت الشاف أجر و عافية باذن الله 🌹

الملحوظة الأولي : تطبيق التلوين على المعادلات ايضا و ليس النصوص فقط ربما لا يمكن عمل ذلك ، و اتمني أن يجد الأخوة حل لهذا الأمر الملحوظة الثانية : تطبيق التلوين على ما يكتب من النصوص و ليس فقط عند تعديل الخلية C1 جرب التعديل البسيط التالي لكود الأخ وجيه Private Sub Worksheet_Change(ByVal Target As Range) Dim lr As Integer If IsEmpty(Range("c1")) Then Exit Sub lr = Range("b" & Rows.Count).End(xlUp).Row Range("b4:b" & lr).Font.ColorIndex = xlAutomatic For Each c In Range("b4:b" & lr) For i = 1 To lr If Mid(c.Value, i, Len(Range("c1"))) = Range("c1").Value Then c.Characters(i, Len(Range("c1"))).Font.Color = vbRed End If Next Next End Sub

تم نقل الموضوع لقسم الاكسيل

كل عام و أنتم بخير جميعا 😄

إذا وجهتك مشكلة فى أداء أي من تطبيقات أوفيس 2019 على ويندوز 10 قم بتفعيل خيار Disable Hardware Graphic Accelerator من File>options >advanced>Display من خيارات اي من تطبيقات الاوفيس ، و ستنطبق عليها جميعا و جرب الاداء 😀 وبالطبع هذا لا ينطبق على جميع الأجهزة ، و لكن يناسب العديد من اجهزة اللاب توب ، و لكن من ناحية أخرى هناك أجهزة تحتاج هذه الخاصية و لا يجب ايقاف تفعيلها فيها بحسب مواصفات الجهاز ، و التجربة هي خير دليل ، اذا واجهتك مشكلة جرب إلغاء الخاصية ، و اذا لم تأت بالنتيجة المطلوبة ، أعد تفعيلها و يادار ما دخلك شر 😎

قواعد المشاركة فى هذا القسم واضجة يجب اضافة وسائل الاتصال

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

بالفعل ، الان اضبحت رسمي 😃 سابقاً كانت الرتبة : محمد عصام ، الان الاسم الفعلي : محمد عصام و قد اضفت المثال للشرح 😃

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

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

مركز الملفات هو مكان ممبز بالموقع يتاح فيه اضافة الملفات المفيدة وفق مجموعة مجددة من الافسام و استخدام مركز الملفات مختلف عن المنتدى ، فهنا لا نرد على استفسار او نساعد فى الحل ، و لكن نستخدم هذه الجزئية من الموقع عند الرغبة فى نشر ملف مفيد و فور اضافة الملف سيتم اليا فتح موضوع للجوار باحد الافسام ، و ربطه بصفحة الملف فى مركز الملفات و بمتار المركز بامكانية تتبع الاصدارات المختلفة من الملف و الفروص بينها ، كما يمكن ايضا اضافة تعليقات على الملف مباشرة ، و ذلك بالاضافة الي موضوع الحوار الخاص بالملف و الي سيتم فتحه تلقائيا كما ذكرنا لاحقا ملاحظة صلاحية الاضافة المباشرة دون مراجعة مقتصرة على مجموعات العضوية المتقدمة فقط و ليس كل المجموعات خطوات اضافة الملفات 1- مركز الملفات 2- اضف ملف 3- اختار القسم المناسب 4- اضف الملف 5- - سيظهر بعدها مكان لاختيار الصورة 6- 6- اختار اسم الملف ( اجباري) 7- اختار الوصف الخظوة الخيرة ، اجفظ و اختار الملف 8-

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

جرب التعديل التالي 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 برنامج وان نوت: هو برنامج يمكنك من تسجيل و حفظ الملاحظات و البيانات الشخصية و الملاحظات خلال الاجتماعات سواء كانت مطبوعة بالكيبورد او بخط اليد باستخطام الاجهزة التي بها قلم و الشاشات الذكية من اشهر استخداماته تسجيل ملاحظات الاجتماعات و الملاحظات الشخصية و حفظ المستندات الشخصية و الميزة الهامة به ان الحساب بمكن استخدامه من اكثر من جهاز حاسب الي و اجهزة الهاتف المحمول و الاي باد بانواعه