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

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

يفضل طرح موضوع جديد لكل طلب جديد تيسيراً للبحث فيما بعد

السلام عليكم و رحمة الله وبركاته بعد الشكر لأخي محمود ابو الذهب انظر الرابط

اخى اولا اقرء شروط المنتدى وخاصتنا شرط الاسم ثانيا برجاء ارفاق ملف للعمل عليه

بعد إذن الاستاذ ياسر زيادة في الفائدة https://www.officena.net/ib/topic/62692-حفظ-الصفحات-pdf/#comment-419651

أثناء مروري بأحد المواضيع في منتدانا الطيب ومن خلال المشاركات كان لأخي الحبيب أبو أحمد - عبدالله المجرب ، تعليق وطلب لشرح تركيب جملة SQL ، .... http://www.officena....=0 ومنها راودتني نفسي أن أجهز سلسلة لشرح ما يفتح عليّ ربي عن SQL ، وقد باشرت بالعودة لمراجعي ومواقعي المعتمدة ، وما لدي من ملاحظات و ( خرابيش ) في كشكولي ، وعقدت العزم ووجهت النية ... لوجه الله تعالى ، لا أبتغي منكم أجراً ولا (مديحاً) ، إن أجريَ إلا على الله ، وهو حسبي ، وهو المستعان . ورغم أن لغتي الإنجليزية ممتازة (أدعي) ، إلا أنني قررت الاستعانة بإبني البكر آدم في بعض الترجمات الفنية ، تخفيفاً على نفسي ، وتكثيفاً للجهد ، فأعينونا بالدعاء. راجياً من المولى عزّ وجلّ أن يعيننا على الخير ، وهو المستعان بحق وجزاؤه المرتجى ... والله من وراء القصد ... وهو حسبي ........................

برنامج حسابات العملاء تسجيل ومتابعة حسابات العملاء عن طريق خمسة حركات مختلفة (فاتورة بيع - مرتد مبيعات - سند قبض - اشعار خصم - اشعار اضافة ) الحل الامثل لضبط ومراجعة الحسابات لتحميل البرنامج اطغط على الرابط التالى http://a7lashare.com//uploads/files/A7lashare-9e7ce016c8.rar مميزات البرنامج تسجيل فاتورة البيع بالقيمة تسجيل فاتورة مرتد المبيعات بالقيمة تسجيل سندات القبض الخاصة بكل عميل تسجيل اشعار خصم - حركة دائنة تسجيل اشعار اضافة - حركة مدينة قاعة بيانات للعملاء تسمل كود العميل واسمة وعنوانة وتليفونة والمنطقة التابع لها لعمل افضل التقارير العمل بـ id مسريل من داخل البرنامج لكل عملية تسجيل بعيدا عن رقم الفاتورة او السند * امكانية المعاينة والتعديل على اى عملية تسجيل تمت بمنتهى السهولة تسجيل اسم المندوب فى كل عملية تسجيل لأعدات التقرير الخاصة بكل مندوب مع العملاء الخاصين به سرعة هائلة فى التسجيل وحفظ البيانات النسخة الاحتياطة هى مجرد كوبى من ملف الاكسيل مع امكانية اخذ نسخة من البيانات المسجلة على ملف اكسيل جديد تصدير التقرير الى ملف خارجى لأرسالها بالميل او لاى غرض اخر بعيد عن البرنامج العمل بأعلى كفائة على الشبكة الداخلية وبأبسط الطرق adminصلاحية لـ 9 مستخدمين والصلاحية الرئيسية لـ admin اسم مستخدم وكلمة سر لكل مستخدم يعرفوا عن طريق تقارير البرنامج كشف حساب لكل عميل تقرير تفصيلى عن كل مندوب تقرير عن حركة معينة بيع - مرتجعات - تحصيلات كشف بأرصدة العملاء كشف تحليل مديونية العملاء موضح فية نسبة التحصيل الى المديونية لكل عميل قائمة تحليل المبيعات موضح بها اجمالى المبيعات والمرتجعات والمتحصلات والخصومات وصافى المسحقات تقرير حركة يومى لمتابعة جميع العمليات المسجلة فى يوم محدد افضل طرق رقابة على المستخدمين وسهولة اكتشاف اخطأ المستخدم فى اثناء عملية التسجيل

