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

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

ربما يكون الحل Function Salim_Extract(Txt$, Patt$, Optional Itm = 1) Dim Regex As Object Dim My_match As Object On Error GoTo Bay_Bay Set Regex = CreateObject("VBScript.RegExp") With Regex .Pattern = Patt .Global = True End With If Regex.test(Txt) Then Set My_match = Regex.Execute(Txt) Salim_Extract = My_match(Itm - 1) Exit Function End If Bay_Bay: Salim_Extract = "" End Function الملف مرفق Mostafa Moawad.xlsm

تم اضافة buy >> الرجاء التجربة في sheet2 .. بعد الضغط على زر اضغط هنا .. نسخة من اوفيسنا.xlsm

وعليكم السلام -تفضل كان عليك استخدام خاصية البحث بالمنتدى تحديد طابعة معينة للطباعة في الكود وهذا فيديو اخر للتوضيح للأستاذة ساجدة العزاوى لها منا كل المحبة والإحترام

تفضل طبقاً لطلبك الجديد يمكن جعل المعادلة هكذا ...ز كان اولى لك ان تطلب كل طلباتك من البداية =IF(OR(RIGHT(M5,7)="المحترم",M5=""),"الأستاذ المحاضر","الأستاذة المحاضرة") نموذج توضيحي1.xlsm

السلام عليكم ورحمة الله استخدمى هذا الكود Sub HideRows() lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row - 2 For f = lr To 3 Step -2 x = WorksheetFunction.Sum(Sheet1.Range(Cells(f, 2), Cells(f, 7))) If x = 0 Then Sheet1.Range(Cells(f - 1, 2), Cells(f, 7)).Rows.Hidden = True End If Next End Sub

ولماذا لم تقومى بإستخدام خاصية البحث بالمنتدى -تفضلى كود اخفاء الصفوف التى تحتوى على صفر يحتاج تعديل

شيت مستر ملاك 2021 للمرحلة الإبتدائية بتاريخ 12-12-2020 شيت كنترول كامل لكل الصفوف من الأول الى السادس الابتدائى على أحدث التعليمات الواردة من الوزارة يحتوى على : 1- جميع أوراق الكنترول 2- البيانات الاساسية 3- كشوف مناداة التلاميذ 4- لاصقات أرقام الجلوس 5- أرقام الجلوس مع جدول الامتحانات 6- قوائم الفصول 7- كشوف درجات المواد و الانشطة 8- شيت متكامل 9- نتيجة شاملة 10- احصاء 11- احصاء الجودة 12- الشهادات تقديرات فقط و تقديرات و درجات معاً 13- العشرة الأوائل 14- شهادات تقدير للأوائل يتميز بــ : سهولة التعامل صغر الحجم شامل كل المعلومات المطلوبة فى الامتحانات طباعة سريعة لكل صفحات الشيت بضغطة واحدة امكانية الترتيب الأبجدى بضغطة واحدة كلمة المرور : 333 مع قبول أى اقتراحات جديدة .... الملف 903691162_202112-12-2020.rar

هذا الموقع يعرض كود ترحيل لملف وهو مغلق عله يفيدك https://stackoverflow.com/questions/29310458/how-to-copy-data-from-closed-workbooks-keeping-them-closed-into-master-workboo وهذا من المنتدى هنا انا بحاول اساعدك بالى اقدر عليه مع الشكر

جربي هذا الملف كلما نريدين مجموعة اضغطي عل الزر Run code Option Explicit Sub Arkam_3ashwa3iat() Dim Formule$ Range("A3:C6").Formula = _ "=RANDBETWEEN(1,$E3/3)" Range("A3:C6").Value = _ Range("A3:C6").Value Formule = "=IF(SUM($A3:$C3)>$E3,SUM($A3:$C3)-E3," Formule = Formule & "IF(SUM($A3:$C3)<" Formule = Formule & "$E3,$E3-SUM($A3:$C3),0))" Range("D3").Resize(4).Formula = Formule Range("D3").Resize(4).Value = _ Range("D3").Resize(4).Value End Sub Zahra.xlsm

