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

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

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

شوف اخي الكريم الملف ده Right Click is Disbaled.rar لو انت عاوزه في الملف كله انسخ الكود في حدث الملف Private Sub Workbook_SheetBeforeRightClick _ (ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) Cancel = True MsgBox ("Sorry Right Click is Disbaled for this Workbook") End Sub

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

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

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

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

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

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

أخي الكريم أخونا في الله (ولازم تقول اسمك .. إن شاء الله) بالنسبة لاستخدام الحلقات التكرارية جميل ومفيد ولكن مع البياناات الكثيرة يكون مريع ومخيف ويستغرق وقت طويل .. جرب في الملف المرفق بعد تغيير أسماء أوراق العمل .. ورقة العمل الأولى إلى Data وورقة4 إلى Result .. وزود البياناات إلى 10.000 صف مثلاً وجرب الكود الجميل الذي تفضلت به وجرب الكود التالي .. ولاحظ الفرق في التوقيت بالنسبة للتنفيذ Sub Unique_Count_Sum() Dim Ws As Worksheet, Sh As Worksheet Dim Rng As Range, Cel As Range Dim LR As Long Dim Dic, a Set Ws = Sheets("Data"): Set Sh = Sheets("Result") LR = Ws.Cells(Rows.Count, "E").End(xlUp).Row Set Rng = Ws.Range("E2:E" & LR) Set Dic = CreateObject("Scripting.Dictionary") With Sh.Range("B9").CurrentRegion .ClearContents: .Borders.Value = 0 End With On Error Resume Next For Each Cel In Rng If Cel <> 0 Then Dic.Add CStr(Cel), CStr(Cel) Next Cel a = Dic.Items Sh.Range("B9").Resize(Dic.Count) = Application.Transpose(a) With Sh.Range("C9").Resize(Dic.Count) .Formula = "=COUNTIF(Data!$E$2:$E$" & LR & ",B9)" .Offset(, 1).Formula = "=SUMIF(Data!$E$2:$E$" & LR & ",B9,Data!$F$2:$F$" & LR & ")" .Resize(, 2).Value = .Resize(, 2).Value End With Sh.Range("B9").CurrentRegion.Borders.Value = 1 End Sub أعتذر عن تغيير أسماء أوراق العمل ..حيث يكون التعامل باللغتين معاً في كتابة الكود أصعب ، وأنا أبحث عن الأيسر لي دائماً .. وهذا ليس تقليلاً للغة العربية أبداً .. * جزيت خيراً على الأسطر التي استفدت منها بخصوص عمل حدود للنطاق المستخدم ، استخدام بسيط ورائع تقبل تحياتي

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

هذا كل ما استطعت عمله تفضل التبويب الموضوعى لآيات القرآن3.rar

ماشاء الله استاذ محمد حسن وربنا يبارك في حضرتك ودي معادلة اخرى لمعرفة السنة الكبيسة على افتراض ان السنة موجودة بالخلية A3 =IF(OR(MOD(A3,400)=0,AND(MOD(A3,4)=0,MOD(A3,100) <> 0)),"سنة كبيسة","سنة بسيطة")

كنترول شيت ابتدائى 2016 مرفق معة ملف ... تعليمات الاستخدام ... به كل الارقام السريه للبرنامج كنترول 2016

بسم الله الرحمن الرحيم كنترول شيت ابتدائي ..دور اول وثاني ..اصدار2 كلمة سر الدخول : 1111 كلمة سر محرر الأكواد : 11223344 كلمة سر صفحة الصلاحيات :6666 كلمة سر تصفير الشيت: 6666 رابط التحميل http://www.gulfup.com/?UoQpgi

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

