نجوم المشاركات

بارك الله فيك أخى وأستاذى ياسر وهذا كود أخر لحفظ مدى محدد بصيغة PDF Sub Save_Range_As_PDF() ActiveSheet.Range("A1:h53").ExportAsFixedFormat Type:=xlTypePDF, _ Filename:="H:\Test pdf File.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True End Sub غير الاسم والمسار الى ما تحب طبقت الكود على المرفق مثال بس غيرت اسم الملف فقط حفظ مدى محدد بصيغة PDF.rar

أخي الفاضل مروان إنت ليه عملت حساب جديد !! كان من المفترض إنك تعدل الحساب القديم وتغير اسم الظهور فقط عموما بالنسبة لطلبك في منتهى البساطة ..لو إنت عايز صفحة واحدة فقط من صفحات ورقة العمل .. تحدد النطاق للصفحة الأولى المراد عمل تصدير لها وتروح للتبويب Page Layout ثم تختار Print Area ثم تختار Set Print Area وأخيراً نفذ الكود صراحة حاولت في ملفك ولكن يبدو أن الملف به أمر غير طببيعي ولم أدرك ما هي مشكلته فقمت بتجربة الكود في ملف مرفق من عندي ليتضح لك أنه يمكنك تصدير صفحة واحدة فقط من صفحات ورقة العمل Save First Page Of Worksheet As PDF.rar

تفضل اخي الكريم مثال.rar

