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

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

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

السلام عليكم إليك الحل ولن أستطيع أكثر من ذلك فهذا مستوى إدراكي تقبل تحياتي. Eagle.rar

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

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

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

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

السلام عليكم ورحمة الله تعالى وبركاته كل عام وحضراتكم بخير بمناسبة العام الهجرى الجديد لقد تناولنا فى موضوعى السابق حماية للشيت ما عدا نطاق محدد أو Protect Sheet Expect Range http://www.officena.net/ib/topic/64169-حماية-للشيت-ما-عدا-نطاق-محدد-أو-protect-sheet-expect-range/ واليوم أعرض على حضراتكم كيفية حماية كل أوراق العمل فى الملف من التعديل مع ترك نطاق موحد فى كل شيت أو أو نطاقات مختلفة من شيت لآخر وذلك خارج نطاق الحماية مع القابلية للتعديل رغم الحماية المفروضة على الشيت . الكود وعليه الشرح : Sub ProtectWbExpect2() ' Protect Workbook Expect Ranges ' by mokhtar 13/10/2015 Dim sh As Worksheet Application.ScreenUpdating = False ' ايقاف تحديث الشاشة On Error Resume Next ' فى حالة حدوث خطأ تجاهله وانتقل للأمر التالى ' حلقة تكرارية للتعامل مع كل شيت فى الملف For Each sh In Worksheets ' اذا كانت محتويات الشيت محمية فان If sh.ProtectContents = True Then ' اجعل الشيت غير محمياً sh.Unprotect ' اسم الزر فى حالة عدم حماية الشيت Sheets("Sheet1").Shapes("Rounded Rectangle 1").TextFrame2.TextRange.Characters.Text = "تفعيل حماية الأوراق" ' حلقة تكرارية لحذف جميع النطاقات المسموح يتعديلها فى الشيت For i = 1 To sh.Protection.AllowEditRanges.Count Debug.Print sh.Protection.AllowEditRanges(i) sh.Protection.AllowEditRanges(i).Delete Next ' انهاء الحلقة التكرارية sh.Cells.Interior.Pattern = xlNone ' جعل خلايا الشيت بدون ألوان ' اضافة النطاقات المسموح بتعديلها أثناء حماية الشيت Sheets("Sheet1").Protection.AllowEditRanges.Add Title:="mokhtar1", Range:=Range("A1:B3") ' اضافة النطاق فى الورقة الاولى Sheets("Sheet2").Protection.AllowEditRanges.Add Title:="mokhtar2", Range:=Range("A4:B6") ' اضافة النطاق فى الورقة الثانية Sheets("Sheet3").Protection.AllowEditRanges.Add Title:="mokhtar3", Range:=Range("A7:B9") ' اضافة النطاق فى الورقة الثالثة ' اذا كان النطاق المسموح بتعديله ثابتا فى كل الأوراق ' sh.Protection.AllowEditRanges.Add Title:="mokhtar" & (i), Range:=Range("A1:B3") Else ' أما اذا كانت محتويات الشيت غير محمية فان Sheets("Sheet1").Range("A1:B3").Interior.ColorIndex = 4 ' تمييز النطاق فى الورقة الاولى Sheets("Sheet2").Range("A4:B6").Interior.ColorIndex = 4 ' تمييز النطاق فى الورقة الثانية Sheets("Sheet3").Range("A7:B9").Interior.ColorIndex = 4 ' تمييز النطاق فى الورقة الثالثة ' sh.Range("A1:B3").Interior.ColorIndex = 4 ' تمييز النطاق اذا كان ثابثا فى كل الاوراق ' اسم الزر فى حالة حماية الشيت Sheets("Sheet1").Shapes("Rounded Rectangle 1").TextFrame2.TextRange.Characters.Text = "الغاء حماية الأوراق" ' اجعل الشيت محميا sh.Protect End If ' انهاء الشرط Next sh ' انهاء الحلقة التكرارية Application.ScreenUpdating = True ' تشغيل تحديث الشاشة End Sub ملف للتجربة : Protect All Sheets Expect Ranges .rar والسلام عليكم ورحمة الله وبركاته

