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

كان موجود ضمن المواضيع المثبته 1 -حلقات افتح الباب واهرب من الشباك للاخ الحبيب ياسر خليل على الرابط التالى http://www.officena.net/ib/topic/56941-افتح-الباب-وادخل-لعالم-البرمجة-متخافوش-يا-أحباب-من-اللي-ورا-الباب/#comment-378087 2- موضوع دروس فى VBA Excel _ نتعلم معا برمجه اكسل للاخ الحبيب / محمود الشريف على الرابط التالى http://www.officena.net/ib/topic/56000-دروس-فى-vba-excel-_-نتعلم-معا-برمجه-اكسل/?page=1 يرجى أعادتها مره اخرى الى المواضيع المثبته مواضيع نشر العلم افضل من مواضيع البرامج والافضل ان يكونو معاً من يريد ان يتعلم ومن يريد ان يستخدم كلاً منهما يجد طلبه دون صعوبه وعناء البحث يرجى الاهتمام للاهميه

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

إذا كان الأمر كذلك فلما لا تستخدم معادلة بسيطة جداً بالشكل التالي =COUNTIF(H:H,">=0") لعد الأرقام الموجبة والمعادلة التالية =COUNTIF(H:H,"<0") لعد الأرقام السالبة اما إذا كنت تقصد المجموع فيمكن استخدام المعادلة التالية لجمع الأرقام الموجبة فقط =SUMIF(H:H,">=0",H:H) ولجمع الأرقام السالبة فقط استخدم المعادلة التالية =SUMIF(H:H,"<0",H:H) باستخدام الكود .. بفرض أن لديك الأرقام في العمود H .. جرب الكود التالي (النتائج تظهر بعد آخر خلية فارغة بمجموع الأرقام الموجبة والسالبة) Sub SUMPositiveNegativeA() Dim C As Range, LR As Long, PositiveSum As Double, NegativeSum As Double LR = Cells(Rows.Count, "H").End(xlUp).Row Set C = Range("H1:H" & LR) PositiveSum = Application.WorksheetFunction.SumIf(C, ">=0") NegativeSum = Application.WorksheetFunction.SumIf(C, "<0") Range("H" & LR + 2) = "Positive: " & PositiveSum Range("H" & LR + 3) = "Negative: " & NegativeSum End Sub وهذا كود آخر يؤدي الغرض بدون استخدام دوال الإكسيل داخل محرر الأكواد Sub SUMPositiveNegativeB() Dim C As Range, LR As Long, PositiveSum As Double, NegativeSum As Double LR = Range("H" & Rows.Count).End(xlUp).Row For Each C In Range("H1:H" & LR) If IsNumeric(C) Then If Sgn(C) = 1 Then PositiveSum = PositiveSum + C If Sgn(C) = -1 Then NegativeSum = NegativeSum + C End If Next Range("H" & LR + 2) = "Positive: " & PositiveSum Range("H" & LR + 3) = "Negative: " & NegativeSum End Sub تقبل تحياتي

اضم صوتى لصوتك تماما ولا اعتقد ان ان هناك امورا فنية او تقنية تمنع اضافة تلك المواضيع الى المثبتات والله ولى التوفيق

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

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

