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

السلام عليكم ورحمة الله بارك الله بإخواني /أبو حنين و احمد عبد الناصر ولإثراء الموضوع معادلة اخي احمد عبد الناصر لتعمل دون ادخالها كصفيف =SUMPRODUCT(VLOOKUP(G7;A7:D13;{2,3,4};0))/3 معادلة اخرى =AVERAGE(INDEX(B7:D13;MATCH(G7;A7:A13;0);0)) ايضا معادلة اخرى =SUMPRODUCT((A7:A13=G7)*(B7:D13))/3 في امان الله

السلام عليكم الاخ الكريم / مهند الزيدي بارك الله فيك ولكن عذرا فلقد تم تنفيذ طلبك في عجاله ... وكان الغرض الوصول للفكرة التي تقصدها فقط وهذا تعديل بسيط ليتناسب مع طلبك كما تريد ( باذن الله ) استبدل الاكواد الموجودة لديك في الفورم بالاكواد التالية Private Sub ComboBox1_Change() Sheets(ComboBox1.Text).Select ComboBox2.Clear With ComboBox2 For I = 1 To 250 If Not IsEmpty(Cells(2, I)) Then ComboBox2.AddItem Cells(2, I) Next End With End Sub Private Sub CommandButton1_Click() Sheets(ComboBox1.Text).Select With ActiveSheet For Each c In Range(Cells(2, 1), Cells(2, 256)) If c = ComboBox2.Value Then c.Select Next End With Unload Me End Sub Private Sub UserForm_Activate() ComboBox1.Clear For T = 1 To ThisWorkbook.Sheets.Count R = Sheets(T).Name ComboBox1.AddItem R Next End Sub في انتظار ردك ونسألكم الدعاء تقبل خالص تحياتي فورم انتقال باسم الورقة واسم نطاق-ss.rar

أخى الفاضل / عبد الرحمن تفضل أخى ما تريد اسم المستخدم : ragab كلمة المرور : 123 فورم واجهة يظهر اسم الملف.rar

اهداء الى كل الاساتذه فى منتدى اوفيسنا هذا اول برنامج لى مما تعلمته فى هذا المنتدى ارجو الافاده فى اى تغير على البرنامج وارجو اراء كل الاساتذه والاخوه فى المنتدى General Ledger.rar ِName : Admin Password : 1234

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

الاخ الكريم ع السريع ... شاهد المرفق ... هل هذا هو ما تريد ؟؟ نسألكم الدعاء لوالدي ( رحمه الله ) فورم انتقال باسم الورقة واسم نطاق.rar

الاخ الكريم شاهد المشاركة رقم 241 في نفس الموضوع بها طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل علي الرابط التالي http://www.officena.net/ib/index.php?showtopic=45637&page=13&hl=%2B%D8%A7%D8%B5%D8%AF%D8%A7%D8%B1%D8%A7%D8%AA+%2B%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D9%8A%D9%84#entry283497

السلام عليكم ورحمة الله جزاكم الله خيرا اخي الاستاذ / أبو حنين ايضا المعادلة التالية تقوم بالعد بدون تكرار =SUMPRODUCT(1/COUNTIF(B2:B7;B2:B7&"")) بالتأكيد الكود اخف على الملف من المعادلات في امان الله

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

أخى الحبيب ( عادل أبو زيد ) أخى الحبيب ( أبراهيم أبو ليلة ) حل رائع ولأثراء الموضوع حل أخر كشف حساب من شيتين على شكل حرف T.rar

السلام عليكم الاخ الكريم / ahmd2505 بارك الله فيك بالنسبة للشرح علي اوفيس 2007 فهو ليس بالامكان في الوقت الحالي ولكني معك دائما في اي استفسار تحتاج اليه بالنسبة لفتح الفيجوال بيسك ... يمكنك فتحه في اي اصدار اكسيل باستخدام الضغط علي Alt + F11 وحتي يتم الشرح علي 2007 ( ان امكن ) شاهد الرابط التالي ... يستخدم قوائم 2003 مع اكسيل 2007 لتتعود عليها http://www.officena.net/ib/index.php?showtopic=38902&hl=%2B%D9%82%D9%88%D8%A7%D8%A6%D9%85+%2B2003 تقبل خالص تحياتي

