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

السلام عليكم أساتذتى وإخوانى وأحبابى فى المنتدى :- ******************************************** مع كل شىء جديد فى الأكسل أصل إليه أحب أن أقدمه للمنتدى الذى تعلمت منه وفيه كرد للجميل الذى وهبنى إياه من قبل باختصار لو عندى 3 ملفات اكسل ( أ و ب و ج ) نقدر ننقل بيانات من ( أ ) إلى ( ج ) بدون فتح ( أ ) ولا فتح (ج ) ( انجليزى ده يا مرسى ؟؟؟؟ ) لأ مش انجليزى ولا ألمانى ولا حتى يابانى أو أمريكانى إنما هو مصرى خالص ووصعيدى كمان والمرفق التالى يوضح ذلك . طريقة التعامل مع المرفق : فك الضغط عن المرفق هتلاقى 3 ملفات mokhtar1 و mokhtar2 و mokhtar3 1- افتح mokhtar1 واكتب ما يبدو لك فى المدى المحدد ( A1 : C5 ) واقفله 2- رووووح على mokhtar2 فقط اضغط الزر " اقفل يا سمسم " 3- اجرى بسرعة على mokhtar3 وشوف النتيجة . الشرح والأكواد فى المرفق 123 كلمة سر الفيجوال بيسك . أكتفى بهذا الموجز وعلى حضرتك اكتشاف المزيد فى الملف . تحياتى لأساتذتى وزملائى copy data from a closed excel file & paste it in a closed excel file by mokhtar.rar

السلام عليكم أعتقد أن البعض من مستخدمي الإكسيل يجدون صعوبة في التعامل مع الوقت و التاريخ في الإكسيل نظرا لعدم فهمهم آلية تعامل البرنامج مع الوقت و التاريخ. هذه السلسلة محاولة لتزيل بعض من هذا الغموض و الصعوبة.( الموضوع مترجم ) أولا: نوضح آلية تعامل الإكسيل مع التواريخ: بشكل أساسي يستخدم الإكسيل نظام 1900. ما هو نظام 1900 هذا ؟؟؟؟؟؟؟ هو نظام يعتبر فيه الإكسيل أن التاريخ 1 يناير عام 1900 بمثابة الرقم 1 و بالتالي فالتاريخ 2 يناير عام 1900 بمثابة الرقم 2 و هكذا حتى نصل لتاريخ اليوم. و هذه القيم تسمى في الإكسيل بـ ( القيم المتسلسلة ) و هي التي تسمح لنا بإجراء العمليات الحسابية على التواريخ. ثانيا: توضيح آلية تعامل الإكسيل مع الوقت : تعامل الإكسيل مع الوقت يتشابه لحد كبير. لكن الإكسيل ينظر للوقت على أنه ( كسور عشرية ) معتبرا أن الساعة 24:00 ( أي الساعة 00:00) بمثابة واحد صحيح. أي أن الساعة 18:00 بمثابة القيمة 0.75 لأنها تعتبر ثلاثة أرباع اليوم الكامل (24 ساعة ) الذي يعتبره الإكسيل كما قلنا بأنه 1 صحيح . ملحوظة مهمة : لكي ترى القيمة الحقيقية للوقت أو التاريخ في الإكسيل فقط قم بتنسيق الخلية التي بها الوقت أو التاريخ على عام (General).وانظر القيمة التي أمامك!!! على سبيل المثال اكتب تاريخ اليوم(21/8/2010 ) في خلية و قم بتنسيق الخلية على عام (General) ستجد الرقم 40411 اكتب تاريخ اليوم(21/8/2010)و بجواره الوقت وليكن الساعة 15:00 في خلية واحدة وقم بتنسيق الخلية على عام (General) ستجد الرقم 40411.625 الرقم يمين العلامة(625) يمثل الوقت و الرقم يسار العلامة(40411) يمثل التاريخ . أتمنى أن يكون الشرح واضح و أزال بعض من الغموض هناك بقية ...تابعونا دمتم بخير أيسم إبراهيم

