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

السلام عليكم الاخ الكريم / أبو چيداء بارك الله فيك لتنفيذ طلبك الاخير استخدم الكود التالي فمثلا ان اردت دمج الخليتين (A2 و B2 ) وكذلك تغيير ارتفاع الصف الثاني نستخدم الكود التالي Sub sama1() Range("A2:B2").Merge Rows("2:2").RowHeight = 27 End Sub حيث ان Range("A2:B2") هو النطاق التي تريد دمجه والسطر الثاني Rows("2:2") هو رقم الصف الذي تريده ويمكنك اخي الكريم بطريقة بسيطة وسهله الحصول علي مثل هذه الاوامر بطريقة تسجيل الماكرو ليمكنك ذلك بنفسك ليس لأي شئ الا لأن تتوصل لذلك بنفسك ومعك دائما باذن الله تقبل خالص تحياتي

الاخ الكريم بالمسبة لطلبك اليك المرفق التالي ... بالاضافة الي مرفق آخر يؤدي نفس الغرض بشكل آخر ارجو ان يفي بطلبك ninos06-ssss.rar التنقل بين الصفحات.rar

سيم وضع الجزء التالي من الكود في حدث الكومبوبكس Private Sub ComboBox1_Change() بالاضافة للموجود ElseIf Me.ComboBox1.Value = "جدول4" Then Label1.Caption = Sheet1.Cells(2, 28): Label2.Caption = Sheet1.Cells(2, 29) Label3.Caption = Sheet1.Cells(2, 30): Label4.Caption = Sheet1.Cells(2, 31) Label5.Caption = Sheet1.Cells(2, 32): Label6.Caption = Sheet1.Cells(2, 33) Label7.Caption = Sheet1.Cells(2, 34): Label8.Caption = Sheet1.Cells(2, 35) Label9.Caption = Sheet1.Cells(2, 36): hhhh وبالتالي سيتم وضع كود آخر للبحث عن البيانات لظهورها في الليست والتي تخص الجدول 4 بالاكواد المستخدمة من الاخ الفاضل / ابراهيم ابو ليله ... جزاه الله خير ا وهذا هو الجزء المقصود Sub hhhh() Dim Ary() Dim i As Integer, ii As Integer, Lr As Integer ListBox1.ColumnCount = cont With Sheet1 Lr = .Cells(.Rows.Count, "a").End(xlUp).Row For i = 3 To Lr ii = ii + 1 ReDim Preserve Ary(1 To cont, 1 To ii) Ary(1, ii) = .Cells(i, 28).Value Ary(2, ii) = .Cells(i, 29).Value Ary(3, ii) = .Cells(i, 30).Value Ary(4, ii) = .Cells(i, 31).Value Ary(5, ii) = .Cells(i, 32).Value Ary(6, ii) = .Cells(i, 33).Value Ary(7, ii) = .Cells(i, 34).Value Ary(8, ii) = .Cells(i, 35).Value Ary(9, ii) = .Cells(i, 36).Value Next End With Me.ListBox1.Column = Ary Erase Ary End Sub ارجو ان يفي ذلك بطلبك تقبل خالص تحياتي label-SSSS++.rar

الاخ حماده باشا والاخ عبد الله بقشير عمل ممتاز جذاكم الله خير

السلام عليكم الاخ الكريم / الجموعي بارك الله فيك هل تقصد هكذا ... طريقة سهلة وبسيطة label-SSSS.rar

الاستاذ القدير العلامه الخبير / عبدالله باقشير انت بحق

السلام عليكم الاخ الكريم / ابو جيداء استخدم الكود التالي لتنفيذ طلبك ان شاء الله Sub sama() With Range("A2") .Interior.ColorIndex = 46 .Font.Name = "Arial" .Font.Size = 12 .Font.Bold = True End With End Sub تقبل خالص تحياتي

أخي العزيز / amm830133 بالنسبة لعملية التثبيت تستعمل علامة الدولار( $) لذلك فمثلا لو أرد تثبيت النطاق بشكل عام نضع علامة الدولار وذلك بالضغط على (SHIFT+4) قبل اسم العمود وقبل رقم الصف بهذا الشكل : $A$1:$C$4827 وإن أردت تثبيت الصف دون العمود ضعها قبل الرقم فقط بهذا الشكل : A$1:C$4827 وإن أردت تثبيت العمود دون الصف ضعها قبل العمود فقط بهذا الشكل $A1:$C4827 كما يمكنك تثبيت بداية النطاق دون نهايته أو العكس بهذا الشكل : $A$1:C4827 وهو ما يسمى بالمرجع النسبي أوالمطلق يتم اختيار المرجع حسب الحاجة كما يمكنك تحديد النطاق والضغط على (F4 ) لوضع علامة الدولار بشكل تلقائي وكذلك بالضغط مرة أخرى يتم التغير في الوضعيات أو إلغائها كليا تقبل تحياتي

بعد اذن أستاذى الحبيب أختى الفاضلة / سما محمد يكون التعديل فى الكود كالآتى Private Sub CommandButton1_Click() Dim Cntl As Control Dim Txt As String For Each Cntl In Me.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 وبالنسبة للفورم يتم ازالة الـ FRAME1 التشيك بوكس.rar