ثالثاُ:- وقت تنفيذ الكود الخاص بالـ TextBox قبل أن نتحدث عن وقت تنفيذ الكود لازم نعرف أولا أزاى بيكون كتابة ألاعلان عن الكود للـ TextBox Private Sub TextBox1_Change() هنا يتم كتابة الكود المراد تنفيذه End Sub السطر الاول هو بداية الاعلان عن الكود فنقوم بكتابة Private Sub ستجد لونها بالكود أزرق ( وهو بداية لاى كود خاص لأى عنصر تحكم داخل الفورم ) ثم نقوم بكتابة اسم العنصر المراد عمل الكود له وهو بمثالنا TextBox1 ثم نقوم بكتابة _ ( تكتب من خلال الضغط على Shift+زر الطرح الموجود بالاعلى بجوار زر + ) ثم نقوم بكتابة وقت تنفيذ الكود (اللى هو موضوعنا اليوم) ثم كتابة () قوسين بهذا الشكل وبمجرد الضغط انتر ستجد الكود عمل سطر تانى فيه End sub يوجد طريقه اخرى وهى اتبع الصوره التالية توضح لك قم بالضغط على اى مكان فاضى بالفورم وادخل لمحرر الاكواد الخاص بالفورم دلوقتى هنتكلم عن أهم طرق وقت تنفيذ الكود واكثرها شيوعا فى الاستخدام 1- Afterupdate :- هنا يتم تنفيذ الكود بمجرد الانتهاء من الادخال فى TextBox1 والانتقال الى اى عنصر اخر ( وهو يشبه كثير طريقة Exit) 2-EXit :- هنا يتم تنفيذ الكود بمجرد الخروج من TextBox1 والانتقال الى اى عنصر اخر ( يشبه كثير طريقه Afterupdate ) 3-Change :- هنا يتم تنفيذ الكود عند حدوث اى تغيير فى TextBox1 4-DblClick :- هنا يتم تنفيذ الكود عند الضغط دبل كليك بالماوس داخل TextBox1 5-Enter :- هنا يتم تنفيذ الكود بمجرد وضع مؤشر الماوس داخل صندوق TextBox1 ----------------------------------------------------------------------------------------------------------------------------------------------------------------------- كدا الحمد لله انتهينا من المحور الثالث وقت تنفيذ الكود الخاص بالـ TextBox ان شاء الله المره القادمه نتكلم عن المحور الرابع وهو التعامل مع TextBox فى لغة البرمجه ارجوا من الله ان اكون وفقت بالشرح واى استفسار انا تحت امر الجميع تقبلوا تحياتى

السلام عليكم ورحمة الله بعد إذن اخي الفاضل عبدالعزيز هذا حل آخر اول ماتضغط علي مربع النص (التكست) بالفارة (الماوس) تلقائيا يظهر التاريخ وإذا تحب ان يكون اول ماتضغط انتر ENTER أي عند الخروج بالضغط علي مفتاح الإدخال انتر (اطلب) KHMB.rar

السلام عليكم و رحمة الله و بركاته بارك الله فيك أخي العزيز مختار البركاني .. جزاك الله خيرًا على الملف الرائع .. كما أرجو من الأخ الغالي ولد الحجاز ألاّ يبخل علينا و لو بإضافة الإعجاب .. خالص احتراماتي

أخي الكريم ولد الحجاز لاحظت أن موضوعاتك موجزة .. يرجى دائماً إلقاء مزيد من التوضيح والشرح للموضوع .. تقبل تحياتي

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

السلام عليكم ورحمة الله الله يذكرك بالخير ابا البراء هذا شرح طريقة عمل الصيغـــــــــــــــــــــــــــــــــــــة : ( الشرح للمبتدئين فقط ) 1- نحدد الخلايا التي نريد عمل المعادلة عليها ثم من بياناتData نختار التحقق من الصحة Data Validation حسب الموضح بالصورة 2- تفتح نافذة التحقق من صحة البيانات كما الموضح ادناه : 3- من المعيار السماح : نختار مخصص آخر شيء بالقائمة فتظهر النافذة كما بالشكل ادناه : 4- نقوم بوضع الصيغة حسب الموضح ادناه: الصيغــــــــــــــــــــــــــة : [[[[[ LEN(C5)=14= ]]]]] بهذه الصيغة فالخلية تقبل 14 رقم فقط لاتقل عددا ولاتزيد بحيث إذا قلت او زادت تظهر رسالة توضيح بذلك وتستطيع تغيير الخانات فقط غيًر الرقم 14 إلي أي رقم تريده. وهنا الـ 14 خانة تقبل ارقام وحروف.كما تلاحظ ادناه : ولكي نجعل الخلية لاتقبل إلًا ارقام فقط ولاتقبل الحروف نقوم بالتغيير في كتابة الصيغـــــة كاتالي : الصيغــــــــــــــــــــــــــة : [[[[[ AND(LEN(C3)=14;ISNUMBER(C3))= ]]]]] كذلك هنا تستطيع تغيير عدد الخانات الـ 14 إلي ماتريد. إنتهـــــــــــــــــــــــــــــــــــــــــى. الداعي لكم بالخير / أبو الحسن والحسين

