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

حرب هذا الملف 1- عملية اخفاء الاعمدة لا تتم الا اذا كانت الخلايا من B الى H غير فارغة (7 عتاصر) 2-بعد تعبئة البيانات من B الى H مجرد ان تدخل عدد الاقساط المطلوبة في الخلية I يتم اظهار عدد الاعمدة المطلوبة 3-زرين اضاقيين لاخفاء الاغمدة من M الى AJ واظهارها اذا كان هناك حاجة لذلك Show_hid_col.xlsm

انظر المرفق واعلمنا بالنتيجة ---------->>>>>> يقوم البرنامج بنسخ البيانات المطلوبة في ملف باسم الشعبة ويحفظ بجوار البرنامج مباشرة دون الحاجة للحفظ وفي نفس الوقت يحافظ على الملف الاساس للاكسل Ba1_Deffi.rar

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

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

اعتذر عن التأخر في الرد ، لأنه احد المواضيع التي لا استعملها ابداً ، ومحترفي الاكسس ينصحون بالابتعاد عنها !! 1. خلينا نعرف اولا ، من وين يأتي الاكسس بالفارزه بين القيم ؟ فتلاحظ اني عملت تغيير لنظام الوندوز عندي ، وجعلت الفارزة عبارة عن شرطة مائله (يجب ان يكون برنامجك مغلق لما تعدل هذه القيمة في اعدادات الوندوز ، ولما تفتح برنامجك ، بتلقى الفارزة الجديدة في برنامجك) ، بمعنى آخر ، كل كمبيوتر ممكن يكون عنده فارزة تختلف عن الكمبيوتر الآخر !! . 2. اذن في هذه الحالة ، فالاكسس يسمح لنا ان نختار من الفوارز الموجودة في الوندوز : . وللأسف ، فلا يمكننا ان نختار غير هذه الخيارات الموجودة في القائمة. ولكن اذا عملنا الحقل NOA1 غير مضمن (او مرتبط بحقل من نوع نص في الجدول) . ووضعنا الكود على حدث الحالي للنموذج (اما اذا كان الحقل NOA1 نوعه نص ، فيمكننا ان نضع الكود على حدث "بعد تحديث" الحقل NOA ، او على زر التبديل) ، والكود يأخذ في الحسبان اذا كانت الفارزة فاصلة او فاصلة منقوطة : Private Sub Form_Current() Me.NOA.SetFocus Me.NOA1.Value = Replace(Replace(Me.NOA.Text, ",", "/"), ";", "/") End Sub . وهذه النتيجة جعفر

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

وعليكم السلام 🙂 الطريقة الوحيدة اللي اعرفها ، هي ان نضع امام الصورة دائرة مفرغة ، ولعملها ، اتبع الخطوات من هذا الرابط https://www.officena.net/ib/topic/80839-طباعة-الهويات-الباجات-بطاقات-العمل/ . ثم نضع الصورة خلفها : . وعند طباعة التقرير تصبح الصورة : . فكل اللي عليك عمله هو ، نسخ كائن الدائرة المجوفة img_Frame الى النموذج في برنامجك ، وارسل الصورة للخلف 🙂 جعفر img_Frame.zip

الظاهر انك لم تنتبه الى الملاحطة الأولى في الرد الذي رفعته لك 1- عملية اخفاء الاعمدة لا تتم الا اذا كانت الخلايا من B الى H غير فارغة (7 عتاصر) لذلك اكتب ما تشاء في اي صف من الخلية الىB الخلية H و عندما تنتقل الى الخلية i وتكتب العدد المطلوب (بين 1 و 24) يتم تنفيذ الأمر

