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

السادة إخوانى وأعزائى أعضاء وأساتذة المنتدى العظيم مرفق ملف إكسيل به جميع إختصارات الإكسيل وإختصارات أخرى أرجوا من الله العلى القدير أن ينال رضاكم تقبلوا خالص تحياتى Short Cut Excel.rar

وعليكم السلام ورحمة الله وبركاته الأخ أبو ندى هذا الطرح يشبه الذي طرحته في موضوع "استفسار حول: احصاء حقول لكن بشرط....." و هذا هو الرابط http://www.officena.net/ib/index.php?showtopic=62758 وهذا هو الحل في هذا المرفق أدناه وأرجو أني قد وفقت للصواب وشكرا عدد التلاميذ تلقائى.rar

تفضل تم التعديل باستخدام الدالة DCount مع الاستعانة بالاستعلام و الجدول Tabel6.rar

لتعم الفائدة والإستفادة للجميع شرح دوال الاكسيل.rar

اخى الكريم ممكن تستخدم برنامج Smart Install Maker وده شرحه لأختنا الكريمه زهره والبرنامج والسريال بالمرفقات بالتوفيق إن شاء الله شرح.rar smart install maker 5.04.zip

مشاركة مع اخي سلمان مشكورا يمكن استبدال سطر الاستاذ سلمان بالتالي Forms![الأقسام]![عنصر_تحكم_علامة_جدولة1].Value = 2 وحسب تسلسل الصفحة في علامة الجدولة وبغض النظر عن الاسم ! وهناك طريقة فكرة اخرى تم تطبيقها على المرفق ! حيث : 1. تم وضع قيم لخاصية tag او علامة بالعربي لازرار الامر 2. تم وضع حدث عند التحميل للنموذج ومعرفة القيمة الممررة بالتوفيق مثال عن المكتبة.rar

تفضل اخي الكريم ان شالله ان هذا الي تبيه لكن الافضل غير الاسماء انجليزي سواء النماذج او الازرار افضل لك في كتابه الاكواد مثال عن المكتبة.rar

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

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

كتاب ممتااااااااااااااااااااااااااز بارك الله فيك أخى الكريم المهندس ياسر

أخي الكريم هل اسمك الحقيقي أبو ياسر أم أنه مجرد اسم ؟؟ عموماً تم عمل المطلوب ووضع الكود في حدث فتح المصنف فكرة الكود تعتمد على إظهار الورقة المخفية ثم تنفيذ المطلوب ثم إخفاء الورقة مرة أخرى يمكنك تجربة الكود بهذا الشكل لترى إذا كان يعمل بشكل جيد أم لا قم بإظهار الورقة المخفية وامسح العمود الثاني وأخفي الورقة واحفظ المصنف وأغلقه قم بفتح المصنف وأظهر الورقة المخفية لترى النتيجة المطلوبة لا تنسى ان تحدد أفضل إجابة ليظهر الموضوع منتهي ومجاب عليه كما لا تنسى أن تضغط "أعجبني هذا" إذا أعجبتك المشاركة تقبل تحياتي Auto Copy Sheet4 V2.rar

السلام عليكم ..... م/ ياسر فتحي مجهود كبير بارك الله فيك وجعله الله في ميزان حسناتك

السلام عليكم شكراً جزيلاً استاذ سليم علي الكود الجميل الخفيف ......................... (( استاذي العزيز ياسر شرح مفصل وجميل جداَ ومبسط بارك الله فيك ))

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

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

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

أخي الكريم يرجى في موضوعات لاحقة إن شاء الله أن يكون الملف المرفق معبر عن الطلب تماماً .. حاول تراعي وقت وجهد الآخرين بالله عليك أمر آخر ...هل الملف رقم معبر عن شكل الملف الأصلي ؟؟ إذ لاحظت أنه في الصف رقم 11 أن هناك عناوين موجودة مرتين result5 و result6 (هذا غير معبر بعض الشيء) ..كما أن هناك عناوين مختلفة عن العناوين في الملف رقم 2 ... هناك عنوان result 5 يوجد مسافة بين الكلمة والرقم عموماً قمت بمسح العناوين في العمود Gو H في الملف رقم 1 كما قمت بإزالة المسافة بين الكلمة والرقم في الملف رقم 1 أيضاً ليعمل الكود بشكل جيد حيث أن الكود الآن يعتمد على عناوين الصف رقم 14 في الملف رقم 2 ، وعناوين الصف رقم 11 في الملف رقم 1 ، ليتم جلب البيانات في المكان المناسب من المكان المناسب إليك الكود التالي لعله يفي بالغرض Sub ImportData() Dim WB As Workbook, myRng As Range, Cell As Range Dim myRow As Long, lCol As Long Dim shMain As Worksheet Application.ScreenUpdating = False Set shMain = ThisWorkbook.ActiveSheet Set WB = Workbooks.Open("G:\1.xlsx") On Error Resume Next For Each Cell In shMain.Range("C14:F14") With WB.Sheets("Data") lCol = Application.WorksheetFunction.Match(Cell, .Rows(11), 0) Set myRng = WB.Sheets("Data").Range(.Cells(12, lCol), .Cells(.Cells(Rows.Count, lCol).End(xlUp).Row, lCol)) myRng.Copy shMain.Cells(15, Cell.Column).PasteSpecial xlPasteValues End With Next Cell WB.Close True Application.CutCopyMode = False Application.ScreenUpdating = True MsgBox "Task Completed" End Sub ملحوظة يوضع الملف رقم 1 في المسار المكتوب في الكود في البارتشن G وإليك الملف المرفق Work.rar

