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

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

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

بسم الله الرحمن الرحيم سلام الله عليكم أحبابي في الله كيف حال أحبتي زوار وأعضاء ومشرفي أوفيسنا عذرا لغيابي عنكم فليس بيدي وأتمنى على الله مجاورتكم في الفردوس الأعلى بإذن الله *********** ويسعدني أن أقدم كما وعدت أحبابي وأصدقائي الحلقة الأولى من دورة أساسيات إكسل 2013 وما بعده من تحت الصفر إلى الاحتراف وفيها: مقدمة عامة عن أوفيس وإكسل 2013 وتحميل أوفيس 2013 sp1 32bit وأوفيس 2013 sp1 64bit وتثبيته وفتح البرنامج ولا تنسوني من صالح دعائكم ///////////////////// ولا تنسوا تشجيعكم لنا يدفعنا للاستمرار من أجلكم انشر وشارك هذه الحلقة قدر استطاعتك فزكاة العلم نشره رابط الملفات المشار إليه في الفيديو https://www.facebook.com/groups/xlprofs/803395799714732/ **************** مع تحياتي أ / محمد صالح فيس بوك http://adf.ly/1EbLvW 2013.rar

من منا احتاج كتابة تقرير لشهر معين، وأن يكون عنوان التقرير متضمنا اسم الشهر (مثال تقرير شهر يناير 2015) ، فاستخراج اسم الشهر يكون معرفا على النظام باللغة الإنجليزية (April مثلا) ، فإذا أردنا أن نستخرجه باللغة العربية فإن ذلك يتطلب منا معادلات وجداول غير مباشرة.. أترككم مع المعادلة. شهر بالعربي.rar

أخي الفاضل محمود بكري قم بالذهاب للتبويب Formulas ثم Name Manager ثم انقر الأمر New وقم بتمسية وليكن ItemsList ثم في حقل Refers To ضع المعادلة التالية : =items!$B$4:INDEX(items!$B$4:$B$100,MATCH("*",items!$B$4:$B$100,-1)) ثم استخدم هذا الاسم ItemsList في عمل القائمة المنسدلة تقبل تحياتي

ضع هذا الكود أخى فى Thisworkbook Private Sub Workbook_SheetSelectionChange(ByVal sh As Object, ByVal Target As Range) Application.ScreenUpdating = True End Sub واحفظ الملف كملف برمجى انظر المرفق Active_Cell.zip

اضغط اعجبني فقط سالب.rar

السلام عليكم اخواني الاعزاء خلال تصفحي لاحدى المنتديات صادفني كود جميل للحماية عن طريق الفلاش ميمري ولكن ينقصة الشرح والتنفيذ على ملف اكسل كمثال الكود يحتاج لبعض التعديلات البسيطة تحياتي اعتماد السيريال الخاص بالهارد دسك أخى الكريم لقد طبقت الحماية من خلال الفلاش ميمورى ويعمل بشكل ممتاز على كمبيوتر واحد ! ويجب ان يكون الفلاش ميمورى موصولا بالجهاز التى يشتغل البرنامج عليها ! وبدون هذا الفلاش لايشتغل البرنامج وممكن ان نستفيد من أكواده فى التطبيقات الحماية بالهارد ديسك : لاخراج رقم الفلاش ميموري في الزر الخاص باخراج هذا الرقم تم وضع هذا الكود كود Dim fso As Object Dim dc As Object Dim d As Object Dim xx, xxx As String On Error GoTo diskerror Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d In dc If d.DriveType = 3 Then n = d.ShareName End If Select Case d.DriveType 'البحث عن قطعه مؤقتة مثل الفلاش ميموري Case 1 'تعريف يساوي اسم الفلاش ميموري مضاف اليه النقطتين والخط المائل xx = d.DriveLetter + ":\" End Select Next ' تساوي الرقم الستلسلي ' xx هو اسم الفلاش ميموري xxx = CreateObject("Scripting.FileSystemObject").GetDriv e(xx).SerialNumber MsgBox xxx diskerror: If Err.Number = 71 Then MsgBox "لايوجد فلاش ميمري" Resume Next End If في الامثله التي تم ارفاقها تم وضع الكود التالي في حدث عند الفتح للنموذج كود On Error Resume Next Dim fso As Object Dim dc As Object Dim d As Object Dim xx, xxx As String Set fso = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives For Each d In dc If d.DriveType = 3 Then n = d.ShareName End If Select Case d.DriveType Case 1 xx = d.DriveLetter + ":\" End Select Next xxx = CreateObject("Scripting.FileSystemObject").GetDriv e(xx).SerialNumber If xxx = "رقم الفلاش ميموري" Then MsgBox " hi" Else MsgBox "الرقم التسلسلي غير مطابق" DoCmd.Quit End If

