بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 08 يول, 2020 in all areas
-
5 points
-
5 points
-
5 points
-
4 points
-
4 points
-
3 points
-
3 points
-
تفضل بكل بساطة بعد ضبط ملفك, عليك بوضع هذه المعادلة بداية من الخلية I3 من صفحة المواد سحباً للأسفل وشكراً =SUMIF(مبيعات!$E:$E,$A3,مبيعات!$H:$H)+SUMIF(بياره!$B:$B,$A3,بياره!$E:$E) مبيعات1.xlsx3 points
-
وعليكم السلام-تفضل تم عمل كل المطلوب فى الصفحة الأولىSURGICAL_ALL (10) ROTA SURGICAL JULY TRILE 2.xlsm3 points
-
كم من السعادة تغمرنى بوجودى داخل هذا المنتدى العظيم والذى يضم العباقرة والعلماء وكم من حزن على مافات من عمرى بعيدا عن بحر العلم الواسع الذى يمثله المنتدى وأنا كالظمآن وعثر على الماء أتمنى للجميع الصحة والبركة من الله فى أعمارهم وأولادهم وليجعل الله ما يتيحوه من علم فى ميزان حسناتهم يوم القيامة2 points
-
اعرض الملف كود لقلب وضعية بلوكات كاملة طلب مني زميل حل لعكس ترتيب مجموعة من بلوكات البيانات من الوضعية الافقية الي الوضع الرأسي و ذلك دون تغيير وضعية البيانات داخل البلوك الواحد ، كما هو مبين فى الضورة يمتاز الكود بعدم مجدودية عدد البلوكات (يتم الاختيار طبقا للتظليل) و يمكن تعديله بسهولة ليناسب اعداد الاعمدة المختلفة داخل البلوك و ذلك يتعديل قيمة متغير واحد فى الكود. و لكي تستخدم هذا الكود قم اولا بتحديد عدد الأعمدة داخل كل بلوك عن طريق المتغير 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 الاقسام قسم الإكسيل2 points
-
وعليكم السلام هذا الموضوع مخالف جدا لتعليمات وقوانين المنتدى وأصلاً لا يمكن كسر حماية خارجية مطلقاً لأى ملف .. فهذا من الصعب كثر حمايته ونصيحة للجميع لا تقوم بعمل حماية خارجية لملف نهائياً حتى لا تقع فى هذا المأزق ثانية2 points
-
الف شكر استاذنا / kanory ربنا يبارك فى عمرك اخى الغالى ألف شكر الف شكر استاذنا / kanory ربنا يبارك فى عمرك اخى الغالى ألف شكر 2 points
-
2 points
-
وعليكم السلام-طالما انك لم تقم برفع ملف موضح عليه المطلوب بكل دقة ... فكان عليك لزاماً استخدام خاصية البحث بالمنتدى قبل رفع المشاركة -تفضل مكتبة الموقع - كود لقلب وضعية بلوكات كاملة2 points
-
2 points
-
2 points
-
وعليكم السلام -يمكنك استخدام معادلة المصفوفة(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.xlsx2 points
-
2 points
-
اليكم اختبار فى عواصم ودول العالم مع لعبة من سيربح المليون تم تعديل الاسئلة لتختبر فى عواصم ودول العالم وستكون طريقة تعليمية ثقافية مسليه ولكن فى موضوع واحد وهو دول وعواصم العالم فك الضغط عن الملف واضغط على فايل Million وعيش حياتك وده الاصدار الاول Million.rar1 point
-
1 point
-
مشاركة مع اساتذتي هو كود استاذي العزيز محمد أبوعبدالله مع بعض التعديل 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 Sub1 point
-
نفس الكود باستبدال السطرين Me.Filter = myCriteria Me.FilterOn = True بهذين Me.بيانات.Filter = myCriteria Me.بيانات.FilterOn = True تحياتي1 point
-
اخي الكريم يوجد لديك حقب 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 تحياتي1 point
-
قد يفيدك هذا الكود لاحد اساتذة المنتدى بعد انتهاء فترة الصلاحية يطلب كلمة السر 1234 فتتجدد الصلاحية Option Explicit Private Sub Workbook_Open() Dim M, pasword pasword = "1234" If Date >= CDate("01/05/2020") Then M = MsgBox("انتهت الفترة التجريبية اذا كان لديك كلمة المرور فاضغط نعم", vbCritical + vbYesNo, "تأكيد") If M = vbNo Then Application.Quit Else If M = vbYes Then If pasword = InputBox("ادخل كلمة المرور هنا", "كلمة المرور") Then Sheet1.Select Exit Sub GoTo 1 Else MsgBox "ليس لديك الحق في فتح البرنامج", vbCritical, "خطأ" Application.Quit End If: End If: End If: End If 1 End Sub1 point
-
1 point
-
وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم هذا مثال لما طلبته https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=179734 تحياتي1 point
-
هذه المعادلة =SUBTOTAL(109,$G$3:$G$200) Razak.xlsx1 point
-
1 point
-
1 point
-
تم كتابة المعادلات للبحث، وتم انشاء أعمدة مساعدة ويمكنك البحث بالرقم أو اسم أو اسم واسم آخر وتم تجاهل نقاط الياء، وكذلك التاء المربوطة ة أما الهمزة فالاكسل يتجاهلها بالتوفيق البحث.xlsx1 point
-
1 point
-
عفوا هناك احتمالين لما ذكرت: الأول: أن المطلوب هو وضع 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;"") وبالتوفيق1 point
-
عليك بهذه المغادلة (احتر الاسم من القائمة المنسدلة في G3) =SUMPRODUCT($D$3:$D$100,--($B$3:$B$100=$G$3)) الملف مرفق Sum_Prod.xlsx1 point
-
رائع دائما بشمهندس @محمد طاهر وكود بسيط ورائع جدا تقبل تحياتي1 point
-
وعليكم السلام ورحمة الله وبركاته حياك الله أخي سمير حسب فهمي لسؤالك تفضل BuySal20_V14.zip1 point
-
برنامج مجاني بديل ل SPSS يقوم برنامج PSPP بالعديد من التحليلات التي يقوم بها SPSS و ليس كلها للتحميل من هنـــــــــا1 point
-
1 point
-
تفضل-يمكن ان يكون الكود هكذا 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.xlsm1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
وعليكم السلام-يمكنك استخدام هذه المعادلة بالخلية H4 سحباً للأسفل =IFERROR(INDEX($M$5:$M$8,MATCH($G6,$N$5:$N$8,0)),"") شكرا لك والحمد لله الذى بنعمته تتم الصاحات , للأسف لا امتلك قناة على اليوتيوب choose numbre1.xlsx1 point
-
1 point
-
1 point
-
1 point
-
وعليكم السلام-تم ضبط الملف وليس هناك داعى لعمل صفحتين ,للفواتير .. تم عمل صفحة واحدة للفاتورة ووضع نوع الفاتورة بالخلية D2 فبمجرد اختيار نوع الفاتورة سواء مبيعات او مشتريات وملىء البيانات والضغط على ترحيل سيتم الترحيل لصفحة المشتريات او المبيعات كما اخترت بالضبط مشروع ان شاء الله1.xlsm1 point
-
فقط عليك بوضع Next قبل End Sub لابد من وجود ملف بكل مشاركة ....فإنتبه لذلك مستقبلاً Form1..xlsm1 point
-
وعليكم السلام - لم تبحث جيداً فتم تناول ونقاش هذا الموضوع كثيراً , اتبع الخطوات كما بالرابط مشكلة في اللغة العربية1 point