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

تفضل ...... المستخدم11.mdb

تفضل .... خالد.rar

اكتب داخل مربع النص عدد التكرار المطلوب ------>>>> اضغط على زر عرض التقرير ..... تكرار المقطع في التقرير.mdb

حياك الله اخي @خالد عبد الغفار بالتوفيق ......

مشاركة مع استاذي محمد tb.accdb

حياك الله أخي @بلال اليامين بالتوفيق ......

هل هذا هو المطلوب ...... المستخدم11.mdb

تفضل بكل بساطة بعد ضبط ملفك, عليك بوضع هذه المعادلة بداية من الخلية I3 من صفحة المواد سحباً للأسفل وشكراً =SUMIF(مبيعات!$E:$E,$A3,مبيعات!$H:$H)+SUMIF(بياره!$B:$B,$A3,بياره!$E:$E) مبيعات1.xlsx

وعليكم السلام-تفضل تم عمل كل المطلوب فى الصفحة الأولىSURGICAL_ALL (10) ROTA SURGICAL JULY TRILE 2.xlsm

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

اعرض الملف كود لقلب وضعية بلوكات كاملة طلب مني زميل حل لعكس ترتيب مجموعة من بلوكات البيانات من الوضعية الافقية الي الوضع الرأسي و ذلك دون تغيير وضعية البيانات داخل البلوك الواحد ، كما هو مبين فى الضورة يمتاز الكود بعدم مجدودية عدد البلوكات (يتم الاختيار طبقا للتظليل) و يمكن تعديله بسهولة ليناسب اعداد الاعمدة المختلفة داخل البلوك و ذلك يتعديل قيمة متغير واحد فى الكود. و لكي تستخدم هذا الكود قم اولا بتحديد عدد الأعمدة داخل كل بلوك عن طريق المتغير CC فى الكود و فى المثال هنا عدد أعمدة كل بلوك هو 3 ـ و يمكنك تغييره كما تشاء ثم قم بتظليل كافة البيانات المراد تغيير وضعها على أن تكون عدد الاعمدة المختارة من مضاعفات الرقم المختار لأعمدة كل بلوك ثم شغل الكود Sub PivotBlocks_arafa() Dim r, c, b As Integer Dim g As String cc = 3 ' قم بتعديل هذا الرقم لتغيير عدد الاعمدة الافتراضي فى البلوك الوحد r = Selection.Rows.Count c = Selection.Columns.Count b = c / cc g = ActiveCell.Address For x = 1 To b - 1 Range(ActiveCell.Offset(0, cc * x), ActiveCell.Offset(r - 1, cc * x + cc - 1)).Cut ActiveCell.Offset(r * x - 1 + 1, 0).Activate ActiveSheet.Paste Range(g).Activate Next x End Sub صاحب الملف محمد طاهر تمت الاضافه 07 يول, 2020 الاقسام قسم الإكسيل  

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

الف شكر استاذنا / kanory ربنا يبارك فى عمرك اخى الغالى ألف شكر ‎ ‎ الف شكر استاذنا / kanory ربنا يبارك فى عمرك اخى الغالى ألف شكر ‎ ‎

تم التعديل Razak_1.xlsx

وعليكم السلام-طالما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة ... فكان عليك لزاماً استخدام خاصية البحث بالمنتدى قبل رفع المشاركة -تفضل مكتبة الموقع - كود لقلب وضعية بلوكات كاملة

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

أعمال ممتازة بارك الله فيك

وعليكم السلام -يمكنك استخدام معادلة المصفوفة(Ctrl+Shift+Enter) فى الخلية J4 =INDEX($B$5:$B$9,MATCH(1,MMULT(--($C$5:$F$9=$K$4),TRANSPOSE(COLUMN($C$5:$F$9)^0)),0)) code departement1.xlsx

جزاك الله كل خير الى الأمام دائماً

مشاركة مع اساتذتي هو كود استاذي العزيز محمد أبوعبدالله مع بعض التعديل Dim I As Integer Dim x As Date mySqL = "Select * From tt" Debug.Print mySqL Set rst = CurrentDb.OpenRecordset(mySqL) For I = 1 To Me.t3 rst.AddNew rst!dat = DateAdd("m", [t2] * I, Date) rst.Update rst.MoveNext Next Me.Requery End Sub