أخي الكريم ارفق ملفك ليساعدك الأخوة الأعضاء

جزاك الله خير الجزاء

جرب الكود بهذا الشكل لعله يكون المطلوب Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A2:F2]) Is Nothing Then If Target = "" Then AutoFilterMode = False Else Range("RN").AutoFilter , field:=Target.Column, Criteria1:="*" & Target & "*" End If End If End Sub

بارك الله فيك أخي الحبيب الغالي مختار زيادة في الخير وإثراءً للموضوع إليك الحل التالي ..حيث يتم إنشاء مصنف لكل توجيه ويستثنى "بدون توجيه" ، كما يستثنى "بدون توجيه" في مصنف "قوائم التوجهات الكلية" يتم إنشاء مجلد في نفس مسار المصنف الحالي باسم Results يتم تصدير المصنفات به Sub YasserKhalil() Dim rngData As Range, rngToCopy As Range, arrFilter, I As Long, J As Long Application.DisplayAlerts = False Application.ScreenUpdating = False If Len(Dir(ThisWorkbook.Path & "\Results", vbDirectory)) = 0 Then MkDir ThisWorkbook.Path & "\Results" End If Set rngData = Range("D7:S" & Cells(Rows.Count, "D").End(xlUp).Row) arrFilter = Application.Transpose(Range("U12:U" & Cells(Rows.Count, "U").End(xlUp).Row)) ReDim Preserve arrFilter(1 To UBound(arrFilter) + 1) arrFilter(UBound(arrFilter)) = "<>بدون توجيه" For I = 1 To UBound(arrFilter) ActiveSheet.AutoFilterMode = False rngData.AutoFilter Field:=16, Criteria1:=arrFilter(I) J = rngData.Columns(1).SpecialCells(xlCellTypeVisible).Count If J = 1 Then GoTo skipper Set rngToCopy = Intersect(Union(Columns("D:E"), Columns("R:S")), rngData.SpecialCells(xlCellTypeVisible)) Workbooks.Add ActiveSheet.Cells.Clear rngToCopy.Copy Range("B5") With Range("B2:E3") .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .MergeCells = True .Font.Size = 20 .Value = IIf(I < UBound(arrFilter), arrFilter(I), "قوائم التوجهات الكلية") End With If I < UBound(arrFilter) Then Columns("E").Delete ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Results\" & arrFilter(I) & ".xlsx" Else ActiveWorkbook.SaveAs ThisWorkbook.Path & "\Results\" & "قوائم التوجهات الكلية" & ".xlsx" End If ActiveWorkbook.Close skipper: Next I ActiveSheet.AutoFilterMode = False Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub تقبل تحياتي Export Workbooks Using Filter Method.rar

السلام عليكم قمت بإزالة مربعات النص وإستبدالها بخلايا الاكسل من المدى A2:F2 أصبح الكود كالتالي Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [A2:F2]) Is Nothing Then If Target = "" Then AutoFilterMode = False Else Range("RN").AutoFilter , field:=Target.Column, Criteria1:=Target End If End If End Sub هذا الكود يفيد لجميع خلايا المدى جرب المرفق اضافة وتغيير في صيغة البحث 2010.zip

جرب الكود بهذا الشكل Sub ClearExceptFormulas() Union(Range("D10:I49"), Range("I50:I53")).SpecialCells(xlCellTypeConstants).ClearContents End Sub

المعادلة صحيحة 100% ولكن ربما تحتاج لتغيير الفاصلة المنقوطة ( ; ) إلى الفاصلة فقط ( , ) جيث يرجع ذلك إلى اختلاف التنسيقات بين جهاز صاحب المعادلة وجهازك

هدية جميلة من انسان جميل ! تحياتي ابا احمد

أخي وحبيبي أبو سليمان أنا مصمم إنك متاخدش السمكة .. لازم تتعلم تصطاد ويا أنا يا إنت الليلة في المنتدى هشرح وإنت طبق .. عرفت يبقا خير وبركة والليلة هتعدي على خير .. معرفتش يبقا ليلتي مش فايتة غير لما تطبقها إن شاء الله الأول خد الكود مشروح بالتفصيل الممل لكل سطر ... عشان تقدر تتعلم وتنفذ الكود على أي ملف تاني Private Sub Worksheet_Change(ByVal Target As Range) 'فمع كل إدخال يتم أخذ قيمة الخلية [G14] يقوم الكود بالتعامل مع الخلية '[G15] وجمعها مع القيمة الموجودة بالفعل في الخلية '[G14] بها القيمة 100 وتم كتابة القيمة 15 في الخلية [G15] أي أنه إذا كانت الخلية 'فيصبح الناتج 105 [G15] يقوم الكود بجمع قيمة الخلية الهدف إلى الخلية 'ثم يقوم الكود بمسح محتويات الخلية الهدف وتحديدها مرة أخرى استعداداً لإدخال جديد '-------------------------------------------------------------------------------- 'تعريف المتغيرات لخلية الهدف والخلية أسفل منها Dim M, N '[G14] هذا السطر يحجم التعامل مع خلية واحدة وهي الخلية 'أي أن تنفيذ الكود مرتبط بالتغير في هذه الخلية If Not Intersect(Target, Range("G14")) Is Nothing Then 'إلغاء خاصية تمكين الحدث لتنفيذ الكود بشكل أسرع Application.EnableEvents = False 'إذا حدث تغير في الخلية الهدف يتم تنفيذ الأسطر التالية With Target 'شرط للتحقق من أن البيان المدخل عبارة عن رقم وليس نص If IsNumeric(Target) Then 'المتغير يساوي قيمة الخلية الهدف M = .Value 'المتغير يساوي قيمة الخلية أسفل الخلية الهدف زائد قيمة الخلية الهدف N = .Offset(1, 0).Value + M '[N] الخلية أسفل الخلية الهدف تساوي المتغير المسمى .Offset(1, 0) = N End If 'مسح محتويات الخلية الهدف وتحديدها .Value = "": .Select End With 'إعادة خاصية تمكين الحدث Application.EnableEvents = True End If End Sub دا الكود ..حلو الكلام ؟؟؟ قووووول حلو طيب فين نضع الكود .. سؤال بسيط وإجابتة أبسط كليك يمين على اسم ورقة العمل المسماة "ورقة 1"كما في المرفق في المشاركة الأولى نقول تاني كليك يمين على ورقة العمل ورقة 1 وبعدين هيطلع قايمة (نتفرج عليها شوية ونركز فيها ) وندور على الأمر View Code ولو الأوفيس عربي مفيش مشكلة هتلاقي اسمه "عرض أو إظهار الكود" هيفتح معاك محرر الأكواد في المكان المناسب تماماً .. اللي هو حدث ورقة العمل أو الموديول الخاص بالورقة وليس مثل بقية الأكواد التي توضع في موديول منفصل ... المهم تلصق الكود اللي وضعته في المكان المناسب وروح للورقة وضع أرقام في الخلية G14 لتجربة الكود .. وعينك طبعاً على الخلية G15 عشان تشوف التغيرات

أخي الكريم مجدي الطيب جرب الكود التالي (قمت بتغيير اسم المصنف للغة الإنجليزية ..يمكنك تسميته باللغة العربية وتعديل الاسم في الكود ..فقط لسهولة التعامل مع الكود قمت بتغيير اسم المصنف ) Sub ImportData() Dim WB As Workbook, rngLookup As Range Dim myRow As Long Dim shMain As Worksheet Application.ScreenUpdating = False Set shMain = ThisWorkbook.ActiveSheet Set WB = Workbooks.Open(ThisWorkbook.Path & "\" & "Data Base.xlsx") Set rngLookup = WB.ActiveSheet.Range("B3:B" & WB.ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row) On Error Resume Next With shMain myRow = Application.WorksheetFunction.Match(.Range("B1"), rngLookup, 0) + 2 Union(.Range("C8"), .Range("K8"), .Range("D11"), .Range("C14"), .Range("G14"), .Range("K14")).ClearContents .Range("C8") = WB.ActiveSheet.Cells(myRow, "C") .Range("K8") = WB.ActiveSheet.Cells(myRow, "E") .Range("D11") = WB.ActiveSheet.Cells(myRow, "D") .Range("C14") = WB.ActiveSheet.Cells(myRow, "F") .Range("G14") = WB.ActiveSheet.Cells(myRow, "G") .Range("K14") = WB.ActiveSheet.Cells(myRow, "H") End With WB.Close False Application.ScreenUpdating = True End Sub لا تنسى أن تحدد أفضل إجابة وأن تضغط على كلمة "أعجبني هذا" إذا نالت المشاركة إعجابكم تقبل تحياتي Import Data From Closed Workbook.rar

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