الاستاذ الحبيب المرفق لا يستجيب للتنزيل

السلام عليكم ورحمة الله وبركاته شيء غريب حقاً، ذكرني أخي عبد العزيز بالرد 3 بالمشاركة17 قمت أنظر إلى الرد فلم أجد إلا ردين اثنين الرد 1 للأستاذ الغالي KHMB الرد 2 للأستاذ الغالي أنس دروبي فأين الرد الثالث ؟ لم أره ...ثم بعد فترة ليست بالوجيزة قد تكون حوالي الساعة اطلعت على الجديد بهذه المشاركة رأيت مشاركة أخي أبو الحسن والحسين ثم ذهبت صعوداً فوجئتالرد 3 للأستاذ الغالي ..حبيب الكل محمد حسن المحمد السلام عليكم و رحمة الله و بركاته لم أجد العبارات المناسبة التي تليق بمقامك الكبير أستاذي العزيز محمد حسن المحمد .. و الله أفرح خالصًا من كل قلبي حين أراك متابعًا لمواضيعنا .. محفّزًا للجميع دون استثناء .. بارك الله فيك و جزاك الله خيرًا ..ألف شكر و ألف تحية محبة و تقدير و احترام .. أسأل الله تعالى ألاّ يحرمنا منك طول الدّهر .. فائق احتراماتي أين كان حتى وردت المشاركة17 قبل هذا الرد... عجيب....حقاً عجيب هذا الإنترنت بل قل عجيبة نسخة أوفيسنا هذه.تأخذ ما تشاء وتترك ما تشاء. والسلام عليكم.

السلام عليكم ورحمة الله اخي عبدالعزيز شكرا جزيلا إطرائك لي بالنسبة لما ذكرت عن ردودك الثلاثة فهنا كلما وضعت رد سيضاف لردك الأول حتى : 1- يتم إضافة رد من عضو آخر 2- او تنقضي فتره إنتظار التعديل علي ردك الأول اظن انها 15 دقيقة

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

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

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

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

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

السلام عليكم ورحمة الله وبركاته بعد اذن الأستاذ أسامه وباقى الأساتذة الأخ KHMB هذا كود لتلوين مدى معين بعد تمام اكتمال بياناته اعتمادا على عدد الخلايا الفارغة فيه Private Sub Worksheet_Change(ByVal Target As Range) Dim LR As Integer, Rownum As Integer, CountBlank As String LR = Cells(Rows.Count, 1).End(xlUp).Row For Rownum = 2 To LR CountBlank = Application.WorksheetFunction.CountBlank(Range(Cells(Rownum, "A"), Cells(Rownum, "H"))) If CountBlank = 0 Then Range(Cells(Rownum, "A"), Cells(Rownum, "H")).Interior.ColorIndex = 38 Next Rownum End Sub الكود يوضع فى حدث الورقة التلوين يعمل من الصف الثانى على الأعمدة من A الى H جرب المرفق التالى Color a row after entering the required information .rar

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

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

أخي الكريم سعد عابد مشكور على مرورك العطر وإعجابك بالمشاركة وجزيت خيراً على دعائك الطيب المبارك تقبل تحياتي

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

السلام عليكم ورحمة الله مرفق الشرح مع الصور في ملف وورد شرح بالصور.rar

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

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

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

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