بارك الله فيك أخي الحبيب غسان وجزاك الله خير الجزاء هو دا الشغل .. طلع المستخبي يا كبير ممكن نختصر الكود الرائع اللي قدمته بالشكل ده Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim I As Long If IsNumeric(Range("C2,C3,C4,C5,C6,C7,C8,C9,C10").Value) Then For I = 2 To 10 Range("B" & I).Value = Range("B" & I).Value - Range("C" & I).Value Next I Range("C2:C10").Value = "" End If End Sub تقبل تحياتي

الأخ الحبيب الأستاذ: ياسر (أبو البراء) المحترم إن شاء الله.. جزيت عني خيراً وفقني الله وإياكم لما يحب ويرضى.

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

الأخ الحبيب الأستاذ: ياسر ..السلام عليكم ورحمة الله وبركاته.. جعل الله لك من اسمك نصيب وافر، ويسَّر لك الخير أينما كنت وأينما حللت، واسأله – تعالى- أن ينفع بك وأن يجعلك مباركاً، وأن يجعلك كالغيث أينما حللت نفعت. ولا أخلاك من بر مرفوع ، ودعاء مسموع . ولا ننسى السبب في هذه الدعوات الأخ (رجب جاويش)، أن يكون له ولنا نصيب منها، ولكل من علَّمنا، في هذا الصرح المبارك.

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

الاخ محمد الريفي بارك الله فيك وجزاك الله خيرا الأخ إبراهيم أبو ليلة الحل كان ع السريع إليك الملف التالي عله ينال إعجابك وينال رضاك Unique List No Blanks YasserKhalil.rar

المعادلة بدون ملف مرفق لن تفي بالغرض ..ارفق ملف وإن شاء الله تجد المساعدة

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

السلام عليكم بعد اذن استاذى الحبيب ياسر خليل هذا الملف حسب مافهمت مع تطبيق هذه المعادله فى قائمة التحقق من الصحه =OFFSET(items!$B$4;;;COUNTA(items!$B$4:$B$100)) test.rar

1-حدد اي خلية صفراء 2-اضغط Alt+D+L تظهر لك القاعدة بكل سهولة

اخى الريفى موضوع جميل ومهم جدا اشكرك على المعلومات الجميله دى اسمح لى بان تضيف هتين المعادلتين عندك =IF(COUNTIF($B$5:$B5,$B5)=1,$B5,"") =INDEX(B:$B,MIN(IF(COUNTIF($D$4:D4,$B$5:$B$17),2^15,ROW($B$5:$B$17)))) هذه المعادلات معادلات صفيف تقبل تحياتى

السلام عليكم ورحمه الله وبركاته سوف أشرح لكم اليوم كيفية عملية تنسيق للخلية الفعالة فى أوفيس 2010 : 1- قم بتحديد نطاق الخلايا الذى تريد تطبيق الفكرة عليه 2- اضغط على التيويب Home ثم من الجزء Styles اضغط على الزر Conditional Formatting واختر من القائمة المنسدلة الأمر Manage Rules 3- سيظهر مربع حوار Conditional Formatting اضغط على الزر New Rule 4- سيظهر مربع حوار آخر New Formatting Rule ، اختر الأمر Use a formula to detemine which cells to format 5- فى المربع الموجود بالأسفل اكتب المعادلة: =CELL("address")=ADDRESS(ROW(),COLUMN()) المعادلة : =CELL("address") تعطيك اسم الخلية الفعالة أما المعادلة الآخرى: ADDRESS(ROW(),COLUMN()) تعطيك اسم الخلية الفعالة أيضاً فعند تساوى المعادلتين يتم تظليل الخلية الفعالة 6- اضغط على الزر Format واختر التنسيق الذى تريده للخلية 7- اضغط OK