السلام عليكم و رحمة الله و بركاته .. اولا شكري و تقديري لكل الاخوة الاعزاء على كل ما يقدموه من جهود لخدمة الاعضاء جزاكم الله خير الجزاء .. طلبي هو اني محتاج برنامج ينظم اسلوب ادارة العمل في روضة للاطفال .. و بعد البحث في منتدانا الرائع , وجدت موضوعا لاحد اساتذتنا و مرفق ادناه و ووجدت انه ينفعني فيي مبتغاي , و لكن و للاسف فاني لا اعرف طريقة تركيبه على فكرة البرنامج الذي اريده المطلوب انه استخدم فورم ادخال المعلومات ( البيانات ) بما يتناسب مع شيت المعلومات الذي ارغبه و بالنسبة لفورم ادراج الصور , فارغب باستخدامه لادراج صورة من له الحق باستلام الطفل ( ضمن خانه ولي الامر ) بمختصر و كي لا اطيل عليكم .. فكرة البرنامج الذي اود مساعدتكم لي في انجازه هي انه لما ياتي شخص ما لاستلام الطفل , يقوم الموظف بادخال اسم الطفل في فورم البحث و نتيجة البحث تظهر معلومات الطفل + صورة لمن هو مخول باستلام هذا الطفل .. مع ملاحظة انه قد يتم تحديد اكثر من شخص يمكنهم استلام الطفل حسب رغبة ولي الامر .. فهل من الممكن مساعدتي في طلبي هذا ؟؟؟ فورم جاهز.rar yasmin.rar

بسم الله الرحمن الرحيم مرفق لكم بفضل الله تعالى برنامج شؤون الطلاب والعاملين والكنترول ) برنامج الشؤون 4 ( فى برنامج واحد ولجميع الصفوف وعلى أى قرار وزارى أيا كان رقمه سواء كان القرار 460 أو القرار 313 أو أى قرار سيصدر مستقبلا لأن هناك خاصية يمكن من خلالها التعديل على القرار الوزارى جديد الاصدار 1) شؤون الكنترول لجميع الصفوف فى برنامج واحد بحجم صغير بسبب الاعتماد على المعادلات لا الماكرو أو الأكواد ويحتوى الاصدار على هذه المشتملات : * كشف أعمال السنة * كشف الناجحين والراسبين من خلال الاختيار من القائمة المنسدلة * صفحة الأوائل على مستوى الصف على حسب المجموع والسن * صفحة الضعاف العشرين على مستوى الصف لمعالجتهم * صفحة المتفوقين والضعاف فى جميع المواد الدراسية لجميع الصفوف * كشف النسبة والترتيب العام وعلى كل مادة لجميع المواد * شهادات بتصميمات مختلفة * إحصاء عام وشامل لكل من المدرسة والادارة * كشوف اللجان والمنادة 2) شؤون الطلاب لجميع الصفوف بأشكال مختلفة عن الاصدارات السابقة شاملة الاتى : * قاعدة بيانات تفصيلية الية المدخلات شاملة الاسم / والنوع / الرقم القومى / تاريخ الميلاد / السن / الفصل / حالة القيد ...............ز * كشف أعمال السنة قابل للتعديل * قوائم الفصل من خلال اختيار الفصل من القائمة المنسدلة * بيان حالة قيد تلميذ 3 ) شؤون إدارية شاملة الاتى : * قاعدة بيانات تفصيلية لجميع العاملين * إحصاء العاملين على حسب الدرجة والمواد * إحصاء عام وشامل لكل من التلاميذ والعاملين والفصول * نماذج غدارية هامة كالغياب اليومى والرواد ........... لتحميل البرنامج اضغط هنا أسأل الله تعالى أن يكون هذا العمل خالصا لوجهه تعالى وأن يغفر لنا ولكم إنه هو الغفور الرحيم

