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

يا ياسر فكرتنى بحكاية لطيفة جماعة قالوا لواحد : تقدر تشيل الخروف ده ؟ قال لهم : آآآآآآآه هاتو الخروف ده هو فين ؟ هو فين و أنا أشيل أمه ؟ قام الجماعة جابو الخروف للراجل وقالوا الخروف اهه تفضل اهه الراجل ميل كتفه عشان يشيل الخروف مقدرش فقالوا له : هــــــــــــــا ! قال : معلش أنا مولف على شيل الجمال ! و الله أنت يا ياسر ابن حلال ضحكتنى بجد تحياتى لك و لعبدالعزيز

برنامح لتسجيل كشوف 12 د إلكترونيا ... كل عام وانم بخير كشوف 12 د.rar

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

اهداء للمنتدى الغالى برنامج المصروفات برنامج المصروفات.rar

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

يا أبو العربى يبقى ايه ؟؟؟؟ ان شاء الله صدقة مش كمان ننا استفسار : هو الملف التنفيذى قابل للكسر ؟ ما جربتش قبل كده !

أخى عبدالعزيز اجابة على سؤالك : نعم يمكن ازالة كلمة المرور بمحرر الأكواد فقط ارفع الملف للعمل عليه

ملاحظ عدد المواد تختلف للصف الرابع والصف الثالث ؟ هل ممكن تحط امثله للصفوف التي تتعامل معها مثال : ورقة للصف الاول والثاني والثالث الخ ... حتى اعرف فروقات اعمدة المواد واحط شروط ع الكود

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

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

معلش عشان أقول كل شىء صعب لكن أقدر أقولك باختصار الفكرة أى تغير فى التكست بوكس firstname يجعل التكست بوكس autoNumber يزيد 1 على آخر مسلسل فى الشيت الخلية AA2 فى الشيت بتاخد قيمتها من التكست بوكس Qawmi فى الفورم الذى تضع به الرقم القومى الخلية AB2 فيها معادلة نستدعى فيها الدالة Function A_ID وتطلع تاريخ الميلاد من الخلية AA2 التى بها الرقم القومى ( المتغير T تكون قيمته 2 فى المعادلة) التاريخ الذى يظهر فى هذه الخلية بياخده التكست بوكس BrirthDate فى الفورم الخلية AF2 فيها معادلة نستدعى فيها الدالة Function A_ID وتطلع النوع من الخلية AA2 التى بها الرقم القومى ( المتغير T تكون قيمته 3 فى المعادلة) النوع الذى يظهر فى هذه الخلية بياخده التكست بوكس Gender فى الفورم الخلية AC2 و AD2 و AE2 نستخدم فيها معادلة DATEDIF لحساب السن ( أيام - شهور - سنوات ) من الخلية AB2 التى بها تاريخ الميلاد والقيم الناتجة فى هذه الخلايا تظهر فى الفورم وبكده يكون الفورم به كل البيانات التى تصدر الى الشيت مرة أخرى بالنسبة للصور كما وضحت فى المشاركات السابقة أرجو أن يكون الشرح وافى

أشكرك أخى الكريم على كلماتك . سبحان الله جائتنى فكرة اليوم نفذت بها طلبك الأول قم بانشاء مجلد جديد وسميه Image وضع بداخله صورا بامتداد jpg وسمى هذه الصور 1 2 3 4 5 وهكذا وضع المرفق ده بجوار مجلد الصور Image 4 تاريخ الميلاد والسن والنوع.rar

اليوم اقدم لكم أضخم كتاب عربي لتعلم برنامج EXCEL يحتوي على شرح مفصل لصيغ والدوال وكذالك مرفق مع الكتاب تطبيقات نموذجية . غلاف الكتاب المحتويات 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها لتحميل الكتاب اضغط هنا حجم الكتاب: 39.7 MB رابط اخر على 4shared أرجو الدعاء لي ولصاحب الكتاب وناشره جزاكم الله خيرا

ملف الإكسل المستخدم للشرح نسخ معادلة للكود و تخصيص زر أمر.rar

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

اولا يامعلم ياحبيبي عبد العزيز مع انك دوختني وتقولي انه معمول بالاكسيل انما انت حبيبي وهوضح ليك الحكاية برنامج الفيجوال بيسك دا يعتبر لغة برمجة من لغات كتيررررر جدا vb6,c++,vb.net,As-sembly,c#,php,java,sql,oracel, وفي غيرها كتيررر المهم خلينا في الفيجوال بيسك 6 عارف انت محرر الاكواد بتاع الاكسيل اللي بنخش عليه ونعمل فورم ونحط تكست بوكس وزرار وليست بوكس وتعمل صفحة الويب بتاعتك دي وتعمل فيها النص المتحرك دا المحرر دا بقي يعتبر جزء من الفيجوال بيسك مدمج مع مجموعةالاوفيس وهي VBA طبعا برنامج الفيجوال دا ممكن نعمل بيه اي برنامج زي مثلا برنامج تشغيل موسيقي او فيديو او نعمل بيه العاب او اي تطبيقات احنا محتاجنها وطبعا دا بيعمل ملفات تنفيذية يعني اي مشروع داخل البرنامج بنحوله لملف تنفيذي علي طول

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

