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

العفو يا صاحبي .. لا تنس الضغط على أفضل إجابة .. حتى يعلم أن الموضوع تمت الإجابة عليه وحصل المطلوب .

جزاك الله خيرا أخي @أحمد الفلاحجى لو أنا بمصر هالأيام جيت وحبيت على راسك .. وأعطيتك هدية العيد .. الموضوع الآن عند صاحب الموضوع يختار ما يريد ..

احسنت اخى @فايز.. جزاك الله خيرا 🌷 نفس الحل بس بدون الاستعلام الخارجى هو استعلام داخلى بالنموذج بالتوفيق اخوانى فيلتر.accdb

تفضل ووافنا بالنتيجة .. فيلتر.accdb

تفضل أخي 11.mdb

ممكن ان يكون المطلوب Tawati.xlsm

لا يمكن اخفاء خلية أو مجموعة خلايا يمكن فقط اخفاء عامود أو عدة اعمدة صف أو عدة صفوف

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

تقبل الله منا و منكم الطاعات

بسم الله الرحمن الرحيم تحت شعار كنت قد رفعته سابقا "أتمنى وجود جيل من المبرمجين العرب قادر على الابتكار والمنافسة" أبدأ معكم إخوتي وأحبابي نظرا لما وجدته في الإخوة والأساتذة المهتمين (مثلي) ببرمجة وتصميم المواقع وبرمجة الأكسس والفيجوال بيسك من الاهتمام بالأداة التي تقوم بتحويل قواعد البيانات أكسس إلى ملف sql يمكن استيراده من داخل phpmyadmin ويتم التعامل معه على أنه قاعدة بيانات mysql ونظرا لما لاحظته من الرغبة في عمل البرنامج كمحول لقواعد بيانات mysql المتمثلة في ملف sql وتحويله إلى قاعدة بيانات أكسس توكلت على الله واستعنت به على قضاء حاجتي وحوائج إخواني وأخواتي واليوم أعرض لكم برنامج محول الماس لقواعد بيانات أكسس و ماي إس كيو إل (الإصدار الأول) حيث يحول البرنامج قواعد بيانات أكسس إلى mysql بمجرد الضغط على الزر واختيار قاعدة البيانات المطلوب تحويلها ويقوم أيضا بتحويل ملف sql إلى قاعدة بيانات أكسس وبها الجداول والسجلات الموجودة في ملف sql وبانتظار ملاحظاتكم واقتراحاتكم لتطوير هذه الأداة حجمها 208 كيلو بايت التي تقوم بعمل برنامج DBConvert for Access & MySQL والذي ثمنه 79 دولار وحجمه 17.5 ميجا بايت تقريبا وهذه صفحته وفقنا الله وإياكم إلى كل ما يحبه ويرضاه أخوكم أبو عبد الله محمد صالح mas-access&mysql-converter.rar

السلام عليكم اخوتي الكرام كيف يمكن توزيع جلوس الطلاب ضمن الشروط التالية: 1- المقعد الواحد يجلس فيه طالبان كل طالب من صف 2- القاعة الواحدة تحتوي على 17 مقعد اي ممكن ان تضم 34 طالب ( تتكون القاعة من قطاعين ) 3- ان لايجلس طالبان من صفين بينهما مادة مشتركة ( اي يدرسون نفس المادة ) 4- يمكن أن تستوعب قاعة الاختبار كحد أقصى 30 طالب 5-ترتيب جلوس طلاب الصف الواحد خلف بعضهم وشرط أن لا يتجاور طالبان من نفس الصف توزيع.mdb

وعليكم السلام اخى @ازهر عبد العزيز هل هذا ما تريد ؟ بالتوفيق اخى New Microsoft Access Database (5) - Copy.accdb

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 🌷 والشكر موصول لاخى @فايز.. وهو من يستحق افضل اجابه 🌷 بالتوفيق اخوانى

شكرا استاذ ( فايز ) استاذ ( احمد الفلاحجى )

تفضل عدل تاريخ الكمبيوتر ومن ثم نشط الخلية b2 dt .xlsm