قريبا ان شاء الله مع الشرح = = = = = = = ‏الثلاثاء‏ 21‏/11‏/1432هـ الموافق ‏18‏/10‏/2011م نظام المستوعات و متابعة المخزون الفكرة من اعداد اخي اسامة العضو في هذا المنتدى هو نظام اكسل يهدف لحساب حركة المخزون لعدد 4 عمليات وهي (استلام + صرف + ارجاع + شطب) المميزات و الخصائص 1. يمكن تسجيل عدة مستخدمين للملف تصل الى 11 مستخدم 2. يمكن تسجيل اضناف او مواد حتى 9000 صنف او مادة 3. قائمة المواد المخزنة مع ملخص بياناتها 4. كل الحركات المسجلة للمواد 5. نموذج خاص لإضافة أي مواد جديدة 6. نموذج للبحث في قائمة المواد 7. البحث خلال فترة محددة عن أي مادة اسماء المستخدمين وكلمات المرور الحالية هي: Admin = 123 موظف 2 = 22 Super_Stores.rar

تحية طيبة اخي شيفان كما ذكرت سابقا البرنامج يعمل على 2003 فقط و اصدار 2003 يصدر التقرير بصيغة htm و ليس html يمكنني القول انك الهمتني الحل 90 %

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

السلام عليكم .. جرب الكود التالي عله يفي بالغرض Sub TransferNonAdjacentUsingArrays() Dim ws As Worksheet Dim sh As Worksheet Dim kName As String Dim arr As Variant Dim temp As Variant Dim i As Long Dim j As Long Dim p As Long Set ws = Sheets("بيانات الطلاب") Set sh = Sheets("سجل قيد الطلاب المستجدين") kName = "مستجد" Application.ScreenUpdating = False arr = ws.Range("B17:T" & ws.Range("B" & Rows.Count).End(xlUp).Row).Value temp = sh.Range("B11:P" & UBound(arr, 1)).Formula For i = 1 To UBound(arr, 1) If arr(i, 5) = kName Then p = p + 1 temp(p, 2) = arr(i, 2) temp(p, 4) = arr(i, 7) temp(p, 5) = arr(i, 8) temp(p, 6) = arr(i, 9) temp(p, 10) = arr(i, 13) temp(p, 11) = arr(i, 4) temp(p, 12) = arr(i, 5) temp(p, 14) = arr(i, 11) temp(p, 15) = arr(i, 12) End If Next i If p > 0 Then sh.Range("B11").Resize(p, UBound(temp, 2)).Value = temp Application.ScreenUpdating = True End Sub

وهذا ملف اخر بردو معادلات hor_to_vert.rar

بارك الله فيك استاذ ياسر هذا تعديل جيد لكن هل يمكن ان يقوم الكود بانشاء المجلد في مسار الملف و تسميته بدون ما اقوم انا بانشاء المجلد اي يقوم الكود اليا بانشاء المجلد وشكرا طلب اخير استاذ ياسر فضلا و تكرما منك ان امكن : - لقد اعجبني هذا الكود نظرا لاختصاره و فعاليته اريد الكود نفسه مختصرا يقوم بنفس العمل لكن لا يحول الى صيغة pdf لكن يحفظ نسخة من الملف بأكمله بصيغة (.xlsx) لكن الملف بأكمله و ليس كل ورقة على حدة ...بارك الله فيك و مليون تريليون شكرا على مرورك الطيب و ردودك المفيدة .

استبدل هذا الجزء "Exported.pdf\ بهذا الجزء \" & ThisWorkbook.Name & ".pdf"

الاستاذ الفاضل / ناصر البقاء لله يااخى الفاضل فى اخيك واسكنه الله فسح جناته ويتغمده الله برحمته والهم الله الاسرة الصبر والسلوان فضل حسين

أخي ناصر رحم الله أخاك رحمةً واسعة وأدخله الفردوس الأعلى من الجنة

حدد المطلوب بالضبط ليتمكن الأخوة من الرد في الموضوع بدلاً من الرفع بدون فائدة .. وضح بالصور واجعل المطلوب شيء واحد فقط مع وضع بعض النتائج المتوقعة .. حدد أوراق العمل المطلوب العمل عليها والنطاقات والخلايا إلخ ...التفاصيل مهمة

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