اخى عادل وهكذا يكون الشكل النهائى هل هذا ما تريده كشف حساب من شيتين على شكل حرف T.rar

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

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

اخى الجموعى الطريقه بسيطه جدا كل الفكره انى انا كتبت البيانات فى الكود الاول وبعدين من خلال الكود حددت عرض الاعمده وبعدين دخلت على الورقه الى هنقوم بطباعتها وحددت الاسطر الى انا هطبعها عن طري استخدم PAGE BREAK PREVIEW كما تم التوضيح فى المشاركه رقم18أولا

السلام عليكم ورحمة الله وبركاته 1 ) و نحن يسعدنا ايضا انضمامك معنا في منتدانا العريق 2 ) فضلاً لك مني دعوة طيبة بتغيير الاسم الى اللغة العربية من لوحة تحكمك لسهولة التواصل بين الاعضاء ( وهذه سياسة المنتدي) 3 ) عند رفع الملف لابد من انك تحوله الى rar ( ملف مضغوط ) والسلام عليكم ورحمة الله وبركاته

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

اخى الكبير : حمادة باشا جزاك الله الجنة شكرا على اهتمامك الدائم والاجابة الواضحة خالص تقديرى لك

على الرغم انني اعلم ان الموضوع انتهي ولكن لابد ان اعرض هذا الحل الذي كاد ان يدمر عقلي من كثرة التفكير في خطواته وكيف تم؟!! ولكن الحمد الله الذي هدانا لهذا واهدي الموضوع شوية واشكر الاستاذ جمال عبد السميع الذي اعاد لي ذاكرة الطفولة والتي كنت فيها مميز جداً في مادة الرياضيات ونظراً لعقد (التعليم) !!! دخلت ادبي وتخصصت في الجامعة كلية التربية في مادة الجغرافيا والتى لم ادرسها ولا في 2 ولا في 3 ثانوي حتى ولله الحمد على كل حال ( ابتسامة و فاصل ونواصل ) ---------------------------------- نرجع للحل الجديد هذه المعادلة للعمود هذا للترحيل العمود الزوجي =INDEX(C:C;(ROW()-2+ROW())) ولشرح الفكرة التى جعلت عقلي يكاد ان يطير واتمنى التركيز جيداً اننا نريد ترحيل بيانات تبدا من الصف الثاني ثم الرابع ثم السادس وهكذا اذا فانا اريد متغير وكان المتغير اللعب بالصفوف كما فعل حبيبنا الاستاذ جمال ولكن هذه المرة بطريقة مختلفة وقبل ان نشرح فلنتذكر اهم جزئيتين في المعادلة ROW()-2 وهذا الجزء هو الصف الذي اقف فيه - 2 ---------------- + row اي مضاف اليه الصف الذي اقف فيه طيب يلا نبدا الحل 1 ) اريد ترحيل الصف الثاني طيب انا الان في الصف الثاني (2 ) - 2 فالنتيجة = صفر + row ولا ننسى اننا في الصف الثاني (2 ) اذاً النتيجة ولله الحمد ( 2 )الصف الثاني وهو المراد ترحيل البيانات منه 2 ) اريد ترحيل الصف الرابع طيب انا اريد ترحيل بيانات الصف الرابع يلا نحسب طيب انا الان في الصف الثالث (3 ) + row وانا واقف في الصف الثالث يعني 1+3 =4 وهو المراد ترحيل بياناته 3 ) اريد ترحيل الصف السادس طيب انا الان في الصف الرابع (4 ) يعني row الصف الرابع (4 ) -2 =2 + 4 الصف اللى احنا واقفين فيه يعني الناتج =6 وهذا هو الصف المراد ترحيله وهكذا ... وهكذا 4 ) اريد ترحيل الصف الثامن طيب انا الان في الصف الخامس (5 ) يعني row الصف الخامس (5 ) -2 =3 + 5 الصف اللى احنا واقفين فيه يعني الناتج =8 5 ) اريد ترحيل الصف العاشر طيب انا الان في الصف السادس (6 ) يعني row الصف السادس (6 ) -2 =4 + 6 الصف اللى احنا واقفين فيه يعني الناتج =10 وهكذا ولله الحمد اولا واخرا باختصار هي تساوي مجموع الصف مكرر - (هذا المجموع مطروح منه الصفوف المتروكة )( اي الخلايا الموجودة اعلى اول صف سيتم فيه تنفيذ المعادلة ) 2+2 =4-2=2 3+3=6-2=4 4+4=8-2=6 5+5=10-2=8 6+6=12-2=10 والحمد لله على نعمة العقل( ابتسامة ) وهذه المعادلة للعمود الفردي =INDEX(C:C;(ROW()-1+ROW())) ومن المعادلة السابقة ممكن نستخرج منها معادلة أخرى وهي للزوجي =INDEX(C:C;2*ROW()-2) للفردي =INDEX(C:C;2*ROW()-1) توزيع الارقام بعمود واحد على عمودين ( حسب الصفوف الزوجية و الفردية)-braa.rar توزيع الارقام بعمود واحد على عمودين ( حسب الصفوف الزوجية و الفردية)-braa2.rar

