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

السلام عليكم ورحمة الله وهذا حل بالمعادلات في الملف المرفق... أخوكم بن علية المعكوس.rar

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

أخي العزيز السلام عليكم أرجو أن يكون امطلوب في المرفق Book1.rar

Public Function zaImportAllSheets() Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 blnHasFieldNames = True strPathFile = txtPath strTable = "Sheet" blnReadOnly = True Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acImport, 8, strTable, strPathFile, False, colWorksheets(lngCount) & "$" Next lngCount Set colWorksheets = Nothing End Function أستاذنا الكبير الغالي : استفدت الفكرة التي قد يحتاج إليها السائل لاستيراد عدد محدد من أوراق الأكسل من أستاذتنا الكريمة : زهرة . وما تضمنه الملف السابق من استيراد نتائج الفترات أو نهاية الفصل (للمرحلتين المتوسطة والثانوية [عام - فصلي - مقررات- تحفيظ] أو جداول المقررات ، أو الكشوف و بيانات الطلاب ، و استيراد الأسماء وإعادة تصديرها للبرامج القديمة الداعمة لمعارف)

السلام عليكم أخي الشمال من تجربتي لبرنامج Nitro انه غير متوافق مع اللغة العربية ، يعني لما تصدر التقرير العربي ، صحيح انك تشوف النتيجة بالعربية ، لكن ما تقدر تبحث فيه!! جعفر

السلام عليكم هذه طريقة اخرى باستخدام الكود ومن ثم اختيار مكان لحفظ الملف على صيغة PDF MM - 1.rar

جرب الملف التالي عله يفي بالغرض Grouping Tabs Or Sheets YasserKhalil Officena.rar

مفيش اي معادله خلي تنسيق الخلايا عام وخلصت كدا تمام

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

السلام عليكم ورحمة الله وبركاته أخي الكريم ياسر العربي بناء على الفيديو وعلى الواقع الذي نشهده فقد أرفقت جدولاً على الإكسيل للمقارنة بين حقبتين تاريخيتين ... لمعرفة كيف كان آباؤنا لنقارن أنفسنا بهم - إن كان هناك مجالاً للمقارنة والمقايسة - ونحن في قمة عصور الحضارة التكنولوجية...فقط. تقبل تحياتي العطرة...عذراً قدمته لنسخرمن حالنا بعد سيادة الكون في عصرهم الراقي بكل شيء عدا التكنولوجيا. والسلام عليكم. مقارنة.rar

السلام عليكم ورحمة الله أخي الكريم، الدالة VLOOKUP2ALL غير ضرورية في ملفك لأنك تستعمل العمود الأول من النطاق كعمود بحث في الدالة، وهذه تقوم بها الدالة VLOOKUP العادية، فهي إذا كافية... وإذا كان عمود البحث غير العمود الأول فيمكن استبدال الدالة VLOOKUP2ALL بدوال أخرى تقوم مقامها مثل الدالتين INDEX و MATCH أو غيرها.... بن علية

شكرا حبيبي علي الهدية الجميلة والحمد لله ان ال SKIN اشتغلت معاك كل الشكر والتقدير لك اخي الغالي ولمن يعاني من تسجيل الادوات هذه اداة اخرى لتسجيل الاداوات http://up.top4top.net/downloadf-559jzni1-rar.html

بعد اذن الاخ ياسر و الاخ بن علية زيادة في اثراء الموضوع حل اخر المعكوس salim.rar

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

أخي الحبيب مختار المغوار إليك حل آخر باستخدام المصفوفات عشان لو وصل عدد الأعمدة لألف يبقى الأكواد المقدمة مسبقاً هتكون بطيئة في التعامل (وأهو تدريب لينا على استخدام المصفوفات arrays) Sub ReverseUsingArrays() Dim myArray As Variant, Temp As Variant, LastCol As Long, I As Long, J As Long LastCol = Cells(4, Columns.Count).End(xlToLeft).Column myArray = Range(Cells(4, 4), Cells(4, LastCol)).Value ReDim Temp(1 To 1, 1 To UBound(myArray, 2)) For I = UBound(myArray, 2) To 1 Step -1 Temp(1, J + 1) = myArray(1, I) J = J + 1 Next I Range("D5").Resize(, UBound(Temp, 2)).Value = Temp End Sub تقبل تحياتي