Nouvelle image.bmp Nouvelle image2.bmp الصورة الاخيرة فيها شرح مبسط للمطلوب image.bmp

لم أفهم المطلوب ..

السلام عليكم استاذ ياسر لكن لم يتم وضع ملف pdf المحول داخل مستند

وعليكم السلام 015-Export Specific Sheets To One PDF File YasserKhalil.rar

حمل الملف التالي فيه ما تطلب https://www.file-upload.com/7qfl4h0vguh9

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

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

رحمه الله برحمته الواسعة إن شاء الله

تحديد رقم آخر صف فإذا كان يساوي 7 تظل قيمة آخر صف 7 أما خلاف ذلك فيجلب رقم آخر صف ..

بارك الله فيك أخي سليم ..حل جميل وممتاز لي تعليق بسيط بخصوص استخدام الحلقات التكرارية مرتين .. لما لا يتم عمل حلقة تكرارية واحدة فقط بهذا الشكل Private Sub UserForm_Activate() Dim i As Integer For i = 6 To 10 Me.Controls("label" & i - 5).Caption = Range("l" & i - 3) Me.Controls("label" & i).Caption = Evaluate(Application.WorksheetFunction.SumIf(Range("B2:B11"), Me.Controls("label" & i - 5).Caption, Range("C2:C11"))) Next i End Sub

بارك الله فيك أخي الحبيب ومعلمي الكبير أحمد يعقوب وهذا ملف للأستاذ الكبير محمد الريفي بالمعادلات إثراءً للموضوع Transpose Rows And Columns.rar

بااااااارك الله فيك أ. سليم وسدد خطاك

وعليكم السلام Private Sub id_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 27 Then DoCmd.CancelEvent 'DoCmd.Close End If End Sub على اعتبار الحقل اسمه id

مثالك المرفق بعد تعديل اللغة يختلف عن الاصل لو رجعت الى الاستعلام لوجد ان المعيار غير موجود في المثال الجديد الآن انا قمت باعادة المعيار الى الاستعلام وهو يبحث الآن راجع تصميم الاستعلام يوجد معيار الايرادات غير موجود معدل3.rar

اليك هذا لكي تعلم اكثر

تم معالجة الامر قائمة مع VLOOKUP salim.rar

وعليكم السلام دعك من تحميل الملف المهم الكود .. استخدم الكود الموجود في الموضوع .. الملف ما هو إلا مثال تطبيقي على الكود Sub Create_PDF_Files_For_Each_Sheet() Dim Ws As Worksheet Dim Fname As String Application.ScreenUpdating = False For Each Ws In ActiveWorkbook.Worksheets On Error Resume Next Fname = ThisWorkbook.Path & "\Exported " & Ws.Name Ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Fname, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False Next Ws Application.ScreenUpdating = True MsgBox "Done...", 64 End Sub

شرح لكيفية إستخدام جملة التكرار For ... Next الشكل العام لجملة التكرار إستخدام العنصر STEP كيفية الخروج من الحلقة التكرارية Exit for ForNextLoop.rar

للامانة العملية هذا العمل منقول من موقع office نقلته لكم وقمت بالعمل على تنسيقه فقط اولاً : استخدام VLOOKUP تبحث VLOOKUP عن قيمة في العمود في أقصى يسار الجدول، ثم تُرجع قيمة في الصف نفسه من عمود تحدده في الجدول. (يشير الحرف V في VLOOKUP إلى عمودي). لتوضيح ما تقوم به VLOOKUP، سنلقي نظرة على مهمة نستخدم فيها البيانات الموجودة في النطاق B3:C11 — يظهر في الصورة التالية — لإرجاع المعدلات بالساعة في النطاق F3:F11، للأسماء المدرجة في النطاق E3:E11. تجدر الإشارة إلى أن الأسماء في E3:E11 مدرجة بترتيب مختلف عن الأسماء في B3:B11. المنطق البسيط المستخدم هنا هو: البحث عن اسم مدرج في النطاق E3:E11، ضمن النطاق B3:B11. ثم إرجاع المعدل بالساعة لذلك الاسم، المدرج في النطاق C3:C11، ووضع المعدل في النطاق F3:F11. الصيغة المطلوبة لتنفيذ ذلك هي: ‎=VLOOKUP(E3,$B$3:$C$11,2,FALSE)‎ لفهم هذه الصيغة، يجب مراعاة بناء جملة الدالة VLOOKUP: VLOOKUP(lookup_value,table_array,col_index_num,range_lookup)‎ سنقسّم الآن الوسيطات في بناء الجملة لهذا المثال المحدد: lookup_value الإشارة إلى الخلية التي تحتوي على القيمة التي تريد البحث عنها. وبالتالي، بالنسبة إلى الخلية F3 تكون قيمة lookup_value هي E3. table_array تشير table_array هنا إلى النطاق الذي يحتوي على كل من البيانات التي تبحث عنها والبيانات التي تريد إرجاعها. في هذا المثال، النطاق B3:C11 هو القائمة التي سيتم منها إرجاع المعدل بالساعة. col_index_num الإشارة إلى رقم العمود ضمن النطاق $B$3:$C$11 الذي يضم البيانات التي تريد إرجاعها. في المثال الذي قدمناه، يقع المعدل بالساعة في العمود 2. range_lookup تحدد هذه القيمة إن كنت تريد أن تبحث الدالة VLOOKUP عن تطابق تام أو تطابق تقريبي. إذا كانت قيمتها تساوي TRUE أو إذا تم حذفها، فيمكن إرجاع تطابق تام أو تقريبي. لكي تعمل هذه الوسيطة بشكل صحيح، يجب وضع القيم في العمود الأول من table_array بترتيب فرز تصاعدي. وإذا كانت قيمتها تساوي FALSE، كما في هذا المثال، فستعثر الدالة VLOOKUP على التطابق التام فقط. وفي هذه الحالة، لا حاجة إلى فرز القيم في العمود الأول من table_array. الأخطاء التي قد تنتج من إدراج البيانات أو حذفها سنعالج الآن بعض التعقيدات التي تبرز في الصيغة. استخدام ISERROR للتعامل مع اسم مفقود إذا حذفنا الاسم Sue P من الخلية B9، فسنحصل على النتيجة ‎#N/A في الخلية F5 نظرًا لعدم تمكّن الصيغة من العثور على الاسم في النطاق B3:C11 في الخلية F5. لإخفاء قيمة الخطأ، تكون الصيغة على الشكل التالي: ‎‎‎‎‎=IF‎(ISERROR(VLOOKUP(E3,$B$3:$C$11,2,FALSE))‎,"",VLOOKUP‎(E3,$B$3:$C$11,2,FALSE))‎ المنطق الأساسي المستخدم هنا هو: إذا كانت الصيغة ترجع قيمة خطأ، فيجب إظهار قيمة فارغة في هذه الخلية؛ أو إظهار المعدل بالساعة. استخدام MATCH للتعامل مع الأعمدة المدرجة كما رأيت في الدالة VLOOKUP أعلاه، تم إدخال col_index_name كـ 2، وبالتالي فإن الصيغة غير ديناميكية. أي، إذا تم إدراج عمود فارغ بين العمودين B وC من هذا النطاق، فستُرجع الصيغة القيمة 0 لأن العمود 2 لم يعد يتضمّن أي بيانات. ولذلك، فإن مهمتنا الآن هي جعل col_index_name ديناميكية بما فيه الكفاية لتحديد رقم العمود للخلية التي تحتوي على العنوانالمعدل بالساعة. لتنفيذ ذلك، سنستخدم الدالة MATCH. ثانياً : بناء جملة الدالة MATCH هو: MATCH(lookup_value,lookup_array,match_type)‎ سنقسّم الآن الوسيطات في بناء الجملة لهذا المثال المحدد: Lookup_value المرجع للخلية التي تحتوي على المعدل بالساعة. في هذه الحالة، يمكننا إدخال $F$1 أو تحديد "المعدل بالساعة" كـ lookup_value. lookup_array هذا هو العمود حيث تتوقع أن يكون المعدل بالساعة فيه — هذا هو البحث الديناميكي. وتجدر الملاحظة إلى وجوب وجود صف واحد فقط لـ lookup_array. أي، لا تُدخل النطاق $B$1:$D$2؛ عليك إدخال $B$1:$D$1. match_type أدخل 0 للعثور على تطابق تام أو 1 للعثور على تطابق تقريبي. في هذه الحالة، سنُدخل 0. صيغة MATCH هي الآن على الشكل التالي: MATCH($F$1,$B$1:$D$1,0)‎ وناتج الصيغة هو 2. إذا تم الآن إدراج عمود في النطاق B3:C11، فسيكون عائد الصيغة 3. يمكن الآن إدخال الصيغة VLOOKUP في الخلية F3 على الشكل التالي: ‎=VLOOKUP(E3,$B$3:$D$11,MATCH($F$1,$B$1:$D$1,0),FALSE)‎ تلميح لمنع ظهور قيم الخطأ، يمكنك أيضًا تضمين الدالة ISERROR، كما هو موضح أعلاه. ثالثاً: اكتساب المرونة باستخدام الدالة INDEX في حين تقوم الدالة VLOOKUP بالبحث عن إحدى القيم في العمود إلى أقصى اليسار في الجدول، ثم تُرجع قيمة في الصف نفسه من عمود تحدده في الجدول، فإن الدالة INDEX أكثر ديناميكية. إذ يمكنها البحث عن قيمة في أي عمود في الجدول وإرجاع القيمة من عمود آخر في الصف نفسه. على سبيل المثال، إذا كان المعدل بالساعة في النطاق A3:A11 بدلاً من النطاق C3:C11، فستفشل صيغة VLOOKUP الأصلية، لأن القيمة المطلوب البحث عنها (الاسم) غير موجودة في العمود إلى أقصى اليسار في الجدول (النطاق A3:B11). الحل الذي توفره INDEX هو: البحث عن الصف (في النطاق A3:B11) حيث يظهر الاسم في النطاق D3:D11. البحث عن العمود حيث يظهر المعدل بالساعة. إرجاع القيمة عند تقاطع الصف والعمود. بناء جملة الدالة INDEX هو: INDEX(array,row_num,column_num)‎ يمكن تفسير بناء جملة الأمر كما يلي: Array التطابق مع table_array في الدالة VLOOKUP. في المثال المعروض في الصورة التالية، الصفيف هو A1:B11. Row_num الإشارة إلى رقم صف الاسم، الذي يظهر في النطاق D3:D11، في النطاق B1:B11. كما هو موضح سابقًا، تم استخدام الدالة MATCH لتحديد رقم الصف. Column_num الإشارة إلى رقم العمود في النطاق A1:B11 الذي نريد الحصول على البيانات منه. مرة أخرى، تم استخدام الدالة MATCH لتحديد رقم العمود. ولذلك، فإن INDEX تنفّذ هذه العملية الأساسية: في النطاق A1:B11، البحث عن القيمة عند تقاطع صف مع عمود محدد. الصيغة المطلوبة لتنفيذ ذلك، كما هو موضح في الصورة أعلاه، هي: ‎=INDEX($A$1:$B$11,MATCH(D3,$B$1:$B$11,0),MATCH($E$1,$1:$1,0))‎

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

لم يستخدم SQL ؟ يستخدم SQL للتفاعل مع بيانات قاعدة البيانات الخاصة بك و.يستخدم الأكسس SQL للعديد من المهام: كلما تم تشغيل استعلام يستخدم SQL لتصفية البيانات كلما تم عرض التقرير يستخدم SQL لجمع البيانات ليتم عرضها ويوفر SQL البيانات المعروضة ضمن نموذج Access تشغيل الاستعلامات الأكسس يوفر للمستخدم واجهة ودية، وعرض تصميم الاستعلام، لبناء استفسار. هذه الواجهة تقدم تمثيل رسمي للاستعلام بدون ان يكون للمستخدم أي معرفة بال SQL . عندما يقوم المستخدم ب"تشغيل" الاستعلام يقوم الأكسس بترجمتها بيانياً الى عبارة SQL التي تمرر بدورها الى مشغل قاعدة بيانات Jet. يقوم Jet بإسترجاع البيانات المناسبة و يعرضها Access بطريقة عرض ورقة بيانات الاستعلام. في هذه السلسلة من الدروس سوف تجد كيفية بناء استعلامات جديدة وتغيير الاستعلامات الموجودة باستخدام VBA و SQL ، وسوف تعرف السبب الكامن في أن كثيراً من مطوري قواعد البيانات المحترفين يفضلون عدم استخدام الاستعلامات المخزنة على الإطلاق وللحديث بقية