- اولا تروح لحسابات المستخدمين - انقر على ايقونة : تغيير اعدادات التحكم في حساب المستخدم - يفتح لك مربع حوار : اسحب الشريط الموجود الى ادنى نقطة في الاسفل ثم احفظ واخرج - اعد تشغيل الحاسب -------------------------------- بما ان نظامك 64 الصق ملف DBPix20.ocx داخل مجلد النظام syswow64 انقر على ابدأ ( او بحث في win8 ) اكتب في البحث كلمة cmd سيظهر لك ملف cmd.exe انقر عليه بالزر الايمن واختر تشغيل كمسؤول سيفتح مربع حوار كتابة الاوامر اكتب الامر c:\windows\syswow64\> regsvr32 DBPix20.ocx هنا لابد يكون لديك خبرة بسيطة بطريقة الكتابة والتراجع وللتراجع الى c:\ اكتب cd ثم مسافة ثم \ وانقر انتر وللدخول من مجلد الى آخر اكتب cd ثم مسافة ثم اكتب المجلد وانقر انتر

تابعوا موضوع الباركود على http://www.officena.net/ib/index.php?showtopic=61143&hl=

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

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

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

حياك الله

مشاركة بجانب مشاركة أخونا الكريم أستاذ راعي الغنم لإيضاح تغير السعر عند اختيار الصنف لديك جدول الأصناف يحتوي على اسم الصنف وسعر الصنف إذن من المفضل أن يكون جدول الفاتورة جدولان وهما [رأس الفاتورة] و[تفاصيل الفاتورة].. بمعنى: ◘ جدول رأس الفاتورة يحتوي على رقم الفاتورة وتاريخها واسم العميل وبياناته وهكذا ◘ جدول تفاصيل الفاتورة يحتوي على رقم الفاتورة ومرتبط بجدول رأس الفاتورة (كما أجاب أستاذ راعي) وحقل مربع تحرير وسرد للأصناف مرتبط بجدول الأصناف وحقل آخر سعر الصنف أي أن حقل السعر موجود في جدول الأصناف وفي جدول تفاصيل الفاتورة.. والغرض من ذلك هو بعدما تختار الصنف سيقوم بجلب السعر الموجود في جدول الأصناف في حقل السعر الموجود في جدول تفاصيل الفاتورة وذلك لكي تتمكن من التعديل على سعر الصنف لأنك لو جعلت حقل السعر الموجود في جدول الأصناف هو نفس الحقل الموجود في تفاصيل الفاتورة فذلك خطأ لأنك لو قمت بتعديل سعر الصنف سيتم تعديل السعر في كافة الفواتير السابقة.. أما بطريقة جلب السعر من جدول الأصناف ووضعه في جدول تفاصيل الفاتورة فتعديلك حينها على سعر الصنف سيقتصر على السعر الموجود في الفاتورة الحالية فقط ولن يتأثر السعر في جدول الأصناف

الله يطول في عمرك أخوي ، لا ما قرأت المرفق انت ماشاء الله عليك مادمت كتبت الكود ، قلت اعطيك الجواب ، وانت تحطه في المكان اللي تريده بس مادمت مصر اني احط الجواب في الكود ، بدل هذا: Me.acpt20 بهاي: left(Me.acpt20,1) جعفر

رائع دائما ومتألق

اربط اولا مابين الجدولين في ادوات قاعدة البيانات وتكون العلاقة راس براس ثم اجمع الجدولين في استعلام بحيث تأخذ حقل السعر من جدول الصنف وبقية الحقول من جدول الفاتورة..

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

السلام عليكم استاذ khmb مرورك شرفني ارجو ان تستفيد من الملف

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