السلام عليكم اليك اخي بعض معاني الكلمات إسمح Allow تطبيق Apply تصاعدى Ascending مساعد Assistant تصحيح تلقائى Auto Correct ترشيح تلقائى للبيانات Auto Filter ضبط تلقائى Auto Fit تنسيق تلقائى Auto Format أشكال جاهزة Auto Shapes جمع تلقائى Auto Sum متوسط حسابى Average فارغ Blank حدود Border ظل الخلية cell shading وسط center رسم بيانى chart مسح clear لون color أعمدة column تلخيص البيانات لعرضها فى consolidate جدول عد count إنشاء create عملة currency تخصيص customize حدد define درجات degrees تنازلى descending إهلاك depreciation أشكال diagrams تقييم الصيغ evaluate formula فيما عدا except ملء fill مرشح بيانات filter خط font نموذج form تنسيق format صيغ formula كسر عشرى fraction دوال functions عام general الوصول للهدف goal seek مجموعة group رأس وذيل header and footer الصفحة رأس الجدول header row ارتفاع height إخفاء hide أفقى harizontal حدود داخلية inside فائدة interest غير مسموح invalid مائل italic عنوان label يسار left روابط links إغلاق locked دمج الخلايا merge cells تعديل modify أرقام number عناصر objects خيارات options إتجاه orientation حدود خارجية outline تهيئة الورقة page setup إزالة remove استبدال replace إعادة تهيئة reset تغيير الحجم resize أيمن right صفوف rows نموذج sample تسلسل series إعدادات settings فرز sort خفض النص عن مستوى السطر subscript رفع النص عن مستوى السطر superscript نص text التحكم فى النص text control إتجاه النص text direction تتبع trace إظهار المعادلات المرتبطة بالخلايا trace dependents إظهار الخلايا المرتبطة بالمعادلات trace precedent تتبع التغيرات trace changes تحته خط underline فك المجموعات ungroup إظهار unhide رأسى vertical

السلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذي الفاضل محمد حسن المحمد على المبادرة الطيّبة .. ألف شكر أستاذي الغالي " الصّقر " على الاستجابة السريعة ..بارك الله فيكما تلبية لاشكالية أستاذنا " الصّقر " قمت بوضعته على رابط آخر استجابة له ربما يتمكن من ذلك لأنّني تمكنت من تنزيله بطريقة جد عاديّة : http://up.top4top.net/downloadf-top4top_43ee5f69371-rar.html

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