نفس الكود باستبدال السطرين Me.Filter = myCriteria Me.FilterOn = True بهذين Me.بيانات.Filter = myCriteria Me.بيانات.FilterOn = True تحياتي

اخي الكريم يوجد لديك حقب t2 فهنت ان وظيفته تباعد الاشهر حسب ما ما هو مكتوب واليك الكود بدون تباعد الاشهر Dim I As Integer Dim x As Date mySqL = "Select * From tt" Debug.Print mySqL Set rst = CurrentDb.OpenRecordset(mySqL) For I = 1 To Me.t3 rst.AddNew rst!dat = DateAdd("m", [t2], Date) rst.Update Next Me.Requery End Sub تحياتي

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذا مثال لما طلبته https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=179734 تحياتي

هذه المعادلة =SUBTOTAL(109,$G$3:$G$200) Razak.xlsx

أحسنت استاذ سليم هو المطلوب

Ahmed Hosny أين الضغط على الإعجاب لهذه الإجابة الممتازة ؟!!💙

تم كتابة المعادلات للبحث، وتم انشاء أعمدة مساعدة ويمكنك البحث بالرقم أو اسم أو اسم واسم آخر وتم تجاهل نقاط الياء، وكذلك التاء المربوطة ة أما الهمزة فالاكسل يتجاهلها بالتوفيق البحث.xlsx

جرب هذا الملف SALAH.xlsx

عفوا هناك احتمالين لما ذكرت: الأول: أن المطلوب هو وضع 1 في حال كان العميل سدد جميع الفواتير التي عليه (نحسب مجموع مبالغ الفواتير عليه في كامل الملف) والملف المرفق يحل هذه الحالةNew Microsoft Excel Worksheet-Solved.xlsx وقد استخدمنا بداية الدالة =SUMIF(A:A;A3;B:B) لجمع جميع مبالغ الفواتير لكل عميل ثم استخدمنا الدالة if بحيث في حال كان المجموع 0 فإننا نحصل على الرقم 1 وفي حال لم يكن 0 فيبقى فراغ =IF(SUMIF(A:A;A3;B:B)=0;1;"") الاحتمال الثاني: أن المطلوب هو وضع 1 في حال كان العميل سدد الفواتير السابقة التي عليه (نحسب فقط مبالغ الفواتير السابقة أما الجديدة في الصفوف اللاحقة فلا تدخل بالحساب) والملف في الرابط يحل هذه الحالة (للأسف لم استطع ادراج الملف في المنتدى) https://drive.google.com/file/d/1MiFxmpmHp5nOmeKWo19FDH4k7fQpcIiE/view?usp=sharing وقد استخدمنا بداية الدالة SUMIF($A$2:A3;A3;$B$2:B3) لجمع مبالغ الفواتير السابقة لكل عميل ثم استخدمنا الدالة if بحيث في حال كان المجموع 0 فإننا نحصل على الرقم 1 وفي حال لم يكن 0 فيبقى فراغ =IF(SUMIF($A$2:A3;A3;$B$2:B3)=0;1;"") وبالتوفيق

عليك بهذه المغادلة (احتر الاسم من القائمة المنسدلة في G3) =SUMPRODUCT($D$3:$D$100,--($B$3:$B$100=$G$3)) الملف مرفق Sum_Prod.xlsx

جزاك الله كل خير استاذي @محمد سلامة الحل مقدم من الاستاذ عصام وانا فقط وضعت رابط للمشاركة 🌹

وعليكم السلام ورحمة الله وبركاته حياك الله أخي سمير حسب فهمي لسؤالك تفضل BuySal20_V14.zip

برنامج مجاني بديل ل SPSS يقوم برنامج PSPP بالعديد من التحليلات التي يقوم بها SPSS و ليس كلها للتحميل من هنـــــــــا