هذه الطريقة اخ علي بدأت من الاكسس 2002 ومافوق ! اذا كنت حتعمل مثلا على 2000 او 97 استخدم طريقة api وهي معروفة ومنتشرة http://access.mvps.org/access/api/api0001.htm طبعا كلك بركة ! انا ذكرت انه لابد من عمل مرجع للطريقة السابقة وهذا معروف لدى الكثير بل ان الاكسس 2010 يعطيك رسالة تنبيهية اثناء كتابة الكود بانه لابد من المرجع فهل تريد اضافته وعند اختيار موافق من الرسالة يضيف المرجع تلقائيا ! يمكن هذه الخطوة تجعلك تقوم بخطوة اضافة المرجع اليا ومن الكود وهذا يتطلب عمل اضافي ! هنا تم تحسين الكود لكي يعمل بدون الحاجة للمرجع وهو ما يسمى الربط المتاخر للكائنات : Set xlfile = Application.FileDialog(1) If xlfile.Show = -1 Then DoCmd.TransferSpreadsheet , , "table1", xlfile.SelectedItems(1), True جرب ستجده يعمل وبدون وضع المرجع ! وطبعا لاتنسى من 2002 وما فوق ! بالتوفيق

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

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

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

استاذى الفاضل ابويوسف راجع هذه الجزئية من الشرح تعرف كيف يتم كتابه الكود فى التكست بوكس عند الاختيار من الكمبوبوكس اقتباس من الشرح 8- الخاصيه ( Row Source ):- هذه الخاصيه هى اولى الطرق التقليدية لتعبئة الكمبوبوكس بالبيانات مثال عام على الخاصيه ( Bound Column) و الخاصيه ( Column Count) و الخاصيه ( Row Source ) لدينا شيت به بيانات افتراضيه كما هو ظاهر بالصوره التالية وعندى فورم بصممه شاهد الصورة أنا دلوقتى عايز اظهر اسماء العملاء من الخلية A2 : A5 فى الكمبوبوكس اللى فى الفورم من شاشة الخصائص اروح للخاصيه Row Source واكتب المدى A2:A5 شاهد الصورة شاهد النتيجة عن تشغيل الفورم طيب لو عايزين نظهر عدد 2 عمود بمعنى اظعر عمود اسماء العملاء وايضا عمود كود العميل اذن لازم اغير المدى فى الخاصيه Row Source واكتب المدى A2:B5 وايضا لازم احدد عدد الاعمده فى الكمبوبوكس يكون 2 من الخاصيه Column Count شاهد الصورة ستجد النتيجة عند تشغيل الفورم طبعا عند الاختيار من الكمبوبوكس سيظهر اسم العميل (اللى هى تعتبر العمود رقم واحد فى الكمبوبوكس ) فى الكمبوبوكس وتختفى قائمة العملاء فلو انا عايز عند الاختيار ايضا يظهر كود العميل فى التكست بوكس رقم 1 ( اللى هو باللون الاصفر فوق) اذن لازم نروح للخاصيه Bound Column واكتب 2 ( أى العمود رقم 2 هو القيمة التى ستظهر فى التكست بوكس رقم 1 ) شاهد الصورة باقى خطوة تانية وهى عمل كود فى حدث تغيير الكمبوبوكس كالتالى Private Sub ComboBox1_Change() TextBox1.Value = ComboBox1.Value End Sub هذا الكود كتبنا فيه ان التكست بوكس 1 يساوى الكمبوبوكس ( واحد هيقولى مش الكمبوبوكس فى عمودين اذن التكست بوكس هيكون اى عمود عند الاختيار هقوله ان الخاصيه Bound Column كتبنا فيها العمود رقم 2 اذن القيمة التى ستظهر فى التكست بوكس 1 هى العمود 2 ) وبكدا عند التشغيل الفورم والاختيار من الكمبوبوكس سيظهر قيمة العمود رقم 1 وهو اسم العميل فى الكمبوبوكس وسيظهر قيمة العمود رقم 2 وهو كود العميل فى التكست بوكس 1 ( بناء على تحديد الخاصيه Bound Column كتبنا فيها العمود رقم 2 وايضا الكود بحدث تغيير الكمبوبوكس ) وعند تشغيل الفورم واختيار من الكمبوبوكس شاهد النتيجة كدا اخدنا مثال عملى على الثلاث خصائص وهما الخاصيه ( Bound Column) و الخاصيه ( Column Count) و الخاصيه ( Row Source ) هذه هى الجزئيه الخاصه بالشرح المتعلقه بهذه النقطة راجعها مره تانية وجرب على ملف الواجب شوف هتقدر تنفذها او لا انا بنتظارك انا كل اللى عملته هو انى نسخت الشرح المتعلقه بالموضوع من الدرس تقبل تحياتى

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

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

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

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

