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

السلام عليكم ورحمة الله وبركاته🌹 هذا الاصدار شبهه الاخير ان شاء الله تقريبا من وجهة نظرى البسيطة والضئيلة واطرحه بين اياديكم للاطلاع والتجربة والرد بما ترونه مناسبا من تعديلات واضافات المميزات الاضافية امكانية وضع مجلد القارئ داخل مجلد الصوت بمسار القاعدة فقط والباقى على البرنامج ، ملاحظة يتم مسح اى مجلدات فارغة من مسار مجلد الصوت اليا كنا يتم اضافة اسم القارئ والرابط اليا الى الجدول دون تدخل من المستخدم الاصدار السابق كان لابد من ان تكون ملفات الصوت mp3 بفضل الله تم التحايل بالكود حتى يتم تشغيل ال wav يوجد مجلد منافع يتم إدراجه اليا بمجرد فتح القاعدة تجدون فيه برنامج تغيير اسماء ملفات الصوت للمصحف دفعة واحدة طبعا لابد من الحرص قبل اضافة المجلدات ان تكون اسماء الملفات الصوتية مثل المرفق السابق والمثال الموجود بالمرفق الحالي كما تم اضافة امكانية تعديل الوان التطبيق ارضاء لجميع الاذواق وبذلك اكون بفضل الله تعالي اضفت كل ما تم تناوله وطرحه فى الموضوع السابق استاذى الجليل ومعلمى القدير ووالدى الحبيب استاذ @ابوخليل يعلم الله لم انم منذ ردكم بان المرفق لا يعمل عند حضرتك تاكدت من الاكواد جميعا بالسطر والكلمة والحرف اسال الله ان لا تواجه مشكلة هذه المرة لا يوجد كود بلا داع ولا توجد كلمات عربية داخل المحرر وتم التصميم على النواة ٣٢ بايت استاذى الجليل ومعلمى القدير الاستاذ @Gamal.Saad 🙏 لكم جزيل الشكر والعرفان بالجميل جزاكم الله خيرا 🌹 وضعت بهذا التطبيق عصارة ما لدى من افكار على طريقة كل من اساتذتى الافاضل الاجلاء الاستاذ @ابوخليل والاستاذ @jjafferr والاستاذ @رمهان وكل من تعلمت منهم وعلى ايديهم حتى لا اخطئ بنكران فضل لاحد فى هذا الصرح الرائع اتمنى ان شاء الله ان تنال رضاكم الذكر_الحكيم_V.__3.0.1.zip

وعليكم السلام ولما لا تستخدم خاصية البحث بالمنتدى فبه طلبك تحديد أسماء رؤوس الأعمدة في Listbox فكما ترى بنفسك تم التعديل على الملف الأصلى فى عدد 2 فورم برنامج ادارة الاحياء.rar

السلام عليكم اخي العزيز تم تصحيح الكود الخاص بكلمه المرور تحياتي sec.rar

السلام عليكم بالنسبة لكلمة المرور هي (1234) تفضل اخي الكريم sec.rar

المشكلة لديك عليك بتعديل وضبط اللغة العربية من لوحة التحكم (Cotrol Panel) على الرغم انه تم تناول هذا الموضوع كثيراً-تفضل تعديل وضبط كود التفقيط

بارك الله فيك وزادك الله من فضله

وعليكم السلام-تفضل يمكن هذا بوضع هذه المعادلة داخل التنسيقات الشرطية كما بالصورة =COUNTIFS($B$2:$B$5000,$B2,$C$2:$C$5000,$C2,$D$2:$D$5000,$D2,$E$2:$E$5000,$E2)>1 تنسيق لمعرف بيانات الصف متكررة1.xlsx

تفضل يمكنك هذا بهذه المعادلة =IFERROR(INDEX($A$2:$A$7,MATCH(E2,$B$2:$B$7,0)),"") الوقت الحالى.xlsm

وعليكم السلام-كان عليك رفع الملف نفسه ولكن كل ما عليك فعله ان تحدد العمود الذى تريد ضبط الأرقام بداخله وتقوم بعد ذلك بالضغط بيمين الماوس ثم تختار Format Cells وبعد ذلك تضغط على قائمة Number وتختار Custom ثم بعد ذلك تضغط على 0 ثم Ok وذلك كما بالصورة

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

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

شاهد هذا الفيديو لفطا بدون عمل اعدادات من لوحة التحكم (Control Panel)

السلام عليكم مرفق ملف للاستاذ محمد عصام @ابا جودىبارك الله فيه على هذا العمل الرائع المطلوب/ هل يمكن اخفاء او اظهار الاستعلامات او النماذج او التقارير او الوحدات النمطية عن طريق كود مع عدم امكانية اظهارها بمربع الحوار الخيارات مع كل الشكر والتقدير لكافة اعضاء هذا المنتدى الرائع علما اني اعمل على اكسس 2010 إخفاء واظهار الجداول والكائنات.rar

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

جزاك الله خيرا اخى واستاذى العزيز محمد جعله الله فى ميزان حسناتك ان شاء الله

روعة

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

الله يجعله في ميزان حسناتك 🌷

