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

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

استبدل الى هذا الماكرو (يجمع كل الألوان ما عدا الابيض) Option Explicit Private Sub Cmd_sum_Click() Dim s#, Sh As Worksheet, x As Boolean For Each Sh In Worksheets x = Sh.Range("A1").Interior.ColorIndex <> xlNone s = s + IIf(x, IIf(IsNumeric(Sh.Range("A1")), _ Sh.Range("A1"), 0), 0) Next Me.My_lebl.Caption = IIf(s <> 0, s, "No Numbers") End Sub الملف من جديد User_form_1.xlsm

بالتوفيق ....

استخدم هذا الكود a=nz([Text1];"لم يباشر")

بسم الله الرحمن الرحيم السلام عليكم اخواني الكرام الموضوع كيف يعامل مجموعة مستخدمين مع قاعدة البيانات من خلال الانترنت بدلا من الشبكة المحلية ( الداخلية ) لتباعد المسافات بين المستخدمين الفكرة سهلة كنا بنجمع الاجهزة علي الشبكة المحلية عن طريق وسيط وهو اسلاك بتربط الاجهزة ببعضها خلاص بيقي عايزين وسيط غير الاسلاك الوسيط هو موقع وله برنامج هننزله عنوان الموقع https://my.zerotier.com/login صفحة تحميل البرنامج https://www.zerotier.com/download/ 1 – نحمل البرنامج من صفحة التحميل 2 – نسطب البرنامج زي اي برنامج نسيب البرنامج بقي كدة خلاص نروح الموقع ونسجل فيه ندوس علي المربع الاصفر دي الصورة طبعا احنا عضو جديد ندوس علي ريجستر زي الصورة 1 2 اذهب الي الايميل بتاعك وفعل العضوية بعد ما تفعل العضوية هيدخلك علي الصفحة دي دوس علي نتوورك زي الصورة من اول هنا بقي يبدأ الجد ركز مع الصور اتبع الارقام الموجودة علي الصورة ونفذ الموجود بها وتوصل لرقم 3 وتضغط كما هو موضح بالصورة هيدخلك علي الصورة اللي جاية -- دي صفحة اعدادات الشبكة بتاعتك اتبع ما جاء بالصورة انسخ الرقم وضعه كما في الصورة القادمة كدة شبكتك تمام وجاهزة للشغل بس فيه سؤال هو كل واحد من المستخدمين هيعمل الدوشه دي كلها ؟؟؟ الاجابة : لا طبعا دي انت بس علشان انت صاحب الشبكة اما المستخدمين يعني الاجهزة التانية يا دوب هيسطب البرنامج ويحط الرقم اللي انت اديتهوله وهو بالنسبة للشبكة دي اللي عملناها دلوقت 885033839097d605 وكل شبكة طبعا ارقامها بتختلف عن غيرها أي واحد هيسطب البرنامج ويضيف الرقم ده في مكانه مثل الصورة وانا اقبله من عندي يبقي مشترك معايا علي الشبكة وممكن احذفه واضيف غيره يعني الاضافة والحذف براحتك سؤال تاني هو كام جهاز ممكن يشتركوا في الشبكة بتاعتي ؟ طبعا لان حضرتك عضو مجاني عندهم لك تضيف لغاية 100 جهار بعد كدة بفلوس طبعا انت مش محتاج كل ده المشاريع الصغيرة اللي عندنا يا دوب من 3 : 10 اجهزة يعني انت تبعنا في ابو بلاش ------------------------------------------------------------------------------------------------------------------------------------------------------------- كدة اللي فاضل نجهز قاعدة البيانات ونقسمها ونشيرها نفتح قاعدة البيانات بتاعتنا حدد مكان التقسيم في جهازك وخلاص اتقسمت اصبحت جزء باسم قاعدة البيانات لو اسمها مثلا ( اشرف ) والجزء الثاني اشرف ) وهو ده اللي فيه الجداول ده هو اللي هيتشير فقط _be ( يفضل اعدادات الشير – شوف يا باشا دي سهلة بس ركز مع الصور في جهازك روح علي Control Panel Network and Internet Network and Sharing Center Advanced sharing settings تلاقيها بالشكل ده يفضل ازاي نشير قاعدة البيانات اول حاجة نضع جزء الجداول في مجلد ونسميه اي حاجة ثم نضغط كليك يمين علي المجلد ونختار Give access to Specific people بكدة يبقي احنا شيرنا الملف اللي فيه الجداول نعطي بقي نسخة من الجزء الثاني من قاعدة البيانات للاحهزة المراد ضمها للشبكة وكل مستخدم يعدل مسار الجداول المرتبطة علي مكان الشير في جهازك اللي يعتبر سيرفر للتجربة انا مشير نموذج علي جهازي اللي عايز يجرب اولا يحمل البرنامج ويسطبه كما في الصور اعلاه ويضع الرقم 885033839097d605 وانا ان شاء الله هقبل اضافته للشبكة اللي عملناها دي ولما اقبله جهازي هيظهر عنده باسم اشرف ويحمل النموذج من الموضوع هنا ونتواصل مع بعض علي القاعدة دي عن بعد و يمكن من بلاد مختلفة لتوضيح الفكرة ولمعرفة سرعة استجابة القاعدة في التعامل وذلك بعد العاشرة مساء بتوقيت القاهرة او لما تلاقيني متواجد بالموقع ولمدة يومين فقط للتجربة بعدها ساغلق الشبكة ملاحظة : الجهاز اللي متشيره عليه الجداول يعتبر زي سيرفر يعني لو مغلق او النت مفصول فلا يمكن التواصل انتهي الموضوع اتمني ان يعجبكم اسف علي الاطالة لكن كان لازم التفصيل احتراما وتقديرا لطلب الاساتذة ( حلبي - Barna - أحمد الفلاحجى - الأمير هشام ) واي استفسارات انا معاكم ان شاء الله اشرف.accdb

تامر اخى @فايز.. استخدمنا داله iif فى حاله ان الحقل n1 غير فارغ نفذ داله dlookup والا ضع 0 داله dlookup لجلب القيمه من الحقل piece بالجدول جدول القطع ( ولان جدول القطع متكون من كلمتين وبينهم مسافه فوضعناه بين [] ) الذى رقمه ID = n1 ولان حقل الرقم حقل رقمى فكتبناه "ID=" & [n1] اما لو كان نصى فسنكتبه كالتالى "ID='" & [n1] & "'" ارجو ان اكون قد وفقت للشرح اخى فايز وازيدك فالشرح لاساتذتنا جزاهم الله خيرا 💐 بالتوفيق

تعديل الماكرو Option Explicit Private Sub Cmd_sum_Click() Dim s#, Sh As Worksheet, x As Boolean For Each Sh In Worksheets x = Sh.Tab.ColorIndex <> xlNone s = s + IIf(x, IIf(IsNumeric(Sh.Range("A1")), _ Sh.Range("A1"), 0), 0) Next Me.My_lebl.Caption = IIf(s <> 0, s, "No Numbers") End Sub

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

TextBox1.Value = Format(TextBox1.Value, "HH:mm:ss")

وده نفس الحل لكن بالاستغناء عن حقول التسميه والاعتماد ع تسميه الزر نفسه واكيد فى حلول افضل az2.accdb

واياك استاذي وجوهرة المنتدى @احمد الفلاحجي بارك الله فيك وجهودك الواضحة في المنتدى

تقضل ....... جمعية خيرية.accdb

هذا الماكرو Private Sub CommandButton2_Click() Sheets("sheet2").Range("A5").CurrentRegion.Clear Sheets("sheet1").Range("A5").CurrentRegion.Copy _ Sheets("sheet2").Range("A5") End Sub

كان من المفروض رفع ملف الوقت ضيق جداً لإنشاء ملف يحتوي عما تريد لكن حيث انها المرة الاولى اليك هذا النموذج User_form.xlsm

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

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

السلام عليكم ورحمة الله وبركاته في أحد المشاريع التي قمت بها ، كنت محتاج الى برنامج خارجي ليقوم ببعض المهام للمشروع ، فالطريقة المعتادة التي نستعملها هي ، وضع البرنامج هذا داخل احد مجلدات المجلد الرئيسي لقاعدة البيانات ، وبما ان فقدان/حذف هذا البرنامج يجعل المشروع عاجز عن العمل ، لم يكن عندي خيار ، سوى ان اجعل هذا البرنامج داخل قاعدة البيانات ، بطريقة تسمى Blob المرفق فيه هذه الملفات: . النموذج frm_Blob مهم في انه يسمح لك بوضع برامجك في قاعدة البيانات بسهولة ، والزر الاخر هو لتصدير هذا البرنامج الى اي مجلد في الكمبيوتر (لعمل التجارب مثلا) ، وقد وضعت برنامجين في قاعدة البيانات المرفقة: 1. pdftk.exe والذي يقوم بالعديد من العمليات لملفات الـ pdf ، 2. Arc5_S_BE.mdb ، وهي قاعدة بيانات فاضية ، وبها جداول مؤقته ، فبدل ان اعمل هذه الجداول المؤقته داخل قاعدة بياناتي ، ويكبر حجمها ، رأيت ان استعمل جداول خارجية ، وعند اغلاق البرنامج ، كنت اقوم بحذفها من المجلد: . لعمل البرنامج الاول ، استخدم الزر رقم 1 ، والذي سيصدر البرنامج pdftk.exe الى مجلد قاعدة البيانات ، ثم سيدمج الملفين a.pdf و b.pdf ويحفظ النتيجة في ملف ab.pdf ، ويفتحه ، بينما الزر رقم 2 ، سيصدر قاعدة البيانات Arc5_S_BE.mdb الى المجلد الرئيسي لقاعدة بياناتنا: . عند الضغط على الزر 1 ، سنرى هذه الملفات في المجلد الرئيسي لقاعدة البيانات: . ان شاء الله يكون فيه فائدة للجميع جعفر Blob.zip

تظهر عندى صحيحة راجع اعدادات اللغة من كنترول بانل

فكرة رائعة استاذنا الرائد سلمت يمينك فعلا جميلة ومفيدة

تفضل هدا الماكرو يعتمد على تسجيل التاريخ اليوم في الخلية A1 ادا وجد تاريخ اليوم هو نفسه تاريخ اليوم . لن يشتغل الماكرو . و ان وجد تاريخ غير اليوم يشتغل عادي و يسجل تاريخ اليوم في الخلية A1 Book2.xlsm

الملف محمى بباسورد اخى اسم المستخدم ayman الباس 123

تفضل فتح صفحة انترنت بالفورم.xlsm

تجد برنامج الغاء الشفت في هذه المشاركة

az2.accdb 608 kB · 1 تنزيلات الاستاذ المبدع ابو بسملة ماقصرت ربي يحفظك من كل سوء الاستاذ Abu Farid لن اعلق يكفي ما قالة الاستاذ ابو بسملة عن مشاركتك جزاكم الله عني كل خير

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

الله يعطيك العافية ابا بسملة

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

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

اخى @فايز.. ادخل على خصائص ثم شير واتبع

تم معالجة الأمر Salim_dates.xlsm

مفتوح البرنامج .... مكن الشيفت وادخل على البرنامج ..... ابحث في المنتدى عن برامج تمكين الشيفت تجدها ....

وعليكم السلام-فقد نبهنا مئات المرات ,ان لا تنتظر اى مساعدة او استجابة من الأساتذة بدون رفع ملف مدعوم بشرح كافى عن المطلوب مع وضع شكل النتائج المرجوة ... حيث لا يمكن العمل على التخمين وتجنباً لعدم اهدار وقت الأساتذة وبما انك لم تقم برفع ملف فكان عليك لزاماً استخدام خاصية البحث بالمنتدى فبه طلبك : التعديل على كود إرسال ملف االاكسل عبر الايميل أو هذا طريقة ارسال الشيت عبر الايميل وهذه فيديوهات أيضاً لتوضيح وعمل المطلوب https://www.youtube.com/results?search_query=ارسال+الإميل+من+برنامج+الإكسيل

جزاك الله خيرا اخى واستاذى @kanory 💐

وعليكم السلام اخى @ازهر عبد العزيز هل هذا ما تريد؟ Private Sub btn50_Click() Me.RecordSource = "SELECT TBstudent.idstudent, TBstudent.nstudent, TBstudent.exam_result, TBstudent.Rate1, TBstudent.Rate2, ([Rate1]+[Rate2])/2 AS Rate3 " & _ " FROM TBstudent " & _ " WHERE (((([Rate1]+[Rate2])/2)>50));" End Sub New Microsoft Access Database(1).accdb

تمام زى الفل سجل 123456 بمبلغ 10000000000 مبحبحها اوووووووووووووووى ههههههههههههههههههههههههههههه

تمام والدى العزيز @حلبي ادخلى على جهاز ندى هتلاقى عالم تانى به قاعده بيانات ضيف سجل بالجدول

انا فقط جربت لفترة بسيطة وخرجت 🌹

من المفترض أن تكون الشرط الأربعة لنفس الخلايا لأنه بعد كتابة المعادلة يتم السحب نزولا لأسفل والأربع معادلات التي كتبتبهم في الملف يعتبروا شرطان فقط أول شرط عندما تكون الخليتان كلاهما أكبر من الصفر الثاني عندما تكون الخليتان كلاهما أصغر من الصفر على العموم حسب فهمي ممكن يتكون المعادلة =IF(AND(L5>0;S5>0);"مستلم منفذ ";IF(AND(L5>0;S5=0);" منفذ غير مستلم ";IF(AND(L5=0;S5=0);" غير مستلم وغير منفذ ";" مستلم غير منفذ "))) ثم السحب نزولا لأسفل تقييم.xlsx

طهرت الان وعندى اختيارى للنوع الثانى نوع عمل ظهرت الصورة التالية

أنت عملت في التقرير control Source لمربع نوع الانذار الكود السابق وهو تقريبا صحيح لكن طبعا لن يتم تنفيذه لأن الشرط في جميع حالات Switch يحتوي على معامل مقارنة + قيمة المقارنة ولكن لا يحتوى على العنصر المراد تطبيق الشرط عليه بمعنى اكتبه في التقرير هكذا : =Switch([S]>=26;"راسب بسبب الغياب";[S]>=25;"انذار نهائي";[S]>=20;"إنذار رابع";[S]>=15;"إنذار ثالث";[S]>=10;"إنذار ثاني";[S]>=5;"انذار اول") وفي الاستعلام هكذا : A: Switch([All_Sum]>=26;"راسب بسبب الغياب";[All_Sum]>=25;"انذار نهائي";[All_Sum]>=20;"إنذار رابع";[All_Sum]>=15;"إنذار ثالث";[All_Sum]>=10;"إنذار ثاني";[All_Sum]>=5;"انذار اول")

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP(H7,$B$9:$C$13,2,0),"") 1mohd.xlsx

تفضل جرب هدا تواتي29).xlsm

في حقل a1 جعلنا حدث بعد التحديث a2 = Year(Date) - [a1] في a2 ايضا حدث بعد التحديث a1 = Abs([a2] - Year(Date)) استخدمنا دالة abs لابعاد القيمة السالبة

وعليكم السلام ورحمة الله وبركاته تابع الصور واي استفسار لا تترد بعد الانتهاء من التطبيق تجد ملف اسمه أمان في المكان الذي اخترته من الصورة الأخيرة هذا الملف يتم استدعاؤه عن طريق وضع هذا الكود تحت زر امر في مكان خاص بك في أي نموذج DoCmd.RunCommand acCmdWorkgroupAdministrator بعد ذلك تضع الاسم الذي تم عمله به وهنا في الصور Khalf بعد الدخول نستطيع تعديل الاذونات كما نريد الصور تقريبا مرتبة حسب الخطوات 🙂

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

بارك الله فيكم إخواني وأحبابي على الحلول الجميلة أخي الكريم إتش جرب الملف التالي عله يفيدك .. Sub CountSumCF() Dim Ws As Worksheet, I As Integer, J As Integer Application.ScreenUpdating = False For Each Ws In ThisWorkbook.Worksheets Ws.Activate I = I + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), False) J = J + CountCFCells(Ws.Range("A1").CurrentRegion, Sheet1.Range("F1"), True) Next Ws MsgBox "Yellow Cells In All Sheets Count = " & I & vbNewLine & "Yellow Cells In All Sheets SUM = " & J Sheet1.Activate Application.ScreenUpdating = True End Sub Function CountCFCells(Rng As Range, C As Range, bCount As Boolean) Dim I As Single, J As Long Dim Chk As Boolean, Str1 As String, CFCELL As Range Application.Volatile Chk = False For I = 1 To Rng.FormatConditions.Count If Rng.FormatConditions(I).Interior.ColorIndex = C.Interior.ColorIndex Then Chk = True Exit For End If Next I J = 0 If Chk = True Then For Each CFCELL In Rng Str1 = CFCELL.FormatConditions(I).Formula1 Dim II As Integer Dim IIFlg As Boolean Dim Tmp IIFlg = False For II = 1 To Len(Str1) Tmp = Mid(Str1, II, 1) If ("0123456789" Like "*" & Tmp & "*") Then IIFlg = True Else If (IIFlg) Then Exit For End If Next Tmp = Right(Str1, Len(Str1) - II + 1) Str1 = "=" & CFCELL.Address & Tmp If bCount = False Then If Evaluate(Str1) = True Then J = J + 1 Else If Evaluate(Str1) = True Then J = J + CFCELL End If Next CFCELL Else CountCFCells = "Color Not Found" Exit Function End If CountCFCells = J Set Rng = Nothing Set C = Nothing End Function تقبل تحياتي Count & Sum Conditional Formatting Cells YasserKhalil.rar

مثال رقم 3 :- فى المثال رقم 2 كان الشرح على نفس الصوره السابقه فورم فى مرحلة التصميم وصممت عليه Frame والفريم لا يوجد به اى عناصر تحكم تم تصميمها وكان المثال برقم 2 انى اعمل كود عند فتح الفورم يكون هناك عدد 10 صفوف من العناصر كل صف به ليبل وتكست بوكس وكمبوبوكس المثال بتاعنا اليومعايز اعرف ازاى اضيف عناصر تحكم اثناء فتح الفورم من شيت اكسيل وعدد الصفوف بالشيت غير معروف عددها فى زياده او نقصان شاهد الصوره هتعرف اكتر المثال بتاعنا بكل بساطه نفس الكود اللى بالمثال 2 مع تعديلات فنيه بسيطه جدا دا كان الكود اللى بالمثال 2 Private Sub UserForm_Initialize() Dim Top As Integer Dim i As Integer Top = 5 For i = 1 To 10 With Me.Frame1.Controls.Add("Forms.Combobox.1", "Combobox" & i) .Left = 20 .Top = Top .Height = 40 .Width = 150 .BackColor = &HFFFFC0 .TextAlign = fmTextAlignCenter .FontSize = 20 .Font.Bold = True Dim a As Variant a = Array("ناجح", "راسب") .List = a End With With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF End With With Me.Frame1.Controls.Add("Forms.Label.1", "Label" & i) .Left = 340 .Top = Top .Height = 40 .Width = 150 .SpecialEffect = fmSpecialEffectEtched .TextAlign = 2 .FontSize = 24 .Font.Bold = True .BackColor = 8454016 .Caption = "الصقر" & i End With Top = Top + 40 Next Me.Frame1.ScrollHeight = Top End Sub ايه المطلوب تعديله بالكود لكى يتناسب مع المطلوب بتاعنا رفع الخلايا من الشيت الى الفريم المثال كان على ان عدد الصفوف 10 لذالك استخدمنا الحلقه For next كالتالى For i = 1 To 10 فدلوقتى انا عايز اجيب الخلايا بالشيت رقم 1 النطاق من A2 الى اخر صف هيكون به اخر طالب اذن بداية الحلقه هى اول صف بالجدول وهو الخليه A2 ورقم الصف لها هو 2 اذن الحلقه هتبدأ من رقم 2 الى ؟ الى اخر صف به بيانات فى العمود A اذن لازم احدد اخر صف به بيانات من خلال السطر التالى واحنا شرحناه قبل كدا lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row عملت متغير واسمه Lr وتقدر تسميه اى اسم كيفما شئت وقلت ان المتغير Lr يساوى كتبت اسم الشيت المراد العمل عليه واستخدمت Cells لتحديد عدد الخلايا الممتلئه بالبيانات فى العمود 1 كدا انا عرفت الحلقه من اين تبدأ واين تنتهى ( تبدأ من الصف 2 الى اخر صف به بيانات ) For i = 2 To lr شاهد الكود بعد تعديل الحلقه For Private Sub UserForm_Initialize() Dim Top As Integer Dim i As Integer lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row Top = 5 For i = 2 To lr With Me.Frame1.Controls.Add("Forms.Combobox.1", "Combobox" & i) .Left = 20 .Top = Top .Height = 40 .Width = 150 .BackColor = &HFFFFC0 .TextAlign = fmTextAlignCenter .FontSize = 20 .Font.Bold = True Dim a As Variant a = Array("ناجح", "راسب") .List = a .Text = Sheet1.Cells(i, 3).Text End With With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With With Me.Frame1.Controls.Add("Forms.Label.1", "Label" & i) .Left = 340 .Top = Top .Height = 40 .Width = 150 .SpecialEffect = fmSpecialEffectEtched .TextAlign = 2 .FontSize = 24 .Font.Bold = True .BackColor = 8454016 .Caption = Sheet1.Cells(i, 1).Text End With Top = Top + 40 Next Me.Frame1.ScrollHeight = Top End Sub اللى مركز معايا هيلاقى 1- تم تعديل بداية ونهاية الحلقه For 2- فى سطر تم اضافته فى خصائص كل عنصر فى عنصر الكمبوبوكس تم اضافه السطر التالى .Text = Sheet1.Cells(i, 3).Text قيمة الكمبوبوكس هى كتبت اسم الشيت وهو بمثالنا الشيت 1 ثم الخلية المطلوبه Cells عباره عن (رقم العمود, رقم الصف)Cells ( Cells( i , 3 i هنا هى رقم الصف اللى هيتغير كل مره بالحلقه For والعمود هو رقم 3 الخاص بالحاله --------------------------------- فى عنصر التكست بوكستم اضافه السطر التالى .Text = Sheet1.Cells(i, 2).Text نفس الكمبوبوكس ولكن تم تغيير رقم العمود هو 2 الخاص بالدرجه ---------------------------------- فى عنصر الليبل تم اضافه السطر التالى .Caption = Sheet1.Cells(i, 1).Text نفس الكمبوبوكس والتكست بوكس ولكن تم تغيير رقم العمود هو 1 الخاص باسم الطالب ----------------------------------------------------------------------------------------------------------------------- ملحوظه اخيره لمن يريد درجة الاحترافيه فى الكود لما كنا بنعمل خصائص العنصر كان الخاصيه Left & Top & Width& Height لكل عنصر كان بيتم كتابتهم بالشكل التالى كلا منهم على حد فى سطر مختلف على سبيل المثال خصائص التكست بوكس With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With ممكن اكتب الاربع خصائص فى سطر واحد من خلال Move القاعدة الخاصه بــ Move Move Left, Top, Width, Height. ويكون شكل الكود كالتالى بالخصائص With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Move 180, Top, 150, 40 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With تم استبدال الاربع صفوف بسطر واحد من خلال Move -------------------------------------------------------------------------------------------------------- جرب الكود بنفسك هتثبت المعلومه اكتر الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن كيفية التحكم فى العناصر الموجوده داخل الفريم سوء كانت مصممه اثناء عملية التصميم او تم انشائها بكود انتظرونا تقبلوا تحياتى

اخواني الكرام تسهيلا على اخواننا في متابعة الموضوع اردت وضع فهرس بالمشاركات التي تحتوي على الاكواد كما ارجوا من الاخوة المشرفين ادراج هذه المشاركة في الصفحة الاولى yahiaoui توليد ارقام عشوائية في مدى معين يوسف عطا كود صندوق حوار يظهر عند فتح الملف yahiaoui كود منع اضافة اوراق جديدة كود منع طباعة حماية ورقة بواسطة زر اختيار اخفاء/ اظهار ورقة بزر اختيار كيفية ربط Label من فورم بقيمة خلية yahiaoui فهرسة الاوراق في الورقة1 yahiaoui كود ملء الشاشة ، اخفاء شريط الادوات ،اخفاء شريط الصيغة hyasser تجميع بعض من الاكواد yahiaoui كود رسالة تحذير عند فتح الملف aah_aah2008 منع كتابة الارقام في تكست بوكس و اخر يمنع كتابة الحروف في تكست بوكس اخر hyasser ادراج المفكرة ( رزنامة ) في ملف اكسل yahiaoui كود بسيط لعمل عداد hyasser كود ساعة رقمية + ساعة عادية yahiaoui صندوق ادخال مع صندوق حوار yahiaoui كود كتابة جملة في شريط الحالة abumode75 كود معاينة قبل الطباعة yahiaoui كود لتحديد عدد مرات استعمال البرنامج hyasser إخفاء وحماية اوراق العمل hyasser شاشة دخول اكسل hyasser المؤشر الى نص yahiaoui تقسيم الخلية الى عدة اسطر galal_mk كود للفرز ولكن حسب رقم العمود المختار hyasser كود يقوم بعمل حماية على جميع أوراق العمل hyasser فرز البيانات بمجرد الضغط المزدوج Double Click على أي عنوان من عناوين الأعمدة Headers في الصف الأول alidroos طريقة التغلب على تحديد اللون وكبر الخط في القائمة المنسدله alidroos كود لجمع الخلايا ذات اللون المعين alidroos كود لتلأم العمود لمحتوى النص yahiaoui كود اضافة دالة اسم اليوم tahar1983 رسالة تأكيد ضهور معلومات yahiaoui تغيير ترتيب اسماء من خلال مربع قائمة yahiaoui كود قائمة منسدلة متناقصة yahiaoui كود تغيير لون خلية عشوائيا yahiaoui كود يجعل الملف يختفي لمدة من الزمن تحددها انت hyasser كود لفصل النص عن الرقم hyasser كود لتلوين الخلية النشطة naderwatfa منع إضافة أوراق naderwatfa طباعة الحقول الممتلئة فقط naderwatfa رسالة لتمكين الماكرو hyasser كود ترحيل واشياء اخرى hyasser ترقيم اجباري واعادة بدء الترقيم yahiaoui كود اظهار رسالة من عدة اسطر

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