السلام عليكم أخي الامير انا لم انزل برنامجك ، وهذه اجابات عامة عن اسئلتك: بالنسبة للسؤال الاول ، فاعتقد بان العمل كما هو في الرابط التالي افضل لك ، وانا استعمل هذه الطريقة في جميع برامجي تقريبا: http://www.officena.net/ib/topic/65568-تفعيل-ضغط-القاعدة-عند-الاغلاق/?do=findComment&comment=426819 والسؤال الثاني ، انظر الرابط التالي: http://www.officena.net/ib/topic/66017-مشكله-في-التقارير/?do=findComment&comment=429531 واذا لازلت محتاج مساعدة ، فتفضل واترك سؤالك هنا جعفر

السلام عليكم ورحمة الله وبركاته أساتذتى الكرام : اللذين أدين لهم بالفضل والعرفان بكل ما تعلمته فى الإكسيل أحبابى وأصدقائى : أعضاء منتدانا العريق ( منتدى أوفيسنا ) أقدم لكم أحدث تعديل فى كنترول الإعدادى رجب جاويش الإصدار رقم 15 للترمين والدور الثانى 2016 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى شيت كنترول الإعدادى رجب جاويش الإصدار 15.rar

السلام عليكم ورحمة الله أخي الكريم، هذه الرموز {} (الحاضنتين) التي تظهر في بداية المعادلة (قبل رمز =) والأخرى في نهاية المعادلة هما رمز "دوال الصفيف أو المصفوفات" ولا يجب إضافتهما يدويا بل يجب إضافتهما بعد الانتهاء من كتابة المعادلة وبدلا من الضغط على مفتاح ENTER (كما تعودنا في المعادلات) يجب الضغط على 3 مفاتيح في آن واحد وهي : CTRL+SHIFT+ENTER (من اليسار إلى اليمين: الأولى CTRL و الثانية SHIFT والثالثة ENTER) وعند هذا التأكيد تظهر العلامات السابقة تلقائيا.... والله أعلى وأعلم أخوك بن علية

مشكووووووور أستذنا الغالي رمهان أولا بخصوص الملف قمت بإرفاقه فارغا بعد تعبي من المحاولات و لاعتقادي بأني غيرت قيم كثيرة ثانيا كنت أعتقد بأن الكود مدمج داخل الأكسس ويتم توليد الأشهر تلقائيا ولا يحتاج إلى مصدر الصف بخصوص الحدث والله لا أدري أين أضعه ، وضعته في البداية في "cboMonth Click" ثم "form open" ثم "form current" -------------------------------------------------------------------------------------------------------------------------------------- إذا أمكن أستذنا زيارة هذا الموضوع http://www.officena.net/ib/topic/66084-كيف-يمكن-الحصول-على-رسالة-msgbox-ديناميكية/ لذا فكرت بعمل فورم أقوم بفلتر التقرير ثم من خلال زر أقوم بالطباعة -------------------------------------------------------------------------------------------------------------------------------------- كل ما أريده هو إظهار السنوات داخل مربع سرد إظهار الأشهر داخل مربع سرد آخر إذا أمكن طريقة بسيطة وسهلة أكن لك من الشاكرين بالشرح الممل لو تكرمت علينا بارك الله فيك وفي علمك ورزقك من حيث لا تحتسب

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

أخى الكريم جرب الملف بعد تعديل بعض الأمور البسيطه form1.1.1.rar