الاخ الحبيب / ياسر العربى مشكور على الاهتمام اسال الله تعالى ان يزيدك من علمه وفضله واسمح لى بتصحيح الواجب يا كبير يوجد عشر اسئله كل سؤال بدرجه المطلوب 1:- الدرجة 1 ( صحيح 100% ) المطلوب 2:- الدرجة 1 ( صحيح 100% ) المطلوب 3:- الدرجة 1 ( صحيح 100% ) المطلوب 4 :- الدرجة 1 ( صحيح 100% ) المطلوب 5 :- الدرجة 1 ( صحيح 100% ) المطلوب 6 :- الدرجة 0 ( لم يتم تنفيذه) لية معملتش الخاصيه اللى بتعمل الدوائر البيضه الصغيره على اليسار ؟؟ المطلوب 7:- الدرجة 0 ( لم يتم تنفيذه) لية معملتش عرض الاعمده فى الكمبوبوكس مناسب لعرض الليست أى نعم هى مظبوطه بس ده لان عرض الكمبوبوكس نفسة 168 وانت عامل عرض العمود الاول 100 والثانى 50 فمجموع الاتنين اقل من عرض الكمبوبوكس نفسة وهو 168 لذالك لا يوجد مشكله لكن لو كان عرض الكمبوبوكس مثلا 120 كدا هيكون الليست غير ظاهر كله وهيكون فى اسكرول بار ؟؟؟؟ المطلوب 8:- الدرجة 1 ( صحيح 100% ) المطلوب 9:- الدرجة 1 ( صحيح 100% ) المطلوب 10:- الدرجة 1 ( صحيح 100% ) الدرجة النهائيه يا عم ياسر هى 8 ( ثمانيه فقط ) ( ملحوظه المفروض تكون الدرجه 4 ليه ياباشا علشان ابويوسف جاوب تقريبا نصف الاسئله فله الاسبقيه فى الاجابه دا غير ان سؤال بتاع تنسيق التاريخ انا جاوبته فوق لابويوسف مش قلتلك انت وقعت فى ايد اللى مابيرحمش ) منتظرك تكمل الباقى المطلوب 6 و 7 وهديك عشرة من عشرة تقبل تحياتى واحترامى وتقديرى لشخصك الكريم

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

الاخ الحبيب والغالى / عبدالعزيز البسكرى يا غالى انت مش بس تسال انت تأمر بخصوص طلبك متستعجلش على رزقك لو رجعت للموضوع بتا الشرح ستجد التالى اقتباس من المشاركة كما قلنا من قبل ان ComboBox هو عباره عن وعاء يتم تعبئته ببيانات محدده لتظهر للمستخدم ليختار منها اثناء العمل على الفورم أن شاء الله هيتم تناول الموضوع على خمس مراحل 1- كيفية انشاء ComboBox على الفورم اثناء عملية التصميم 2- التعرف على خصائص ComboBox من شاشة الخصائص اثناء عملية التصميم 3-وقت تنفيذ الكود الخاص بالـ ComboBox 4-التعامل مع الـ ComboBox فى لغة البرمجه 5-معرفة مهارات تعبئة وتغذية ComboBox باكثر من طريقه التقليديه والاحترافيه منها 6-كيفية اجبار المستخدم على الاختيار من الـ ComboBox وبحمد الله تم شرح المرحله 1 و 2 و 3 و 4 وباقى 5 و 6 5-معرفة مهارات تعبئة وتغذية ComboBox باكثر من طريقه التقليديه والاحترافيه منها ( اللى هى طلبك وان شاء الله هنعرف اكتر من طريقه تقليدية واحترافيه ) ولكن عموما اليك الحل انت غالى وليك معزه عندى ComboBox1.RowSource = "feuil1!h4:h23" فقط يتم كتابة اسم الشيت متبوع بعلامة التعجب ثم كتابة المدى المطلوب وبعدين تعالى هنا هو فين الواجب بتاعك تقبل منى وافر الاحترام والتقدير