نعم ممكن مع تعديل بسيط Private Sub CommandButton1_Click() Dim Cntl As Control Dim Txt As String For Each Cntl In Me.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 تحياتي

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

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

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

أساتذتى الأفاضل ماشاء الله تبارك الله حلول وأفكار رائعة بارك الله فى كل الأساتذة بصراحة نفسى أشارك هذه الكوكبة بفكرة أرجو أن تكون فى نفس مستوى هذه الأعمال الرائعة أولا- هذه معادلة توضع لفصل الخلايا الفردية =INDEX(C:C;(ROWS($1:1)-1)*2+2) وهذه لفصل الخلايا الزوجية: =INDEX(C:C;(ROWS($1:1)-1)*2+1) تقبلوا تحياتى: خلايا فردية منفصلة.rar

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

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

راائع اخي الحبيب / حمادة باشا دائما احب اطلع علي ردودك ومشاركاتك تقبل خالص تحياتي

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

أستاذنا الكبير/ عبدالله باقشير السلام عليكم ورحمة الله وبركاته كود ولا اروع - وكالعادة تقبل تحياتي

استادي الحبيب // عبد الله باقشير جزاك الله خيرا على هدا الحل الرائع

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

السلام عليكم الاخ الحبيب / حمادة باشا بارك الله فيك ودائما تثبت انك مبدع من الطراز الاول تقبل خالص تحياتي

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

أستاذى الفاضل / محمد يوسف جزاك الله كل خير

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

أخى الفاضل الأستاذ / محمد يوسف هل تقصد هكذا Sub ragab() Set Rng = Sheets("ورقة2").Range("C2:C353") Application.ScreenUpdating = False [D2:E1000].ClearContents For Each cl In Rng If cl.Row Mod 2 = 1 Then LR1 = Cells(Rows.Count, "D").End(xlUp).Row + 1 Cells(LR1, "D") = cl Else LR2 = Cells(Rows.Count, "E").End(xlUp).Row + 1 Cells(LR2, "E") = cl End If Next Application.ScreenUpdating = True End Sub الخلايا.rar

أخى الحبيب / محمد أبو البراء تسلم ايديك وجزاك الله كل خير

الأخ الكريم/ ابراهيم23 السلام عليكم ورحمة الله وبركاته هل تريد المعادلة علي هذا النحو ؟ تقبل تحياتي 11111-Update Stock Data-2.rar

أخي العزيز / أبو طارق ضع المعادلة التالية في الخلية (D5) ومنثم انسخها في بقية خلايا الجدول =IF(AND($C5<=15-COLUMN()-COLUMN(A1);$C5>15-COLUMN()-COLUMN(C1));"x";"") لاحظ المرفق, وإذا كنت ستستعمل المعادلة في خلايا أخرى استبدل المعادلة السابقة بهذه فهي أفضل ويمكن استعمالها في أي أعمدة أخرى دون خطأ =IF(AND($C5<=15-COLUMN(D1)-COLUMN(A1);$C5>15-COLUMN(D1)-COLUMN(C1));"x";"") لاحظ المرفق الثاني تحياتي وتقديري تصنيف الفئات.rar تصنيف الفئات.rar

السلام عليكم بالنسبة للطلب الاول جرب هذا الكود Private Sub CommandButton1_Click() Dim iNx As Integer iNx = Me.Index - 1 With UserForm1 .MultiPage1.Value = iNx .Show End With End Sub تحياتي

أخى الحبيب / محمد أبو البراء تسلم ايديك ولاثراء الموضوع هذا حل آخر بالكود Sub ragab() Set Rng = Sheets("ورقة2").Range("C2:C353") Application.ScreenUpdating = False [D2:E1000].ClearContents For Each cl In Rng If cl Mod 2 = 1 Then LR1 = Cells(Rows.Count, "D").End(xlUp).Row + 1 Cells(LR1, "D") = cl Else LR2 = Cells(Rows.Count, "E").End(xlUp).Row + 1 Cells(LR2, "E") = cl End If Next Application.ScreenUpdating = True End Sub الخلايا.rar

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

اخى الجموعى تم عمل ايضا المطلوب الخاص باستدعاء البيانات عن طريق الكومبوبوكس الى ليست بوكس label.rar

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

الشكر والتقدير لك أستاذي الفاضل حمادة باشا

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

بارك الله فيكي الاخت الفاضلة / سما تقبلي خالص تحياتي

أخى الفاضل تكون الأكواد كالآتى 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

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

أخي الفاضل ريان أحمد أري أنه من الأسهل والأسرع ارفاق الملف حتي يتثني للأخوة معرفه نوع الخطأ ويجوز أن يكون الخطأ كما قال الأستاذ عبدالله في مقدمة الموضوع أنه يظهر عند بعض الزملاء خطأ عند هذا السطر .ColumnWidths = wColmn قوم بحذف هذا السطر من الكود او يعمل شرطة احادية قبل السطر ليلغي قراءة هذا السطر وستنتهي المشكلة ان شاء الله

أخى الفاضل / المحامى خالد لا داعى للإعتذار أخى الفاضل وشكرا جزيلا لك على سرعة التواصل

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

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

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

أخى الفاضل / الشيباني1 جرب المرفق لعله يعجبك new_file.rar

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

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

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

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