السلام عليكم ورحمة الله وبركاته رحم الله والديك أخي أبومحمد على العمل الجميل ، تسلم ايدك اذا تسمحوا لي بالمشاركة ايش رايكم بهذا النموذج: بتعديل بسيط على الكود السابق اللي اشتغلتوا عليه ، المادة رقم 1 ، تمسح جميع افرع الشجرة ، حتى يبدأ الكود بعمل الازم: وهاي علشان نخلي الشجرة تُعرض من اليمين الى اليسار: بالاضافة الى هذه الوحدة النمطية: Option Compare Database Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As Long, ByVal bErase As Long) As Long Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long Public Const GW_CHILD = 5 Public Const WS_EX_LAYOUTRTL = &H400000 Public Const GWL_EXSTYLE = (-20) ' ' From http://www.microsoft.com/middleeast/msdn/faq.aspx ' 'Place OnLoad of the Form ' Dim OldLong As Long 'For Form ' OldLong = GetWindowLong(Me.hwnd, GWL_EXSTYLE) ' SetWindowLong Me.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For List ' OldLong = GetWindowLong(List1.hwnd, GWL_EXSTYLE) ' SetWindowLong List1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For The StatusBar ' OldLong = GetWindowLong(StatusBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong StatusBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For TreeView ' Dim nodX As Node ' Set nodX = TreeView1.Nodes.Add(, , "R", "Root") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3") ' Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4") ' nodX.EnsureVisible ' OldLong = GetWindowLong(TreeView1.hwnd, GWL_EXSTYLE) ' SetWindowLong TreeView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ListView ' OldLong = GetWindowLong(ListView1.hwnd, GWL_EXSTYLE) ' SetWindowLong ListView1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ProgressBar ' ProgressBar1.Value = 50 ' OldLong = GetWindowLong(ProgressBar1.hwnd, GWL_EXSTYLE) ' SetWindowLong ProgressBar1.hwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False 'For ToolBar ' mhwnd = GetWindow(Toolbar1.hwnd, GW_CHILD) ' OldLong = GetWindowLong(mhwnd, GWL_EXSTYLE) ' SetWindowLong mhwnd, GWL_EXSTYLE, OldLong Or WS_EX_LAYOUTRTL ' InvalidateRect hwnd, 0, False جعفر 54.TreeView_RTL.accdb.zip

وإياك أخي وحبيبي في الله جعلك الله صقرا في سماء الإكسل شكرا لمرورك الكريم وتقبل خالص تحياتي

أنا الأسعد أستاذ ياسر شكرا لمرورك وتثبيت هذه السلسلة وفقنا الله وإياكم لكل خير

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

الناس كسولة خلي بالك .. الفكرة كويسة بس مفيش نشاط معظم الناس نااااايمة إلا من رحم ربي ومشكور مرة أخرى على الموضوع المتميز تقبل تحياتي

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

أخي الفاضل بكار جرب المعادلة التالية ..بدلاً من المعادلة الموجودة في F3 =INDEX($A$3:$A$30,MATCH($F$4,$B$3:$B$30,0)) بس سؤال : لنفترض أن هناك تواريخ ميلاد متشابهة (نفس اليوم ونفس الشهر ونفس السنة) ..النتيجة المتوقعة ايه؟؟؟؟؟؟؟

اخى ياسر كود جميل وفرت علينا المجهود تقبل تحياتى

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

السلام عليكم تفضل اخي هذا المرفق تم التعديل والتجريب على اكثر من اصدار للاكسس واكثر من حاسوب فهو يعمل ولا توجد فيه مشاكل واذا تكررت المشاكل فانا الان بصدد العمل على مثال جديد فارجو اعلامنا كي نرفعه لكم بعد اكتماله وتجريبه بالتوفيق ssm+t.zip

جزاك الله خيراً أخي الحبيب سليم بصراحة إنت سداد معايا بشكل كبير ..ربنا يبارك فيك ويجازيك خير وحلولك بتعجبني جداً وفي منتهى الروعة

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