السلام عليكم ورحمة الله وبركاته الدرس الرابع 4-Properties الخصائص وسوف نتناول فى هذه الدرس الاتى اعطاء الخليه قيمه عدديه فى الشيت النشط اعطاء الخليه قيمه نصيه فى الشيت النشط اعطاء الخليه قيمه عدديه أو نصيه باستخدام اسماء الشيتات اعطاء الخليه قيمه عدديه أو نصيه باستخدام اسماء الملفات مسح محتوى الخليه من البيانات--cell contents Text Formatting التحكم فى حدود الخلايا-- borders ........................................... اعطاء الخليه قيمه عدديه فى الشيت النشط نفترض انك عايز تدخل القيمه 10 فى الخليه A3 يمكننا عمل ذلك باستخدام RANGE او بالاشاره الى الخليه مباشرة سيكون شكل الكود كالاتى Sub properties_NUM() 'اعطاء الخليه A3 قيمه عدديه Range("A3").Value = 10 [A3].Value = 10 End Sub اعطاء الخليه قيمه نصيه فى الشيت النشط نفترض انك عايز تدخل الاسم HIMA فى الخليه A6 يمكننا عمل ذلك باستخدام RANGE او بالاشاره الى الخليه مباشرة سيكون شكل الكود كالاتى Sub properties_tex() 'اعطاء الخليه A5 قيمه نصيه Range("A6").Value = "hima" [A6].Value = "hima" End Sub اعطاء الخليه قيمه عدديه أو نصيه باستخدام اسماء الشيتات يمكن عمل ذلك بالاشاره الى اسم الشيت Sheets("4-Properties") او بالاشاره الى رقم الشيت Sheets(4) نفترض انك عايز تدخل فى الخليه A8 قيمه عدديه قدرها 20 او قيمه نصيه hima وبالتالى سيكون شكل الكود هكذا Sub properties_num_wor() 'اعطاء الخليه A10 قيمه عدديه باستخدام اسماء الملفات Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value = 22 ' او 'Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value = "Sample text" End Sub Sub properties_num_sh() 'اعطاء الخليه A8 قيمه عدديه باستخدام اسماء الشيتات Sheets("4-Properties").Range("A8").Value = 22 ' او 'Sheets(4).Range("A8").Value = "Sample text" End Sub اعطاء الخليه قيمه عدديه أو نصيه باستخدام اسماء الملفات نفترض انك عايز تدخل فى الخليه A10 قيمه عدديه قدرها 20 او قيمه نصيه hima وبالتالى سيكون شكل الكود هكذا Sub properties_num_wor() 'اعطاء الخليه A10 قيمه عدديه باستخدام اسماء الملفات Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value = 22 ' او 'Workbooks("learn--vba.xlsb").Sheets("4-Properties").Range("A10").Value = "Sample text" End Sub مسح محتوى الخليه من البيانات--cell contents نفترض اننا عايزين نمسح البيانات الموجوده فى الخليه a12 يمكننا استخدام اى من الااومر الظاهره بالصوره ولو انت ركزت شويه على ما اعتقد من الاسماء هتعرف وظيفه كل امر ايه يعنى مثلا clear يقوم بحزف البيانات مع ارجاع الخليه الى وضعها الافتراضى يعنى لو انت مخصص نوع معين من الخطوط او حجم معين للخط هتلاقى البيانات تم حزفها وتم ارجاع الوضع الافتراضى للاوفيس ClearContents دى بتحزف البيانات بس وملهاش دعوه بخصائص الخليه ClearFormats دى بتقوم بارجاع الوضع الافتراضى للخليه دون حزف البيانات وبالتالى سيكو شكل الكود الخاص بحزف البيانات كالاتى Sub properties_clear() 'مسح محتوى الخليه a12 Range("a12").ClearContents End Sub Text Formatting التحكم فى خصائص الخط طبعا الموضوع ده طويل حبتين وفيه معلومات كتيره احنا هناخد ابسط الحاجات الى تمشينا ومتوقفناش علشان منصعبهاش على نفيسنا بص الاول على الصوره طب من مجرد النظر الى الصوره هتفهم الخصائص الخاصه بالخط على العموم هنستعرض بعض الخصائص حجم الخط-size سمك الخط-bold جعل الخط مائلا-italicize وضع خط تحت الكلمه-underline اسم الخط-NAME ونيجى نطبق الكلام ده يعنى مثلا لو عندنا الخليه a15 عايزين نكتب فيها الرقم 10 ونخلى حجم الخط فيها 20 سمك الخط فيها تخين نخلى الخط فيها ماي على جنبه اليمين ونخلى الخط تحيه خط ونخلى اسم الخط Agency FB وبالتالى هيكون شكل الكود كالاتى Sub properties_TEXT_FORMA() Range("a15").ClearFormats Range("a15").Font.Size = 20 Range("a15").Font.Bold = True Range("a15").Font.Italic = True Range("a15").Font.Underline = True Range("a15").Font.Name = "AGENCY FB" End Sub التحكم فى حدود الخلايا-- borders طبعا الموضوع ده طويل بردو حبتين وفيه معلومات كتيره فهنطر ناخد ابسط الحاجات الى تمشينا ومتوقفناش على العموم شاهد الصوره يمكننا استخدام الارقام من 1 الى 13 فى تحديد الخليه ولمعرفة الوظيفه التى يقوم بها كل رقم فى التحديد شاهده الصوره ثم قم باستعمال هذه الكود وشاهد تأثر الكود على هذه الخلايا Sub properties_BORDER() Range("a23:E28").ClearFormats Range("a23").Borders.Value = 1 Range("a24").Borders.Value = 2 Range("a25").Borders.Value = 3 Range("a26").Borders.Value = 4 Range("a27").Borders.Value = 5 Range("a28").Borders.Value = 6 Range("C23").Borders.Value = 7 Range("C24").Borders.Value = 8 Range("C25").Borders.Value = 9 Range("C26").Borders.Value = 10 Range("C27").Borders.Value = 11 Range("C28").Borders.Value = 12 Range("E25").Borders.Value = 13 End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى

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