السلام عليكم أخي محمد انا لن اتطرق لطريقة عمل النموذج الجديد ، "لأننا" لم نلحظ المشكلة في النموذج الاصل ولكني دخلت في كود Combopn_AfterUpdate : pn = DLookup("pn", "code", "[pn]=forms!frm_dataentry!Combopn") size = DLookup("Size", "code", "[pn]=forms!frm_dataentry!Combopn") vendor = DLookup("Vendor", "code", "[pn]=forms!frm_dataentry!Combopn") Description = DLookup("Description", "code", "[pn]=forms!frm_dataentry!Combopn") Maxrl = DLookup("Maxrl", "code", "[pn]=forms!frm_dataentry!Combopn") Maxrlegyptair = DLookup("Maxrlegyptair", "code", "[pn]=forms!frm_dataentry!Combopn") ACType = DLookup("actype", "code", "[pn]=forms!frm_dataentry!Combopn") Pos = DLookup("pos", "code", "[pn]=forms!frm_dataentry!Combopn") BiasRadial = DLookup("biasradial", "code", "[pn]=forms!frm_dataentry!Combopn") code = DLookup("code", "code", "[pn]=forms!frm_dataentry!Combopn") لاحظت انك تنادي الجدول (اي تعمل استعلام للجدول) 10 مرات !! انا دائما لما اعمل برامجي ، اعمل البرنامج على اساس انه سيكون عبارة عن جزئين ، الواجهة FE ، والجداول BE ، وان الجداول BE ، ستكون في شبكة ، وان الواجهة FE ستكون لأكثر من مستخدم. لهذا السبب ، فيجب ان نقلل الزحمة في الشبكة ، وذلك بتقليل زيارة/استعلام الجداول قدر الإمكان ، وعند كل زيارة ، يجب ان نأخذ اكبر كمية من البيانات المطلوبة ، ثم نتعامل معها محليا في FE. لذلك ، فانا هنا اعطيك احد البدائل (والتي لا يعرفها الكثير ، لأنها تعمل على الاكسس 2003 فما فوق) ، فالكود التالي ، يقوم بزيارة/استعلام الجدول عن طريق DLookup مرة واحدة ، ويأخذ 10 بيانات مرة واحدة ، فلذا يمكن ان يستبدل كودك اعلاه: Dim x() As String A = Nz(DLookup("[pn] & '|' & [Size] & '|' & [Vendor] & '|' & [Description] & '|' & [Maxrl] & '|' & [Maxrlegyptair] & '|' & [actype] & '|' & [pos] & '|' & [biasradial] & '|' & [code]", "code", "[pn]=forms!frm_dataentry!Combopn"),"|||||||||") 'ويمكن استعمال اي شيء بدل عن | فمثلا الفاصلة 'A حتى اذا لم هناك قيمة للمتغير Nz نستعمل الدالة 'عدد مرات وضع العلامة | في نهاية السطر ، يكون نفس عددها في المعادلة 'لهذا السبب نرى اننا وضعنا 9 منها في نهاية السطر x = Split(A, "|") ' For i = LBound(x) To UBound(x) ' Debug.Print x(i) ' Next i Me.pn = x(0) Me.size = x(1) Me.vendor = x(2) Me.Description = x(3) Me.Maxrl = x(4) Me.Maxrlegyptair = x(5) Me.ACType = x(6) Me.Pos = x(7) Me.BiasRadial = x(8) Me.code = x(9) جعفر

أخي وحبيبي ونور عيني مختار تسلم على تشجيعك الدائم لي..بارك الله فيك وجزيت خيراً على كل ما تقدمه لمصلحة إخوانك في الله ورداً على كلامك الشديد : أنا بكلامك والله دايما سعيد ، وأنا بين إخواني بالمنتدى بكون كأني في عيد ، وسلم لي على أبو عيد ، وسلامي من هنا لكل أهل الصعيد تقبل تحياتي

