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

السلام عليكم طال غيابي عنكم احبتي في الله لسببين اولهما ضروف خاصة وثانيها لتوجهي الى تعلم لغات برمجة اخرى و ابتعادي عن الاكسل العشق فلما اخذني الحنين للاكسل فكرة لمذا لا استخدمه كما تعلمت مع اللغات الاخرى فرفعت التحدي و عملت هدا البرنامج البسيط البرنامج عبارة عن تسجيل عمليات استلام وتسليم الوصلات وظهار كشف الحساب لكل مورد على حدى او تقرير عام بصفة عامة البرنامج بسيط ما يهم هو ما يخفيه من اخواد و مايضهره من جمال للفورم اما الثانية ما يضهره من جمال الفورم حاولت ان اعمل ما يستخدم في c# ui design و النتيجة هي اما الاولى مايخفيه من اكواد هي قاعدة البيانات هي اكسيس بحيث برمجة كلاص يمكنك استخدامه لتتعامل مع ملفات الاكسيس بكل سهولة ابتداءا بجملة الاتصل فتح الاتصال اغلاق الاتصال الى تنفيذ الكموند تماما كما هو الحال مع c# او غيرها من لغات اخرى الى كل من يبحث عن كيفية العمل على برنامج واحد باكثر من جهاز او مستخدم في نفس الوقت هذا الملف يمكنك من ذلك وذالك برفع قاعدةالبيانات الاكسيس على اي استضافة كقوقل دريف او دريفبوكس وتسليم ملف الاكسل للمستخدمين سيستطيعون جميعهم العمل عليه في نفس الوقت كل ما تحتاجه هو تغيير مسار الملف في كلاص الاتصال المسمى ClsConnctionDB في الاخير تحياتي للجميع WPFVBA.rar

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

أ.إبراهيم عطا المرفق لا يوجد به نماذج .. علما بأنك أضفت للإستعلام حقل Expr1: Int([Years]) والذى يقوم بدوره بتحويل النص الى رقم وللتأكد شغل الإستعلام المسمى ConvertToInt بالمرفق والذى ينشئ جدول جديد إسمه Tbl_YearToInt إفتحه فى وضع التصميم .. ستجد أن الحقل Expr1 نوعه رقم. المثال المرفق.rar

بارك الله فيك انت عرضت السؤال وانت وضعت الحل ايضا بالطريقة التي ذكرتها يتم تحقيق ذلك If Dir(CurrentProject.Path & "\Pic", vbDirectory) <> "" Then SetAttr (CurrentProject.Path & "\Pic"), vbHidden ElseIf Dir(CurrentProject.Path & "\Pic", vbDirectory) = "" Then MsgBox "لا يوجد ملف حتى يتم التطبيق " SetAttr (CurrentProject.Path & "\Pic"), vbNormal

احتجت لدمج محتويات عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها فاعددت هذا الكود اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود Sub mergitwithcomma() Selection.Cells.merge With Selection.Find .Text = "^p" .Replacement.Text = "، " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub لتنزل الملف

هذه هى النتيجة 03:00 pm وليست 02:30 لا يوجد خطوات فقط اجعل تنسيق خلية الناتج كوقت وذلك كما بالصورة جمع ساعات 1العمل.xlsx

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

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

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

أستاذنا أحمد الفلاحجى بارك الله فيك ولك ورزقك العلم الصالح ونفع بك .. متعرفش أستاذنا. @jjafferr وأستاذنا @ابا جودىغايبين عنا فين

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

جزاك الله خيرا استاذ @essam rabea تقبل تحياتى وتمنياتى لكم بالتوفيق طبتم واهتديتم

العفو اخى الفاضل كلنا اخوه نساعد يعضنا بعضا ونتعلم من بعض شوف التعديل ده تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم الجمع في الاستعلام وإظهار النسبة والتقدير1.rar

جازاك الله كل خيراً أستادنا الكريم على الإجابة الموفقة، فهذا هو بالضبط ما طلبته ولكن تبقى مشكلة أخرى وهى الأرقام في النسبة فقد فشلت في أجعل النسبة وفق الطريقة 100% فظهور المنازل العشرية الكثيرة في النسبة شى مزعج

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