السلام عليكم ورحمة الله وبركاته استاذي الحبيب استاذ // جمال عبد السميع بحق كم انت رائع وفنان وللعلم وانا افتخر بهذا ولا اخفيه ما قمت به ما هو الا نتاج معادلاتك القيمة وما عملي الا فكرة بسيطة وتعديل بسيط استاذ // عادل ابوزيد شكرا لثنائك العطر وبارك الله فيك. استاذ // محمد يوسف فكرة رائعة من شخص ولا اروع من كده ولاثراء الموضوع ولاضافة فكرة أخرى لمعرفة الاعمدة الفردية والزوجية هذه المعادلة البسيطة قف في اي خلية وضع هذا المعادلة اذا ان الناتج صفر اذا الصف الذي وضعت فيه المعادلة زوجي اذا كان الناتج 1 اذا الصف الذي وضعت فيه المعادلة فردي =MOD(ROW();2)

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

أخى / عبد الرحمن تفضل ما تريد الفرز التلقائي في ورقة محمية.rar

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

الأخ الكريم/ ابو عبدالرحمن نادر السلام عليكم ورحمة الله وبركاته لعدد 35 مستخدم - لابد من وجود سيرفر وشبكة كاملة أما ما يتعلق بالصلاحيات يمكنك عن طريق Allow Users to Edit Ranges تعيين صلاحيات لكل مستخدم علي حده علي نطاقات الملف - تحتاج بعض الوقت لتجربة الخيارات عمليا قبل رفع الملف وإتاحته للمشاركة . تقبل تحياتي

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

جزاكم الله خيرا Private Sub CommandButton1_Click() With UserForm1 .MultiPage1.Value = 2 .Show End With End Sub page1 تاخذ القيمة 0 page2 تاخذ القيمة 1 page3 تاخذ القيمة 2 page4 تاخذ القيمة 3 وهكذا تحياتي

السلام عليكم الاخ الكريم / ابو جيداء استخدم الكود التالي لتنفيذ طلبك ان شاء الله 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 ) لوضع علامة الدولار بشكل تلقائي وكذلك بالضغط مرة أخرى يتم التغير في الوضعيات أو إلغائها كليا تقبل تحياتي