استاذى الفاضل تفضل الرابط التالى هو مكتبة القدير / عماد الحسامى يرحمه الله http://www.officena.net/ib/profile/55973-الحسامي/?do=content&page=1 تقبل تحياتى

السلام عليكم ورحمة الله وبركاته اليوم الأول اختصار مهم لسرعة الادخال

كم انت رائع يا ابو البراء هذا ما كنت انتظره "وعلم ينتفع به" من الصدقات الجاريه نسال الله تعالى ان تكون بميزان حسناته جزاكم الله خيرا

بارك الله فيكم إخواني قمت بتثبيت الموضوع ، ليساهم الأخوة الأعضاء في تجميع أعمال العلامة الراحل الحسامي ليكون مرجع لمن أراد الاستفادة جعل الله أعماله في ميزان حسناته وجعلها صدقة جارية تكون له حسنات جارية لا تتوقف

رحم الله فقيدنا الغالي وجعل قبره روض من رياض الجنة

السلام عليكم أستاذنا المحترم محمد طاهر - جزاك الله خيرا على هذه الإيضاحات التي ذكرت - ما كتبته كان من باب الغيرة على المنتدى بكل مكوناته فإن رأيتم ما يخالف ذلك فإنني أعتذر لكم عنه والسلام عليكم.

بوركت أخى أبى الحسن والحسين

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

هل تعلم أن الأخ محمد الريفي متوقف عن الموضوع من فترة ؟؟ لعل غيابه عن المنتدى خير إن شاء الله في انتظار إحياء الموضوع نظراً لأهميته

أخي الفاضل أهلا ومرحباً بك في المنتدى من المفترض أن يتم شرح المطلوب بشكل أكثر تفصيلاً ولكن لأني عملت على مثل هذا الكود من قبل فقد أدركت المطلوب .... يرجى الإطلاع على موضوع التوجيهات للأعضاء الجدد في الموضوعات المثبتة في المنتدى ويرجى تغيير اسم الظهور للغة العربية إليك الكود التالي عله يفي بالغرض Sub TransferDataToClosedWB() On Error Resume Next Dim WB As Workbook Dim LR_A As Long, LR_B As Long Dim Answer As Long LR_A = IIf(Cells(Rows.Count, 1).End(xlUp).Row <= 8, 9, Cells(Rows.Count, 1).End(xlUp).Row) Application.ScreenUpdating = False ThisWorkbook.Sheets("Sheet1").Range("B9:K" & LR_A).Copy Set WB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & "اكسل2.xlsm") With WB.Sheets("Sheet1") LR_B = IIf(Cells(Rows.Count, 1).End(xlUp).Row <= 2, 3, Cells(Rows.Count, 1).End(xlUp).Row + 1) .Range("A" & LR_B).PasteSpecial xlPasteValues .Range("L" & LR_B).Value = ThisWorkbook.Sheets("Sheet1").Range("F6").Value .Range("M" & LR_B).Value = ThisWorkbook.Sheets("Sheet1").Range("B4").Value End With On Error GoTo 0 WB.Close SaveChanges:=True Application.CutCopyMode = False Application.ScreenUpdating = True End Sub لا تنسى أن تحدد أفضل إجابة وأن تضغط على كلمة "سجل إعجاب بهذا" .. Desktop V2.rar

