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

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

السلام عليكم موضوع جديد كيف نستخرج مجموعة اسماء من جدول استخراج اسماء.rar

تعلم أكسس 2007 | الفصل الأول : بدء العمل مع أكسس

من سوريا دمشقي ... شامي الأصل .. عربى اللسان يعمل تحت مسمى وظيفي مدير مالي انتظروا ذلك الفارس السورى فى مشاركاته القيمة المتنوعة المتقدمة

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

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

تفضل وجدت لك هذا في مكتبتي SmallStore.rar

ماأجمل دعواك ، التى تعادل الدنيا وما فيها شكرا أخى الحبيب " محمود" وتقبل اللهم منا جميعا صالح الأعمال وتكون خالصة لوجه الرحمن تقبل تحيات : أخيك

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

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

أخى الحبيب " محمود الشريف " مرورك يسعدنى ويشرفنى وخاصا لأخ قدير فى عالم الأكواد ،وأرجو فعلا أن يحقق الكود الهدف منه ويكون عند حسن الظن شكرا أخى الحبيب على مرورك وكلماتك وبارك اللهم فيك تقبل تحيات أخيك

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

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

الرابط http://www.gulfup.com/Xnht2gsa69vk0c Serial : GWH28-DGCMP-P6RC4-6J4MT-3HFDY

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

السلام عليكم عملية الاخفاء تتم بهذه الطريقه الموضحه بالفديو وعملية الاعاده تتم بعكس تلك العمليه مع التقدير http://www.gulfup.com/?kcyvpz

نرجو المساعدة فى هذا الموضوع انا محاضر كمبيوتر واريد انى اعطى كورس تعلميى لبرنامج الاكيسيل السؤال هو :- ماهو محتوى هذا الكورس .. بمعن اذا قمسمنا الاكيسيل الى 3 دورات هى 1- دورة الاكيسيل العادى (الموجود ضمن دورة icdl ) 2- دورة اكيسيل متقدم Advanced Excel 3- دورة اكيسيل محاسبى Accounting Excel ما هو محتوى كل دورة

السلام عليكم افضل طرق الحماية هي التحويل الى accde او mde في نسخة الاكسس 2003 وهذه العملية تحمي النماذج والتقارير والوحدات النمطيه اما الجداول والاستعلمات والمايكروات فلا يمكن حمايتها بعملية التحويل ولا توجد طريقة لحمايتها ولكن هناك عمليات يتبعها اغلب المبرمجين لزيادة الصعوبات للوصول الى هذه الكائنات الغير محميه اوجزها بما يلي ------- بعد التحويل الى accde 1 عمل نموذج بداء تشغيل والغاء مفتاح الشفت 2 - اخفاء جميع مفردات قاعدة البيانات 3 - تحويل جميع المايكروات الى اوامر فجول 4 - تحويل بعض الاستعلامات الى احداث ولعل هناك طرق اخرى لا اعرفها تقبل فائق الاحترام والتقدير

السلام عليكم ليس للجداول دخل في تحويل قاعدة البيانات الى accde ولكن السبب هوه وجود اخطاء او زيادة في اكواد الفجول بيسك ولمعالجة الامر نتبع ما يلي من محرر الفجول بيسك Debug---->Compile سوف تظهر الزيادات او الاخطاء في الاكواد يتم تصحيحها او حذفها اذا كانت زائدة واعادة العمليه الى ان Compile تظهر بشكل غير مفعل بعد ذلك يتم التحويل الىaccde بالتوفيق

اهلا ومرحبا بالأخ الغالى سلامى لكل اهل سوريا من خلال حضرتك اللهم فرج كرب سوريا وسائر بلاد المسلمين

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

السلام عليكم اليك الحل يا صديقي NINOS06 نينوص.rar

اهلا وسهلا أخي الكريم هذا حل لمشكلة بشكل ديناميكي ارجو ان ينال اعجابكحل مشكلة البحث عن قيمة حسب تاريخ ورقم اليوم.xls.zip

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

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

بقية الملفات NumericMathematical Functions.rar String Functions.rar

مرفقات الموضوع على رابط خارجي خوفاً من فقدان الرابط ومحتوياته يتم التحميل على الموقع ACCESS FUNCTION.rar Advanced Functions.rar Data Type Conversion Functions.rar Date Functions.rar Domain Aggregate Functions.rar FileDirectory Functions.rar Functions used by Group By Feature in queries.rar

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