ممكن بغير كود اتبع الشرح في المرفق شرح_111.rar

السلام عليكم اختى الكريمة تم الرد على موضوعك السابق بأكثر من حل ؟ على العموم تفضلي المرفق وبه الكود اكتبي التاريخ في خلية B3 وانقري انتر تحياتي كود انتقال_111.rar

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

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

السلام عليكم ورحمته وبركاته ارجو ان يكون هذا هو ماتقصده معلومات الاسرة.rar

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

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

السلام عليكم ورحمة الله وبركاته بعد ان تصنع ملفك كاملا تستطيع مراحعه معادلاتك والدوال الموجوده فى ملفك جرب وقول رايك فى الكود الكود منقول للامانه العلمية Option Explicit Sub ListAllFormulas() Dim sh As Worksheet Dim cell As Range Dim nextrow As Long Application.ScreenUpdating = False With ActiveWorkbook On Error Resume Next Set sh = .Worksheets("Formula List") On Error GoTo 0 If sh Is Nothing Then .Worksheets.Add After:=.Worksheets(.Worksheets.Count) .ActiveSheet.Name = "Formula List" Else sh.Cells.ClearContents End If With .Worksheets("Formula List") .Range("A1:C1").Value = Array("Sheet", "Cell", "Formula") nextrow = 1 For Each sh In ActiveWorkbook.Worksheets If sh.Name <> "Formula List" Then For Each cell In sh.UsedRange If cell.HasFormula Then nextrow = nextrow + 1 .Cells(nextrow, "A").Value = sh.Name .Cells(nextrow, "B").Value = cell.Address .Cells(nextrow, "C").Value = "'" & cell.Formula End If Next cell End If If .Cells(nextrow, "A").Value = sh.Name Then nextrow = nextrow + 1 Next sh .Columns("A:C").AutoFit End With End With Application.ScreenUpdating = True end sub الكود يصنع ورقة باسم " Formula List بها المعادلات واسم الخلية والورقة الموجود بها المعادله

البرنامج دا غير البرامج اللي جربت عليها بس هجيب امه ان شاء الله قول يارب

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

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

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

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

حسب ما فهمت تريد أن يختار المستخدم القيمة من الخلية B1 يمكن للمستخدم أن يختار القيمة من الخلية B1 أو أى خلية أخرى بها نسبة مئوية حسب الكود التالى : Sub yellow_cell3() Dim LR As Long, X As Integer, S LR = Cells(Rows.Count, 1).End(3).Row With Range("B2:B" & LR) .ClearContents .Interior.Pattern = xlNone End With Range("B4").Interior.ColorIndex = 6 ' حدد الخلية المراد تخطيها هنا Set S = Application.InputBox("حدد الخلية التى تريد الحساب على أساسها :", Title:="حساب النسبة المئوية", Type:=8) Application.ScreenUpdating = False Range("XFD1") = S For X = 2 To LR If Cells(X, 2).Interior.ColorIndex <> 6 Then Cells(X, 2).Formula = "=ROUNDDOWN((RC[-1]*INDIRECT(""XFD1"")),2)" End If Next Range("B2:B" & LR).Value = Range("B2:B" & LR).Value Application.ScreenUpdating = True End Sub

جمعة مباركة بدأناها بعملية كسر للتعلم ليس أكثر تفضل برنامج الاختبارات مفتوح.rar

جرب هذا الملف المصنف1 salim.zip

م/ياسر فتحى شرفنى مرورك يا هندسه تقبل تحياتى كود اخر يؤدى نفس الغرض بطريقة منظمة Option Explicit Public Sub ListFormulasInWorkbook() ' by J.E. McGimpsey ' revised 04 July 2003 by Tom Ogilvy to add ' sheets when reaching ROWLIM formulas Const SHEETNAME As String = "Formulas in *" Const ALLFORMULAS As Integer = _ xlNumbers + xlTextValues + xlLogical + xlErrors Const ROWLIM As Long = 65500 Dim formulaSht As Worksheet Dim destRng As Range Dim cell As Range Dim wkSht As Worksheet Dim formulaRng As Range Dim shCnt As Long Dim oldScreenUpdating As Boolean With Application oldScreenUpdating = .ScreenUpdating .ScreenUpdating = False End With shCnt = 0 ListFormulasAddSheet formulaSht, shCnt ' list formulas on each sheet Set destRng = formulaSht.Range("A4") For Each wkSht In ActiveWorkbook.Worksheets If Not wkSht.Name Like SHEETNAME Then Application.StatusBar = wkSht.Name destRng.Value = wkSht.Name Set destRng = destRng.Offset(1, 0) On Error Resume Next Set formulaRng = wkSht.Cells.SpecialCells( _ xlCellTypeFormulas, ALLFORMULAS) On Error GoTo 0 If formulaRng Is Nothing Then destRng.Offset(0, 1).Value = "None" Set destRng = destRng.Offset(1, 0) Else For Each cell In formulaRng With destRng .Offset(0, 1) = cell.Address(0, 0) .Offset(0, 2) = "'" & cell.Formula .Offset(0, 3) = cell.Value End With Set destRng = destRng.Offset(1, 0) If destRng.row > ROWLIM Then ListFormulasAddSheet formulaSht, shCnt Set destRng = formulaSht.Range("A5") destRng.Offset(-1, 0).Value = wkSht.Name End If Next cell Set formulaRng = Nothing End If With destRng.Resize(1, 4).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 5 End With Set destRng = destRng.Offset(1, 0) If destRng.row > ROWLIM Then ListFormulasAddSheet formulaSht, shCnt Set destRng = formulaSht.Range("A5") destRng.Offset(-1, 0).Value = wkSht.Name End If End If Next wkSht With Application .StatusBar = False .ScreenUpdating = oldScreenUpdating End With End Sub

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

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

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

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير " محمّد الرّيفي " على الدّروس و المعلومات غاية الرّوعة و منتهى التميّز جزاك الله خيرًا و زادها بميزان حسناتك فائق إحتراماتي و إعجاباتي