أ.إبراهيم عطا إن كنت ترغب فى تحويل السنة الى رقم فى الإستعلام المسمى .. بيانات من الرقم القومي .. فجرب الكود التالى Years: Val(CalcYears([تاريخ الميلاد];"1/10/2019")) وللتأكد شغل الإستعلام المسمى ConvertToInt بالمرفق والذى ينشئ جدول جديد إسمه Tbl_YearToInt إفتحه فى وضع التصميم .. ستجد أن الحقل Years نوعه رقم.

راجع هنا وهنا هنا وهنا المنتدى ملئي بالامثله وهذا للمعلم القدير استاذي الجليل ابو خليل ابو خليل

تفضل أ. @إبراهيم عطا Test.accdb

أ.waheidi2005 الموضوع بسيط فقط قم بما يلى وهو DoCmd.OpenReport "inthar", acViewPreview هذا كل مل فى الأمر بالتوفيق

تفضل لك ما طلبت Book2.xlsm

ارفق ملفك اخي الكريم ليتم التعديل عليه ان شاء الله تحياتي

هل يمكنك ارفاق الملف للتأكد منه؟

بارك الله فيك استاذ محمد وجزاك الله خير الثواب

بما انك عملت compile وضغط للقاعدة فلامشكلة تستطيع تحويل القاعدة الى Accde وهي الصيغة التنفيذية المعتمدة في الاكسس

نعم انسخها واذهب الى البرنامج اعلاه وقم بوضع الكود المنسوخ في خانة sql ثم قم بالضغط على convert sql to vba

أخي الكريم راجع الموضوع هذا https://www.officena.net/ib/topic/98630-تحويل-قاعدة-البيانات-الى-ملف-تنفيذي/

أ.إبراهيم عطا جرب Int(TextBox) أو أرفق مثال للتطبيق عليه

السلام عليكم ورحمه الله وبركاته جزاكم الله خيرا اساتذتى @kha9009lid و @essam rabea ومشاركه لاخوانى واساتذتى ارفق ملف بحث وطباعه فكرته مشابهه لنفس الموضوع للاستفاده منه وجزاه الله خيرا صاحب المثال ومن عدل عليه تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق طبتم واهتديتم بحث.rar

بصراحة الملف عندك مخربط بعض الشيء(اي هناك مسافات زائدة ومسافات ناقصة في الاسما بحيث لا يمكن المقارنة) اكسل يعتبر ان اسمين (حتى ولو كانا نفس الشيء) مختلفين اذا كان هناك مسافات ناقصة او زائدة بينهما مثلاً ربيع أبو العز في نظر اكسل غير ربيع أبو العز لان هناك مسافة زائدة بين ربيع و أبو بعد ترتيب الاسماء كما يجب يمكنك استعمال المعادلات في الملف المرفق (مختصر جداً حوالي 20 اسم) وسحب المعالات الى اخر صف به بيانات DEfference.xls

السلام عليكم كلتا الحالتين (الطريقتين) تحتاج إلى إنشاء التسمية الخاصة بالنطاق المراد طباعته وتسميتها في الملف Plage بالمعادلة التالية (التي يمكن أن تجدها في قائمة التسميات): =OFFSET(تأخير!$B$1:$Q$1;;;MAX(IF(تأخير!$A$1:$A$10000>0;ROW(تأخير!$A$1:$A$10000)))) (يمكن استعمال معادلة أخرى بدوال أخرى وفي المنتدى تجد الكثير من الأمثلة على ذلك) والمرحلة الثانية تكون كما يلي: * الطريقة الأولى: تحديد "ناحية الطباعة" للشيت "تأخير" في التسميات (بعد تعيينها يدويا أو عن طريق إعدادات الصفحة) بتغيير معادلتها بالمعادلة : =Plage * الطريقة الثانية : إدراج الكود التالي (نسخ ولصق): Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.PageSetup.PrintArea = [Plage].Address End Sub في كود حدث الشيت "تأخير"... وليس لي شرح آخر... بن علية حاجي

