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

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

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

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

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

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

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

وانا ارشح لكم موقع مملكة الرسايل هو الافضل وهذا الرابط http://www.kingsms.ws/Members/

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

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

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

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

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

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

اوك .. تقدر تضيف كود الارجاع لاول سجل في اخر الكود علشان لو ضغط مره ثانيه يكون المؤشر واقف عند الاول ويعيد نفس السجلات Docmd.gotorecoed ,,acfirst

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

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

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

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

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

استاذ romeo4 الأمر بسيط وسهل عليك بتعديل اعدادات اللغة العربية لديك من لوحة التحكم

ربما المشكلة من اعدادات اللغة في 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

الأستاذ هشام .. وعليكم السلام ورحمة الله ما فهمته هو ان لديك ثلاث شعب (إحصاء ـ رياضيات ـ إحصاء تطبيقي) .. تمام ؟ ولديك أيضا قاعتين ( 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

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

السلام عليكم أخي الصدِّيق طبعا يتم هذا الأمر من صفحة 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