محمد حجازي

3. استخدام الجملة With : قد نحتاج أحياناً إلى استخدام العديد من الخصائص و الأساليب التابعة لهدف معين في نفس الوقت ، وهنا فإنه يمكننا استخدام الجملة With من أجل التقليل بقدر الإمكان من الحاجة إلى الاستخدام المتكرر للأهداف المرجعية ، وبالتالي فإن هذه الجملة تتيح لنا تخفيض حجم الكود بالإضافة إلى المرونة التي توفرها في قراءة و فهم ومتابعة الكود . هناك ميزة أخرى توفرها لنا الجملة With ألا وهي السهولة في تعديل الكود ، حيث أننا لن نحتاج لتعديل الهدف مع كل خاصية أو أسلوب مرتبط به وإنما سيكون التعديل مرة واحدة من خلال الجملة With. في الكود التالي سنقوم بإظهار كل من أشرطة الأدوات : القياسي و التنسيق و النموذج: Sub ToolsList1() Application.CommandBars("Standard").Visible = True Application.CommandBars("Formatting").Visible = True Application.CommandBars("Forms").Visible = True End Sub يمكننا تعديل الكود السابق لتتم الإشارة إلى الهدف Application مرة واحدة فقط : Sub ToolsList2() With Application .CommandBars("Standard").Visible = True .CommandBars("Formatting").Visible = True .CommandBars("Forms").Visible = True End With End Sub كما يمكنك أيضاً الاستعانة بمجموعة من جمل With المتداخلة :o ، لاحظ الكود التالي : Sub FormatCells() With Sheets("Sheet1").Range("A1:D5") With .Font .ColorIndex = 3 .Bold = True .Size = 12 End With With .Borders() .LineStyle = xlDot .Weight = xlMedium End With End With End Sub وبهذا فإننا نلاحظ أن الدليل المرجعي المستخدم في الحلقة With الأولى (المجال A1:D5 الموجود في الورقة Sheet1) يمكن أن يكون دليلاً مرجعياً لمجموعات أخرى ( Borders، Font) و التي بدورها ستكون دليلاً مرجعياً لأساليب و خصائص مختلفة (ColorIndex ، LineStyle ، ... ، الخ) بالتوفيق

السلام عليكم ... كما أنه يمكنك الاستعانة بنظام القراءة التلقائية الموجود في الأوفيس : الكود بلفظ عربي: Function sound(MyCells As String) If MyCells = "ناجح" Then sound = True Application.Speech.Speak "muomtaz" Else sound = False End If End Function الكود بلفظ انكليزي: Function sound(MyCells As String) If MyCells = "ناجح" Then sound = True Application.Speech.Speak "excellent" Else sound = False End If End Function

السلام عليكم ... في الرابط التالي شرح لطريقة الانقسام : http://office.microsoft.com/ar-sa/assistan...2038611025.aspx وفي المرفق يوجد مثال مبسط . بالتوفيق division.zip

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

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

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

السلام عليكم ... كلام الأخ بسولي صحيح ، فعملية التحديث التلقائي تكون غير فعالة إذا كان المصنف المصدر غير مفتوح ، والبديل لذلك هو تحديث الارتباطات عند الحاجة لذلك ، وذلك كما يلي: Edit > Links > Update Values ولمزيد من المعلومات راجع الرابطين التاليين : http://www.c4arab.com/showlesson.php?lesid=2111 http://www.c4arab.com/showlesson.php?lesid=2103

السلام عليكم ... إذا كان قصد السائل تكبير طريقة العرض (تكبير ظاهري وليس فعلي) فهنا يمكنه عمل ذلك بالضغط باستمرار على الزر Ctrl وتحريك عجلة الفأرة (السكرول) إلى الأمام ، أو عن طريق القائمة View ومن ثم الخيار Zoom. بالتوفيق

السلام عليكم ... لم أفهم المشكلة بشكل جيد ولكن جرب مايلي: من القائمة File انقر فوق الخيار Page Setup لتظهر لك نافذة ، يمكنك تغيير هوامش الصفحة من الخيارات الموجودة ضمن علامة التبويب Margins ، ومن ثم اضغط على الزر OK واحفظ الصفحة. هناك احتمال (في مشاكل من هذا النوع) أن يكون الخطأ من إعدادات الطابعة لديك. بالتوفيق