جرب المرفق قوائم.accdb

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

السلام عليكم إذا قمت بحفظ الملفات بعد فتحها بواسطة إكسيل 2010 وليس لديك منها نسخ فقد ضاعت كل الأكواد ويجب إعادة إنشائها من جديد... أما إذا كان غير ذلك فيجب فتحها بواسطة إكسيل 2003 في جهاز آخر (أو في جهازك بعد تنصيب إكسيل 2003 فقط من كل مكتبة أوفيس 2003) ثم القيام بتصدير Exportation لكل الماكروات في الملف إلى جهازك (يُستحسن أن تكون في موديول Module واحد)... ثم تفتح هذه الملفات بواسطة إكسيل 2010 واستيراد Importation كل الموديولات الخاصة بهذا الملف... وليس لي فكرة أخرى... بن علية حاجي

بعد ادن استادنا احمد يوسف ربما يكون الطلب كما في الصور او استعن بهذا الماكرو Sub SplitRow1() With ActiveWindow .SplitColumn = 0 .SplitRow = 1 End With ActiveWindow.FreezePanes = True End Sub

وعليكم السلام-المطلوب غير واضح لنجاح اى مشاركة لابد من رفع ملف مدعوم بشرح كافى ووافى عن المطلوب والا لا تنتظر المساعدة من احد وطالما حضرتك لم تقم برفع ملف -فتفضل https://www.zadschool.com/ms-office/5009/how-to-set-row-height-and-column-width-in-excel.html

أخي fcadao23 لاحظ المبلغ الذي تكتبه في العمود I ليس بنفس ترتيبه في العمود D ولو كان بنفس ترتيبه كان لا داعي لكتابته وعلى أي أساس يتم خصم مبلغ من مبلغ آخر من فضلك قم بتوضيح أكثر حتى يتمكن الأخوة الأعضاء من مساعدتك

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

تم معالجة الامر بعد تنسيق الجداول في الصفحة الاولى لحسن عمل الماكرو تغيير اسماء الشيتات الى اللغة الاجنبية لنسخ الكود ولصقه بدون ظهور احرف و كلمات غريبة الكود Option Explicit Sub All_in_One() Dim A As Worksheet, B As Worksheet Dim i%, x%, m%, ro%: m = 1 Set A = Sheets("SheetA"): Set B = Sheets("SheetB") B.Range("ِA1").CurrentRegion.ClearContents With A x = .Cells(3, Columns.Count).End(1).Column For i = 1 To x Step 5 ro = .Cells(3, i).CurrentRegion.Rows.Count B.Cells(m, 1).Resize(ro, 4).Value = _ .Cells(4, i).Resize(ro, 4).Value m = m + ro - 1 Next End With End Sub الملف مرفق MY_sheet.xlsm

الأستاذ هشام .. وعليكم السلام ورحمة الله ما فهمته هو ان لديك ثلاث شعب (إحصاء ـ رياضيات ـ إحصاء تطبيقي) .. تمام ؟ ولديك أيضا قاعتين ( 2309 ـ 1607 ) .. تمام ؟ وجد فى الجدول بعض المسافات الزائدة سواء فى حقل Course_name أو Room مما يؤثر بدوره فى عملية التجميع والفرز .. وقد تم حذفها فصار التقرير 3 صفحات وليس 4 أرجو أن يكون المطلوب بالتوفيق Rep2.accdb

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

تفضل تم عمل كل طلباتك Book2.xlsm

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

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

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

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

وعليكم السلام-تفضل لك ما طلبت بهذه المعادلة =IFERROR(DGET($B$4:$G$12,B4,$C$17:$D$18),"") صفحة 1.xlsx

أحسنت استاذ مجدى عمل رائع بارك الله فيك

أحسنت استاذ مجدى -عمل رائع بارك الله فيك

وعليكم السلام-فقط عليك استخدام هذا الكود Sub UnmergeAllCells() ActiveSheet.Cells.UnMerge End Sub

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