إخواني الأعزاء أعضاء المنتدى الجميل ، تعبت مرارا وتكرارا وإلحاحا ( حلوة إلحاحا دي ) على المشرفين يشرحوا لنا VBA وأوامره وأكواده وشفراته والتطبيقات الممكنة بيه وربطه باكسيل ، المهم لم أجد مجيب علما بان الموضوع لو كان اتفتح من البداية وكل مشرف حط له كود كل يوم كان زمانه خلصنا منه دلوقتي ، وكان الشرح هيبقى على ايد اساتذة فاهمين ومجربين انا لا الومهم بالطبع عارف ان كلهم مشغولين ، وعلشان كده قلت اترجم كتب ومواقع في الموضوع ده ولقيت إني بستفيد بصراحة ، وحبيت إن الكل يستفيد معايا ، بمعنى آخر أنا زيي زيكم بالضبط معلوماتي في الفيجوال مع اكسيل زي معلوماتكوا في الكيمياء الحيوية وعلاقتها بالعدسات اللاصقة ههههههههه ... ومع بعض واحدة واحدة خالص واللي هخلصه ترجمة وتنسيق أعرضه ليكم ، بداية بتعريف VBA , VBE والواجهة والأوامر وكيفية كتابة الأكواد والعمليات البرمجية ، وفي النهاية هعملكو زي مرجع شامل بكل الاوامر الممكنة وتعريف موجز بالامر او الكود وبيعمل ايه ومثال لكل واحد ، والله المستعان بندأ وبعون الله في الدرس الاول الجزء الأول ( مقدمة إكسيل VBA ) في هذا الجزء سوف تتعلم : ** لماذا إكسيل VBA ** محرر أوامر VBE الغرض من هذه الدورة هو إظهار كيف يمكن لمستخدمي إكسيل استخدام برمجة التطبيقات (VBA ) التي تأتي مع برامج أوفيس مجانا .. هذه الأداة ستساعدك إلى حد كبير على تعزيز قوتك في استخدام البرنامج الأكثر شعبية في جداول البيانات باستخدام VBA . برمجة الكمبيوتر في أيامنا هذه أصبحت أسهل بكثير ، وحتى ما يسمون الآن أناس عاديين يعرفون أن البرمجة هي ببساطة وضع تعليمات يقوم الكمبيوتر بتنفيذها . وبرمجة الإكسيل تعني أنه يمكنك إعطاء تعليمات وأوامر لإكسيل ليقوم بأدائها تلقائيا ، تلك التي كنت تقوم أنت بها يدويا ، وذلك يوفر وقتك كثيرا . أثناء قراءتك لهذا فإنها ستكون المراهنة على تصبح مبرمج إكسيل ، مما قد يكون نابعا من أن تصبح أكثر قابلية للتسويق ، وهذه الدورة وبطبيعة الحال سوف تتعلم برمجة إكسيل ، ومع انتهائها سوف تدرك جيدا مدى سهولة هذه العملية . في نهاية هذه الدورة ، فإننا سوف نتعلم تطوير التطبيقات البسيطة مع اكسل VBA. قبل البدء في تعلم كيفية البرمجة باستخدام VBE ، يجب عليك أولاً كيفية استخدام البرنامج اللازم لإنشاء المشاريع الخاصة بك ، إن تطوير البرمجيات بواسطة ( VBA ) مدرج مع كل من برامج ميكروسوفت أوفيس ، مما يوفر لك عددا من الأدوات في تطوير المشروع . 1) ما هو محرر فيجوال بيزك (Visual Basic Editor ) ؟؟ عليك استخدام المصنفات ، والصيغ والرسوم البيانية ، وغيرها من الأشياء الجيدة لإكسيل معظم الوقت ، حان الوقت الآن لتوسيع النطاق الخاص بك ، واستكشاف آفاق جديدة تماما من جوانب إكسيل ، إنه محرر الفيجوال بيزك Visual Basic Editor ، عليك معرفة كيفية استخدامه ، وتعكف على مهمة كتابة بعض أوامره . إن محرر فيجوال بيزك ( VBE ) هو عبارة عن برنامج منفصل عن طريقه يمكنك كتابة وتعديل VBA أو الماكرو ، وهو يعمل بسلاسة مع إكسيل ، ويمكنك تنشيط هذا المحرر (VBE ) عن طريق الضغط على{ Alt+F11 } عندما يكون إكسيل منشطا ، أو عن طريق استخدام القوائم من أدوات – ماكرو – محرر فيجوال بيزك .. كما بالشكل التالي : الشكل يوضح كيفية استدعاء محرر أوامر الفيجوال بيزك( VBE ) أ) شريط القوائم : تماما مثل أي برنامج آخر يمكنك استخدامه ، فشريط قوائم VBE يتضمن الأوامر المختلفة ومكوناتها ، يمكنك استخدام هذه الأوامر والمكونات في VBE على فعل الأشياء ، والعديد من أوامر القائمة لديها مفاتيح الاختصار المرتبطة بها . الشكل التالي يوضح واجهة محرر البرامج VBE والتي تحتوي على الكثير من المكونات .. ب) مستعرض المشروع (Project Explorer ) : نافذة عرض المشروع تعرض شجرة توضح كل المصنفات المفتوحة في ملف إكسيل الحالي ( بما في ذلك المصنفات الإضافية والخفية ) عندما تعمل على VBE تعتبركل المصنفات والإضافات المفتوحة كمشاريع ، يمكنك اعتبار أن المشروع هو عبارة عن مجموعة من objects أو كائنات رتبت حسب مخطط معين . اضغط على علامة ( + ) الموجودة على يسار اسم المشروع في نافذة عرض المشاريع لتوسيع المشروع . ج) نافذة الأكواد ( objects ) : يضم VBE أداة أخرى ، تحتوي على نافذة الأكواد Code window أو Module window ، كل object في المشروع يرتبط بنافذة أكواد خاصة به . على سبيل المثال ، للإطلاع على نافذة أكواد للورقة Sheet1 ، انقر نقرا مزدوجا فوق Sheet1 في نافذة مستعرض المشروع . وحتى تضيف بعض أوامر VBA فإنها ستظل فارغة ... د) مستعرض الكائنات (Object Browser ( : ويضم VBE أداة أخرى ، تحتوي على نافذة الكائنات المتاحة لك خلال المشروع ، للوصول إلى مستعرض الكائنات ، اضغط F2 في شاشة VBE ، أو من قائمة عرض ( VIEW ) – مستعرض الكائنات (Object Browser ) القائمة المنسدلة في الأعلى قائمة تحتوي على مكتبة بها جميع وجوه الكائنات المتاحة حاليا .,. إذا كنت ترغب في تصفح كائنات إكسل ، حدد إكسل من القائمة المنسدلة. هـ ) نافذة الخصائص (Properties Window ) : الشكل يوضح نافذة الخصائص لأحد الكائنات بالمشروع ، وهو على سبيل المثال (CommandButton1 ) أو زر أمر 1 ، فعندما تريد تغيير عنوان هذا الزر فإنك تغير في إعدادات Caption لهذا الزر وتضع أي عنوان تريده مثل ( اضغط هنا – خروج – حفظ ... ) يمكنك ايضا أن تلعب مع بعض الخصائص الأخرى مثل الخط ، الطول لون الخلفية العرض ، والارتفاع لتغيير مظهر CommandButton1 . موجز سريع : آمل أن أكون قد وفقت في الجزء الأول في عرض المقدمة وأساسيات البرمجة عن طريق VBA ببرنامج إكسيل ، وعليك أن تفتح محرر أوامر بيزك في إكسيل وحاول استعراض الكائنات الخاصة بالمشروعات وتغيير بعض الخصائص ... ومنتظر ردودكم أكمل والا لأ لانها بصراحة أول مرة أعمل موضوع بالشكل ده ...

السلام عليكم ورحمة الله وبركاته إخواني الأحباب في المنتدى الأغر .. أقدم لكم كود في منتهى الروعة ، يقوم بعمل خريطة (ليست الخريطة التي في مخيلتكم .. أنا معلم لغة إنجليزية ولست معلم دراسات اجتماعية) الكود يعتمد على إنشاء ورقة عمل جديدة .. لبدء العمل فيها بناءً على ورقة العمل النشطة التي يتم تنفيذ الكود بها .. ورقة العمل الجديدة تحتوي على خلايا ملونة وداخلها رموز .. للتعرف على القيم الرقمية والنصوص والمعادلات الموجودة داخل ورقة العمل النشطة .. 'وتلوينها باللون الأصفر[N]يتم ترميز الخلايا التي تحتوي على قيم رقمية بالرمز ' وتلوينها باللون الأخضر[T]يتم ترميز الخلايا التي تحتوي على قيم نصية بالرمز 'وتلوينها باللون الأحمر[F]بالرمز[Formulas]يتم ترميز الخلايا التي تحتوي على معادلات ويوضع الكود داخل موديول بهذا الشكل Sub QuickMap() If TypeName(ActiveSheet) <> "Worksheet" Then Exit Sub 'Create object variables for cell subsets إنشاء متغيرات للكائنات التي تمثل مجموعات الخلايا On Error Resume Next Set FormulaCells = Range("A1").SpecialCells _ (xlFormulas, xlNumbers + xlTextValues + xlLogical) Set TextCells = Range("A1").SpecialCells(xlConstants, xlTextValues) Set NumberCells = Range("A1").SpecialCells(xlConstants, xlNumbers) On Error GoTo 0 'Add a new sheet and format it إنشاء ورقة عمل جديدة وعمل تنسيق لها Sheets.Add With Cells .ColumnWidth = 2 .Font.Size = 8 .HorizontalAlignment = xlCenter End With Application.ScreenUpdating = False 'Do the formula cells التعامل مع الخلايا التي تحتوي على معادلات If Not IsEmpty(FormulaCells) Then For Each Area In FormulaCells.Areas With ActiveSheet.Range(Area.Address) .Value = "F" .Interior.ColorIndex = 3 End With Next Area End If 'Do the text cells التعامل مع الخلايا التي تحتوي على نصوص If Not IsEmpty(TextCells) Then For Each Area In TextCells.Areas With ActiveSheet.Range(Area.Address) .Value = "T" .Interior.ColorIndex = 4 End With Next Area End If 'Do the numeric cells التعامل مع الخلايا التي تحتوي على قيم رقمية If Not IsEmpty(NumberCells) Then For Each Area In NumberCells.Areas With ActiveSheet.Range(Area.Address) .Value = "N" .Interior.ColorIndex = 6 End With Next Area End If End Sub فائدة الكود تكمن في إمكانية التعرف على الأخطاء التي يمكن أن تتواجد في ورقة العمل .. . لنفترض أن لديك عمود به معادلات ، وعن طريق الخطأ تم إدخال قيم ثابتة في هذا العمود .. باستخدامك لهذا الكود سيكون بإمكانك وضع يدك على الخلايا التي بها قيم ثابتة في العمود الذي يحتوي على معادلات .. أتمنى أن ينال الملف المرفق رضاكم ، وأن تستفيدوا منه إن شاء الله عزوجل تقبلوا تحياتي القلبية ، ودمتم على طاعة الله Quick Map VBA.rar

حياك الله اخ احمد ابا ندى .. والحل من الرحمن قد اتى.. يعطيه من يشاء واحسن النوى ..

تفضل ! افتح التقرير !! بالتوفيق نتيجة الطلبة11.rar

أخي الكريم أقترح طرح موضوع جديد مع إرفاق ملف للتوضيح

ا / ياسر لا شكر على واجب ده كله من اعمالكم احنا بس بنحاول نساعد و دايما الابداع عندكوا بجد فكرة صح صح كانت غايبة عننا

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

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

أخى الكريم جدااااااا / ياسر خليل أبو البراء فعلاً هو المطلوب دائماً مبدع جزاك الله خيرا و زادك علماً و فى ميزان حسناتك بإذن الله

تفضل الاوائل على تقرير ترتيب الطلبة تقرير.rar

كتاب ممتاز لكن أساتذة المنتدى قدموا ماهو أفضل منه من وجهة نظرى

السلام عليكم ورحمة الله وبركاته وبعد اذن الاساتذة الفضلاء الاستاذ الكبير والفاضل // سليم حاصبيا والاستاذ الفاضل // أبوعيد تفضل استاذي الفاضل // ابو سليمان هذا تصور بسيط لما تريده فان كان هو فممكن نكمل لك باقي البيانات بيانات مستاجر -braa.rar

السلام عليكم كأنه نزل على قلبي ماء بارد فانتعشت وفرحت الله يحفظكم ويسلمكم على جهودكم تقبل الله منكم السلام عليكم

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

الاخ الكريم محمود 1980 .. سهلة جداً أضف سطر واحد بسيط في نهاية الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Cells.CountLarge > 1 Then Exit Sub If Target.Column = 2 Then Call Test End If Cancel = True End Sub اكتشف السطر بنفسك تقبل تحياتي

أخي الكريم مصطفى يرجى تكبير حجم الخط قليلاً (النظر ضعيف ..) وأمر آخر لا تكتب كلمة طلب أو مساعدة أو عاجل أو أي من هذه الكلمات في عنوان الموضوع (تم التعديل وحذف كلمة طلب) جرب هذا الكود ..يقوم بطباعة الأوراق المخفية والظاهرة ..جميع أوراق العمل كافة Sub Print_Hidden_And_Visible_Worksheets() Dim CurVis As Long Dim sh As Worksheet For Each sh In ActiveWorkbook.Worksheets With sh CurVis = .Visible .Visible = xlSheetVisible .PrintOut .Visible = CurVis End With Next sh End Sub تقبل تحياتي

تفضلو !! وعلى فكرة : هذا الحل يشبه حلول الاستاذ جعفر! وفكرتك اخي ابو ندى صحيحة واذ حبيت ننفذها لك !! حاضرين !! دعواتكم في هذا اليوم المبارك !! نتيجة الطلبة1.rar

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

عفوا يا عمرو ماكنتش واخد بالى من الـــ 1500 ملف دى كنت فاكر أنهم 3 عشان كده عملت الكود بالشكل ده وربطت الشيتات ببعض على العموم تحياتى وان شاء الله تجد الحل

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

أخي الفاضل.. جرب المرفق بعد إضافة هذا الكود في حدث عند الخروج من الحقل nambook Dim rst As Recordset Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst![seq] = Me![seq] And rst![typ] = Me![typ] And rst![year1] = Me![year1] And rst!nambook = Me!nambook Then MsgBox " هذا الكتاب مكرر بنفس الإسم والسنة والرقم التسلسلي ", vbExclamation + vbMsgBoxRight + vbMsgBoxRtlReading, " تنبيه لا يمكن تسجيله" Me.Undo DoCmd.CancelEvent [seq].SetFocus Exit Do End If rst.MoveNext Loop rst.Close اتمنى يكون المطلوب sadra----UP.rar

تفضل فك ضغط الملف على C أو D images.rar

الحمد لله الذي بنعمته تتم الصالحات والحمد لله أن تم المطلوب على خير .. وتصبح على خير أخي الكريم سعد .. أستودعك الله

السلام عليكم ورحمة الله وبركاته ارجو عمل كود لمسح صفحات عمل بناء على نطاق خلايا Copy Sheet Based On Range Values YasserKhalil.rar

الأخ الكريم مصطفى إليك الملف التالي Sub DeleteSheets() Dim I As Long Dim WS As Worksheet, SH As Worksheet Set WS = Sheets("بداية") Application.ScreenUpdating = False Application.DisplayAlerts = False For I = 3 To 10 For Each SH In Worksheets If WS.Cells(I, "B").Value = SH.Name Then SH.Delete Next SH Next I Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub تقبل تحياتي Delete Sheets Based On Range Values YasserKhalil.rar

الأخ الفاضل عمرو طلبة إليك الملف التالي عله يفي بالغرض Sub LoopThroughAllWorkbooks() Dim FolderPath As String, FileName As String Dim WBK As Workbook Dim SH As Worksheet FolderPath = ThisWorkbook.Path & "\Collections\" FileName = Dir(FolderPath & "*.xl*") Application.ScreenUpdating = False Do While FileName <> "" Set WBK = Workbooks.Open(FolderPath & FileName) For Each SH In WBK.Worksheets If Not IsEmpty(SH.Range("A1")) And SH.Range("A1").Value = "شركة حياة للطاقة و المياه" Then SH.Range("A1").Value = "شركة حياة لخدمات المياه" End If Next SH WBK.Close SaveChanges:=True FileName = Dir() Loop Range("A1").Select Application.ScreenUpdating = True End Sub أرجو أن يفي بالغرض Loop Through All Workbooks To Change String.rar

الحمد لله الذى تتم بنعمته الصالحات

تفضل يا أبو سليمان بعد فك الضغط عن المرفق سوف تجد ملفاً باسم الرئيسية ضعه فى المجلد mokhtar get data for bosoliman كن حذرا مع الملف إذ به معادلات واحتفظ بالملف المضغوط كنسخة احتياطية الشرح بعد ما تبدى رأيك تحياتى الرئسية.rar

أرجو أن تقرر ياأخي بعد الحذف يترحل باقي الجدول لأعلي أم لليسار

السلام عليكم اولا هذه الملفات ليست لى بل هى من ابداع الاستاتذه الكبار فى هذا الصرح الكبير وصرح اخر كبير اتمنى من الله ان يعود الينا وهوا الفريق العربي للبرمجه ومجموعه كبيرة من المواقع وهى موجوده بمكتبتى واحببت ان اضغها هناا ليستفيد منها طلاب العلم مثلى ولخوفى عليها من الضياع ____________________ مع خالص شكرى وتقديرى الى الاساتذة الكبار اصحاب هذه الامثله جعلها الله فى ميزان حسناتهم يوم القيامة ( اللهم بارك لهم فى علمهم وفى رزقهم وفى اهلهم يا اكرم الاكرمين يا الله ) تسعة أمثله للبحث منها مثال للبحث بطريقتين لأبو هاجر.rar مثال من تصميم أحد الأخوة فيه عدة أمثلة على نماذج و تقارير مختلفة.rar FileSize-مثال مهم جدا يعرض لك حجم المكونات الفعلية للبيانات.rar ربط قاعدة البيانات حسب الاختيار (المثال بعد التعديل).rar ChooseReportFromList2_2k-مثال على كيفية اختيار اسم التقرير المطلوب من لائحة ListBox.rar مثل الصلاحيات.rar CtlGroups-مثال للتحكم بخصائص مربعات النص من خلال أزرار الاختيار ف يالنموذج.rar sHIFT-مثال للتحكم في خصائص تشغيل أي ملف أخر , مثل السماح باظهار صفحة بيانات الملف أو استخدام المفاتيح الرئيسية او اظهار شريط الأدوات أو ... الخ.rar Tree- مثال على البنية الشجرية - تصميم أبو هادي - أوفسينا.rar findrecord2k--مثال مفيد جدا لمن يحتاج المساعدة في بناء الاستعلامات بسهولة كبيرة.rar Animation2k-مثال رائع على استخدام خاصية المؤقت في النموذج Timer لصنع ساعة - أشكال متحركة مختلفة.rar Atomatic_Record_Scrolling-مثال يجعل النموذج ينتقل تلقائيا من سجل للسجل الذي يليه - استخدام المؤقت في النموذج.rar AutoBkUp2K-- مثال لعمل نسخ احتياطي تلقائي لقاعدة البيانات.rar UpdateDirect2k - مثال على الاستيراد و التصدير المبرمج.rar

بعض اعمال الاستاذه الكبيره زهره بارك الله فيها المواضيع الممزة لها بالمنتدى http://www.officena.net/ib/index.php?showtopic=10405 za_arrangement_UP.rar zaAccessDiaryDaily_v.2.rar za-Aziz03-END.rar zaChangeResolution2006_UP.rar za-Database2-LAST- من والى المدرسة 2.rar za-Database2-UP- التحويل من والى المدرسة.rar za-ditingup-UP.rar za-ditingup-UP_2.rar za-NA-Copy-Report -عدد نسخ التقرير المطلوبة للطباعة.rar za-Nadih-Last.rar za-Nadih-Last-4.rar za-SplitName- تقسلم الاسم 2.rar za-SplitName12-UP - تقسيم الاسم.rar za-SplitName12-UP.rar za-Students-Rank-END.rar za-Students-Rank-ENDs.rar za-Students-Rank-العشرة الاوائل.rar zaTextEffectScrollingUP - نص متحرك.rar za-Translate v 1.1-برنامج الترجمة.rar za-توزيع الاسم.rar

ونكمل بأمر الله SubQuery2k- مثال على استخدام الاستعلام الفرعي داخل الاستعلام لاستخراج قيم تجميعية.rar SynchronizedSubforms2k - مثال على كيفية مزامنة نموذجين فرعيين ضمن نموذج رئيسي.rar TimeDiff- مثال على كيفية حساب الفرق في الوقت و التاريخ.rar TimeDiffrent- مثال يعرض الفرق بين تاريخين بالساعه.rar Unbound2k -مثال لاضافة حقول غير منضمة الى الجدول و الى قائمة لائحة ListBox.rar WipeEffects - مثال لاغلاق النموذج بعدة طرق انسايبية.rar مثال على كيفية اضافة أقساط المتبرعين لعدد 12 شهرا بطريقة اتوماتيكية.rar مثال كيفية اضافة صورة للموظف او طالب وايضا اظهارها في التقرير 2003.rar مثال كيفية اضافة صورة للموظف او طالب وايضا اظهارها في التقرير.rar مثال لاخفاء شاشة الأكسس الرئيسية عند فتح الملف.rar مثال لعرض الأرقام الشاغرة بين رقمين.rar

الجذء الثانى animation- مثال لكيفية فتح النموذج بعدة طرق انسيابية -.rar AuditTrail2k-مثال لضبط و رقابة سجلات الملف.rar AutonumberProblem2k-مثال بسيط لعمل ترقيم تلقائي مبرمج من خلال ادخال البيانات من النموذج فقط حيث سيتم اضافة رقم تلقائي لكل سجل جديد.rar calendarsolution-مثال على نموذج فيه زر يفتح التقويم.rar CascadingComboBoxes2K-مثال لكيفية تصفية مربع تحرير و سرد بناء على قيمة مقابلة من مربع تحرير و سرد آخر.rar ChangeBackColor-مثال للتحكم بلون خلفية النموذج و تغييرها من نفس النموذج.rar clipboard2k-مثال لكيفية النسخ و اللصق من و الى الحافظة.rar CndFrmt-مثال لكيفية تلوين السجل الحالي في النموذج المستمر بلون مختلف.rar ConditionalFormatting2k-مثال على التنسيق الشرطي بعدة طرق مختلفة للنماذج.rar CrosstabReport2k-مثال على صنع تقرير مبني على استعلام جدولي محوري CrossTab_Query.rar CurrentTab2k-مثال للتنقل بين حقول الصفحات Tab Pages من خلال زر أمر.rar FormSubform2k---مثال يبين كيفية توظيف الدوال لاستخراج نتائج بيانات النموذج الفرعي من خلال النموذج الرئيسي.rar HighLightComd-مثال لنموذجين فيهما عدة أزرا أمر , بمجرد تحريك الفأرة فوق أحد الأزرار يتغير لون نصه الى الأخضر.rar MultiReport - مثال لطباعة عدة تقارير دفعة واحدة.rar MultiReport up - مثال لطباعة عدة تقارير دفعة واحدة - النسخة الصح.rar NumberLettrs-مثال لتحويل الأرقام الى حروف - كتابة الرقم كتابة من أجل التفقيط.rar Openargs2k-مثال فيه فائدة كبيرة على طريقة استخدام قرائن فتح النموذج OpenArg بشكل بسيط و متعدد.rar Openargs2k-مثال فيه فائدة كبيرة على طريقة استخدام قرائن فتح النموذج OpenArg بشكل بسيط و متعدد.rar OrderListBox2k -مثال على كيفية التحكم بترتيب عناصر لائحة ListBox من خلال زر أمر.rar ParaQueryDelete2k -مثال لتشغيل استعلام حذف سجلات بناء على قيمة معينة مختارة في النموذج.rar ParaQuerySelect2k -مثال قريب للمثال السابق لكن لتشغيل استعلام اختيار حسب قيمة معينة و ليس حذف.rar ProgressBar2000--مثال على استخدام شريط التقدم الأزرق Progress Bar.rar ReadWriteWord - مثال على كيفية ارسال بيانات الى ملف وورد , و فتح ذلك الملف بعد انشائه.rar Rotateit_مثال لالتفاف مربع نص من اليمين الى اليسار أو بشكل آخر.rar search_form1- مثال على البحث المتقدم في أكثر من حقل.rar Search-مثال على البحث مع تجاهل التشابه في الحروف.rar SequenceDancing-مثال على استخدام المؤثرات البصرية في جعل الكائنات تتحرك باشكال هندسية.rar StringStuff2k - مثال على كيفية تغيير تنسيقات الحقول.rar SubForm3Levels2k - مثال على نموذج يحوي نماذج فرعية بثلاثة مستويات.rar SubformReference2k - مثال على كيفية الاشارة من النموذج الرئيسي الى اي عنصر من عناصر النموذج الفرعي.rar

أخي الحبيب غسان إليك الملف المجاني .. وعيوني للأخوة الأعضاء Functions 2013-EN-US (free-unlocked).rar

عذرا هذا هو المرفق 1.rar

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

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

السلام عليكم ورحمة الله وبركاته إخواني الكرام أقدم لكم كود يقوم بمعرفة دقة الشاشة لديك .. كل ما عليك أن تضغط على زر الأمر .. وستظهر لك رسالة تعلمك بدقة الشاشة أم ما يسمى Screen Resolution .. أتمنى أن يفيدكم هذا الكود تقبلوا تحياتي Determining Video Resolution.rar

الدرس الاول: * شرح تسجيل ووضع وصف وإختصار للماكرو وطريقة استدعائه بإذن الله الموضوع مطروح للاستفسارات والنقاش لمدة يومين بعدها سيكون معكم الاستاذ ابو عبدالله في شرح لطريقة حذف الماكرو شرح الكود.rar

بسم الله الرحمن الرحيم والله يا جماعة أحرجتوني كتير جدا بالكلمات الجميلة والأهم منها الدعوات اللي فعلا أنا محتاجها جدا بصراحة مكنتش متخيل الاستجابة دي كلها وده اللي هيخليني بإذن الله إن شاء الله أكمل معاكو الدورة لآخرها إن شاء الله شكرا لكم جميعا وأفكركم بس إني أتعلم معكم تماما ، ولا تنسونا من دعواتكم الدرس الثاني الجزء الثاني ( الماكــرو Macro ) في هذا الجزء سوف تتعلم : ** عملية تسجيل الماكرو .. ** كيفية جعل مهمة معينة عملية أوتوماتيكية .. 1) تسجيل أول ماكرو لك ... يمكنك استخدام مسجل الماكرو الموجود أصلا في إكسيل ليترجم إجراءاتك في محرر أوامر VBA ، وبعد انتهاءك من تسجيل الماكرو يمكنك أن ترى أكواد هذه العلمية في مستعرض الأكواد Module window ، وقبل عملك للماكرو قم بتحديد الخطوات والإجراءات والأوامر التي تريد من الماكرو أدائها ، واعلم جيداً أن أية حركة أو إجراء ولو بسيط تقوم بعمله أثناء تسجيل الماكرو سيتم تسجيله في محرر VBA تلقائيا واعتبارها عملية أو أمر من الأوامر .. ** في هذا المثال ، سنقوم بتسجيل ماكرو يقوم بتحديد لون خلفية الخلية إلى اللون الأصفر. لتسجيل الماكرو ، اتبع الخطوات التالية : أ) حدد المدى على ورقة العمل ثم اختر تسجيل ماكرو جديد... ( من قائمة أدوات ثم ماكرو ثم تسجيل ماكرو جديد ) ب) في مربع حوار تسجيل ماكرو ، أكتب "SetBackgroundColor" في مربع نص اسم الماكرو . اترك باقي الخيارات الافتراضية كما هي ثم انقر على زر موافق وهذا يبدأ تسجيل الماكرو .. ج) في لوحة لون التعبئة ، اختر مربع اللون الأصفر الفاتح وهذا العمل سوف يحدد اللون الأصفر كلون خلفية لمجموعة خلايا قمت بتحديدها . د) لإيقاف عملية تسجيل الماكرو ، انقر على زر إيقاف التسجيل (مستطيل أزرق داكن) على شريط أدوات تسجيل ماكرو. نعم أنت الآن قمت بعمل ماكرو جديد ، وأعطيته اسم معين ، ومهمة أو إجراء معين يقوم بعمله .. والآن فإن الماكرو المسجل قابل للاستخدام ويمكنك تشغيله ، وقبل استخدامه دعنا نلقي نظرة على بناء الجملة داخل VBE .. قم بالضغط على [Alt] + [F11] في نفس الوقت لفتح محرر VBA ، قم بتوسيع مستعرض وحدات المشروع Module1 في مجلد Project Explorer بالنقر على علامة (+) . انقر نقرا مزدوجا فوق مجلد Module1 حتى يمكنك أن ترى الماكرو .. وكما يبين الشكل فإن : 1- اسم الماكرو هو (SetBackgroundColor ) 2- رقم اللون المختار كخلفية ( 36 ) 3- نمط الخلفية (solid ) أي سادة . ملاحظة مهمة : حرف الفاصلة باللون الأخضر بمقدمة السطر تعني أنه مجرد تعليق وسيقوم VBA بتجاهله ، يمكنك دائما إدراج التعليقات عن طريق القيام بذلك . 2) تشغيل الماكرو الذي قمت بتسجيله .. يمكننا تشغيل الماكرو داخل VBE ، ولكننا الآن سنقوم بتشغيل الماكرو داخل ورقة العمل . أ) في أي ورقة عمل قم بتحديد نطاق معين .. ب) تشغيل الماكرو المسجل عن طريق اختيار قائمة أدوات --- ماكرو --- وحدات ماكرو أو اضغط على [Alt] + [F8] في نفس الوقت ج) يتم عرض مربع حوار ماكرو . ولما كان هناك واحد فقط في وحدات الماكرو ، افتراضيا الماكرو الوحيد ، يتم اختيار SetBackgroundColor. وهو اسم الماكرو الذي قمنا بتسجيله ، انقر على زر تشغيل لتشغيل الماكرو . د) سيتم تلوين الخلايا الآن باللون الأصفر الفاتح كما نريد . هـ) يمكنك تعديل الماكرو ، وذلك من خلال محرر VBA ، ثم نستعرض أكواد الماكرو ( نافذة الأكواد ) ومن ثم نعدل في البرمجة الخاصة بهذا الماكرو ففي مثالنا هذا يمكننا تغيير ColorIndex = 3 أي أن اللون بدلا من أن يصبح أصفر فاتح يصبح أحمر مثلا . و) يمكننا كذلك أن نضيف ماكرو في شريط الأدوات ، وذلك من خلال عمل زر أمر ( قائمة عرض View– أشرطة الأدوات Toolbars – -- مربع أدوات التحكمControl Toolbox. ) ، ثم بعد ذلك اختيار زر أمر ، وبعد ذلك عمل هذا الزر على ورقة العمل ، بمجرد عمل هذا الزر سيطلب البرنامج تعيين ماكرو من قائمة وحدات الماكرو ليكون الخاص بهذا الزر ( أي أننا نخصص ماكرو معين يتم تشغيله بمجرد الضغط على هذا الزر ) ز) يمكنك بعد ذلك تغيير اسم الزر ، أو حتى الدخول إلى VBE عن طريق هذا الزر وتعديل الماكرو كل ذلك عن طريق الضغط بالزر الأيمن للفارة على زر الأمر واختيار تحرير النص لتغيير اسم الزر ، أو تعيين ماكرو وبعدها تحرير لتدخل في VBE . ح) الآن بمجرد ضغطك على زر الأمر فإنك تعطي أمر بتشغيل الماكرو الذي سجلته . ملحوظات هامة : 1-يمكنك استخدام ماكرو التنفيذ المتكرر ، وذلك بإضافة سطر أمر لكود الماكرو كالتالي : ActiveCell.Offset(1,0).Select عند النقر على الزر الآن فإنه بعد تنفيذ أمر تغيير الألوان للخلايا النشطة فإنه سينزل صف واحد لأسفل … 2- لماذا في بداية تسجيل الماكرو قمنا بتحديد أي نطاق أولا وبعد ذلك قمنا بما فعلناه من خطوات ؟ ذلك أننا بذلك أعطينا أمر للماكرو بأن يتم التطبيق فقط على الخلايا النشطة من ورقة العمل . 3) الملخص .. هكذا قمنا بعمل ماكرو ، وتشغيله ، وربطه بزر على ورقة العمل ، وقمنا بالتنفيذ المتكرر . هكذا أيها الأخوة انتهينا من الدرس الثاني بعون الله تعالى وحفظه ، وأرجو المعذرة على التقصير وأتمنى من الأخوة المشرفين ( كما قال الأخ aah ) بأن يتفاعلوا مع الأخوة الأعضاء والرد على استفساراتهم وأسئلتهم بالأمثلة والحلول جزاكم الله جميعا ألف خير ، وإن كان فيه أخطاء إملائية فهذا من سرعة الكتابة فقط وأرجو التنبيه لأصححها لأنني بصدد رفع تلك الملفات ( ملفات الشرح ) على الموضوع أيضا لمن أراد ذلك ...