السلام عليكم ورحمة الله وبركاته لاحظت من فترة قريبة أنتشار دورات وكورسات تعليم أكسل للمتقدمين وعلى مستوى احترافي في المنتدى فمنذ سنتين تقريباً كنت قد نشرت موضوع حول كتاب (الصيغ والدالات في أكسل 2007) ولكن الان بحثت حول الموضوع ولم أحظى بنتائج بحث إيجابية فأحببت أن أنشر الموضوع مرة أخرى نظراً لأهميته في إعطاء القاعدة الأساسية لتعليم اكسل الحمد لله الكتاب نال تحميل عدد كبير حول الوطن العربي وانتشر في أكثر من عشرين موقع لتعليم اكسل ﻷني من خلال وجهة نظري المتواضعة أن هذا الكتاب جامع لكل المعلومات في تعليم إكسل 2007 وهو بالمناسبة مترجم الى اللغة العربية وأخذ جوائز عديدة في مجال التعلم على إكسل معلومات حول الكتاب اسم الكتاب :تعليم الصيغ والمعادلات في إكسل 2007 مواصفات الكتاب :مبتدىء-متوسط - متقدم. حجم الكتاب :39 ميجا مع تطبيقاته على إكسل محتويات الكتاب بالعناوين: 1.بداية الكتاب معلومات اساسية عن برنامج إكسل 2007 2. استخدام الدالات في الصيغ 3. شرح كافة المعادلات في والتطبيق في إكسل 4. شرح صيغ الصفيف وأمثلتها المستحيلة في إكسل 5. شرح جداول Pivot والمراجع الدائرية المقصودة والمخططات والرسوم البيانية والتنسيق الشرطي والادوات والتنقيح 6.في النهاية الغير متوقعة شرح لغة VBA وطريقة كتابة الصيغ فيها أن هذا الكتاب بصراحة هو جامع المعلومات لكل الاشخاص الذين يريدون وضع قاعدة أساسية في تعلم إكسل 2007 ومن ثم الإحتراف الكتاب مع تطبيقاته وفهرسته حسب الفصول قد رفعته في رابط واحد 4Shared http://www.4shared.com/file/lNsHNDuo/Learn_Functions_in_Excel_2007.html Mediafire http://www.mediafire.com/download/w1iubho82q3ryqm/Learn+Functions+in+Excel+2007.rar يرجى من إدارة الموقع تثبيت الموضوع لكي يستفيد منه أكبر قدر ممكن من الأعضاء يرجى خالص الدعاء لأنه تعبت صراحة في تصوير الكتاب وتصحيح الفهارس والسلام عليكم

السلام عليكم ورحمة الله أستاذنا الغالى طريقة الموضوع تعجبنى فهى تجعل الطالب يبحث عن المعلومة والاستاذ يقيم و اسمح لى أستاذى بأن أشارك بهذه الطريقة : ضع الكود الكود التالى فى ملف الأستاذ سليم اللى هو 5 ميجا Option Explicit Sub ExcelDiet() Dim j As Long Dim k As Long Dim LastRow As Long Dim LastCol As Long Dim ColFormula As Range Dim RowFormula As Range Dim ColValue As Range Dim RowValue As Range Dim Shp As Shape Dim ws As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each ws In Worksheets With ws 'Find the last used cell with a formula and value 'Search by Columns and Rows On Error Resume Next Set ColFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set ColValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious) Set RowFormula = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) Set RowValue = .Cells.Find(What:="*", After:=Range("A1"), LookIn:=xlValues, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious) On Error GoTo 0 'Determine the last column If ColFormula Is Nothing Then LastCol = 0 Else LastCol = ColFormula.Column End If If Not ColValue Is Nothing Then LastCol = Application.WorksheetFunction.Max(LastCol, ColValue.Column) End If 'Determine the last row If RowFormula Is Nothing Then LastRow = 0 Else LastRow = RowFormula.Row End If If Not RowValue Is Nothing Then LastRow = Application.WorksheetFunction.Max(LastRow, RowValue.Row) End If 'Determine if any shapes are beyond the last row and last column For Each Shp In .Shapes j = 0 k = 0 On Error Resume Next j = Shp.TopLeftCell.Row k = Shp.TopLeftCell.Column On Error GoTo 0 If j > 0 And k > 0 Then Do Until .Cells(j, k).Top > Shp.Top + Shp.Height j = j + 1 Loop If j > LastRow Then LastRow = j End If Do Until .Cells(j, k).Left > Shp.Left + Shp.Width k = k + 1 Loop If k > LastCol Then LastCol = k End If End If Next .Range(.Cells(1, LastCol + 1), .Cells(.Rows.Count, .Columns.Count)).EntireColumn.Delete .Range("A" & LastRow + 1 & ":A" & .Rows.Count).EntireRow.Delete End With Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub احفظ الملف بصيغة xlsb شوف حجمه ستجد أنه نزل للنصف تقريبا ثم افتح الملف وشغل الكود السابق ثم احفظ الملف واقفله شوف حجم الملف ستجد أنه 32 كيلو بايت اللى حصل هنا أن اكسل أعاد حساب النطاقات الغير مستخدمه فى الملف وحذفها تحياتى