السلام عليكم أخوتي الأفاضل لدي معادلة لقائمة منسدلة Date Validation وهي جيدة حيث نقوم تلقائيا بإضافة أي بيانات جديدة مدخلة إلى القائمة المنسدلة ( بدون جلب الخلايا الفارغة ) . السؤال هو هل يمكن ادخال تعديل عليها بحيث ( عند وضع حرف ( م ) مثلا يقوم بتصفية كل الأسماء التي تبدء بحرف ( م ) لتسهيل الإختيار و اختصار الوقت في البحث وخصوصا إذا كانت بيانات القائمة كثيرة الكود هو : =OFFSET('Data Entry'!$L$1,0,0,COUNTA('Data Entry'!L:L),1) الملف في المرفقات ولك جزيل الشكر

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

ارفق مثالا فبالمثال يتضح المقال

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

السلام عليكم ورحمة الله وبركاته بعد اذن اخي الحبيب رجب هذه المعادلة تعطيك اكبر تاريخ للعميل حتى اذا كانت التواريخ غير مرتبة =SUMPRODUCT(MAX((Table1[العميل]=[@العميل])*(Table1[التاريخ]))) تحياتي

السلام عليكم تفضل أخى =LOOKUP(2;1/(Table1[العميل]=[@العميل]);Table1[التاريخ]) كشف حساب.rar

او هناك طريقة اخرى وهي زيادة تغيير حجم تباعد الاحرف الى 300 % مثلا حسبما تريد . من مربع الحوار "خط" من التبويب تباعد الاحرف نكتب النسبة المئوية التي نريدها لهذه الاحرف او طريقة اخرى :: ابقاء الضغط على المفتاح SHIFT والنقر على مفتاح الحرف التاء (نقرة او اكثر) فلكل نقرة واحدة مسافة ابتعاد بين الحرف والحرف الذي نريده ان يبتعد عن هذا الحرف. والسلام عليكم

شرح كيفية طباعة صفحتين او اكثر في ورقة واحدة في الورد 2007 و 2010

شاهد المرفق بس عذرا لاي خطأ حيث اضع الملف ع السريع جدا جدا 1 كليك في الليست لتنفيذ الطلب الاول 2 كليك او زر المعاينة للمحدد لتنفيذ الطلب الثايي وفي انتظار ملاحظاتك الكتب4.rar

السلام عليكم الاخ الحبيب / طلعت محمد حسن بارك الله فيك بالنسبة لطلبك الاخير والمقسم الي طلبين الاول : بخصوص عد النتائج في الليست في تكست بوكس ( كما هو في الفورم الخاص بك ) يمكن استخدام ذلك بطريقتين ( اسهل من بعض ) الكود الاول ' وفيه نقول اجعل قيمة التكست بوكس تساوي المتغير الخاص بنتائج الليست والذي يأخذ قيمته من السطر ' V = V + 1 TextBox1.Value = v الكود الثاني 'وفيه نقول اجعل قيمة التكست بوكس 1 تساوي عدد صفوف الليست وهو بالضبط عدد النتائج TextBox1.Value = ListBox1.ListCount الثاني : والخاص بتجميع عمود السعر من نتائج الليست في ( تكست بوكس 2 ) كما هو في ملفك فأولا لاحظ اضافة سطر بسيط في بداية الكود وهو ' وفيه نقول اجعل قيمة التكست بوكس 2 تساوي لا شئ حتي يتم حساب القيمة المطلوبة بعد ذلك ' علي اساس سليم وعلي اساس النتائج المختلفة في كل مرة TextBox2.Text = "" ثم لوضع قيمة تجميع عمود الليست المطلوب وهو ( السعر ) يتم وضع الكود التالي لتنفيذ المطلوب 'في هذا السطر نضع متغير تكون قيمته من بداية الليست حتي نهايته وهو المتغير S For S = 0 To ListBox1.ListCount - 1 ' وهنا نقول ان قيمة التكست بوكس 2 تساوي قيمة التكست بوكس نفسه + قيمة العمود الثامن من الليست TextBox2.Text = Val(TextBox2) + Val(ListBox1.Column(7, S)) 'السطر التالي خاص بتنسيق التكست بوكس 2 لوضع المنازل العشرية عند التجميع TextBox2.Value = Format(Me.TextBox2.Value, "#0.00") 'السطر التالي هو نهاية جمله FOR بعد وضع قيمة المتغير S Next S وبذلك تكون النتائج في الفورم بعد وضع هذه الاكواد كما في الصورة التالية ارجو ان اكون قد اوضحت لك الصوروة بشكل جيد وتم تنفيذ المطلوب كما تريد تقبل خالص تحياتي عد النتائج في ليست وتجميع عمود معين.rar

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