بسم الله الرحمن الرحيم درس اليوم بعنوان الحلقات التكرارية iterations & looping يعني ايه iterations & looping ويعني ايه حلقات تكرارية من الاصل الحلقات التكرارية في الاصل هي تكرار امر معين عدد من المرات كثيرا ما نحتاج في برامجنا تكرار بعض الاوامر عدد من المرات المحددة او الغير محددة يعني مثلا اقول لحبيبي ابو البراء قول ارنبنا فى منور انور وأرنب أنور فى منورنا عشر مرات مثلا كدا انا حددت عدد التكرار هنا عشر مرات دا ان عرف يعني يقولهم او حتى اخي احمد الفلاحجي هنا بقي نقول ان دي جمله تكرارية محددة او معروفة وتندرج تحت الاسم iterations طيب لو قلت لابو البراء قول بسيطه وماتستبسطهاش وصعبه وماتصتصعبهاش لحد ما يبان لك صاحب ههههههه كدا اول واحد هيظهر ويتعاطف مع الموقف حبيبي ابو يوسف ويقولي حرام عليك واخي الغالي عبد العزيز هيقول اشيل عنه شوية والفلاحجي هيستخبى طيب من المثال اللي فات فهمنا ايه انه لازم يفضل يعيد الجملة لحد ما يبان له صاحب يعني هنا حطينا شرط لايقاف الحلقة يبقي كدا اسمها جملة تكرارية شرطية وتندرج تحت الاسم looping ومن الامثلة السابقة نقدر نقسم الحلقات التكرارية المحددة والشرطية كما بالاسفل iterations For.........Next For.........Each looping Do.........Loop Do...........While Do...........Until While ناخد مثال على الجز الاول وهو iterations For.........Next وتكتب هكذا For i = 1 To 10 MsgBox(i) Next نوضح الجمله اولا بدأنا الجملة بكلمة محجوزة For وبعدها حرف i وهو هنا يسمي بالمتغير وبالاصح العداد المتغير وبعدها = تساوي ايه بقي تساوي القيمة الابتدائية للمتغير to القيمة النهائية للمتغير والتي اذا وصل لها توقف عن العمل ونختتم الكود ب Next للتكرار حتى نهاية القيمة يبقي المثال اللي فات ايه اللي هيحصل فيه لما نشغله هيظهر لينا رسائل متتاليه من 1 الى 10 وبعدها تتوقف لانتهاء عمل الكود طيب لو احنا محتاجين زيادة بمقدار مختلف يعني مثلا يزيد كل مره رقمين مش واحد زي ما موجود يعني بدل ما يبقي 1 2 3 4 5 6 7 8 9 10 يبقي كدا مثلا 1 3 5 7 9 وطبعا مش هيجيب ال10 لان مسافتها من بعد ال9 رقم واحد يبقي هيتوقف عند ال9 فقط ازاي نعمل الكود دا نشوف For i = 1 To 10 Step 2 MsgBox(i) Next زودنا هنا كلمة step 2 وهنا يعني مقدار الخطوة 2 للمتغير طيب ينفع بدل ما ازود انقص مثلا اه تمام ينفع نعكس العمليه For i = 10 To 1 Step -1 MsgBox(i) Next يعني ايه الكود السابق يعني المتغير يفضل يقل من 10 لحد 1 بمقدار -1 طيب احنا هنقضيها مقدار ارقام لا ممكن نعلن عن متغيرات تحمل الارقام دي ازاي بقي Dim x As Byte = 1 Dim y As Byte = 10 For i = x To y MsgBox(i) Next اظن كدا واضحة لينا احنا اعلنا عن متغيرين من نوع بايت واحد قيمته1 والتاني 10 ونستطيع ان نربط المتغير بتكست بوكس مثلا اذا كانت القيمة هنحددها من على الفورم واحنا شغالين ندخل بعد كدا على الFor Each بنستخدم امتى الفور ايتش دي بنستخدمها مع الكولكشن زي المصفوفات كدا مثلا هناخد المصفوفات دي بس بعدين المهم هنعرف ازاي نعلن عنها ونعرفها في الجملة فور ايتش في المثال التالي Dim myarr() As String = {"الفلاحجي", "ابو البراء", "ابو يوسف", "البسكري", "ياسر العربي"} For Each i In myarr MsgBox(i) Next هنا اعلنا عن مصفوفه من نوع استرنج نصي يعني وعرفناها بما هو مكتوب بين الاقواس وبعدها جينا لجملة التكرار For Each ووضعنا متغير i بيساوي المصفوفة myarr الكود السابق عند تطبيقه سيعرض لنا الاسماء الموجودة بالمصفوفة على التوالي داخل رسالة وعند الانتهاء من كل محتويات المصفوفة يتوقف عمل الكود زي ما بنعملها في الاكسيل كدا مثلا Dim rng As Range For Each rng In Sheet1.Range("a1:a100") rng = "الله اكبر" Next rng هنا بنعلن عن متغير rng وحددنا له مساحة يشتغل داخلها من الخلية a1 :a100 ونقدر نطبق على هذا النطاق ما نريده مثلا نحدد المتغير ونقول انه المتغير هيكون قيمته الله اكبر ونطاق الحلقة التكرارية هو 100 خليه يبقي كلهم هيتكتب فيهم الله اكبر ولحد هنا نتوقف ونكمل باذن الله باقي الدرس قريبا المثال المستخدم في الشرح حمل من هنا المثال تقبلو تحياتي ياسر العربي يتبع

