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

السلام عليكم طال غيابي عنكم احبتي في الله لسببين اولهما ضروف خاصة وثانيها لتوجهي الى تعلم لغات برمجة اخرى و ابتعادي عن الاكسل العشق فلما اخذني الحنين للاكسل فكرة لمذا لا استخدمه كما تعلمت مع اللغات الاخرى فرفعت التحدي و عملت هدا البرنامج البسيط البرنامج عبارة عن تسجيل عمليات استلام وتسليم الوصلات وظهار كشف الحساب لكل مورد على حدى او تقرير عام بصفة عامة البرنامج بسيط ما يهم هو ما يخفيه من اخواد و مايضهره من جمال للفورم اما الثانية ما يضهره من جمال الفورم حاولت ان اعمل ما يستخدم في 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

في نموذج الانذارات زر رجوع مكتوب فيه Me.Visible = False والافضل ان يقوم بعمل اغلاق للنموذج DoCmd.Close acForm, "انذار طالب" تحياتي

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

اخى الفاضل على قد ما فهمت ومشاركه اخوانى واساتذتى فى الحلول حاجه على قد ما فهمت من شرحك تقبل تحياتى وتمنياتى لك بالتوفيق طبتم واهتديتم الجمع في الاستعلام وإظهار النسبة والتقدير.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 كل الموديولات الخاصة بهذا الملف... وليس لي فكرة أخرى... بن علية حاجي

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

بعد ادن استادنا احمد يوسف ربما يكون الطلب كما في الصور او استعن بهذا الماكرو 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 ولو كان بنفس ترتيبه كان لا داعي لكتابته وعلى أي أساس يتم خصم مبلغ من مبلغ آخر من فضلك قم بتوضيح أكثر حتى يتمكن الأخوة الأعضاء من مساعدتك

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

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

تم معالجة الامر بعد تنسيق الجداول في الصفحة الاولى لحسن عمل الماكرو تغيير اسماء الشيتات الى اللغة الاجنبية لنسخ الكود ولصقه بدون ظهور احرف و كلمات غريبة الكود 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

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

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

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

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

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

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

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

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

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

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

أخى الكريم المشكلة لديك فكل شيء يعمل معى بكفاءة وادخل بالفعل الى شيت الإكسيل

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

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

السلام عليكم أخي الصدِّيق طبعا يتم هذا الأمر من صفحة DATA هذا هو الكود Sub Shift() Sheets("Data").Activate LR_C = [E60000].End(xlUp).Row For r = 4 To LR_C 'المرور علي أسماء العملاء ، إن وجد ورقة بالإسم ذهب لبرنامج الكتابة عليها 'وإن لم يجد ، يتم تكوين ورقة جديدة بالإسم ثم يذهب للكتابة عليها clnt = Cells(r, "D"): cl_Cod = Cells(r, "E"): cl_addr = Cells(r, "F") If clnt = "" Then GoTo 20 For i = 1 To Sheets.Count If Sheets(i).Name = clnt Then GoTo 10 Next i 'برنامج تكوين ورقة جديدة بإسم العميل Sheets("sample").Visible = True Sheets("sample").Copy after:=Sheets(Sheets.Count) With Sheets(Sheets.Count) .Name = clnt .[B1].Value = cl_Cod .[B2].Value = clnt .[D2].Value = cl_addr End With Sheets("sample").Visible = xlVeryHidden Sheets("Data").Activate 10 'برنامج الكتابة علي ورقة موجودة بإسم العميل If r <> LR_C Then n_LR = Cells(r, 2).End(xlDown).Row - 1: GoTo 15 n_LR = [H10000].End(xlUp).Row 15 LR = Sheets(clnt).[D60000].End(xlUp).Row + 1 Range("B" & r & ":C" & r).Copy (Sheets(clnt).Cells(LR, 1)) Range("G" & r & ":K" & n_LR).Copy (Sheets(clnt).Cells(LR, 3)) 20 Next r End Sub أنظر المرفق فاتورة جديدة6.rar