كيف تجعل اكسل يختصر لك الاسماء انظر الى المرفق اختصار اسماء.rar

السلام عليكم ورحمة الله وبركاته إخواني الكرام أحياناً يصادفنا أن يكون حجم الملف كبير جداً مقارنةً بالبيانات الموجودة بداخل الملف .. فقررت عمل موضوع مفتوح يقوم الأعضاء باقتراح طرق لتقليل حجم الملف .. وإليكم ملف للأخ سليم حاصبيا في أحد الموضوعات ..حجم الملف أكثر من 5 ميجا العبد الفقير لله لديه كود خطير يساهم في حل المشكلة ولكن لن أقدمه الآن (كنوع من التشويق ) في انتظار مشاركاتكم القيمة والمساهمة في حل مشكلة تقابل الجميع وفقكم الله لما يحب ويرضى Last Price SALIM.rar

الاخوة الافاضل العزيزين على قلبى اقدم لكم شرح مبسط لداله VLOOKUP للمبتدئين هذا الشرح عملته لاحدى اعضاء المنتدى وحبيت اعمله مشاركه مستقله حتى يعم النفع مثلا عندنا جدول مقسم كالتالى اسم الطالب فى العمود A والجنسية بالعمود B وتاريخ الميلاد بالعمود c والجدول هذا بشيت اسمه الطلبه مثلا وحنا الان فى شيت اسمه الفصل مثلا فى الخلية A1 مكتوب اسم الطالب محمد احمد وانا عايز بالخلية B1 ابحث عن اسم الطالب ده بالجدول واجيب جنسيتة كدا تمام داله VLOOKUP هى دالة بحث تتكون من اربع اقسام كالتالى اول شئ نقف بالخلية b1 اللى هنعمل فيها المعادله ونكتب ) VLOOKUP= اولا الخلية اللى هندور عليها بالجدول وهو فى هذا المثال نحتاج الى البحث عن اسم الطالب صح اذن نقول ; VLOOKUP(A1= بس نقف هنا فى فاصله بعد A1 صح دى بتتكتب من شيفت+ حرف ك بالعربى على الكيبورد كدا تمام ثانيا حنا عايزين نبحث عن اسم الطالب ده فين فى اى جدول فى شيت الطلبه فى الجدول من A1:c5 طيب كدا حلو قوى لحد كدا نرجع بقى نكمل المعادله بتاعتنا ونقول ;A1:c5!الطلبه;VLOOKUP(A1= ونقف هنا طبعا ايه اللى انضاف اسم الشيت وهو الطلبه متبوع ! علامة التعجب هذه هتقولى ازاى نكتبها هقول شيفت + رقم 1 اللى فوق جنب حرف ذ بالكيبورد طيب كتبنا اسم الشيت وبعدها ! ثم الجدول بتاعنا وهو A1:C5 ثالثا القيمة اللى احنا عايزنها من الجدول هو احنا بنعمل المعادله دى ليه اصلا من علشان نجيب الجنسية للطالب اللى موجود بالخلية A1 من الجدول اللى بشيت اسمه الطلبه حلو طيب الجدول مقسم كالتالى اسم الطالب فى العمود A والجنسية بالعمود B وتاريخ الميلاد بالعمود c طيب احنا اتفقنا انى انا عايز اجيب الجنسية ( عمود الجنسية هنا كم رقمه من الجدول رقمه 2 برافو نرجع بقى نكمل المعادله ;2;A1:c5!الطلبه;VLOOKUP(A1= ايه الزياده هنا هو رقم 2 اللى هو رقم عمود الجنسية بالجدول صح رابعا كتابة 0 أو 1 ( الزيرو يعنى ابحث عن اسم الطالب مطابقه تامه يعنى لو الخلية A1 فىها محمد احمد يروح يدور بالجدول على الاسم ده بالملى ولو لقى اسم طالب محمد احمد على ملوش دعوه بيه لانه مش نفس الاسم صح فية اختلاف عنه وهو على &&& اما 1 فهو البحث عن اسم الطالب بالجدول فممكن يكون موجود محمد احمد على فيجيبة لانه بيبحث عن اى جزء مشابه فلافضل اختيار 0 ) نرجع بقى نكمل المعادله (0;2;A1:c5!الطلبه;VLOOKUP(A1= ايه اللى انضاف جديد هو 0 وقفلنا القوس لان المعادله كدا خلصت بقت باللون الاخضرمنورة كدا تمام يبقى مننساش انى فى اربع اقسام للداله ما بين كل قسم نحط ( ; ) وهى قلب اللغه انجلش وبعدين شيفت وحرف ك اتمنى اكون وفقت فى هذا الشرح المبسط ويعم النفع على الجميع

7ader

أخي الكريم الكود التالي Sub GetId() Dim Cell As Range, Rng As Range 'سطر لتجنب الخطأ في حالة عدم العثور على نتائج On Error Resume Next 'تعيين نطاق البيانات في ورقة البيانات الرئيسية Set Rng = Sheet1.Range("B3:C" & Sheet1.Cells(Rows.Count, 2).End(xlUp).Row) 'عمل حلقة تكرارية لكل خلية من خلايا النطاق المراد إظهار النتائج به ، في العمود الثالث For Each Cell In Sheet2.Range("C4:C" & Sheet2.Cells(Rows.Count, 2).End(xlUp).Row) 'قيمة الخلية تساوي نتيجة البحث عن الخلية المجاورة في نطاق البيانات ، ويكون الحبث في خانة العمود الثاني Cell.Value = Application.WorksheetFunction.VLookup(Cell.Offset(0, -1), Rng, 2, False) Next Cell End Sub الكود مرفق بالشرح .. ما هو التعديل المطلوب .. حاول ترفق ملفك لتكون الأمور أوضح إذا كنت تقصد نطاق البيانات يبقا التعديل أمره بسيط هتشوف صف البداية وليكن كما في الكود الصف الثالث والأعمدة زي ما ذكرت بدايتها العمود C ونهايتها العمود Z إذاً التعديل يكون في سطر تعيين نطاق البيانات بهذا الشكل Set Rng = Sheet1.Range("C3:Z" & Sheet1.Cells(Rows.Count, 3).End(xlUp).Row)

من خلال التبويب Formulas ثم انقر Name Manager هتلاقي النطاقات المسماة شوف الملفين هتلاقي فيه نطاق بنفس الاسم في كلا الملفين

بارك الله فيك أخي الغالي وائل على الهدية الرائعة إليكم إخواني الملف ليعمل على النواتين 32 بت و64 بت .... UserForm Control With Windows APIs Cpearson.rar

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

بص يا غالى موضوع اللمسات ده فأنا كل خبرتى وضعتها فى برنامج EMA هل شاهدته ؟ ان شاء الله فى نسخه 2016م لبرنامج EMA هتلاقى اضافات وتعديلات جميله تمت على البرنامج افضل من نسخة 2015م فأنا معديش عندى وقت انى اطور انت اللى لازم تطور لان لما اتطور انت هتتعلم وكمان انا مشغول فى شروحات الفورم زى ما انت عارف طور برنامجك بنفسك وبطل كسل تقبل تحياتى

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

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

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

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

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

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

الوقت خلص ولا لسه فيه وقت للاختبار انا سلمت ورقتي تحت اهي يارب انجح ياسر العربي test1010.rar

السلام عليكم مسألة الاسترجاع بحاجة الى ضبط خاص لانها في بعض الاوقات تكون خطرة الاسترجاع الكلي لقاعدة البيانات ارى من الافضل ان يكون يدويا بمعنى يتم استرجاع آخر نسخة يدويا عند تلف قاعدة البيانات الاصلية ، او لاي سبب من الاسباب والطريقة التي ارى انها آمنة هي الرجوع فقط للنسخ السابقة عند الضرورة للاطلاع والطباعة ونحو ذلك فيمكن تضمين خاصية الرجوع هذه في نموذج البداية مع مراعاة ان القاعدة الافتراضية دوما هي الحالية هذا رأي فقط ولكم ما ترون

بعد أذن اخويا خالد تم عمل تعديل بسيط على الكود عله يكون المطلوب Transfer Data To Another Sheet Skipping Duplicates YasserKhalil.rar

اخي اعتقد خطاء كودك في اسبقية ترحيل للاصناف ثم القيود فالمعادلة في الفاتورة تعمل وستزيد 1 بعد الاضافة انظر المرفق قمت بتغيير موقع كودين الترحيل يومية امريكية.rar

تفضل يا سيدي الكريم شاكرا لك جميل كلمات ، ودعائك جعفر 230.Report_to_Excel.mdb.zip

أخى الحبيب زيزو البسكرى أستاذى الفاضل محمد حسن أستاذى الفاضل ياسر خليل أستاذى الفاضل سليم حاصبيا بارك الله فيكم وجزاكم خيرا على مشاركاتكم البناءة والتى تثرى الموضوع اليكم صورة أخرى للكود تمكن المستخدم من اختيار النطاق المراد التعديل عليه كما ذكر الأستاذ سليم Sub ProtectSheetExceptChoosenRange() ' Protect Sheet Except Choosen Range ' By Mokhtar 12/10/2015 Dim S As Range On Error Resume Next ' فى حالة حدوث خطأ تجاهله وانتقل للأمر التالى ' تحديد اسم الزر المشغل للكود فى حالة حماية الشيت النشط With ActiveSheet.Shapes("Rounded Rectangle 1").TextFrame2.TextRange.Characters If .Text = "Protect Sheet Except Choosen Range" Then .Text = "UnProtect ActiveSheet" ' حذف النطاق الاول المسموح بالتعديل فيه فى الشيت ActiveSheet.Protection.AllowEditRanges(1).Delete ' حذف أى بيانات وفورمات فى الشيت With Cells .ClearContents .ClearFormats End With ' InputBox لاختيار النطاق المراد حمايته يتم انشاء Set S = Application.InputBox("select a Range to UnProtect", Type:=8) ' تمييز النطاق الذى تم اختياره With S .Interior.ColorIndex = 38 .Borders.LineStyle = xlContinuous End With ' تحديد اسم و مدى النطاق المراد التعديل فيه أثناء حماية الشيت ActiveSheet.Protection.AllowEditRanges.Add Title:="Protected Range", Range:=S ' فى حالة الرغبة فى حماية النطاق المراد التعديل عليه برقم سرى بخلاف الرقم السرى الخاص بحماية الشيت ' ActiveSheet.Protection.AllowEditRanges.Add Title:="Protected Range", Range:=S, Password:=123 ' حماية الشيت بدون كلمة سر ActiveSheet.Protect ' حماية الشيت بكلمة سر ' ActiveSheet.Protect Password:=123 ' تعريف المستخدم بالنطاق الغير محمى With ActiveSheet.Protection.AllowEditRanges.Item(1) MsgBox "ActiveSheet is Protecting" & vbNewLine & "Except Range : " & .Range.Address & vbNewLine & vbNewLine & "Regards ...Mokhtar " End With Else ' اذا لم يكن هذا فان ' فك حماية الشيت المحمى بدون كلمة سر ActiveSheet.Unprotect ' فى حالة فك حماية الشيت المحمى بكلمة سر ' ActiveSheet.Unprotect Password:=123 ' اسم الزر المشغل للكود فى حالة عدم حماية الشيت النشط .Text = "Protect Sheet Except Choosen Range" End If End With End Sub تقبلوا خالص الشكر والتقدير

إخواني الكرام إليكم الملف يعمل على النسختين 32 بت و 64 بت أرجو أن تستفيدوا منه .. تقبلوا وافر تقدير واحترامي Codes Library v1.9.7.rar

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

اليك هذا الكتاب الرائع قد يفيدك كثيرا http://www.mediafire.com/download/dj01xxwnczia62k/VBA+Excel.rar

تفضل استاذ علي واسف عالتاخير لانشغالي جدا DoCmd.TransferSpreadsheet , , "table1", "c:\Users\ali\Documents\ali.xlsx", True وانا متاكد ان الامر السابق لديكم علم به ولكن مع النقاش سنصل لما تريد باذن الله تحياتي

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

السلام عليكم و رحمة الله و بركاته جرّب أخي الكريم وليد عبد الغني هذا الملف ..ربما يفي بالغرض ..وأي استفسار أو اضافة أو تغيير فكلنا هنا لتقديم يد المساعدة لبعضنا البعض معذرة عن الرابط الخارجي لم أتمكن من رفعه هنا .. كل يوم جديد بإشكالية جديدة ..سترك يا رب خالص احتراماتي http://www.gulfup.com/?bRoH0M

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