برنامج TickerChart لا يحتاج أن تغيرر في الروابط. افتج برنامج TickerChart و قم بالضغط على الزر الايمن للماوس . ثم بالاختيار الربط مع عنوان الاعمدة ،كما في الصورة. ثم افتح اكسل ب run as administrator ثم اختر a1 و لصق عادي و تتحدث المعطيات تلقائيا . و اذا كان عندك فكرة أخرى. اطرحها و ان شاء الله ستجد ما يناسبك

السلام علیکم ورحمة الله وبركاته اخي الحبیب لا یمكن اضافة حقل خانة الاختیاریة في الاستعلام بدون اضافة الحقل في الجدول شفان

مبيظهرش معايا ال A to z>>>>>

تفضل استاذي العزيز ارجو ان يكون طلبك SalaryRoot.rar

من عيوني Test1.xlsx

بعد اذن الاستاذ رائد اتفضل الملف لعله يفى بالغرض تعديل.xlsm

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

Private Sub CommandButton1_Click() Me.ListBox6.ColumnCount = 3 Me.ListBox6.ColumnWidths = "10;50;200" Me.ListBox6.clear lr = Cells(Rows.Count, 1).End(xlUp).Row For i = 59 To lr - 1 b = i Me.ListBox6.AddItem Me.ListBox6.List(b - 59, 1) = Sheets("level1").Cells(b, 1) Me.ListBox6.List(b - 59, 2) = Sheets("level1").Cells(b, 2) Next i End Sub Me.ListBox6.clear

تفضل تعديل (1).xlsm

السلام عليكم اخى الفاضل @AboBahaa تم اضافه استعلامين qryTABLE2 و qryTblNew واضافه حقلين باسم t فى كل منهما لتجميع حقل الرقم والمركز والسنه والنوع وذلك للمقارنه لعدم اضافتهما مره اخرى للبيانات فى حاله تم الضغط اكثر من مره ع زر الاضافه وتم تعديل استعلام الالحاق بناء عليهما تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق برنامج العقود_1.rar

أعتقد استاذ محمد انه يقصد هذا عند الضغط على قائمة File مثلاً فى الإكسيل ستظهر هذه النافذة كما بالصورة وتظهر بها قائمة New أو يمكنك الضغط على مفتاحى Ctrl+N لفتح ملف جديد على الإكسيل ان لم تتمكن من حل المشكلة هكذا فعليك بتتبع الخطوات وتنفيذها كما بالرابط التالى : How to fix Excel 2016 Opening Blank Workbook Issue أو هذا الرابط ايضا Fix Excel 2016 opening a blank document

مبروك الأستاذان عبدالفتاح في بي اكسيل و الرائد 77 إنضمامكما لعائلة الخبراء ,أسأل الله لكما التوفيق والنجاح دائما ..وأعانكما الله على هذه المسئولية الجديدة وسدد الله خطاكما عن حق وجدارة بارك الله فيكما وزادكما الله من فضله

بارك الله فيكم جميعا كلها حلول ممتازة كل عام وأنتم بخير

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

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

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

على الرغم انه لا يمكن العمل على التخمين وتجنبا لعدم اهدار وقت الأساتذة ..كان عليك رفع ملف موضح عليه المطلوب بكل دقة , ولكن يمكنك استخدام هذا الكود Private Sub UserForm_Activate() ChartNum = 1 UpdateChart_OverallOEE UpdateChart_OverallUnits UpdateChart_OverallWeights End Sub Private Sub UpdateChart_OverallOEE() Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 710 CurrentChart.Parent.Height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallOEE.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallOEE.Picture = LoadPicture(Fname) End Sub Private Sub UpdateChart_OverallUnits() Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 700 CurrentChart.Parent.Height = 150 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallUnits.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallUnits.Picture = LoadPicture(Fname) End Sub Private Sub UpdateChart_OverallWeights() Set CurrentChart = Sheets("Sheet1").ChartObjects(ChartNum).Chart CurrentChart.Parent.Width = 700 CurrentChart.Parent.Height = 175 ' Save chart as GIF Fname = ThisWorkbook.Path & Application.PathSeparator & "Chart_OverallWeights.gif" CurrentChart.Export Filename:=Fname, FilterName:="GIF" ' Show the chart img_Chart_OverallWeights.Picture = LoadPicture(Fname) End Sub

لآختصار العملية التي ذكرها الاستاذ صالح حمل الملف المرفق وشغله مرة واحدة وانتى تمكين المحتوى.zip

السلام عليكم أخي زاهر أولا إضغط على خيارات ثانيا: اختر مركز التوثيق ثالثا: إضغط على زر إعدادات مركز التوثيق رابعا: إضغط على إعدادات الماكرو خامسا: تظهر 4 خيارات اختر الخيار الأخير تمكين كافة وحدات الماكرو

السلام عليكم اسمحوا لي بالمشاركة معكم بإضافة فكرة أخرى لعمل الرصيد . تحياتي . Rased2.zip

يبدوا ان الخلل في حاسوبي فهو لا يقبل Private Declare PtrSafe Function بتاتا سأحاول ايجاد السبب آسف لما سببته لك واخذت من وقتك وتقبل مودتي وشكري