تفضل معادلة صففيف بدون حساب التواريخ المكررة تواتي 19.xlsx

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا بالتوفيق اخى

مرحبا بعودتك اخى @Abu Farid وكل عام وانت بخير عيدكم مبارك 🌷 جزاك الله خيرا

وعليكم السلام اخى @Ahmed_J بالنسبه ل val فهى لتحويل الرقم من قيمه نصيه الى قيمه رقميه هل هذا ما تريد؟ TEST.accdb

استاذنا الجميل / @أحمد الفلاحجى والله الذى ننتفغ به هو وجودك معنا دائما وتقديم كل الامكانيات لمساعدة الاخرين جزاك الله خير يا اطيب قلب عرفته فى المنتدى وبارك الله فيك

وعليكم السلام 🙂 الموقع الذي ارفقت انت رابطه يقول ، بأنه يجب ان يكون عندك ادوبي اكروبات الكامل ، وليس برنامج القراءة : في الرابط التالي ستجد البرنامج المطلوب وطريقة العمل: جعفر

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

وعليكم السلام هل هذا ما تريد ؟ TEST.rar

يمكنك استخدام هذه المعادلة للغيابات الصباحية أما بالنسبة للمسائية فقط عليك استبدال حرف ص وتغييره الى مـ ملحوظة : يمكنك تغيير ايضاً التواريخ التى تريد حساب الغيابات من خلالها وذلك من الخليتين F1 & G1 بصفحة Info =SUMPRODUCT((maroc[[#Headers],[01/06/2020]:[10/06/2020]]>=$F$1)*(maroc[[#Headers],[01/06/2020]:[10/06/2020]]<=$G$1)*(maroc[nom]=$A2)*(maroc[[01/06/2020]:[10/06/2020]]="ص")) anas2021.xlsx

بعد اذن استاذ سليم ولإثراء الموضوع Tawati2.xlsm

تم إضافة مسح النطاق من a2 : p27 بعد الترحيل ترحيل واستدعاء.xlsm

تم وضع عمود اسم الشييت في العمود R جرب هذا ترحيل واستدعاء.xlsm

أخي ابو الحسن كل عام وأنتم بخير اسعدتني المشاركة وخصوصاً أن لي بصمة فيها 🙂

وانت بالف خير استاذنا / @husamwahab رهيب جدا هذا الكود وصغير جدا ولكن ممكن توضيح من حضرتك بعض الشئ الذى فهمته من الكود : If DataErr = 3022 Then انه فى حالة خطأ فى الداتا الاستجابة تساوى صفر لكن ما معنى الرقم 3022 وهل لوكتبته لاى كود يعطى نفس المعنى جزاكم الله خيرا

جربي هذ التعديل وانشاء الله سيعمل Private Sub CommandButton2_Click() n7 = (n6 + n5.Value) End Sub

السلام عليكم احبتي كل عام وانتم بالف خير مشاركة مع اساتذتي Root50.rar

وكل عام وأنتم بخير وتقبل الله طاعتكم وشكرا لك التهنئة اخي احمد

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

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

تقصد هذا : مثال للتعديل4.accdb

اعدريني لقد اغفلت الاشهر والسنوات ولم اقم الا بالايام المفترض ان يعمل جربي هذا التعديل Private Sub CommandButton2_Click() n7 = DateAdd("d", n5.Text, n6) n7 = DateAdd("M", n4.Text, n6) n7 = DateAdd("YYYY", n3.Text, n6) End Sub

المشكلة في المعادلة لاجمالي الكسور الموجودة كمصدر بيانات بمربع النص (نص35) المفروض تكون : =([tt1]-[نص33]) وبعدين من خصائص مربع النص Properties ومن تبويب تنسيق Format اجعل : المنازل العشرية Decimal Places = Auto أو = 2 حسب ما ترعب مثال للتعديل 3.accdb

أخي الفاضل، بعد ما تنفذ الخطوات اللي تطرق لها الأستاذ أحمد اضف التواريخ في الملف المرفق حددها واضغط على الزر اللي داخل الملف. اللي بيصير وقتها إن الملف تلقائيا بيحرر كل خلية ويضغط إنتر تلقائيا، فبالتالي بتتحدث الخلايا وتتعرف على التاريخ الهجري تحياتي F2 and Enter.rar

خلينا نتابع موضوع تنصيب النواتين على الرابط اعلاه 🙂 جعفر

تفضل أخي رمضان كريم (C1)اخي الكريم فقط اضف القائمة المنسدلة في الخلية من شيت قائمة الزبائن أو انسخ والصق اسم الزبون الارشيف.xls

أستاذ / القول المأثور المعادلة الأخيرة لا يمكن أن تحسب الصفوف المخفية وإن كثر عدد الصفوف

فقط استبدل الرقم 9 واجعله 109 في نفس الدالة دالة sumifs 1مع الفلترة.xlsx

وعليكم السلام 🙂 تفضل ، الكود : Private Sub code_BeforeUpdate(Cancel As Integer) If Len(Me.code & "") <> 0 And Left(Me.code, 1) = 3 Then MsgBox "الرقم يبدأ بالرقم 3" End If End Sub . والاسم : Private Sub name_BeforeUpdate(Cancel As Integer) If Len(Me![name] & "") <> 0 And Left(Me![name], 1) = "S" Then MsgBox "الاسم يبدأ بالحرف S" End If End Sub جعفر 1220.CodeName.mdb.zip

وعليكم السلام طالما انك لم تقم برفع ملف وشرح المطلوب بكل دقة فكان عليك استخدام خاصية البحث في المنتدى تفضل هذه الروابط قد تفيدك https://www.officena.net/ib/topic/54033-برنامج-الشيكات-مع-التقارير-الاصدار-الثاني-ضاحي-الغريب/?tab=comments#comment-340520 https://www.officena.net/ib/topic/45958-كيفيه-طباعة-الشيك-من-ذلك-النموذج/?tab=comments#comment-272771 وهذا نموذج أيضا بسيط وهذا أيضا برنامج جاهز لإدارة الشيكات bank_cheque_software.xls cheques_management_برنامج_ادارة_الشيكات.rar

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي تدوير وانعكاس الجداول في إكسل flip rotate transpose tables in excel فتابعونا. تدوير وانعكاس الجداول في إكسل flip rotate transpose tables in excel ربما تعرضت لنسخ جدول من برنامج ميكروسوفت وورد إلى إكسل، ولكن وجدت أن اتجاه الجدول من اليسار لليمين، قمت بعدة محاولات وتغيير اتجاه الشيت في إكسل ولكن لم تحصل على النتيجة المطلوبة، وتريد عكس اتجاه الجدول أفقيا Flip horizontal أو عكس اتجاه الجدول رأسيا Flip vertical أو حتى عكس اتجاه الجدول بزاوية Flip diagonal . أو تريد تدوير الجدول لليسار Rotate left أو تدوير الجدول لليمين Rotate right أو تريد تبديل الصفوف إلى أعمدة Transpose فقررت تصميم دالة معرفة تقوم بالمطلوب وكذلك مجموعة من المعادلات التي تؤدي الغرض فأصبح لدينا 6 معادلات لعمل المطلوب وكذلك 6 دوال معرفة لعمل المطلوب بالكود تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: طريقة إنشاء دالة معرفة user defined function في إكسل طريقة إنشاء إنشاء إجراء sub في إكسل كيفية التعامل مع كل خلية في النطاق بالكود vba بدائل دالة transpose تعمل على جميع إصدارات إكسل تخزين قيم الخلايا في مصفوفة واستعادتها مرة أخرى نسخ المعادلات مهما تغير مصدر البيانات في الجدول والمفاجأة الكبرى أن جميع ما سبق يتم بالمعادلات في أي مكان تريده ويتم بالكود وفي نفس المكان Flip range horizontal in place by VBA Flip range vertical in place by VBA Flip range diagonal in place by VBA Rotate range left in place by VBA Rotate range right in place by VBA Transpose range in place by VBA …… والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات وفي معادلات إكسل لا أريد أن أطيل عليكم تابعوا معي هذا الفيديوتدوير وانعكاس الجداول في إكسل flip rotate transpose tables in excel الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 رابط الملف المستعمل في الشرح في المرفقات أو من هـــــنــــــــا للمزيد زوروا ميكروسوفت إكسل Microsoft excel ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور rotate flip transpose range formula and vba.rar

الاخوة الكرام فى هذا الصرح العظيم استكمالا لما بدأناه على هذا الرابط http://www.officena.net/ib/topic/63474-الترحيل-بواسطة-refedit1/ أقدم لكم ملف به يوزر فورم للترحيل 1- تقوم أنت باختيار النطاق المراد ترحيله 2 -ثم اختيار الصفحه المراد الترحيل لها(الملف المرفق به عدد 2 شيت يمكن اضافة شيتات اخرى ومن ثم تظهر فى الفورم) 3- ثم اختيار الخليه المراد بدايه اللصق عندها او اختيار عمود محدد للصق جرب المرفق ولا تنسونا من صالح دعائكم باقى افكار اخرى لهذا الموضوع لتطويره والوصول الى ما هو افضل تقبلوا تحياتى واحترامى لكم الترحيل بواسطة RefEdit.zip

إخواني الكرام إليكم الإصدار الأخير من مكتبة الصرح .. Codes Library v1.9.6.rar

كود لعمل نسخة من الشيت الأصلى Sub Copy_ActiveSheet_1() 'Working in Excel 97-2013 Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String With Application .ScreenUpdating = False .EnableEvents = False End With Set Sourcewb = ActiveWorkbook 'Copy the sheet to a new workbook ActiveSheet.Copy Set Destwb = ActiveWorkbook 'Determine the Excel version and file extension/format With Destwb If Val(Application.Version) < 12 Then 'You use Excel 97-2003 FileExtStr = ".xls": FileFormatNum = -4143 Else 'You use Excel 2007-2013 Select Case Sourcewb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If .HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If End With ' 'Change all cells in the worksheet to values if you want ' With Destwb.Sheets(1).UsedRange ' .Cells.Copy ' .Cells.PasteSpecial xlPasteValues ' .Cells(1).Select ' End With ' Application.CutCopyMode = False 'Save the new workbook and close it TempFilePath = Application.DefaultFilePath & "\" TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "yyyy-mm-dd hh-mm-ss") With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum .Close SaveChanges:=False End With MsgBox "You can find the new file in " & TempFilePath With Application .ScreenUpdating = True .EnableEvents = True End With End Sub

السلام عليكم اخي abouelhssan تم عمل تلوين لاول خلية في صف كل من صفحة منه و له و تم عمل شرط لعدم ترحيل او لغاء عندما تضغط علي الخلية مرتان لعد الدبلره و ند الضغط بالخطا تعطيك رسالة تبين لك انه تم الترحيل او الالغاء تم الاخذ في الاعتبار ان الاسماء في شيت البواقي قد تكون مكررة فتم عمل المقارنة بين جمي الخلايا في شيت منه و ما يقابلها في شيت البواقي لحذف الصف المماثل في كل الخلايا و ليس خلية واحدة جرب الملف و اخبرني النتيجة تحياتي New 13.rar

حاولت قب ذلك وكانت النتيجة تم حذف المرفق لدواعي أمنية يعلمها المتقدمون وتم التغيير والحمد لله وهديتي لك أخي الكريم أبا مشاري وكل من يريد هذا الموضوع تم عمل دالة لتصنيع ملف test.html لكل عميل بمتغيراته الاسم ورقم المعاملة وتاريخ المعاملة وإرفاقه بالرسالة ملحوظة يلزمك بعض التعديل في الكود الذي يصنع ملف test.html في الدالة وتغيير اسم شركتك أو تغيير الصيغة مع ملاحظة عدم تغيير أكواد html أو أكواد تضمين البيانا داخل الملف كل عام أنتم بخير أخوكم محمد صالح mas_mail2.rar