بسم الله الرحمن الرحيم بناء على طلب أخينا الكريم عبد الله المجرب (أبو أحمد) يتم هنا مناقشة دالة الرسائل التي تظهر لمدة محددة بالثواني ثم تختفي تلقائياً الصيغة العامة لها intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType]) شرح البارامترات object : كائن wscript الذي تم إنشاؤه strText : نص الرسالة (مطلوب) nSecondsToWait : عدد ثواني بقاء الرسالة على الشاشة (اختياري) القيمة الافتراضية 0 وتعني عدم اختفاء الرسالة إلا بعد الضغط على زر فيها strTitle : عنوان الرسالة (اختياري) إذا لم يتم كتايته يظهر "Windows Script Host" nType : رقم يحدد الأزرار والأيقونات المستعملة في الرسالة (اختياري) وترجع الدالة رقم intButton الخاص برقم الأزرار التي ضغطها المستخدم حتى يخفي الرسالة ويهمنا في هذا المقام الأزرار والأيقونات وهي كالتالي وهي مثل دالة msgbox العادية في أنه يمكنك جمع قيمتين أو أكثر سواء بعلامة + أو بكتابة حاصل الجمع الفعلي فمثلا لعمل رسالة بها زر نعم أولا وأيقونة علامة الاستفهام نكتب 4+32 أو 36 نأتي الآن للقيمة التي ترجعها الدالة نأخذ مثالاً set WshShell = CreateObject("WScript.Shell") Result = WshShell.Popup("This is a popup box!", 10, "Title", 65) ويمكن تنفيذ الأمر بدون وضع القيمة الراجعة في متغير set WshShell = CreateObject("WScript.Shell") WshShell.Popup "This is a popup box!", 10, "Title", 65 ويمكنك استعمال هذه الدالة من تصميمي للتعامل مع popup Function msg(strText As String,nSecondsToWait as integer, strTitle As String, nType As Integer) CreateObject("WScript.Shell").Popup strText,nSecondsToWait,strTitle,nType End Function طريقة استعمالها Sub mas() msg "text", 2, "title", 4+256 End Sub .... وفي الأخير لا ينقصني سوى دعاؤكم وفقنا الله وإياكم لكل ما يحب ويرضى

بسم الله الرحمن الرحيم الاخوة الكرام السلام عليكم ورحمة الله وبركاته برنامج الجمعيات الخيرية لبحث الحالات قمت يتصميم هذا البرنامج المتواضع منذ حوالي 3 سنوات تقريبا لجمعية خيرية واحببت ان اضعه بين ايديكم ليستفيد منه من يبحث عن برنامج مماثل البرنامج بسيط ان شاء الله وسهل التعامل معه أ - يجب ادخال الاكواد الاساسية اولا 1 - الحالات الاجتماعية ( اعزب - مطلق - ارمل ... الخ ) 2 - الحالة الصحية ( معاق - مريض بـ - شلل ... الخ ) 3 - المناطق ( منطقة شبرا - منطقة - ببولاق - منطقة العتبة ... الخ ) 4 - المتابعين ( المتابعين للحالة والقائم على زيارتهم وتفقده احوالهم ) 5 - نوع التبرع ( هل الحالة تستحق تبرع شهري او اقل او اكثر )\\ ب - تسجيل الحالات ج - تعديل حالة د - البحث عن حالة او طباعتها البرنامج مفتوح المصدر ويمكن التعديل عليه بما يناسب الحالة التي تمر عليك ارجو من الله العلي القدير ان يكون هذا العمل مقبولاً لوجهه الكريم SocialAffairs.rar تحياتي

بسم الله الرحمان الرحيم السلام عليكم اصدقائي قررت في الفترة الاخيرة اعتزال البرمجة بالاكسل و vba ولا اظن اني ساعود له بما اني كنت اعمل على بعض المشاريع بواسطة الاكسل و لاكن للاسف لم اجد الوقت الكافي لانهائها قررت ايضا طرح تلك المشاريع لربما لتستفيدون منها لذاى ساقوم في كل مرة يتاح لي الوقت فيها برفع مشروع او اثنين ان شاء الله كاول مشروع هذا برنامج مبيعات /كودبار/يعتمد ايضا القطعة و العلبة تقريبا انجز 80% منه لم يتبقى له سوى التقارير و بعض الاشياء الاخرى تحياتي للجميع Pr Commercial.rar

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