الاخ الكريم اين هى هذه الملفات

الدرس التاسع التعامل مع الكائنات الكائنات Objects الكائنات هي المكونات الأساسية لاى برنامج وهى الأدوات التي تحتوى على البيانات او تستخدم للتعامل مع البيانات مثال ذلك الجداول والنماذج والاستعلامات والتقارير فى Access ويتضمن Excel الكائنات التالية : 1 – التطبيق Application ويتمثل فى برنامج الإكسيل نفسه . 2 – المصنف Work Book ويتمثل فى كتاب العمل الذى يتم التعامل مع البيانات من خلاله. 3 - ورقة العمل Work Sheet وهى التى تحتوى على مجموعة البيانات 4 – النطاق Range ويتضمن مجموعة من الخلايا Cells وهى التى تحتوى على بيان واحد من البيانات سواء كان بيان نصى أو رقمى أو معادلة أو دالة ويكتب النطاق على النحو التالى Range(a1:c5) أى نطاق الخلايا من a1 الى c5 ولكل كائن من هذه الكائنات خصائص معينة Properties مثل الاسم Name والعنوان Caption ومجموعة من الأساليب Methods التي تستخدم في تنفيذ أمر معين على الكائن كما أن الكائن قد يقع عليه حدث يؤثر فى سلوكه ورد فعله كائن التطبیق Application Sub JASMEN1() Application.Caption = "JASMEN MAHMOUD ELSHRIEF" End Sub يقوم الكود بتوظيف الخاصية Caption على كائن التطبيق أي أن هذه الخاصية تقوم بتغيير الاسم العام للبرنامج فبدلا من كلمة مايكرسوفت سيظهر "JASMEN MAHMOUD ELSHRIEF" Sub JANA2 () Application.DisplayFormulaBar = False End Sub تقوم هذه الخاصية DisplayFormulaBar بإخفاء شريط الصيغ عند استخدام False وبالمقابل إظهاره عند استخدام TRUE Sub JOUMANA3 () Application.DisplayFullScreen = True End Sub تقوم هذه الخاصية DisplayFullScreen بجعل التطبيق في وضع ملء الشاشة وللرجوع طبعاً يجب ان نجعل القيمة False Sub MZM4 () Application.DisplayRecentFiles = False End Sub تقوم هذه الخاصية DisplayRecentFiles بعدم عرض المستندات الأخيرة في كائن تطبيق اكسيل وإذا أردنا إستعراضها طبعاً نجعلها تاخد القيمة TRUE Sub MZM5 () Application.WindowState = xlMaximized End Sub تقوم هذه الخاصية WindowState بعرض البرنامج فى حالة التكبير Sub MZM6 () Application.WindowState = xlMinimized End Sub تقوم هذه الخاصية WindowState بعرض البرنامج فى حالة التصغير Sub MZM7 () Application.WindowState = xlNormal End Sub تقوم هذه الخاصية WindowState بعرض البرنامج فى حالة العرض العادى كائن ورقة العمل Worksheet Sub MZM8 () Worksheets("sheet1").Visible = False End Sub يقوم الكود السابق بإخفاء ورقة العمل المسماه sheet1 وإذا أردنا إظهار الشيت نجعل القيمة TRUE Sub MZM9 () Worksheets(1).Name = "sheet1" End Sub يقوم الكود بإعادة تسمية الورقة 1 في ترتيب اكسيل بـ sheet1 Sub MZM10 () Worksheets("sheet1").Delete End Sub يقوم الكود بحذف الورقة المسماه sheet1 Sub MZM11 () Worksheets(1).Activate End Sub يقوم الكود بتنشيط الورقة المسماه sheet1 Sub MZM12 () Worksheets.Add End Sub يقوم الكود بإضافة ورقة جديدة Sub MZM13 () Worksheets(3).Copy End Sub يقوم الكود بنسخ الورقة الثالثة ضمن ترتيب ورقات المصنف

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

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