السلام عليكم أساتذتى واخوانى بالمنتدى تناولت فى موضوعى السابق طريقة نقل بيانات من ملف مغلق الى ملف مغلق أخر بطريقة تسمى ado وهى اختصار للعبارة ActiveX Data Objects بدأ العمل بها فى مايكروسوفت 1996 تستخدم هذة الطريقة فى ترحيل ونقل البيانات بين الملفات استخدمت هذه الطريقة فى جلب البيانات الى شيت رئيسى ثم ربطت الشيت الرئيسى بشيت آخر بلينك . بعد ذلك قلت لنفسى لو عندى كود لادخال البيانات الى ملف مغلق يبقى الأمر 10/ 10 ثم بحث عن كود ووجدت واحد فى أحد المواقع الأجنبية وقمت بتعديله بطريقة لا يشعر فيها المستخدم بأن الملف ده اتفتح والتفاصيل هنا : http://www.officena.net/ib/index.php?showtopic=57798 والحمد لله تم استبدال اللينك بكود . وتركت لكم الملفات فى الرابط ده . مرة مستخدما اللينك ومرة الكود فى ادخال البيانات للملف المغلق . و اليوم أقدم لكم كيفية جلب البيانات من 3 ملفات مغلقة دفعة واحدة وبضغطة زر واحدة ومن ثم ترحيلها وادخالها الى ملف مغلق آخر دون شعور المستخدم بذلك وهذا يتم بذات الطريقة السابقة . للأصدقاء من خارج المنتدى : على الميديا فاير من خلال الرابط التالى http://www.mediafire.com/download/gidslzjdssb2jii/copy__data_from_a_closed_excel_file__&_paste_it_in_a_closed_excel_file_by_mokhtar_(__3_).rar للأصدقاء فى المنتدى : تفضلوا الملفات فى المرفق التالى . أرجوا أن يفيدكم وتستمتعوا به تحياتى للجميع copy data from 3 closed excel file & paste it in a closed excel file by mokhtar ( 3 ).rar

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

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

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

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

الأخ الفاضل أبو تريكة جرب الكود بهذا الشكل Sub GetData_Example3() GetData ThisWorkbook.Path & "\1.xlsx", "1", _ "A1:t26", Sheets("1").Range("A1"), False, True GetData ThisWorkbook.Path & "\2.xlsx", "1", _ "A1:t26", Sheets("1").Range("A27"), False, True GetData ThisWorkbook.Path & "\3.xlsx", "1", _ "A1:t26", Sheets("1").Range("a53"), False, True End Sub تم تغيير كلمة True قبل الأخيرة إلى False لأنه بارامتر يتعامل مع العنوان .. فإذا كان للبيانات عنوان في الملف المراد جلب البيانات منه .. جعلت القيمة True أما إذا لم تكن البيانات لها عنوان فتقوم بجعل القيمة False أرجو أن تكون تلك النقطة هي حل المشكلة تقبل تحياتي