حيا الله الاستاذ عبدالله عودة حميدة

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

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

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

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

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

المعادلة المطلوبة في D4 والسحب نزولاً =IF($B4<>"",SUMIF(السجل!$D$4:$D$100,$B4,السجل!$F$4:$F$100),"")

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

السلام عليكم تفضل جرب المرفق خصم من مخزونمعدل.rar

أخي الحبيب أبو عيد بارك الله فيك وجزاك الله خيراً على هذا الإبداع اللامنتهي .. معادلات رائعة .. وإن كان هناك استعانة بكثير من الأعمدة المساعدة ولكن حل رائع ومتقن جداً أخي الكريم وائل شعبان إثراءً للموضوع إليك نفس الملف في المشاركة الأخيرة الخاصة بأخونا أبو عيد بعد حذف الأعمدة المساعدة والمعادلات لأنها وإن كانت حلاً رائعاً إلا أنها تثقل التعامل مع الملف بشكل كبير جداً خصوصاً أن حجم البيانات كبير للغاية .. مما يجعل التعامل مع الملف ثقيل جداً .. فإليك حل بالأكواد .. تم تغيير امتداد الملف لتتمكن من تنفيذ الكود والاحتفاظ به كل ما عليك هو تحميل الملف من الرابط أسفل المشاركة .. تفتح الملف ثم تضغط Alt + F8 وتنفذ الكود الذي سيظهر لك باسم Test عن طريق اختيار الإجراء الفرعي المسمى Test ثم تنقر Run ويمكن تخصيص زر لتنفيذ الأمر .. هذا هو الكود Sub Test() Dim Coll As New Collection, Arr, I As Long, J As Long, K1 As Long, K2 As Long, V Arr = Sheets("القرآن كاملا").Range("A1").CurrentRegion.Value For I = 2 To UBound(Arr, 1) Coll.Add Key:=Arr(I, 2) & Chr$(2) & Arr(I, 3), Item:=Arr(I, 4) Next I Arr = Sheets("القرآن كاملا").Range("F1").CurrentRegion.Value For I = 2 To UBound(Arr, 1) Coll.Add Key:=CStr(Arr(I, 1)), Item:=Arr(I, 2) Next I With Sheets("المثال").Range("F1").CurrentRegion Arr = .Value For I = 2 To UBound(Arr, 1) Arr(I, 8) = "" V = Split(Arr(I, 7), "|"): K1 = CLng(V(0)): If UBound(V) = 0 Then K2 = K1 Else K2 = V(1) On Error Resume Next For J = K1 To K2 Arr(I, 8) = Arr(I, 8) & Space$(1) & Coll(Arr(I, 6) & Chr$(2) & J) Next J Arr(I, 8) = "(" & Arr(I, 8) & " ) < " & Coll(CStr(Arr(I, 6))) & Space$(1) & Arr(I, 7) & " >" On Error GoTo 0 Next I .Value = Arr End With End Sub حمل الملف من هنا تقبل تحياتي

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