تفضل-يمكن ان يكون الكود هكذا Private Sub CommandButton1_Click() If Sheet1.Range("D5").Value = "" Then MsgBox "الرجاء إدخال البيانات كاملة ", vbCritical, "تنبيه" Sheet1.Activate Exit Sub Else End If Dim Arr With Sheet1 Arr = Array(.Range("D5"), .Range("D7"), .Range("D9"), .Range("D11"), .Range("D13"), .Range("G5"), .Range("G7"), .Range("G9"), .Range("G11")) End With With Sheet2 .Range("B" & .Cells(Rows.Count, "B").End(xlUp).Row + 1).Resize(1, UBound(Arr) + 1).Value = Arr End With MsgBox "تم الإضافة بنجاح", vbInformation, "تأكيد" Sheet1.Range("D5").Value = "" Sheet1.Range("D7").Value = "" Sheet1.Range("D9").Value = "" Sheet1.Range("D11").Value = "" Sheet1.Range("D13").Value = "" Sheet1.Range("G5").Value = "" Sheet1.Range("G7").Value = "" Sheet1.Range("G9").Value = "" Sheet1.Range("G11").Value = "" End Sub الشهادات المدرسية للقدامي 2022.xlsm

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

مشكورين هدية مقبولة وبارك الله فيكى

وعليكم السلام -تفضل عند كتابة الكود يظهر الاسم والقسم1.xlsx

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

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

بعد اذن استاذنا الرائد طبعا .... على الرغم اننا نبهنا مرارا وتكرارا ان لا وجود لأى مشاركة الا بإحتوائها على ملف مدعوم بشرح كافى عن المطلوب , فغير ذلك مخالف لقوانين المنتدى وسيعرض المشاركة للحذف حيث انه يعمل على اهدار وقت الأساتذة دون جدوى كما انه لا يمكن العمل على التخمين,على الرغم من كل هذا قمت بعمل ملف لك بالمطلوب .... فعليك من البداية فتح مديول جديد ووضع هذا الكود به Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Public Const VK_SNAPSHOT = 44 Public Const VK_LMENU = 164 Public Const KEYEVENTF_KEYUP = 2 Public Const KEYEVENTF_EXTENDEDKEY = 1 وبعد تصميم الفورم عليك بوضع هذا الكود به للطباعة Private Sub CommandButton1_Click() DoEvents keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 DoEvents Workbooks.Add Application.Wait Now + TimeValue("00:00:01") ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _ DisplayAsIcon:=False ActiveSheet.Range("A1").Select With ActiveSheet.PageSetup .Orientation = xlPortrait .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveWorkbook.Close False End Sub وهذا هو الملف print Userform.xlsm

وعليكم السلام, لماذا لا تستخدم خاصية البحث بالمنتدى -تفضل تحويل الصف الى عمود والعكس تحويل الصف إلى عامود والعامود إلى .......... وهذا فيديو ايضاً للشرح طريقتان لتحويل الصفوف لأعمدة والأعمدة لصفوف Excel Training

وعليكم السلام-تفضل حسابات المعرض1.xlsx

تفضل يمكنك هذا بعد مشاهدة هذا الفيديو

يمكنك استخدام معادلة المصفوفة ( Ctrl+Shift+Enter) .... من أعمال استاذنا سليم حاصبيا له منا كل المحبة والإحترام =IFERROR(IF(ROW($C$2)>SUM($C$2),"",INDEX($A$2:$A$100,MATCH(FALSE, COUNTIF($E$1:E1,$A$2:$A$100)=$C$2,0))),"") 81.xlsx

تفضل وهذا خير دليل كما اخبرتك سابقاً فالملف يعمل معى بكل كفاءة اذا اتبعت نفس الخطوات السابق ذكرها ... ومن فضلك لا تتأخر بالرد

وعليكم السلام-الأمر ليس بهذه البساطة , عليك بتتبع الخطوات والإرشادات كما بفيديو الأستاذة ساجدة العزاوى , لها منا كل المعزة و الإحترام وبارك الله فيها كيفية اضافة و ريجستر month view-date and time picker اكسل vba ساجدة العزاوي register

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

وعليكم السلام-تم ضبط الملف وليس هناك داعى لعمل صفحتين ,للفواتير .. تم عمل صفحة واحدة للفاتورة ووضع نوع الفاتورة بالخلية D2 فبمجرد اختيار نوع الفاتورة سواء مبيعات او مشتريات وملىء البيانات والضغط على ترحيل سيتم الترحيل لصفحة المشتريات او المبيعات كما اخترت بالضبط مشروع ان شاء الله1.xlsm

فقط عليك بوضع Next قبل End Sub لابد من وجود ملف بكل مشاركة ....فإنتبه لذلك مستقبلاً Form1..xlsm

وعليكم السلام - لم تبحث جيداً فتم تناول ونقاش هذا الموضوع كثيراً , اتبع الخطوات كما بالرابط مشكلة في اللغة العربية