اكتب هذه المعادلة(على فرض ان العدد المطلوب تدويره في الخلية A1: =ROUND(A1,0.5)

السلام عليكم ورحمة الله وبركاته ***************** هذا الموضوع تجميع لروابط الموضوعات التي قدمتها ، أسأل الله العلي القدير أن يجعل أعمالنا صالحة ولوجهه خالصة. افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) استخراج كل الاحتمالات لأرقام محددة (موضوع الأسبوع الخامس) ترتيب الأسماء أو القيم طبقاً لطول السلسلة النصية (موضوع الأسبوع الرابع) عكس القيم في عمود أوقلب النتائج في عمود مجاور (موضوع الأسبوع الثالث) استخراج الصور من مصنف إكسيل حتى ولو كانت علامة مائية (موضوع الأسبوع الثاني) إخفاء كل الأعمدة ما عدا أعمدة محددة (موضوع الأسبوع الأول) وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه الدالة MOD وعد الخلايا التي تحتوي على أرقام زوجية أو أرقام فردية حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات طباعة أوراق عمل محددة حسب الاختيار مع إمكانية اختيار الطابعة وعدد النسخ منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial إدراج أسماء الشهور بكل اللغات استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إرسال إيميلات دفعة واحدة عبر الـ Outlook باستخدام برمجة الـ VBA تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي جعل النص في أداة الـ Label يظهر بشكل رأسي عمل قائمة بأسماء الملفات في مسار محدد بالمعادلات بدون أكواد فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري إعلان عن خدمة برنامج السجلات المدرسية (البرنامج غير مجاني وليس للبيع) الحلقات التكرارية للمصفوفة تشغيل ملف صوتي بامتداد WAV عند تحديد خلية معينة بداية الطريق لإنقاذ الغريق إلغاء زر إغلاق التطبيق Excel Application Close Button إعادة ضبط نافذة محرر الأكواد الناموس في شرح القاموس استخراج القيم الفريدة أي الغير مكررة في نطاق باستخدام الكائن القاموس إضافة Addin تقوم بترتيب أسطر الكود (تنظيم الأكواد) المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الثانية تقليل حجم ملف الإكسيل (موضوع للبحث) تقسيم بيانات صف إلى عدة أعمدة إظهار المعادلات بدون أكواد معرفة الأرقام الناقصة Missing Numbers في سلسلة أرقام تصفية البيانات من خلال مربع نص TextBox (بحث بالأحرف الأولى والتصفية حسب البحث) استخراج القيم الغير مكررة مع إمكانية ترتيب القيم Sort أكواد البداية والنهاية لـ (ياسر بن خليل) البحث المتعدد وتلوين كلمات البحث باستخدام فورم استخراج القيم الغير مكررة في نطاق وعدها عن طريق دالة معرفة دالة معرفة UDF Function تقوم بإظهار المعادلات عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد نسخ صورة لنطاق وعمل ارتباط للصورة بهذا النطاق إضافة شريط أمر تحكم إلى قائمة الكليك يمين تشغيل الماكرو عدد معين من المرات نسخ أو تحميل صورة من الويب إلى الإكسيل توليد تواريخ عشوائية بين تاريخين إغلاق المصنف بدون حفظ وإعادة فتح المصنف من جديد كيفية تصميم شيت الكنترول (ناصر سعيد) استخدام دوال الإكسيل WorksheetFunction التعامل مع الأنواع المختلفة للبيانات باستخدام SpecialCells مقارنة عمودين باستخدام التنسيق الشرطي إدراج رسم بياني في تعليق منع طباعة أوراق العمل كسر حماية أوراق العمل (القنبلة الجديدة) كسر حماية محرر الأكواد بدون برامج (قنبلة الموسم) إنشطار البيانات المفلترة (موضوع متميز بإذن الله) إنشاء تبويب مخصص Custom Tab إخفاء محتويات الخلايا (حيلة بسيطة) إظهار وإخفاء النطاقات المعرفة Defined Names داونلود مانجر من خلال الإكسيل ..حمل ملفاتك بالإكسيل ثلاثة طرق لتحديد أوراق العمل بالأكواد الملف القاتل (ملف يحوي كود لحذف أي ملف تحدده) فحص الاتصال بالانترنت عن طريق الأكواد التصفية المتقدمة بالأكواد Advanced Filter نسخ كود من مصنف لمصنف آخر ، ومن مصنف للمنتدى البحث عن جزء من النص باستخدام الدالة VLOOKUP (موضوع خفيف) دالة استخراج بيانات الرقم القومي (المحافظة والنوع وتاريخ الميلاد) دمج أوراق العمل من مصنفات مختلفة إلى مصنف واحد (المجمع) الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة نسخ البيانات بأكملها من ورقة عمل لورقة عمل أخرى دالة DatePart للتعامل مع أجزاء الوقت والتاريخ فتح مستند نصي ببرنامج الورد من داخل الإكسيل تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator عمل خريطة لورقة العمل Quick Map معرفة دقة الشاشة Screen Resolution دالة معرفة UDF لاستخراج الإيميلات داخل نصوص Emails From Text دالة معرفة UDF لتوليد أرقام عشوائية غير مكررة (فريدة) دالة معرفة UDF لدمج النصوص بمزايا مختلفة عن الدالة CONCATENATE دالة معرفة UDF لجمع الخلايا ذات التنسيق Bold (عريض) تغيير اسم ورقة العمل تبعاً لتغير قيمة خلية أوتوماتيكياً إنشاء القوائم المنسدلة (دروس للمبتدئين) معرفة الصف الأخير وإنشاء نطاقات ديناميكية غير ثابتة باستخدام الأكواد تغيير خصائص القائمة المنسدلة بإدراج كومبوبوكس إضافة الدوائر الحمراء وحذفها معرفة إذا ما كانت الخلية تحتوي على معادلة أم لا (بدون أكواد) المشروع الكبير (مكتبة الصرح .. زاخرة بالشرح) وهي عبارة عن تجميع لمكتبة الأكواد بشرى لمدخلي البيانات في موقع وزارة التربية والتعليم ادخل الموقع بنقرة واحدة تغيير أسماء أرقام سور القرآن الكريم إلى أسماء تلك السور الحفظ التلقائي كل 10 ثواني البحث عن القيم المتعددة بدون تكرار الخاصية Offset ف لغة البرمجة ألغاز إكسيلية (موضوع ترفيهي) عمل قائمة منسدلة يمكنك البحث من خلالها استخراج القيم بدون الخلايا الفارغة استخراج القيم بدون الخلايا الفارغة (دالة معرفة) تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) برنامج صغير للترجمة (ترجم من اللغة العربية للغة الإنجليزية) إنشاء أوراق عمل وفرزها وحذفها وضع علامة صح بمجرد النقر المزدوج في الخلية إضافة رائعة للإكسيل تقوم بفصل البيانات تقويم للسنة المقبلة 2015 دالة لإدراج صورة الخاصية Resize في لغة البرمجة دالة لعد التواريخ البحث عن الخلايا المدمجة بطرق مختلفة معرفة الوقت الذي تم فيه الدخول على الحاسوب انتحار ملف الإكسيل Kill This Workbook (Suicide) الخلية النابضة (من روائع الأعمال) العدسة المكبرة بالاكواد (من روائع الأعمال) الحلقة التكرارية FOR......Next استخدام الدالة DIR في محرر الأكواد للفيجوال بيسك إنشاء تقويم ميلادي بالأكواد المصفوفات في الإكسيل Arrays دالة تحويل التاريخ الهجري إلى ميلادي الحصول على قيم غير مكررة في قائمة التحقق التحقق من الصحة عمل اختصار للأمر في القائمة المختصرة دالة العد المتعددة والشاملة معرفة آخر يوم لأي يوم من أيام الأسبوع لأي شهر من شهور السنة ( موضوع مميز ) استخراج الأسماء المكررة في قائمة دالة معرفة لاستخراج تاريخ الميلاد والنوع ومحافظة الميلاد من الرقم القومي كود برمجي لفتح وغلق الـ CD-ROM قائمة بأسماء أوراق العمل دورة للمبتدئين في عالم البرمجة السلاسل النصية إدراج صورة في تعليق ************************* دمتم في رعاية الله

اليك هذا الملف لعله المطلوب لائحة دون فراغات.rar

السلام عليكم كيف ينجح معي هذا الكود Sub test() Dim s As String With GetObject("winmgmts:\\.\root\CIMV2") For Each itm In .ExecQuery("SELECT * FROM Win32_DiskDrive", , 48) s = s & "SerialNumber: " & itm.SerialNumber & vbCrLf s = s & "Model: " & itm.Model Next itm End With MsgBox s End Sub

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