هل تم نقل القاعدة من مكان لاخر

ممكن مرفق القاعدة

السلام عليكم ورحمة الله وبركاته يوجد لديك طريقتين .. اخوي العزيز .. اضافة .. تم وضع معادلة .. في الخلية F2 .. لإظهار الارقام ايضا تم وضع كود .. في الخلية C2 .. لاظهار الرقم .. extractnameandnumber.xlsm

السلام عليكم اخى الكريم يمكنك مراجعة رد استاذنا سليم حاصبيا جزاه الله خيراً فى الموضوع ادناه https://www.officena.net/ib/topic/79368-فصل-الارقام-عن-النص/?tab=comments#comment-508669

المعادلات في برنامج الاكسل لا تعمل تلقائيا ... اليك الحل الفيديو في الرابط ادناه

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

سكرا لك اخي ولك نصيب من الاجر ان شاء الله بالنسبة لسؤالك اولا لم تشر الى ذلك في مشاركتك الاولى بحيث اختصر طلبك (هكذا:كود الثانى- كود جلب البيانات لصفحة TAKRIR عن طريق اختيار التاريخ من والتاريخ الى فيتم استدعاء البيانات الموضحة بالشيت ) عموما ساحاول لما تسمح ظروفي رغم صعوبة الطلب وهذا ان لم يتفضل احد الاساتدة بالمساعدة تحياتي

ولا اجمل .. فكرة جميلة مختصرة رائعة .. سعدت بمشاركتك جربت الكود فوجدته يدرج حتى تاريخ الغد واخونا محمد سعيد يريده ان يتوقف عند تاريخ أمس لذا اضفت اليه سطرا لتقييده Dim dt As Date Do While dt < Format(Date, "DD/MM/YYYY") If dt = (Date) - 1 Then Exit Sub DoCmd.GoToRecord , , acNewRec dt = Nz(DMax("dater1", "table1"), Format(Date, "DD/MM/YYYY")) dater1 = dt + 1 Loop

تم التعديل الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Rg As Range, F_rg As Range Application.EnableEvents = False Set Rg = Union(Range("C3:C20"), Range("E3:E20"), Range("G3:G20")) If Not Intersect(Target, Rg) Is Nothing _ And Target.Cells.Count = 1 Then Set F_rg = Range("B42:B57").Find(Target, lookat:=1) If Not F_rg Is Nothing Then Target = Cells(F_rg.Row, "C") End If End If Application.EnableEvents = True End Sub Talal_1.xlsm

مسألة سهلة كثيراً باستعمال الدالة IF لذلك سأتركها لأحد الأعضاء المبتدئين كي يتدرّب عليها

جزاك الله خيرا فقد وفيت شكرا اخى ابو خليل

حسين مامون جزاك الله خيراً أخي العزيز

لطلبك هذا لابد من استخدام هذه المعادلة =IFERROR(IF(AND(COUNTIF($B$4:B4,B4)=1,U4=0),VLOOKUP($B4,$U$1:$V$2,2,0),IF(AND(COUNTIF($B$4:B4,B4)>1,U4=0),VLOOKUP($B4,$U$1:$V$2,2,0)+(COUNTIFS($B$4:B4,B4,$U$4:U4,U4)-1),"")),"") ترقيم وتسلسل1.xlsx

ربما كان المطلوب Extract_num_Or_letters.rar

أخي الكريم الجزيرة تتم الطباعة على الطابعة الافتراضية لا على طابعة أخرى مهما يكون عدد الطابعات الموصل بالجهاز ولا ستعمال طابعة غير الافتراضية يجب تنشيطها أولا باستعمال ActivePrinter = "EPSON LQ-690" ثم أمر الطباعة