السلام عليكم الشكر واصل لاخي الحبيب عباس السماوي ..........حفظه الله استبدل الجزء هذا من الكود Formula_To_Value Range("d2:d300"), "=A2&"" ""&B2&"" ""&C2" في امان الله

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

غير في هذا السطر العمود الذي تريد If WorksheetFunction.CountIf(.Range("C2:C" & Last), CStr(.Cells(R, "c"))) > 1 Then .Cells(R, "A").Resize(1, 7) من العمود a الى g سبعة اعمدة غير العدد سبعة الى اي عدد تريد اذا غيرت الى 20 سيكون من العمود a الى t تحياتي

السلام عليكم Option Explicit Sub kh_mKRR() Dim c As Integer Dim Last As Long, R As Long, LR As Long ''''''''''''''''''''''''''''' Last = ورقة1.Cells(Rows.Count, "A").End(xlUp).Row ''''''''''''''''''''''''''''' Range("A2").Resize(Cells(Rows.Count, "A").End(xlUp).Row).EntireRow.Delete ''''''''''''''''''''''''''''' Application.ScreenUpdating = False Application.Calculation = xlCalculationManual ''''''''''''''''''''''''''''' With ورقة1 For R = 2 To Last If WorksheetFunction.CountIf(.Range("C2:C" & Last), CStr(.Cells(R, "c"))) > 1 Then LR = Cells(Rows.Count, "A").End(xlUp).Row + 1 .Cells(R, "A").Resize(1, 7).Copy Cells(LR, "A") End If Next End With ''''''''''''''''''''''''''''' Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic ''''''''''''''''''''''''''''' End Sub ترحيل الارقام المكررة.rar

بعد إذن إخوتى وأساتذتى الأعزاء هناك العديد من الطرق التى يمكن أن تستحدم للبحث عن المكرر منها الطرق الأتية : 1-عن طريق ( CONDETIONALFORMATTING ) وفيها يتم التعليم على المكرر 2-أو عن طريق البحث عن جزء من الأسم وإظهار كافة الأسماء المتشابهة في هذا الجزء 3-أو عن طريق عمل قائمة يتم فيها إظهار الأسماء الفريدة دون المكرر إختبار إذا كان العمود به مكرر أم لا.rar التأكد من تواجد الأسماء_2.rar قائمة بدون تكرار.rar معادلة تلوين المكرر الذي أريدة.rar مقارنة بين عموديين وتلوين المكرر بينهما.rar

وعليكم السلام جرب المرفق و قم باضافه عدد الاسئله في المربع qus وشاهد النتيجه بعد الانتقال الى كائن اخر في النموذج عدد الأسئلة.rar

الرابط خارجي في حال عدم توفره ... التطبيق مرفق ............. ReAutoNumber2006.rar

و للتجميع هذه طريقة أخرى فعالة = نعم أستاذ بارك الله فيك الخاصية evaluate تقوم بتقييم أى معادلة يعنى لو عندك معادلة شغالة بدون مشاكل فى الشيت يمكنك تقييمها من خلال الكود باستخدام evaluate و تقييمها معناه حسابها و إرجاع قيمتها النهائية " القيمة و ليس المعادلة كما شاهدت فى ملفك بشرط ألا تزيد حروفها على 255 حرفا أيضا لا نضع علامة "=" معها هكذا Range("x5") = Application.Evaluate("SUMPRODUCT((P5:P1500=P5)*(T5:T1500))" و هذه الخاصية مشابهة لخاصية calculate = هذا المطلوب بسطر واحد من الكود وبدون أن تظهر المعادلة أصلا فى الخلية درة غالية لكن ما تغلى عليكم كل عام أنتم بخير أخى ضع السطر التالى فى حدث نقر الزر Range("x5") = Application.Evaluate("SUMPRODUCT((P5:P1500=P5)*(T5:T1500))") كما يمكنك استخدام دالة sum هكذا Range("x5") = Application.Evaluate("SUM((P5:P1500=p5)*T5:T1500)") رابط المشاركة