السلام عليكم خليها شوية رمادي...ولكن هل بالإمكان تجاوز ذلك اللون الأسود القاتم لنقترب من نقاء اللون اﻷبيض وصفائه ...أسأل الله أن يبيض وجوهكم يوم القيامة ....كان الصحابة رضي الله عنهم أولي قوة وبأس شديد وشجاعة وإقدام كما كانوا ذوي أخلاق حسنة يتراحمون فيما بينهم أسودا في الوغى رهبانا في الليل ..أهل عفاف وتقى صدق وورع مراقبة مرهفي اﻹحساس ينصتون إلى القرآن الكريم فيعملون بمحكمه ويؤمنون بمتشابهه ...تستوقفهم الآية حتى يدركونها ...ما قولكم في لص يتسلق السطوح فيسمع آية تتلى ليلا:" ألم يأن للذين ءامنوا أن تخشع قلوبهم لذكر الله" فتنقلب حياته بالكلية .هل سنتمثل أفكارهم فنمتثل لها لنسود كما سادوا ونعلي شأن أمتنا كما أعلوها..وا معتصماه زلزلت اﻷرض تحت الطغاة ...أما اليوم فلا حياة لمن تنادي. والسلام عليكم..

أنا بستخدم أوفيس 2013 وإنت شفت الفيديو بنفسك .. وشفت الخطوات اللي قمت بيها

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

السلام عليكم ورحمه الله وبركاته أستاذى الكريم // رجب جاويش دائما مبدع وصاحب بصمة رائدة فى أعمال الكنترول ، وفى سائر أعمالكم بارك لنا الله فيكم وزادكم الله من فضله ومن علمه وكل عام وأنتم إلى الله أقرب ،، وأسأل الله عز وجل أن يحقق لكم كل أمانيكم تقبل منى وافر الإحترام والتقدير

دا اللي قدرت اوصله اتمني يكون هو المطلوب

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

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

الأب الحبيب الأستاذ القدير / محمد حسن المحمد كل عام وحضرتك بألف خير كما موضح Field Settings لا يوجد بها كلمة Number Format للدخول منها إلى القسم Custom والقسم Custom عند الدخول فيه لا يوجد به مكان للكتابة فهو فقط إختيارات تقبل تحياتى

السلام عليكم ورحمة الله وبركاته إخوتي الكرام الياسران يسر الله حسابيكما ويمن كتابيكما أرى من خلال الصورة أن الأخ م/ياسر لم يذهب للقسم custom بل لا زال في القسم Automatic تقبلوا تحياتي العطرة والسلام عليكم ورحمة الله وبركاته

السلام عليكم ورحمة الله وبركاته ليه يتم استخدام برامج خارجية لما ممكن نعمل نفس الشيء باستخدام الاكواد انا بستخدم الكود التالي DoCmd.OutputTo acOutputReport, "Q", acFormatPDF, , True, , , acExportQualityPrint

حبيبى الغالى أستاذى ومعلمى القدير / ياسر خليل كل سنة وحضرتك بألف صحة وسلامة وربنا يجعلها سنة سعيدة عليك قمت بعمل الخطوات ولكن عند إختيار Field Settings لم يظهر لى نافذة فيها كلمة Number Format ولكن يظهر لى الشاشة الأتية ولم أجد القسم Custom واكتب mmm ويوجد فى الصورة السابقة Custom ولكن ليس بها إختيار للكتابة الرجاء الإفادة

السلام عليكم ورحمة الله أخي الكريم، قمت باستبدال الدالة VLOOKUP2ALL بمعادلة صفيف باستعمال الدالة INDEX مرفقة بالدالة SMALL بمرتبتين... أرجو أن يكون المطلوب... أخوك بن علية برنامج توزيع اللجان مزدوجة ومشتركة.rar

أخي الغالي ياسر في نافذة Pivot Table Fields روح للحقل المسمى Billing Date واعمل كليك عليها هيظهر لك قائمة اختر منها Field Settings هيظهر لك نافذة فيها كلمة Number Format روح للقسم Custom واكتب mmm تقبل تحياتي

برنامج جميل لكن للأسف مش مجاني تقبل تحياتي

وعليكم السلام ورحمة الله تفضل أخي هذا الكود If Len(Me.PicFile) And Me.PicFile <> "(none)" Then Shell "C:\Windows\System32\MSPaint.exe " & Chr(34) & Me.PicFile & Chr(34), vbMaximizedFocus End If حيث PicFile هو مربع النص الذي به مسار الصورة

بارك الله فيكم إخواني لإثرائكم الموضوع بشكل كبير أعتقد أن صاحب الموضوع سيكتفي بالحلول المقدمة .. الموضوع بقى ثري جداً ..أكواد ومعادلات ودهب ومرجان (دخلنا مغارة أوفيسنا بابا) ..أحمدك يااااااااا رب

