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

السلام عليكم ورحمة الله وبركاته تهنئة بترقية الاخ شوقي ربيع الى عضو خبير و تهنئة بترقية الاخ الشهابي الى عضو محترف الف مليووووووووووووون مبروك والى الامام دوما...... تقبلوا تحياتي وشكري

السلام عليكم جرب الكود التالي Sub Macro1() Dim Cont As Integer, Lr As Integer, R As Integer Cont = Application.InputBox("إدخل عدد الصفوف", , 2, , , , , 1) If Cont = 0 Then Exit Sub Lr = Cells(Rows.Count, "A").End(xlUp).Row Application.ScreenUpdating = False For R = Lr To 8 Step -1 Rows(R).Resize(Cont).Insert Shift:=xlDown Next Application.ScreenUpdating = True End Sub تحياتي

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

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

( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات للاطفال هذا العمل عمل بسيط جدا جدا ولكني وجدتها فرصة كبيرة لاتقدم بشكري وعرفاني للاساتذة الكبار بالجميل فالف مليون تحية اعزاز وتقدير لكل القائمين علي خدمة المنتدي من اساتذة وخبراء ومشرفين واعضاء الشرف والاعضاء المميزين والاعضاء والضيوف ايضا احب ان انوه في البداية .... انه في منتدي الباوربوينت موضوع باسم ( لعبة الصورة المستخبية ) للاستاذ / مجدى يونس .. جزاه الله خيرا بنفس الفكرة تقريبا وعندما رأيتها اعجبت ابنتي ( سما ) كثيرا .... علي الرابط التالي ... والفكرة في الاصل بالطبع للاستاذ / مجدي ... حقوق الطبع محفوظه ( طبعا ) http://www.officena.net/ib/index.php?showtopic=45425 ولكن لعشقي الرهيب الشديد للاكسيل فقررت ان اقوم بتصميمها علي الاكسيل وها هي بين ايديكم كل ما عليك في اللعبة هو ان تضغط علي الزر الموجود اسفل الصورة يظهر لك جزء منها وكل ضغطة يظهر جزء آخر وعندما تتعرف علي الصورة اختار اسمها من الاجابات الموجودة بالاسفل ستظهر لك الصورة بالكامل ويتم الانتقال للصورة التالية و....... اترككم مع اللعبة ...بلاش كلام كتير ..... ارجو ان تحوز علي اعجابكم ارجو من كل خبراء واساتذة واعضاء ورواد هذا الصرح العملاق ( جامعة اوفيسنا ) ابداء الرأي في هذا العمل ... جزاكم الله خيرا لعبة الصورة المستخبية - اكسيل.rar

قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة السلام عليكم الاساتذة الافاضل اخواني الاعزاء اقدم لكم هذا الملف به قوائم مصممه باستخدام الفورم بطريقة بسيطة وسهله وبها بعض الاوامر علي سبيل المثال ويمكنكم تغييرها بالطبع لتتناسب مع طبيعة وتصميم برنامجكم ... ومن الجدير بالذكر ان الاستاذ الغائب الحاضر / الحسامي ... له ملف رااائع بهذا الموضوع وقوائم ولا اروع ولا احلي من كده وهو اول من قام بهذه الفكرة ( الحقوق محفوظة ) وطبعا هذا الملف بجواره لا شئ ... ولكنني استخدمت اسهل وابسط الطرق الممكنه لعمل ذلك وكنت قد صممتها لاستخدامها في برنامج لدي واحببت ان اطلعكم عليها واطلع علي رأيكم فيها واوجة القصور الموجودة فيها وتجربتها علي اكثر من جهاز قبل العمل النهائي عليها حيث لدي مقاس الشاشة 19" مستطيل Resolution 1366 x 768 نسخة اوفيس 7 اوفيس 2003 ، اوفيس 2007 ارجو ان تنال رضاكم جزاكم الله خيرا قوائم جديدة لاي برنامج تصممه بنفسك.rar

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

من دعاء الأنبياء فى القرآن

بناء تجريبي.rarالمطلوب داخل المرفقات ارجو المساعده من الاعضاء

السلام عليكم مبدع اخي عبدالله كعادتك ومن بعد اذنك هنا محاولة اخرى Sub Macro1() Application.ScreenUpdating = False Dim Cont As Integer, rng As Range, R As Integer On Error Resume Next Cont = Application.InputBox("أدخل عدد الصفوف", , 2, , , , , 1) If Cont = 0 Then Exit Sub Set rng = Range([A7], [A65536].End(xlUp)) R = rng.Rows.Count rng(1, 1).EntireColumn.Insert Set rng = rng.Offset(0, -1) rng(1, 1).Value = 1 rng(1, 1).AutoFill Destination:=rng, Type:=xlFillSeries rng.Copy rng.Offset(R, 0).Resize(R * Cont, 1) rng.Resize(R * (Cont + 1), 256).Sort Key1:=rng(1, 1), Order1:=xlAscending, Header:=xlNo rng.EntireColumn.Delete End Sub

اشكر كل من حاول ايجاد حل معي وبارك الله فيكم وجعلكم ذخرا للمنتدى تم بحمد الله حل المشكلة وتوصلت الى حل كافي وبالمرفقات المثال والحل control report printing_5.rar

السلام عليكم أخي الحبيب / هاني نتفق جميعا أننا نعرف بعضنا من خلال المنتدي المبارك ولانعرف بعض علي أرض الواقع (إلا قليلا) إذن لايمكن أن يتقدم من يريد المساعدة لمساعدة عضو ويترك الآخر لأسباب بينهما شخصية فلابد أن تسأل نفسك وهذا ما أوجهه لنفسي ولجميع الأعضاء عندما يكون لديهم أسئلة مالذي يجعل من يريد المساعدة يتقدم لمساعدة عضو ويترك الآخر أو يتقدم لموضوع ويترك الآخر؟ هذا سؤال مهم ولابد للجميع الإنتباه لهذا ، سأجيب من وجهة نظري ولكم جميعا التعليق بما تشاؤون أري أن الأسباب لهذا كثيرة وسأذكر منها فقط 3 أسباب رئيسية 1. المجيب لايعرف عن الموضوع ويخشي أن يضلل السائل كأن يسأل السائل سؤالا محاسبيا متخصصا أو سؤالا هندسيا متخصصا أو كأن يسأل السائل أن الإجابة بالأكواد والمجيب لايجيد الأكواد أنا مثلا أبعد عن الفورم لأن غيري كثيرين بارعين فيها ويحلونها بسرعة 2. عدم وضوح السؤال كأن يسأل السائل عن شيء ليس موجودا بالملف ، مثل حالتك هنا في السؤال عن مايدفعه العميل ومايتبقي عليه ولايوجد بالملف كله بجميع ورقاته أي إشارة لما دفعه العميل وماتبقي عليه غير في السؤال فقط ، فكيف 3. السؤال ليس سؤال بل موضوع كبير يستنزف وقت المجيب كأن يسأل السائل أريد عمل برنامج يحسب كذا ويستدعي كذا ويطبع كذا ويخزن في شكل ... في نفس الوقت هنا لن يتقدم للإجابة إلا من لديه وقت كبير، أنا مثلا أري في هذه الحالة أن أفيد بهذا الوقت الكبير 5 او 6 سائلين لعلك لابد أن تعيد طريقة طرح الموضوع أو السؤال فأنت تبذل وقت كبير في المتابعة والإلحاح بدون ان تبذل وقت لإعادة السؤال فعارض السؤال كمندوب المبيعات الذي يعرض سلعته فالمندوب الجيد يسأل نفسه ويلوم نفسه اولا إن لم تباع سلعته أرجو أن يتسع صدرك لردي هذا وتأخذه بمأخذ إيجابي ولاتأخذه سلبيا فلاتظن مثلا أنني أتنصل ، فقد فتحت ملفك هذا عشرات المرات لكني في كل مرة أفتحه أجد نقص هائل من البيانات مثلا أنت وضعت في صفحة العملاء 3 أعمدة فقط هكذا اسم العميل تاريخ فواتيره دين العميل اذا اشترى وتبقى عليه جزء من ثمن الفاتورة وتطلب ترحيل الفواتير لهذه الورقة من صفحة الفاتورة التي بها 7 أعمدة م الصنف العدد الوحدة سعر الوحدة اجمالى ملاحظات طلبت منك قبل ذلك أن تضع النموذج الذي تريده يدويا ، بمعني ضع بيانات حقيقية أو وهميه في ورقة الفاتورة ثم إنقلها يدويا لصفحة العملاء ، حتي يفهم المجيب أي عمود سيترحل لأي مستقبل ، أظنك لوعملت ذلك منذ شهور كان خلص الموضوع ونقطة أخري التي أشرت لك في أول ردي إليها السؤال عن شيء ليس موجودا بالملف ، مثل مايدفعه العميل ومايتبقي عليه ممكن تضيف أنت كما يتراءي لك في صفحة الفاتورة مثلا بين عمود اجمالى و عمود ملاحظات عمودا جديدا به ماتم دفعه مثلا الصنف الأول 120ج إجمالي ، دفع منها 100 فقط ، أين سنضع هذا البيان تقبل مني هذا وأعد صياغة السؤال ، وقد وضعت الرد هنا وليس علي رسالة خاصة لكي يستفيد باقي الإخوة الذين لايجدوا تفاعلا مع أسئلتهم وليشاركنا من أراد فموضوعك أصبح قديم جدا ومن المحزن ألا تستقر علي حل له حتي الآن أظنك بإذن الله تتفهم ذلك ولنعمل جميعا علي العبور للخطوة التالية تقبل ودي وإحترامي لشخصكم الكريم أخوك / طارق محمود

ممكن طريقة كتابة الارقام بالشكل التالي 111111111 111111112 111111113 الى 999999999 الارقام من تسعة خانات

السلام عليكم ورحمة الله أخي الكريم، وأعتذر أيضا للخلل الموجود في المعادلات وقد تم تصحيحها (أرجو ذلك) في الملف المرفق... أخوك بن علية المرفق : سجل.rar

اذا اردت تكون البيانات الاوليه هيا التي تظهر في البداية لابد من عكس الاتجاه كما السابق من اليسار الى اليمين غيرتها في هذا المرفق لانه الحل الوحيد حالياً تم إضافة حذف جميع حركة الاسم من ورقة المتابعات مع الحذف السجل الاساسي وهيا بفورم الاستاذ العلامه عبدالله باقشير " زر حذف السجل الحالي " اضن انه اسرع بهذا المرفق التجربه خير برهان حسب الاليه الموجوده في ملفك بالامكان ان تضيف بدون زر تلقائي بمعنى : تضغط على الدائرة ثم تبحث عن الاسم المراد اضافة متابعه له ثم تدرج بياناتك كامله ثم تضغط زر مختصر مثلاً "F6" بدلا من الضغط على زر اضافة المتابعه ؟ Profser_3.rar

شاهد تجربتي بالمرفق شرح.rar

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

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

بسم الله الرحمن الرحيم طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج بتكستات بوكس !! خطوة خطوة (((( الدرس الاول - الجزء الاول )))) مرفق ملف اكسيل به الفورم والمثال الذي سنعمل عليه في الدروس القادمة اليكم اولا رابط تحميل مباشر للملف الفيديو ( رابط خارجي ) والتالي شرح بفيديو مباشر من خلال هذا الصرح العملاق ( ويمكنكم ايضا تحميله من هنا ) جزاكم الله خيرا طريقة تصميم فورم بحث عن طريق لست بوكس11.rar 1.rar

السلام عليكم الاستاذ / الغالي ابوتميم صاحب توقيع شريط ادوات موقع اوفيسنا والذي عندما التحقت بالمنتدي كنت اتمني شئ كهذا اثنا تصفحي للنت في المواقع الاخري وعندما دخلت علي احدي مشاركاتك ووجدت ذلك في توقيعك لم اصدق إن هذا افضل مما انا اريده وما كان في خيالي فلك جزيل الشكر مني وجزاك الله خيرا وافهم من كلامك ان اوفيس 2010 هو الافضل وبالتالي الآن : اكسيل 2003 ( 3 ) صوت اكسيل 2007 ( 1 ) صوت اكسيل 2010 ( 1 ) صوت اكسيل 2013 ( 1 ) صوت

السلام عليكم الاخ / الفاضل / Mr_Eldeeb شكرا لمرورك الكريم ةرأيك صائب تماما ولكن من خلال وجودي في هذا المنتدي وامكانيات خبراؤنا واساتذتنا اصبح توظيف اي اصدار سهل معهم بالنسبة لي اوفيس 2003 هو اقوي اصدار للاكسيل

السلام عليكم أخي العزيز تفضل كود بسيط مع شرح بسيط Sub shift() LR = [AV1000].End(xlUp).Row 'لمعرفة آخر سطر فيه نتيجة متعدد وجائز For R = 11 To LR ' نبدأ حلقة من أول سطر به بيانات إلي آخر سطر x = Cells(R, "AV") With Sheets(x) LR2 = .[B1000].End(xlUp).Row + 1 'لتحديد آخر سطر جاهز لنقل بيانات .Cells(LR2, "B") = Cells(R, "B") .Cells(LR2, "C") = Cells(R, "D") .Cells(LR2, "D") = Cells(R, "E") End With 10 Next R MsgBox ("الحمد لله" & Chr(10) & "تم الترحيل") End Sub وهذا هو المرفق ترحيل نور.rar

السلام عليكم بمناسبة قدوم عيد الاضحى المبارك اقدم اليكم هذه الهدية : برنامج حافظة شخصية للهواتف والإيميلات ( بإمكانية البحث السريع ) الميزات المستخدمة في البرنامج ============= اولاً : سهولة ومرونة في الاستخدام ثانياً : بحث باي معيار ثالتاً : إضافة اسم و تعديل بيانات اسم رابعاً : حذف بيانات اسم خامساً : حذف جميع البيانات سادساً : الانتقال الى بريدك لارسال رسالة عند النقر على صورة الرسالة بجانب الايميل لصاحب البيانات تقبلوا خالص تحياتي وشكري ___________.rar