السلام عليكم تفضل اخي الكريم تم الانتهاء من ( البحث العام - البحث بين تاريخين - البحث بقيمة الشيك ) Option Compare Database Option Explicit Dim myCriteria As String Private Sub X0_Exit(Cancel As Integer) Me.Search2.Requery End Sub Private Sub X2_Exit(Cancel As Integer) If IsNull([X1]) Or IsNull([X2]) Then MsgBox "يجب أن تدخل التاريخين الافتتاحي والختامي", vbInformation, "Acoade 2019" DoCmd.GoToControl "X1" Else If [X1] > [X2] Then MsgBox "يجب أن يكون التاريخ الختامي أكبر من التاريخ الافتتاحي", vbInformation, "Acoade 2019" DoCmd.GoToControl "X2" Else myCriteria = myCriteria & "(" myCriteria = myCriteria & "[الشيك].[تاريخ الاصدار] between #" & Format(Me.X1.Value, "mm/dd/yyyy") & "# and #" & Format(Me.X2.Value, "mm/dd/yyyy") & "#" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Search2.Form.Filter = myCriteria Me.Search2.Form.FilterOn = True End If End If End Sub Private Sub X3_Exit(Cancel As Integer) If Not IsNull(Me.X3) Then myCriteria = myCriteria & "(" myCriteria = myCriteria & "[الشيك].[المبلغ ارقام]= " & Me.X3 & "" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Search2.Form.Filter = myCriteria Me.Search2.Form.FilterOn = True End If End Sub متابعة الشيكات v391.rar تحياتي

إليك المرفق .. لا أدري إن كان ما تريد متابعة الشيكات v391.rar

جميل جدا ، وخصوصا الكود اللي فيه 🙂 جعفر

تحميل شيت يوميه امريكيه كامل بتحليل المصروفات بشكل احترافي

مرحبا استاذي الفاضل ابوياسين الملف يعمل على نسخة 2007 واعلى عمما قمت بانشاء قاعدة جديدة واستيراد الكائنات اليه تفضل يا غالي Db3.rar تحياتي

التقارير لا يتم فيها ادخال بيانات مباشرة ادخال البيانات يكون غالباً في النماذج تحياتي

لانك جعلت خاصية AllowAdditions = No والصحيح ان تكون = Yes متابعة الشيكات v1001.rar تحياتي

وعليكم السلام 🙂 فتح نموذج في برنامج آخر ، بمعايير : فتح نموذج في برنامج آخر ، ارسال قيمة اليه ، و قراءة قيمة منه : جعفر

الحمد لله وبالتوفيق

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

تم اضافة شرط جديد: إذا كان كود الفئة = 2 فالقيمة 0 حسب ما فهمت من توضيحك مرفق معادلة حسب متغيرات الاعمدة2.xlsx

وعليكم السلام 🙂 بالامر Replace me.txt = replace(me.txt , ";" , "/") وكذلك تقدر تستعملها في استعلام تحديث ، لتحديث البيانات السابقة 🙂 جعفر

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

تفضل اخي العزيز هذا مثال بسيط حسب فهمي لطلبك كلمة المرور : 123 Root211.rar

تفضل مع ان ملفك يفتقد الى البيانات Private Sub ListBox1_Click() TEXT1.Value = ListBox1.ListIndex + 2 SpinButton1.Value = ListBox1.ListIndex End Sub Private Sub SpinButton1_Change() If SpinButton1.Value = 0 Then SpinButton1.Value = ListBox1.ListCount - ListBox1.ListCount + 1 ListBox1.ListIndex = ListBox1.ListCount - SpinButton1.Value TEXT1.Value = ListBox1.ListIndex + 2 End Sub Private Sub UserForm_Initialize() SpinButton1.Max = ListBox1.ListCount SpinButton1.Min = 0 SpinButton1.Value = 10 End Sub TEST.xlsm

طيب دقائق اعدل بعض الاشياء و نجعل البرنامج يحفظ مباشرة في ملف باسم الشعبة .....------------>>>>>>>

