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

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

السلام عليكم تفضل اخى الكريم - انتبه لابد قبل غلق الاكسيل - من وجود زر يمكنك خلاله الدخول الى الشيت -- اضغط زر الخروج اذا اردت الدخول الى الشيت -- 1 - Copy.rar

تمنياتي لك بالتوفيق انظر الملف المرفق كل عام وانتم بخير رمضان كريم احصاء.rar

لغير متابعي موضوع ( VLOOKUP ) من البداية حتى الاحتراف حيث تعرضنا فية للدالة INDIRECT شرح الدالة INDIRECT INDIRECT.rar ........................................................... اتمنى ان يمثل الملف إضافة بسيطة

أساتذتى وإخوتى الكرام .. الملف التالى حول احد الدوال البحثيه .. Find.. الملف يتناول شرح وسائط الدالة .. اتمنى ان يمثل إضافه بسيطة .. المرفقـــات Find_2.rar

اعرض الملف عمل نسخة تجريبية لمدة محددة بعدها التفعيل بسيريال خاص بكل جهاز بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته ------------------------ كل عام أنتم بخير وسعادة ورضا رمضان مبارك ================ استكمالا لسلسلة ما خف وزنه وغلا ثمنه موعدنا اليوم مع ملف يحتاجه كل مهتم بعمل نسخة تجريبية في الأكسس لمدة أسبوع أو شهر أو أي مدة تحددها في الكود ************************** ولا يطلب البرنامج التفعيل إلا بعد انتهاء المدة التجريبية وكذلك لا يجوز اللعب في تاريخ الجهاز لأنه سيتم اكتشافه /////////////////////////////////////////// مرفق ملفان واحد للبرنامج وملف لإنشاء السيريال للتجربة والاختبار واكتشاف الثغرات وهذا فيديو شرح الفكرة والكود +++++++++++++++++++++++++ ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ********************** الكود يعمل على كل إصدارات الأوفيس لأنه تم عمله بأوفيس 2003 دمتم في رعاية الله وحفظه =-*/+=-*/+=-*/+=-*/+ إن شاء الله صاحب الملف أ / محمد صالح تمت الاضافه 07 يون, 2017 الاقسام قسم الأكسيس

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

بارك الله لك اخى اشتغلت تمام و 10\10 تبقى الجزء الثاني وهو اضافة حدث لجمبع النماذج ! ولك جزيل الشكر .

جرب هذا الكود Option Explicit Sub give_data() Dim i, r, k As Integer Dim My_rg As Range Dim My_Sh As Worksheet Dim S1, S2 As String Application.ScreenUpdating = False For i = Sheets.Count To 2 Step -1 Application.DisplayAlerts = False Sheets(i).Delete Next Application.DisplayAlerts = True For i = 6 To 36 If Main.Range("a" & i) = "" Then Exit For On Error Resume Next S1 = Main.Range("a" & i).Value S2 = Sheets(S1).Name If S1 <> S2 Then Sheets.Add After:=Sheets(Sheets.Count) With ActiveSheet .Name = Main.Range("a" & i) With .Range("a1:d1") .Value = Array("النوع", "الكميّة", "السعر", "قيمة الاستهلاك الشهري") .Interior.ColorIndex = 6 End With End With On Error GoTo 0 End If Next Main.Select For i = 6 To 36 r = 2 Set My_rg = Main.Range("a5:cx5") Set My_Sh = Sheets(Main.Range("a" & i) & "") For k = 2 To My_rg.Count If Main.Cells(i, k) <> "" Then With My_Sh .Cells(r, 1) = Main.Cells(i, k) .Cells(r, 2) = My_rg.Cells(k) .Cells(r, 3) = My_rg.Cells(k).Offset(-1, 0) .Cells(r, 4) = My_rg.Cells(k).Offset(-2, 0) .Columns.AutoFit End With r = r + 1 End If Next Next Application.ScreenUpdating = True End Sub الملف مرفق Classeur2 Salim.rar

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

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

.Modal غير صحيحة ليس له أوبجيكت استبدله بالتالي وجرب Forms(Frm.Name).Modal = False

السلام عليكم ورحمة الله وهذه المعادلة للملف الثاني (الجديد)... =IF(AND($D2<>"مدير";$D2<>"مدرس");"";($B2*$C2+IF($D2="مدير";150;0))*IF($E2="قائم";1;IF($E2="غيرقائم";($G2-$F2+1)/($I3-$F3+1);IF(LEFT($E2;3)="جزء";RIGHT($E2;2)%*IF($G2="";1;($G2-$F2+1)/($I2-$F2+1));($I2-$H2+1+($G2-$F2+1)*RIGHT($E2;2)%)/($I2-$F2+1))))) بن علية حاجي السلام عليكم ورحمة الله وهذه المعادلة مختصرة أكثر للملف الثاني... أرجو أن تفي بالغرض... =IF(AND($D2<>"مدير";$D2<>"مدرس");"";($B2*$C2+IF($D2="مدير";150;0))*IF($E2="قائم";1;IF($E2="غيرقائم";$G2-$F2+1;IF(LEFT($E2;3)="جزء";RIGHT($E2;2)%*IF($G2="";1;$G2-$F2+1);($I2-$H2+1+($G2-$F2+1)*RIGHT($E2;2)%))))/IF($G2="";1;$I2-$F2+1)) بن علية حاجي

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