و عليكم السلام ... New 1111111111.rar

الخطأ مني ... تفضل ... 4 نموذج.rar

نعم تمام

ابو جنى تعبتك وياي بس صارت مشكلة بالكود الي موضوع بفورم الكومبيوتر الي هوا If [Forms]![Enter]![user] = "admin" Then Me.Form.RecordSource = "computer" Me.Refresh Else Me.Form.RecordSource = "Qcomputer" Me.Refresh End If المشكلة انه الريكورد سورس ياخذ معلوماته مباشرة من كومبيوتر والكومبيوتر لا يحتوي على اسم الموظف لهذا اذا دخلت باليوزر ادمن لان يظهر اسم الموظف ولكن اذا دخلت بيوزر عادي يظهر اسم الموظف لانه يستمد معلوماته من التقرير بأسم كي كومبيوتر وهوا يتحوي على اسم الموظف. وعندي فكرة اذا ممكن اشركك بيها .. انو اسوي حقل جديد داخل الجدول وأسمي أسم الموظف واضيفه للفورم واسويله شرط انو اذا كان الرقم الوظيفي الي بجدول الكومبيوتر يساوي نفس الرقم الي بجدول الموظفين اذا اجلب اسم الموظف من جدول الموظفين وضعة في اسم الموظف في جدول الكومبيوتر .. وانا من الممكن اضيف حقل جديد في الكومبيوتر ودخل اسم الموظف بشكل يدوي لكن كا مقترح فقط

يعجز لساني عن شكرك فعلا جربت طريقتك الاح ياسر ونجت مشكور مشكور مشكور

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

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

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

وعليكم السلام اخي ابومصطفى بما اني من عمل جزئية البرنامج السابق ، فتفضل جعفر 354.برنامج الفواتيرالناجح المعدل.accdb.zip

اخوانى جزاكم الله خير بارك الله فيكم اكسيل وبرمجه وثقافة دينية

ابحث عن هذا السطر If InStr(1, .Cells(T, 2), txt, vbTextCompare) = 1 Then ********************************************************************* ثم امسحه و غيره بهذا السطر If .Cells(T, 2) Like "*" & txt & "*" Then

تقصد التقريب لاقرب عشرة اضبط معيا وبعد منخلص نضبط الشكل والعلامة وما الي ذلك حساب داخل الفورم.rar

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

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

انسخ هذه المعادلة الى الخلية G2 واسحب يميناً و نزولاً =IFERROR(VLOOKUP($F2,INDIRECT(IF(ISNA(MATCH($F2,Sheet2!$D$2:$D$16,0)),"Sheet3!$e$1:$g$4","sheet2!$d$1:$f$4")),COLUMNS($F$1:G1)),"-")

وعليكم السلام اليك طريقتين ، وانا استعملت الثانية: الطريقة الاولى ، تعطيك السجل المطلوب ، ولكن لا تستطيع ان تذهب الى سجلات اخرى ، اما الطريقة الثانية ، فانت حُر كالطير ، تستطيع ان تنتقل من زهرة الى اخرى Private Sub z_AfterUpdate() '1 ' Me.Filter = "[رقم شهادة الميلادة]=" & Me.z ' Me.FilterOn = True '2 Me.[رقم شهادة الميلادة].SetFocus DoCmd.FindRecord Me.z, acAnywhere, , acSearchAll, acSearchAll, acCurrent End Sub ورجاء ، لا تسأل اسئلة جديدة في هذا الموضوع ، فهذا مخالف لقوانين المنتدى ، بد اعمل لك موضوع جديد بسؤال جديد جعفر 354.برنامج الفواتيرالناجح المعدل.accdb.zip

هل تقصد مثل هذه الشيء vlooup_dif_sheets.rar

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله