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

أخى الفاضل تكون الأكواد كالآتى Private Sub UserForm_Initialize() With ComboBox1 For i = 2 To 8 If Not IsEmpty(Cells(i, 1)) Then ComboBox1.AddItem Cells(i, 1) Next End With End Sub Private Sub UserForm_Activate() With ComboBox2 For i = 2 To 8 If Not IsEmpty(Cells(1, i)) Then ComboBox2.AddItem Cells(1, i) Next End With End Sub

السلام عليكم جرب الكود التالي Private Sub CommandButton1_Click() Dim Cntl As Control Dim Txt As String For Each Cntl In Me.Frame1.Controls If TypeOf Cntl Is MSForms.CheckBox Then If Cntl.Value = True Then Txt = Txt & IIf(Len(Txt), " - ", "") & Cntl.Caption End If End If Next Range("B2").Value = Txt End Sub تحياتي

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

أى معادلة بحث أخى ممكن تؤدى المطلوب وعلى العموم أستخدم هذه المعادلة ستحقق المطلوب =IF(D2<>"";INDEX($D$2:$D$8;MATCH(D2;$D$2:$D$8;0));"") تقبل تحياتى

أحسنتى أختى الغالية ( أم عبد الله ) بارك الله فيكى ، وماشاء الله عليكى وجعلك سباقة دائما لعمل الخير

أتمنى أن أكون قد فهمت طلبك لحين أرسالك للمرفق ولوفرضنا أن بداية الأرقام فى ( A2 ) والعلامة ثابتة فى كل الأرقام على يمينها أستخدم هذه المعادلة وأسحبها لأسفل ستحقق لك المطلوب =IF(A1<>"";SUBSTITUTE(A1;TRIM(MID(A1;FIND("-";A1);1));"");"") أو =IF(A1<>"";SUBSTITUTE(A1;"-";"");"") تقبل تحياتى

لوجو رائع ، ورمز معبر ، لرمز من رموز الوطن العربى بارك الله فيك أخى الحبيب ( محمد أبو البراء ) ، فعلا فنان وهدية جميلة لشخصية أجمل

أخى الحبيب ( محمد أبو البراء ) بارك الله فيك أخى فعلا رائع ، واضح إنك فنان بارك الله فيك ، وأتفق مع كل أساتذتى أن الأول أفضل تقبل تحيات : أخيك

لى ملحوظة صغيرة أخى الحبيب ( محمد ) ألا يمكن إستخدام ( COUNTIFS ) واحدة لكل هذه الشروط لأن دالة COUNTIFS مكونها كالأتى: COUNTIFS function COUNTIFS(criteria_range1, criteria1,criteria_range2, criteria2, ...) ويمكن إستخدام دالة ( COUNTIF) كبديل ليها لتحقق نفس الهدف بالشكل التالى =IF(B5="";"";IF(COUNTIF(C5:AX5;"غائب")+COUNTIF(C5:AX5;"دون المستوى")=0;"ناجح";"راسب")) أرجو أن أكون وفقت لأن الفكرة فكرة حضرتك وحضرتك الأقدر بالحكم عليها وتطبيقها كما بالمرفق ، ولم أستطع تطبيقها على ( OFFICE 2007 ) لأنه ليس على جهازى ولووصلت الفكرة يكون الفضل لحضرتك تقبل تحيات : أخيك دالة بطريقة جديدة لمعرفة حالة الطالب _راسب او ناجح.rar

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

أتمنى يكون المطلوب وفقا لما فهمت وعلى فكرة المعادلة تم عملها لتوافق ( OFFICE 2003 ) أمنا المعادلة التى يجب أن تطبق هذه المعادلة والفرق بينهم فقط فى أضافة دالة ( IFERROR ) لتخطى الخلايا التى تعود بالخطأ لذلك ستكون معادلتك كالأتى :والتطبيق مثلما هو موجود فى المرفق بالضبط: =IFERROR(INDEX(TBL; SMALL(IF(($H$1=NUM); ROW(TBL)-MIN(ROW(TBL))+1; ""); ROW(A1));COLUMN(A1));"") تقبل تحياتى ترحيل حسابات.rar

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

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

بسم الله ما شاء الله عليك استاذي العملاق / رجب جاويش عملاق عن جد وبكل جداره ولاثراء الموضوع ... جرب الكود التالي Private Sub UserForm_Initialize() On Error Resume Next Dim mycol As Collection Dim myrng As Range Set mycol = New Collection For Each myrng In Range("a1:a10") mycol.Add myrng.Value, myrng.Text Next myrng For i = 1 To mycol.Count Me.ComboBox1.AddItem mycol(i) Next i End Sub تقبلوا خالص تحياتي

كودعرض معلومات عن محركات الأقراص الثابتة والقابلة للإزالة المرفق أوفيس 2010 عرض معلومات عن محركات الأقراص.rar

تفضل أخى المطلوب فرز مطابق.rar

السلام عليكم ورحمة الله أخي الكريم، تم في الملف المرفق بإضافة كود للترتيب في Module1 أسميته hben مع تعديل كود حدث الشيت Sheet1 المسمى "Data"... أرجو أن تفي هذه الإضافات بالمطلوب... أخوك بن علية الملف المرفق: الصف الثانى.rar

الاخوة الزملاء لعبة تركيب صورة للاطفال على اكسل 2010 لعبة تساعد الطفل على التعرف على الصورة ثم اعادة تركيبها وهى فكرة الاخ عبد الله باقشير تحريك اجزاء صورة على الرابط http://www.officena.net/ib/index.php?showtopic=41620 لعبة الصورة المتحركة.rar

..... شاهدوا المرفق أخوكم عماد الحسامي

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

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

السلام عليكم لعبة ترتيب اجزاء الصورة هدية للاخ مجدي يونس بامكانية تغيير اجزاء الصورة في فولدر الملف بالنسبة للجزء الفارغ من الصورة اختياري وممكن حذفه او ابقائه باي اسم في فولدر الملف المرفق 2003 kh_imgemove.rar

ولاثراء الموضوع في حاله انك تحدد القائمة يمكنك استخدام السطر التالي ComboBox2.List = Array("1", "2", "3", "4", "5", "6")

السلام عليكم هذا مثال بواسطة الحلقات التكرارية ComboBox.rar

أخى الفاضل يكون الجزء الخاص به فى الكود كالآتى With ComboBox2 .Column = Range("liste2").Value End With

أخى الفاضل ضع السطر التالى فى بداية الكود ( على اعتبار مثلا أن كلمة المرور 123 ) Worksheets("Data Entry").Unprotect "123" والسطر التالى فى نهاية الكود Worksheets("Data Entry").Protect "123"

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

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

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

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

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

حسنا أستاذى دغيدى الرقم WD-WCANKA323797 هو رقم الهارد الثابت لا محالة ثق بذلك بنسبة 100% الرقم 6.3.9600 غير مدرج فى الموقع الذى أشرت إليه أنا لماذا ؟؟ لحداثة تلك النسخة ما الحل ؟؟ لنعمل على نطاقات و ليس أرقام الإكس بى xp يبدأمن 5.1.2505 و ينتهى عند 5.2.3790 اللونجهورن ليس له إلا إصدار واحد لأنه فشل 6.0.5048 الفيستا تبدأ من 6.0.5112 و تنتهى عند 6.0.6002 السفن يبدأ عند 6.1.7600.16385 و ينتهى عند 6.1.7601 ال 8 يبدأ من 6.2.9200 و لن نحدد له نهاية لأنه إصدار حالى و معرض للتحديث لأرقام أعلى فضلا راجع هذه المشاركة http://www.officena.net/ib/index.php?showtopic=43488&p=322858 تقبل تحياتى

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

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

السلام عليكم ورحمة الله أخي الكريم إسلام، جرب المرفق بالأسفل وأعرف أنه ما زالت بعض التعديلات (وعلى الخصوص الحالة التي نختار فيها خلية تحوي قبلا بعض الحروف -في حالتنا يجب مسحها وإعادة كتابتها من جديد)... أخوك بن علية ملاحظات : - عند كتابة بعض الحروف من اسم العميل يجب التأكيد بزر ENTER ثم الاختيار من القائمة المنسدلة في الخلية. - لا يمكن اختيار عدة قيم للفلترة مثل : حم / سل / ب (كل مرة اختيار واحد). - القوائم المنسدلة تعمل بالشرطين (اسم المكتب واسم العميل)... المرفق : فلترالقائمة المنسدله112.rar

الاخت ام عبدالله شكرا لك واليك لعبة اخرى لعبة الصورة المتحركة2.rar

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

الأستاذ / نجم الدين إبراهيم السلام عليكم ورحمة الله وبركاته إليك الملف لعله المطلوب النتيجة العامة.rar

السلام عليكم تفضل أخى النتيجة العامة.rar

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

أستاذتنا الكبيرة ( أم عبد الله ) بارك الله فيكى على مرورك وكلماتك الطيبة شكرا وجزاكى الله عنى خير الجزاء

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

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

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

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

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

السلام عليكم الأخ عبدالرحمن قد مرت علي هذه المشكلة مع الأكسل عندما كنت في بداية التعلم ولكن بعد فترة وجدت حلول سليمة وفعاله لتقليل الحجم وتسريع الإكسل والحلول التي اقترحها هي : 1 تحويل بعض الصيغ إلى أكواد فيجوال 2 استخدام الدالة indirect فهي ( قد ) تختصر المعادلات انظر الرابط http://www.officena.net/ib/index.php?showtopic=34740&hl= 3 تحويل ملف الإكسل إلى الإمتداد xlsb يعنى النظام الثنائي

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

يوجد اكثر من طريقة لحذف السجلات المكررة 1- انشاء استعلام البحث عن المتطابقات بواسطة المعالج ثم حذف السجلات المكررة يدويا وهذا يصلح اذا كانت المكررات قليلة 2- نسخ بنية الجدول فقط وحفظها باسم جديد ثم تعيين احد الحقول المناسبة كمفتاح لا يقبل التكرار بعد ذلك فتح الجدول الاساس ونحدد جميع السجلات ثم ننسخها ونلصقها في الجدول الجديد النتيجة : نقل البيانات بلا مكررات ويمكن بدلا من النسخ واللصق استخدام استعلام الالحاق لعمل ذلك ملحوظة : ستخرج عليك رسائل تفيد بتعذر اللصق بسبب مخالفات وكل ما عليك هو تجاهلها بالتوفيق ،،،

ممكن شرح كيفية عمل قائمة منسدلة فى الورد