ودى فكرتى المتواضعة للوصول للنتيجة المطلوبة مع إضافة كود حدث قبل التحديث للفورم لو رقم الملف خالى او الاسم خالى لا يتم حفظ البيانات في الجدول حتى لا يتم احتساب بيانات غير كاملة program- UPDATE.rar وده تعديلى باظهار الرسالة التي تفيد وتوضح رقم الملف السابق ان وجد بالاسم الذى تم اضافته لرقم الملف هذا في رسالة بعد تحديث رقم الملف واهم شيء إضافة اللمسة الرمهانية على التعديل program- UPDATE2.rar

الاخ العزيز هذا الرابط موجود عليه شيت كنترول للصف الثانى الثانوى الصناعى http://www.gulfup.com/?kaCEfZ

براك الله فيك وننتظر منك المزيد وجزاك الله كل خير

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

إن شاء الله ساعدتنا الامثله كثيرا إن شاء الله

شكراً لك اخي morsy على هذا الرد الجميل ، و أسأل الله القوة و المعونة لطرح المزيد المزيد من الأعمال و التي أرجو الله أن يتقبلها مني و أن يكون فيها الخير للجميع إنشاء الله . أما اليوم أخوتي الأعزاء في هذا المنتدى العزيز ، فقد قمت بإضافة العديد من الأمثلة التي تساعدكم إنشاء الله في موضوع الـ Combo بإنتظار ردودكم جميعاً . . . CascadingComboBoxes.zip CascadingComboInSubform.zip ComboChoosesRecord.zip

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

شكراً لك أخي عابر القارات ، و أتمنى لك كل خير و للجميع أيضاً في هذا المنتدى الحبيب

جزاك الله خيرا ووالدك أيضا

أخوتي الأعزاء : ارفق لكم اليوم مجموعة من الأمثلة التي تتعلق بالتقارير بإنتظار ردودكم و إستفساراتكم جميعاً ChooseReportFields.zip ChooseReportFieldsRows.zip ChooseReportFromList.zip ChooseReportFromList2.zip CrossTabReport.zip

أخوتي الأعزاء في هذا النتدى العزيز على قلوبنا : أخي العزيز amer1960 في البداية أود أن أشكرك أنت و كافة الأخوة في هذا المنتدى على الردود التي تزيد من واجبي نحو إعطاء المزيد من الأمثلة البرمجية التي تساهم في دعم و زيادة المعلومات و الخبرة في مجال البرمجة بشكل عام و الآكسس بشكل خاص . أما بالنسبة لإقتراحك بالنسبة لوضع شرح فإنني أقترح أن يتم طرح أي سؤال يخص الأمثلة التي أرفقتها لكافة الأخوة في هذا المنتدى و سيتم الإشتراك في وضع الإجابة إنشاء الله . أما الآن فإنني قمت بإختيار مجموعة جديدة من الأمثلة لكم و التي تتعلق بالإستعلام ، آملن أن أسمع الرد منكم جميعا ، وتشجيعي على تزويدكم المزيد المزيد من الأمثلة الأخرى الكثيرة . مع جزيل شكري و إحترامي و تقديري للجميع ، ، ، ، CreateMultiSelectQuery.zip CreateQueries2.zip CreateQueries3.zip CreateQueries4.zip CreateQueries5.zip

السلام عليكم ورحمة الله وبركاته/- بارك الله فية ورحم الله والديك واتمني لك بذل المزيد من الجهد والمثابرة للرفع من مستويات شباب امتنا العربية والاسلاميه وياريت لو فيه احد من الاساتذه ان يتطرق كل مرة الى برنامج بالشرح ولكم فائق تحياتي وتقديري واحترامي[/ size] :clapping :