أخى العزيز ياسر الحافظ لقد عثرنا - بفضل الله - أثناء إجابة السائل على كنز عظيم يمكننا من وضع أى معادلة فى الكود ويتم تنفيذها بدون أن تظهر فى الشيت كل عام أنت بخير أخى ياسر و أهل سوريا جميعا الأخ السائل عدنا للأكواد هذا كود ينفذ المطلوب قبل أن تتغير قيمة الخلية فى العمود p يتم الجمع فى العمود x خذ الملف استخدام 2sumproduct , sumif فى الكود.rar

أخى الفاضل لقد استعجلت فى النظر للملف أنت طلبت إخفاء المعادلة فى x5 و هذا تم كما طلبت فى ملفى الأول لو تفضلت و راجعت الملف أما الخلية x8 فلم أتعرض لها فمعادلتها مختلفة عموما تم عمل نفس الشىء مع الخلية x8 تفضل استخدام sumproduct , sumif فى الكود.rar

اخي خبور ارجو اني اكون استطعت الانجاز تحياتي Application.Dialogs2.rar

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

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

وعليكم السلام مثلا لو اردنا امر معاينة الطباعة عندك في الفورم الرقم 222 Sub kh_showDialog_222() Application.Dialogs(222).Show End Sub مثلا اعجبني الامر ده لعمل قائمة او لست في خلية توخد من نفس العمود عملت الكود هذا ليناسها ============================================================ Option Explicit Private Const stRng As String = "B4:B32" Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next If Me.CheckBox1.Value = True Then Exit Sub If Not Intersect(Target.Cells, Range(stRng).Cells) Is Nothing Then If Target.Cells.Count > 1 Then Exit Sub If Target.Row = Range(stRng).Row Then Exit Sub If Len(Target.Offset(-1, 0)) Then Application.Dialogs(491).Show End If End If On Error GoTo 0 End Sub يوضع في حدث الورقة قائمة في خلية للقيم الفريده في نفس العمود.rar

تكرم عينك اخي ابوخليل ولكن في البداية لابد من التوضيح بان هذه الدالة استقيتها من مثال اجنبي ولا اريد ان اسند لنفسي فضل ليس لي ولكن من بساطتها يمكن فهمها بسهولة... والان الى الشرح Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1) هذا سطر تعريف الدالة ومتغيراتها والتي تتمثل في اسم الجدول او الاستعلام , اسم الحقل المراد التجميع بحسبه , اسم الحقل الذي سيتم تجميعه , اسم الحقل الذي سيرتبط به حقل التجميع (وأعتقدانه يمكن فهمها اكثر من واقع المثال) Dim DB As Database, rs As Recordset Set DB = CurrentDb هنا يتم تعريف متغيرين الأول من نوع Database أي قاعدة بيانات (وجعلناها قاعدة البيانات الحالية التي نعمل بها) والثاني rs من نوع Recordset وهذا النوع من المتغيرات وبشكل مبسط يمكن تعريفه كأنه جدول أو إستعلام Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _ & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2) هنا اسندنا للمتغير rs جملة SQL التي تمثل مصدر بياناته Do If rs.AbsolutePosition = rs.BOF Then هذه بداية الحلقة التكرارية التي ستتنقل بين سجلات الـ Recordset ثم تقوم جملة IF هنا بإختبار ما إذا كان موقع السجل الحالي (AbsolutePosition) في بداية (BOF) الـ Recordset Horizontal = rs(Feld2) عندها يجعل النتيجة تمثل قيمة الحقل المجمع Else Horizontal = Horizontal & ", " & rs(Feld2) End If وإلا تكون النتيجة هي قيم الحقل المجمع في السجلات السابقة مضافاً اليها الفاصلة (ويمكن تعديلها بما تشاء) ثم قيمة الحقل المجمع للسجل الحالي rs.MoveNext الإنتقال للسجل التالي Loop Until rs.EOF إختبار ما إذا وصلت الحلقة التكرارية إلى آخر سجل (EOF) في الـ Recordset rs.Close DB.Close Set rs = Nothing Set DB = Nothing End Function عندها يتم إغلاق الـ Recordset و الـ DB وتصفية الذاكرة من أي قيم محفوظة فيها وإنهاء الدالة هذا شرح مبسط فأرجو أن يكون واضح تحياتي,,,

بعد اذن الاخ nart lebzo تفضل اخي مثالك بعد التعديل تحياتي,,, base.rar

ومع عدم ردك رعاك الله في هذه وفي مشاركة سابقة الا انه مراعاة للمصلحة لزاما علينا اكمال الموضوع E_Control2.rar