السلام عليكم ... لقد وجدت الحل عن طريق استخدام توابع الـ API. الكود بعد التعديل: Private Declare Function sndPlaySound Lib _ "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal _ uFlags As Long) As Long Function sound(MyCells As String) Dim MyPath As String If MyCells = "ناجح" Then sound = True MyPath = Workbooks("MyFile.xls").Path & "\SoundFile.wav" sndPlaySound MyPath, &H10 Else sound = False End If End Function بالتوفيق WAV.zip

السلام عليكم ... تستخدم اللاحقة xla لحفظ الوظائف الإضافية التي قمت بتصميمها بواسطة لغة الفيجوال بيسك ، والوظيفة الإضافية هي عبارة عن برنامج مكتوب بواسطة لغة برمجة معينة ، ويوفر هذا البرنامج مزايا أو وظائف غير موجودة في نسخة الاكسل العادية . لمزيد من المعلومات ، راجع الرابط التالي: http://office.microsoft.com/ar-sa/assistan...2386071025.aspx بالتوفيق

السلام عليكم ... وين الشباب ... عندي خمسين دعوة

السلام عليكم ... يمكنك ذلك عن طريق التعليمة COUNTIF . مرفق مثال مبسط: Book1.zip

السلام عليكم ... كليك يمين على علامة تبويب ورقة العمل ومن ثم اختار حذف . لمزيد من المعلومات راجع الرابط التالي: http://www.c4arab.com/showlesson.php?lesid=2108

السلام عليكم ... حمل الملف لأعدله لك.

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

السلام عليكم ... الكود في غاية البساطة ، فقط ضع المجال الذي تريده في الكود التالي: Sub ClearCells() Sheets("Sheet1").Range("---ضع المجال هنا---").ClearContents End Sub وانتبه إلى استخدام الفاصلة العادية في كتابة المجالات وليس الفاصلة المنقوطة ، مثال: Sub ClearCells() Sheets("Sheet1").Range("A1:D5,E10,F5,G1:G4").ClearContents End Sub

السلام عليكم ... أخ منسق مشكلتك بسيطة و يمكنك حلها عن طريق برامترات التعليمة GetSaveAsFilename ، لاحظ الكود (مع توضيح لعدد من برامترات التعليمة GetSaveAsFilename) : Sub SaveWorkBook() Dim MyPath As String MyPath = Application.GetSaveAsFilename(InitialFileName:="mah", FileFilter:="Excel Files (*.xls), *.xls", Title:="أدخل اسم الملف الذي تريد حفظه") If MyPath = "False" Then Exit Sub Application.DisplayAlerts = False Workbooks("MAH").SaveCopyAs Filename:=MyPath Application.DisplayAlerts = True End Sub

السلام عليكم ... حدد الخلية ومن القائمة Format انقر فوق الخيار Cells لتظهر لك نافذة التنسيقات . يمكنك اختيار وضعية وشكل وسمك الخط من الخيارات الموجودة ضمن التبويب Border. بالتوفيق

السلام عليكم ... بالنسبة لفهم طبيعة القوائم المنشئة ، لاحظ المرفق الموجود في هذه المشاركة. ولفرز القيم الموجودة في المجال A1:B10 وفي الورقة Sheet1 )وذلك تبعاً للقيم الموجودة في العامود A) بصورة تصاعدية : Sub Sort1() Sheets("Sheet1").Range("A1:B10").Sort Key1:=Range("A1"), Order1:=xlAscending End Sub وبصورة تنازلية: Sub Sort2() Sheets("Sheet1").Range("A1:B10").Sort Key1:=Range("A1"), Order1:=xlDescending End Sub MyList.zip

السلام عليكم ... للأسف لا يمكن ذلك ولكن يمكن التحايل بجعل الخط علوي أو سفلي ، لا حظ المثال الموجود في المرفق: m.zip

السلام عليكم ... شكراً أخي خضر على المساندة وبارك الله فيك. بس لاتحرمنا من شوفتك وطل علينا في منتدى الاكسل ولومرة واحدة في الأسبوع. تحياتي

السلام عليكم ... حسب علمي فإنه لا يمكن عمل ذلك ، ولكن هناك فكرة في ذهني سأجربها علها تنجح ولكني غير متفائل بنجاحها.

السلام عليكم ... يمكنك ذلك عن طريق توابع الـ API ، الكود : Private Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long Sub TurnOn() WinExec "C:\WINDOWS\system32\calc.exe", 10 End Sub

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