مشكوووووووووووور رائع تم فهم الموضوع وحل المشكلة وشكرا

افتح راس وتذييل الصفحة ـ ادراج مربع نص في راس وتذييل الصفحة يعني اعلى الصفحة على الهامش ــ ادراج حقل من زر الامر الاجزاء السريعة ــ اختر من الحقول Page ــ اختر تنسيق الصفحة الذي تريده ــ ثم انقر على موافق في مربع الحوار حقل ــ الآن انقل مربع النص الى اي مكان في الصفحة الذي تريده وهذا مثال والسلام عليكم تجربة.rar

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

أستاذنا الحبيب مختار ما شاء الله بارك الله...رحم الله من أسماك مختار فأنت مختار وتختار لنا كل ما يسمو بأفكارنا ويتفاعل معها. مع فائق المحبة والتقدير والسلام عليكم.

وعليكم السلام أخي كمال نعم هذا قصدنا انا وأخي عبدالرحمن استعمال الحقل Object OLE في الجدول لتخزين الصور سيبب لك المشاكل. جعفر

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

انا استسلم

بارك الله فيك اخي الغالي استاذ مختار فكرة جميلة ويمكن الاستفادة منها بطرق عدة تقبل مروري المتواضع

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

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

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

السلام عليكم ورحمة الله أخي الكريم إن الدالة COUNTCOLOR ليست من دوال إكسيل ولكنها دالة مستحدثة وقد وضعت في الملف "صحيحة.xls" على شكل كود الذي هو: Function CountColor(cell_range As Range, color_cell_index) As Integer Dim rCell As Range Dim cell_count As Integer cell_count = 0 For Each rCell In cell_range If rCell.Interior.ColorIndex = color_cell_index Then cell_count = cell_count + 1 End If Next rCell CountColor = cell_count End Function Function Color_index(cell_range As Range) As Integer Color_index = cell_range.Interior.ColorIndex End Function ما عليك إلا نسخ الكود في ملفك وستعمل الدالة جيدا... والله أعلم

وعليكم السلام ورحمة الله لعمل المطلوب أتبع الخطوات الآتية : 1. قم بإنشاء وحدة نمطية وضع فيها الكود الآتي وخزنها في أي أسم تريد '---------------------------------------------------------------------' ' Module: DisableShiftKey ' ' Date: July 18, 2003 ' ' ' ' Purpose: To stop the user from holding the shift key on startup to ' ' access the database window. ' '---------------------------------------------------------------------' Option Compare Database Option Explicit '---------------------------------------------------------------------- Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If Err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ChangeProperty = False Resume Change_Bye End If End Function '---------------------------------------------------------------------- Function BypassKey(onoff As Boolean) Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey", DB_Boolean, onoff End Function '----------------------------------------------------------------------- 2. قم بإنشاء ماكروات جديدة هي : اسم الماكرو الأول: ByPassKeyOff الإجراء: Runcode الإقتران: BypassKey(False) اسم الماكرو الثاني: ByPassKeyOn الإجراء: Runcode الإقتران: BypassKey(True) 3. نموذج الدخول للنظام الخاص بك قم بإنشاء مستطيل بدون إطار ولون خلفية نفس خلفية النموذج أو إذا كان عندك صورة في نموذج الدخول يمكن استخدامها مكان المستطيل وعرف حدث عند النقر وقم باختيار الماكرو ByPassKeyOn. 4. قم بتشغيل المكرو ByPassKeyOff خزن وأخرج من قاعدة البيانات. 5. الآن عندما تدخل إلى قاعدة البيانات وأنت ضاغط على Shift لن تظهر لك نافذة قاعدة البيانات . لإظهار قاعدة البيانات اضغط بالماوس حيثما وضعت المستطيل المخفي أو الصورة ثم أعد تشغيل القاعدة مع shift ستظهر ولإعادة المنع كرر الخطوة رقم 4. وتعتبر هذه إحدى طرق الحماية لقاعدة البيانات . أملا لك التوفيق في المحاولة مع وافر الاحترام