أوك عندك في النموذج المستمر مربع نص اسمه dd مصدر التحكم له CONTROL SOURCE = =IIf([final]=False And Nz([date2_out];0)=0;DateDiff("m";[date1_in];Date());0) ومعناه اذا تحقق شرطي الحقلين final , date2_out فإنه يحسب الفرق بالأشهر بين التاريخ الحالي وتاريخ date1_in فيكون الناتج عدد أشهر ثم يأتي دور التنسيق الشرطي ويختبر قيمة عدد الأشهر فاذا زاد عن واحد تحول لون النص للأحمر وهكذا فضلت شرح طريقة ما قمت به تنفيذا للمقولة أعطنى صنارة ولا تعطيني سمكاً بريد الدوار27.rar

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

السلام عليكم ورحمة الله وبركاته أستاذ سعيد أسعد الله أيامك انت عارف اليومين دول مراقبة الثانوية العامة لاحظ هذا المرفق تم تعديل معادلة المدير وبالنسبة لظهور الصفر فهذا لأن مردود الدالة رقم فلا تعود الدالة بنص فارغ ويمكنك إخفاء الصفر من خلال File -> options -> Advanced -> show a zero in cells that have zero value رمضان مبارك لا تنساني من دعوة وقت الإفطار دالة معرفة لعدة شروط2.rar

اخوي يربط كأي جدول افتح على الجداول واختر جديد/ ربط ثم اختر الملف واكمل المعالج الى الآخر قد لا يظهر ملف اكسل هنا يجب عليك اختيار النوع من مربع الحوار ثم حدد ملفات اكسل هذا مثالك بعد التعديل / لترى انه يعمل بشكل ممتاز ضع المجلد على قرص D ExclLink.rar

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

حضرتك اذا كان البرنامج له حقوق ملكية عليك الاتصال بصاحب البرنامج

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

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

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

Test this try Backup all tbls except one.rar

وعليكم السلام الفكرة ببساطة هنا هو أن نحصل على الرقم 1 في أول صف في النتائج ... وهنا يتم الاعتماد على الدالة Row لمعرفة رقم الصف الحالي ... وبما أن النتائج ستبدأ في الصف الثالث عشر .. فلكي نحصل على الرقم 1 يتم طرح 13 - 12 ليساوي الرقم 1 أي أن هذا الجزء مرتبط برقم صف البداية للنتائج تقبل تحياتي

تفضل تم التعديل مشكلتك تكمن في اختلاف مسمى الصف بين الجدولين فأنا اعتمدت اسم الصف في جدول أ وعدلت اسماء الصفوف في جدول ترحيل الناجحين3.rar

:: تفصل .... تحية للاستاذ @رمهان FindAsUType1.rar

السلام عليكم اخى الحبيب / ناصر - انتظرت كثيراً رد احد اساتذه المنتدي لعرض الطرق المختلفه لتقسيم مصفوفة النتائج على اكثر من نطاق للبيانات - ربما هذا الامر ليس بالهام كثيراً بالنسبه لملفك - لانه الحل الاول اعتقد انه مناسب جداً - ولكن ربما فكرة تقسيم مصفوفة النتائج على عده نطاقات تكون مهمه بالنسبه لبعض الافكار الاخري - لهذا ----اخر ما توصلت اليه - ---- تقسيم مصفوفة النتائج الى جزئين - الجزء الاول يعبأ بالنطاق a:O , الجزء الثاني R:AZ .Range("A11").Resize(j - 1, 15).Value = Application.Index(temp, [row(1:5000)], Application.Transpose([row(1:15)])) .Range("R11").Resize(j - 1, c - 14).Value = Application.Index(temp, [row(1:5000)], Array(Application.Transpose([row(16:50)])))

السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان هذا الموضوع قد قتل بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار والذي لايصل علمنا او ما لدينا كله الي ذرة واحدة من علمهم ولكن هو طلب لأحد الاعضاء ( الاخ الكريم / alredha ) ولكني اردت ان اجعله موضوع بعنوان واضح ليستفيد من الجميع عند البحث وسأقدم الشرح بطريقة الفيديو والاكسيل والورد احياناً (((( الدرس الاول )))) شاشة افتتاحية باسم مستخدم ورقم سري ولايظهر الاكسيل الا بعد اعطاء الشاشة البيانات الصحيحة وطبعاً والاكيد كله من علمكم اساتذتي الكرام وفي الدرس القادم سنتعرف علي طريقة عمل اكواد الشاشة لتعمل معنا علي اي برنامج لدينا او اي برنامج سنقوم بتصميمه فيما بعد جزاكم الله خيرا اساتذتنا طريقة عمل الشاشة الافتتاحية شرح علي الورد1.rar شرح عمل شاشة افتتاحية فيديو1.rar طريقة عمل الشاشة الافتتاحية اكسيل1.rar

السلام عليكم عودة بعد غيبة طويلة جدا عن منتدى الإكسيل بهذه الطريقة الظريفة بدون برامج وفقكم الله الفيديو

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

الواجهة الرئيسية للبرنامج