حلها بارك الله في تحويل ملف الاكسل الى قالب ...... جرب واعلمنا بالنتيجة ....... اجتماعيات.rar

السلام عليكم ليست لدي طابعة جرب الملف المرفق __برنامج المعتمرين _A4AA2020الجديد - نسخة (6) (1).xlsm

بسم الله الرحمن الرحيم من خلال الواقع عملية وضع الجدول المدرسي عملية مرهقة وتحتاج لكثير من التركيز من حيث عدد الحصص لكل مدرس أو سقوط فصل من الجدول ( ليس موكلا إلى أحد الأساتذة) أو تضارب الحصص ( وجود الفصل الواحد عند أكثر من مدرس) وبعد الانتهاء من الجدول نأتي لعمليات الاستخلاص استخلاص جدول مدرس أو استخلاص جدول فصل أو استخلاص جدول مشرف في يوم معين أو مشرف لدور معين وبفضل الله تم الانتهاء من تصميم برنامج بسيط يوفر كل ماسبق ملاحظة: البرنامج لا يقوم بوضع جدول من الألف إلى الياء وإنما يساعد مسئول الجدول في إنجاز مهمته البرنامج يعمل على أوفيس 2007 وبانتظار اقتراحات المهتمين بالمجال لتطويره ولا تنسوني من صالح دعائكم mas-school-timetable.rar

السلام عليكم ورحمة الله وبركاته أعجبني جدا برنامج بنك الأكسس للأخ إكسير وأحببت أن أضيف إليه بعض الإضافات وبالفعل تم التواصل مع الأخ إكسير وبارك وأيد هذه الإضافات وإليكم الإضافات الجديدة 1-عدم التقيد بالتحميل من ملفات منتدى الفريق العربي فقط بل يتعدى إلى أي موقع على النت 2-عدم التقيد بامتداد الملف وهوrar بل يمكنك تحميل جميع الملفات بجميع الإمتدادات 3-إمكانية إضافة أقسام جديدة مثل صور و فيديوتعليمي وكتب وورد مثلا 4-يمكنك حذف القسم الذي لا ترغب فيه حتى وإن كان بداخله ملفات فسيتم حذف المجلد بكل محتوياته ويمكنك بعدها تغيير اسم القسم والمجلد وإنشاء الجديد 5-إمكانية إضافة صفحة الملف على النت للرجوع إليها لمزيد من التفاصيل حول الموضوع ويمكنك فتحها من داخل النموذج بزر الأمر الموجود 6-إمكانية فتح مجلد الملف بعد تحميله من نفس نموذج التحميل أما عن طريقة الاستخدام فهي نفس الطريقة المستعمله في مثال الأخ إكسير مع فارق بسيط وهو وضع رابط الملف كاملا وليس رقمه فقط وكذلك وضع رابط الصفحة كاملا مع ملاحظة معرفة امتداد الملف وكتابته في خانة امتداد الملف بنموذج إضافة ملف بدون النقطة مثل rar أو zip أو mdb وهكذا بدون النقطة بين اسم الملف وامتداده ملحوظة ترقيم الملفات والأقسام ترقيم تلقائي ولا علاقة له برقم الملف في الموقع أرجو من الإخوة ذكر آرائهم في المثال والاقتراحات حتى يتم تطويره والوصول به للكمال الممكن مع تحيات أخوكم محمد صالح bank_files.rar

مشاركة مع حبايبنا الاساتذة .... استخدمن هذا الكود لتصدير العمودين وبعض البيانات لملف الاكسل ..... Dim db1 As DAO.Database Dim Rst1 As DAO.Recordset Set db1 = CurrentDb Dim objExcel As Object Dim objWorkbook As Object Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(sXlsFile) Set Rst1 = db1.OpenRecordset("temp", dbOpenSnapshot) objWorkbook.Sheets(2).range("H1").Value = "اسماء طلاب الصف " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد8] & ")" & "الشعبة " & "(" & [Forms]![FORM2]![مربع_تحرير_وسرد12] & ")" With Rst1 If .RecordCount <> 0 Then .MoveFirst objWorkbook.Sheets(2).range("b5").CopyFromRecordset Rst1 objWorkbook.Sheets(2).range("b5").Select End If End With objExcel.DisplayAlerts = True objWorkbook.Close SaveChanges:=True Set objWorkbook = Nothing objExcel.Quit Set objExcel = Nothing Set Rst1 = Nothing Set db1 = Nothing VBA.Shell "Explorer.exe " & Chr(34) & sXlsFile & Chr(34), vbNormalFocus DoCmd.DeleteObject acTable, "temp" انظر النتيجة في ملف الاكسل .......... Ba_Deffi.rar

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

العفو اخي الفاضل ، فكلنا هنا يد واحدة ان شاء الله 🙂 جعفر

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

تم عمل المطلوب بواسطة معادلة وتم إعادة ترتيب البيانات بحيث فصلنا معلم ذكر عن بعضها ليتم المقارنة بين كل عنصر لوحدهمعادلة حسب متغيرات الاعمدة.xlsx بالتوفيق

وعليكم السلام 🙂 نعم ، لا يوجد طريقة لتدوير الصورة كجزء من الاكسس ، ولكن الاكسس يمكنه الاعتماد على اكواد مثل: https://www.devhut.net/2017/05/14/vba-wia-rotate-an-image/ او الاعتماد على برامج خارجية ، مثل البرنامج المرفق ، بحيث يتم حفظ التدوير خارج الاكسس ، ويتم تحديث الصورة في الاكسس: جعفر يمكن انزال برنامج فك الضغط المجاني من https://www.7-zip.org/ irfanview_Imagining.7z

فيديوووو جديد جديد لشياكة الشيت وتجميله كيفية إضافة ●○ SYMBOL قبل كل اسم او جملة اتوماتيكيا واستخدمنا في الفيديو دة معادلة LEN استخدم الجملة دي لتطبيق الفيديو ○ General;○ General;○ General;○ General https://www.youtube.com/watch?v=qvU5ynfFdvM Book1.xlsx

عبدالفتاح في بي اكسيل الف الف الف شكر الكود شغال الف في المية وزي ما كنت حابب الله يحفظك ويسعدك الف شكر استاذ والله العظيم دورت لتعبت بس مالقيت شي جزاك الله خير استاذ وربي يجعلها في ميزان حسناتك مليون ترليون شكر عبدالفتاح في بي اكسيل الف شكر 😊😊

وعليكم السلام -تفضل لك ما طلبت هذا هو المستخدم بالقائمة الرئيسية من قائمة Data ثم Data Validation ثم بعد ذلك اختيار List ووضع هذا النطاق فى خانة Source =Classification!$A$1:$Q$1 أما القائمة الفرعية فعليك بإتباع نفس الخطوات مع وضع هذه المعادلة =OFFSET(Classification!$A$1,1,MATCH($B2,Classification!$A$1:$Z$1,0)-1,COUNTA(OFFSET(Classification!$A$1,1,MATCH($B2,Classification!$A$1:$Z$1,0)-1,20,1)),1) Classification1.xlsx

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

عمل رائع ويا ريت تفك الحماية لان فيه بيانات اكبر من حجم العامود

شافاك الله و عافاك اسال الله العظيم انا تعود سالما معافى من العملية واتمنى لك الشفاء العاجل

بسم الله الرحمن الرحيم إخوتى فى الله السلام عليكم ورحمه الله وبركاته أقدم لكم اليوم هدية متواضعه من أخيكم الفقير لله ثمينه المضمون التفسير الميسر للقرآن الكريم كاملا فى اكسل أسأل الله عز وجل أن يتقبلها خالصه لوجه الكريم وأتقدم بخالص الشكر والتقدير لكل من تعلمت منه حرفا وأدعو الله لهم أن يحفظهم من شرور خلقه أجمعين وللجميع حق نشرها وتقبلوا منى وافر الاحترام والتقدير التفسير الميسر .rar

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