بارك الله بك اخي ياسر و لن تمر دون ان اضع شيء مقابل تلوين الخلية التي تحتوي على معادلة (وضعت الملف بصيغة 2003 لمن عنده هذا الاصدار كي يعمل عليه) عسى ان ينال الاعجاب cell has formula 1.rar

اخي الفاضل الموضوع سهل علي حسب ما فهمت اولا اضف الي الجدول الذي تدخل فيه البيانات حقل باسم مثلا user واضفه في نموذج الادخال اليك مثال علي ذالك للتوضيح المستخدم / admin الباسورد / 123 نظام مستخدمين.rar

نعم ممكن ان تبدا بهذ الشكل و حسب تفصيل جدولي المستودعات الرئيسي و الفرعي الذين ذكرتهما لك سابقا

اخى الفاضل أ.مختار جزاك الله كل خير أخي الكريم وجعل عملك في ميزان حسناتك ... فكرة جميلة ورائعة تسلم ايدك ورحم الله والدك ووالدي وجميع موتانا وموتي المسلمين .. وبارك الله لك في أبنائك وجعلهم قرة عين لك ولكن ايه رايك نضيف اضافة بسيطة على الكود بحيث نجعل انه ليس من الضرورى الحفظ في ال D بل يتم الحفظ في نفس مسار ملف الاكسل كما يتم حفظ الصورة بالتاريخ والوقت الذي التقطت فيه حتى لا يتم استبدال الصورة الجديدة بالصورة الموجودة سابقا هذا الكود بعد الاضافة البسيطة Sub make_jpeg() Dim i As Integer Dim intCount As Integer Dim objPic As Shape Dim objChart As Chart Dim savedate savedate = Date Dim savetime savetime = Time Dim formattime As String formattime = Format(savetime, "hh.mm.ss") Dim formatdate As String formatdate = Format(savedate, "DD-MM-YYYY") 'نسخ المدى كصوره Call Sheet1.Range("A1:f13").CopyPicture(xlScreen, xlPicture) 'مسح أى أشكال من شيت 2 intCount = Sheet2.Shapes.Count For i = 1 To intCount Sheet2.Shapes.Item(1).Delete Next i 'عمل جدول فى شيت 2 Sheet2.Shapes.AddChart 'تنشيط شيت 2 Sheet2.Activate 'تحديد الجدول الذى يوجد فى شيت 2 Sheet2.Shapes.Item(1).Select Set objChart = ActiveChart 'لصق المدى اللى نسخناه فى هذا الجدول Sheet2.Shapes.Item(1).Width = Range("A1:f13").Width Sheet2.Shapes.Item(1).Height = Range("A1:f13").Height objChart.Paste 'حفظ الجدول كصورة فى المسار التالى objChart.Export Filename:=ThisWorkbook.Path & "\" & "Mokhtar" & formatdate & " " & formattime & ".jpg" End Sub ومرفق الملف للتوضيح تحياتي range 2 jpeg.rar

بارك الله يا م / أحمد إبراهيم وكمان عامل حساب للي ناوي ياخد الكود .. ربنا يخليك للغلابة اللي زينا !

أخى الفاضل أ.ياسر انا برضه قعدت نص ساعة ادور على ال textbox ده والكود السابق اللى هو كاتبه وخفت اكتبله الكود هنا لا يستطيع وضعه في المكان الصحيح اما بخصوص تعريف المتغير Double انا عارف ان رقم السند رقم صحيح وكنت معرفه integer في البداية لكن انت عارف ممكن احد الاعضاء ياخد الكود ويطبقه على ارقام عشرية يرجع يقولك ما اشتغلش كويس معايا .. ففضلت انه يكون double حتى يعمل سواء على الارقام الصحيحة او العشرية، بمعنى اصح يعمل بشكل عام وليس على الحالة دي بس وطبعا يستطيع اى عضو تغييره ليكون integer اذا كان عمله على ارقام صحيحة فقط بالإضافة الى ان معظم دوال الاكسل تحضر القيم من النوع Double لذلك فهو الافضل عند تعريف متغير مرتبط بدالة خالص تحياتي

النسخة المطورة لبرنامج الميراث والوصايا بالأكسل خالد الطاهر حدادة الفرائض الربان&#16.rar

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