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

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

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

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

والله لقد ارسلت اسأل عنه رساله خاصه ولم يجب علمت ان هناك مايمنعه وتيقنت انه غائب فعلا نسأل الله له السلامه والخير

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

وعليكم السلام ورحمة الله وبركاته بارك الله فيك استاذنا . اسعدنى وشرفنى مرورك العطر وهذا رابط تم البحث عن فى جوجل لنسخة اوفيس 2016 http://sigmapc100.blogspot.com.eg/2015/07/office-2016-v2.8-x86-x64.html

الأدوات المهمة ووظائفها الخصائص الشائعة للأدوات نظرا لاهتمام بعض الاعضاء الذين لم يتعاملو مع واجهات البرمجة عموما سواء VBA or VB6 والاستفسارات الدائمة عن بدايات التعامل مع الفيجوال قمت بتوضيح الامور اكثر قليلا وكما قال احد الاخوة لي محتاجين نبدأ من تحت الصفر بداية هذه قائمة الادوات الموجودة علي يسار البرنامج خصائص الأدوات الشائعة الاستخدام الخصائص الشائعة: هناك مجموعة من الخصائص الشائعة الاستخدام والمتوفرة لمعظم الأدوات، سنقوم الآن بشرح أهم هذه الخصائص وسنؤجل الحديث عن باقي الخصائص فيما بعد. 1- الخاصية Name: تعتبر هذه الخاصية من أهم الخصائص على الإطلاق، وهي متوفرة لجميع الأدوات دون استثناء، وهذه الخاصية تحدد الاسم البرمجي للأداة، وهو الاسم الذي يستخدم عند كتابة شفرة تخص هذه الأداة مثل : Form1.Caption="Yasser" حيث Form1 تمثل اسم النافذة. عندما تضع أداة جديدة أو تضيف نافذة جديدة يتم وضع الخاصية Name افتراضياً لهذه الأداة وذلك بذكر اسم الأداة يليها رقم مثل Form1 و Form2 و Label1 و Label2 إلى آخره. والآن إذا كنت ترغب في تغيير هذا الاسم الافتراضي فعليك تذكر ما يلي: 1- يجب أن يبدأ الاسم بحرف ولا يجوز أن يبدأ برقم، ويجوز أن يتخلله أرقام. 2- يفضل أن يكون الاسم باللغة الإنجليزية، وذلك لتجنب المشاكل التي يمكن أن تحدث عند استخدام الأسماء العربية ( أتمنى قريبا يقال العكس) 3- يجب أن لا يتجاوز الاسم 40 حرفاً. 4- لا يجوز استخدام بعض المحارف مثل النقطة و الفراغ و الفاصلة و … 5- لا يجوز استخدام الكلمات المحجوزة مثل : FOR و WHILE و FUNCTION و … 6- يفضل استخدام الأسماء التي تدل على وظيفة الأداة، وتجنب الأسماء العشوائية. مثلاً: يمكنك تسيمة النافذة "F" بدلاً من "Form1" و لكن عندها ستصبح الشفرة على الشكل: F.Caption="Yasser" الخاصية Name متوفرة أثناء التصميم فقط، أي من المستحيل تغيير الخاصية Name ضمن الشيفرة وهناك العديد من الخصائص الأخرى تشترك معها بهذه الصفة. 2- الخاصية BackColor (لون الخلفيه): تحدد هذه الخاصية لون أرضية الأداة، وعند محاولة تغيير هذه الخاصية يظهر مربع صغير يحوي سهم ، عند الضغط على هذا المربع يظهر لوح الألوان الذي يمكننا من اختيار اللون الذي نريد . ونلاحظ في مربع الألوان وجود بوابتين الأولى Palette ومنها نختار ألوان ثابتة ، والثانية System ومنها نختار ألوان يستخدمها النظام Windows . 3- الخاصية Caption (العنوان): وهي تحدد النص الذي سيظهر على الأداة كعنوان لها، ويجب أن لا يتجاوز النص 255 حرفاً بما في ذلك الفراغات. 4- الخاصية Enabled (التمكين): تحدد هذه الخاصية فيما إذا كانت الأداة ستتأثر بالأحداث (النقر أو حركة الماوس) أم لا، حيث تأخذ القيمتين True تتأثر أو False لا تتأثر. لن يظهر تأثير هذه الخاصية إلا بعد تنفيذ البرنامج. 5- الخاصية Font (الخط): تستخدم من أجل تحديد شكل ونوع وحجم الخط الذي سيظهر به عنوان الأداة. 6- الخاصية ForeColor (لون الخط): وهي تحدد لون الخط الذي سيكتب به عنوان الأداة. 7- الخاصية Height: تحدد ارتفاع الأداة . 8- الخاصية Width: تحدد عرض الأداة. 9- الخاصية Left: تحدد مقدار بعد الطرف الأيسر للأداة عن الطرف الأيسر للنافذة. 10- الخاصية Top: تحدد مقدار بعد الطرف العلوي للأداة عن الطرف العلوي للنافذة. 11- خاصية Picture: وتستخدم لتحميل صورة ووضعها كخلفية للأداة. 12- خاصية Visible: وتستخدم لإظهار أو إخفاء الأداة أثناء التنفيذ. من المهم الآن أن تقوم بإضافة الأدوات وتجريب الخصائص السابقة، وتصميم واجهات مختلفة تتخيلها.

مشاركة مع الاساتذة ماهو المدة التي هي مقياس لان تصبح الاقامات قاربة على الانتهاء ! مثلا التي بقي عليها 5 ايام فاقل ؟ وبعد كذا ساشارك بجواب للمطلوب ؟ سطر واحد .. تحياتي

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

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

اشكرك استاذ رمهان على مجهودك الرائع

تفضل اعمل وحدة نمطية وبها الدالة : Function access_work_days(fdate As Date, edate As Date) For i = fdate To edate x = x + (Weekday(i) = 6 Or Weekday(i) = 7) Next access_work_days = edate - fdate + x End Function وبكذا نقول انبسط ياكسس ! والله وصار عندك دالة حساب ايام العمل زي الاكسل ! وببركات الاخ شوقي ! طبعا بتنادي الدالة من اي مكان وتمرر لها اولا تاريخ البدء ثم تاريخ الانتهاء ! ولو يتفضل احد صاحب صلاحية ويعدل العنوان بحيث يدل على دالة ايام العمل في الاكسس مشكورين ! بالتوفيق

إنت تأمر يا أ / محمد

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

جميل جدا يا استاذ ابا جمانة ! اصبحنا نتعلم من اسئلتك واجاباتك !

وعليكم السلام سؤالك غير واضح فاذا كان قصدك انك تريد ان تجعل النموذج الفرعي تحت "رأس النموذج" الرئيسي ، فاليك الطريقة: اختر النموذج الفرعي ، احذفه ، اضغط على "راس النموذج" وسيتغير لونه ، اعمل لصق ، وسيكون النموذج الفرعي هناك جعفر

حبيبى الغالى أستاذى ومعلمى القدير / عبد العزيز بسم الله ما شاء الله على كل أعمالك التى أشاهدها وأستمتع بها زادك الله من علمه وفضلة ثانيا الموضوع سهل جدا جدا نحدد CommandBatton جديد فى نهاية الفورم الأول ونضغط علية وفى اليمين فوق نضغط Add Form ونضغط على أيقونة Image بالقائمة إللى على الشمال ونحدد لها مكان داخل الفورم الثانى ثم نختار الصورة المراد وضعها وطبعا يكون مكتوب عليها معلومات المبرمج ثم نضغط دبل كليك على CommandBatton فى الفورم الأول ونضع الكود التالى Private Sub Command1_Click() Form2.show End Sub ثم نقوم بحفظ البرنامج أرجوا أن أكون أوصلت المعلومة تقبل خالص تحياتى وتقديرى لشخصكم الكريم

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

حبيبى الغالى / ياسر العربى شرح أكثر من رائع ستجعل منا مبرمجين محترفين تفضل المرفق أيضا مما تعلمناه منك عايز أعرف ملاحظاتك أول بأول الكود المستخدم Private Sub Command1_Click() label1.caption=time label2.caption=date End Sub Timer Yasser Albanna.rar

السلام عليكم ورحمة الله سبق ان تم عمله ولكن حسب الفهم إستدعاء ولكن يجب عليك الرد إن لم يكن المطلوب ولكنك تجاهلت الموضوع وفتحت موضوع آخر. الموضوع السابق علي هذا الرابط http://www.officena.net/ib/topic/65640-نقل-او-ترحيل/#comment-427169 والآن تفضل إليك المرفق ترحيل وإستدعاء حسب رقم الفاتورة KHMB فاتورة.rar

السلام عليكم حسب فهمي للمطلوب جرب الكود التالي Sub Ali() Dim Sw As Worksheet, Sh As Worksheet Dim Lr As Long, Rw As Long Dim R As Range Set Sw = Sheets("1"): Set Sh = Sheets("data") With Sw Lr = Split(Sh.UsedRange.Address, "$")(4) Sh.Cells(Lr, 2) = .[M5] Sh.Cells(Lr, 3) = .[D6] Sh.Cells(Lr, 4) = .[D5] Set R = [C9].End(xlDown) Rw = Split(R.Address, "$")(2) Union(.Range(.[C9], "C" & Rw), .Range(.[E9], "E" & Rw), .Range(.[I9], "I" & Rw) _ , .Range(.[AD9], "AD" & Rw), .Range(.[AE9], "AE" & Rw), .Range(.[AF9], "AF" & Rw)).Copy Sh.Cells(Lr, 5).PasteSpecial xlPasteValues Application.CutCopyMode = False End With Set Sw = Nothing: Set Sh = Nothing: Set R = Nothing End Sub

بالامكان استخدام الكود التالي في اي حدث للشيت Sub Refresh() ThisWorkbook.RefreshAll End Sub اضغط الزرين التاليه مع بعض "Ctrl+F"

بسم الله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه السلام عليكم ورحمة الله وبركاته أشكرك أخي الحبيب م/ ياسر فتحي على كلماتك الطيبة وطمأنتك لنا حقيقة أحس بروح الأبوة المفعمة بالحنان لكم جميعا أبنائي البررة الأتقياء النجباء وفي الليلة الظلماء يفتقد البدر. تقبل تحياتي العطرة ... والسلام عليكم

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

استاذ رمهان بعد تجربة الكود لاحظت عند ظهور الرسالة الزر ok , cancel كل منهما يفتح النموذج مسج4بوكس - .rar هذا التعديل قمت به حتى يعمل كل زر بعد ظهور الرسله وظيفته انتظر رد حضرتك هل انا طبقت كلام حضرتك صح واللا انا طبقت غلط مسج5بوكس.rar

شهادة اعتز بها من علمى القدير واستاذى الجليل واخى الحبيب جزاكم الله خيرا وبخصوص الكود If MsgBox(" لديك " & DCount("*", "الاقامات", "[تاريخ نهاية الاقامة]-date()<=31") & " قاربت على الانتهاء ", vbOKCancel) = vbOK Then DoCmd.OpenForm "التحقق من الاقامات", acFormDS مشتاق لتجربته فدائما وابدا يشغلنى بلهفة مشتاق تطبيق ما تتفضل به من لمسات ساحرة وخلابه فمنتديات اوفيسنا هى مدينة للعلم وحضرتك باب من ابوابها ولك مدرسة خاصة اسال الله العلى العظيم ان يبارك لك فى علمك وعملك ويرزقكم الجنة انت ومن تحب

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

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

بعد اذن استاذنا الغالي رمهااان اخونا عدي... الاجابة موجودة في سؤالك بمعني ان في حقل الاسم حدث بعد التحديث after update يكون حقل التاريخ =()date وحقل الوقت = ()time

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

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

يا سلام أخوي رمهان ، اعرفك فنان من زمان انت قربت الجواب بوضع رابط الموضوع ، وانا دخلت في الرابط وشايف ان المشاركة التالية هي الاقرب لسؤال أخينا أبوعبدالله http://www.officena.net/ib/topic/52619-إدارة-الجداول-المرتبطة-،-أداة-وشروحات/?do=findComment&comment=329298 جعفر

جزيت خيرا

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

السلام عليكم ورحمة الله اخي الفاضل عمرو محمد بارك الله فيك. إن (منتـــــدى أوفسيـــنا ) يأدي رسالة عظيمة في العلم والتعلم وليس للدعاية والتجارة الله يبارك لنا ولك ويزيدنا ويزيدك من فضله. إذا عندك إستطاعة في تقديم المساعدة لإخوانك او لا تجعل المنتدى يخــرج عن ماوضع له.وجزاك الله خير وانا آسف جدا علي الاحراج والإزعاج

السلام عليكم ورحمة الله تفضل اخي ابو حمادة المرفق KHMBComboBox1.rar

اخى الحبيب السلام عيكم ورحمة الله الحمد لله الذى بنعمته تتم الصالحات اليك شرح المعادلة التى طلبتها الجزء الاول من المعادلة وهو IF(COUNTIF(D$3:$D$3;D$3)>1;"" ويقصد منه اذا تكرر التاريخ مرة اخرى اترك الخانة خالية اما الجزء الثانى فهذا يعنى ;("TEXT(DATE($C$1;$AI$1;D$3);"ddd")) ان التاريخ المدرج فى هذه الخلية حولها من رقم الى نص ارجو من الله عز وجل ان اكون قد وفقت فى الشرح

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

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

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

السلام عليكم اخي ياسر خليل ماقصدت الوصول اليه بهذا الشكل كي تتضح لديك الصورة اي اننا لن نصل للحد الاعلى من الهيبر لينك نستخدم الخليه الحاليه هيبرلينك ومجرد استخدامنا للخليه الحاليه نحذف السابق ارجو ان وصلت الفكره Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then Dim R As Hyperlink For Each R In ActiveSheet.Hyperlinks If R.TextToDisplay > "" Then R.Delete Next With ActiveSheet .Hyperlinks.Add Anchor:=Target, Address:=Target, SubAddress:="", TextToDisplay:=CStr(Target.Text) End With Set R = Nothing End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then Dim R As Hyperlink For Each R In ActiveSheet.Hyperlinks If R.TextToDisplay > "" Then R.Delete Next With ActiveSheet .Hyperlinks.Add Anchor:=Target, Address:=Target, SubAddress:="", TextToDisplay:=CStr(Target.Text) End With Set R = Nothing End If End Sub

السلام عليكم بالامكان استخدام كودك بالشكل التالي Sub MAS() Application.ScreenUpdating = False Set sh1 = Sheets("1") Set sh2 = Sheets("2") Dim x As Integer ' x= تمشي بشكل عمودي ينتقل من صف الي اخر ولكن بنفس العمود Dim y As Integer ' y= تمشي بشكل افقي بعد الانتهاء من العمود الاول تنتقل للعمود الثاني بشكل صفوف Dim z As Integer 'هي القيمة العددية التي تتناقص For a = 1 To 16 fa = sh1.Range("a" & a) sn = 0 For b = 1 To 26 fb = sh1.Range("a" & b) For c = 1 To 26 fc = sh1.Range("a" & c) For d = 1 To 26 fd = sh1.Range("a" & d) sn = sn + 1 ww = fa & fb & fc & fd sh2.Cells(sn, a) = "http://www." & ww & ".com" Next d Next c Next b Next a '------------------------------------------------------------------------------------------------------ sh2.Activate Application.ScreenUpdating = True End Sub وهذا الكود في حدث الورقة المسماه 2 بحيث عند النقر دبل كليك على اي خليه ينشاء Hyperlink في الخليه Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then With ActiveSheet .Hyperlinks.Add Anchor:=Target, Address:=Target, SubAddress:="", TextToDisplay:=CStr(Target.Text) End With End If End Sub او عند النقر مباشره على اي خليه ينشاء Hyperlink في الخليه Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, ActiveSheet.UsedRange) Is Nothing Then With ActiveSheet .Hyperlinks.Add Anchor:=Target, Address:=Target, SubAddress:="", TextToDisplay:=CStr(Target.Text) End With End If End Sub

مثال رقم 3 :- فى المثال رقم 2 كان الشرح على نفس الصوره السابقه فورم فى مرحلة التصميم وصممت عليه Frame والفريم لا يوجد به اى عناصر تحكم تم تصميمها وكان المثال برقم 2 انى اعمل كود عند فتح الفورم يكون هناك عدد 10 صفوف من العناصر كل صف به ليبل وتكست بوكس وكمبوبوكس المثال بتاعنا اليومعايز اعرف ازاى اضيف عناصر تحكم اثناء فتح الفورم من شيت اكسيل وعدد الصفوف بالشيت غير معروف عددها فى زياده او نقصان شاهد الصوره هتعرف اكتر المثال بتاعنا بكل بساطه نفس الكود اللى بالمثال 2 مع تعديلات فنيه بسيطه جدا دا كان الكود اللى بالمثال 2 Private Sub UserForm_Initialize() Dim Top As Integer Dim i As Integer Top = 5 For i = 1 To 10 With Me.Frame1.Controls.Add("Forms.Combobox.1", "Combobox" & i) .Left = 20 .Top = Top .Height = 40 .Width = 150 .BackColor = &HFFFFC0 .TextAlign = fmTextAlignCenter .FontSize = 20 .Font.Bold = True Dim a As Variant a = Array("ناجح", "راسب") .List = a End With With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF End With With Me.Frame1.Controls.Add("Forms.Label.1", "Label" & i) .Left = 340 .Top = Top .Height = 40 .Width = 150 .SpecialEffect = fmSpecialEffectEtched .TextAlign = 2 .FontSize = 24 .Font.Bold = True .BackColor = 8454016 .Caption = "الصقر" & i End With Top = Top + 40 Next Me.Frame1.ScrollHeight = Top End Sub ايه المطلوب تعديله بالكود لكى يتناسب مع المطلوب بتاعنا رفع الخلايا من الشيت الى الفريم المثال كان على ان عدد الصفوف 10 لذالك استخدمنا الحلقه For next كالتالى For i = 1 To 10 فدلوقتى انا عايز اجيب الخلايا بالشيت رقم 1 النطاق من A2 الى اخر صف هيكون به اخر طالب اذن بداية الحلقه هى اول صف بالجدول وهو الخليه A2 ورقم الصف لها هو 2 اذن الحلقه هتبدأ من رقم 2 الى ؟ الى اخر صف به بيانات فى العمود A اذن لازم احدد اخر صف به بيانات من خلال السطر التالى واحنا شرحناه قبل كدا lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row عملت متغير واسمه Lr وتقدر تسميه اى اسم كيفما شئت وقلت ان المتغير Lr يساوى كتبت اسم الشيت المراد العمل عليه واستخدمت Cells لتحديد عدد الخلايا الممتلئه بالبيانات فى العمود 1 كدا انا عرفت الحلقه من اين تبدأ واين تنتهى ( تبدأ من الصف 2 الى اخر صف به بيانات ) For i = 2 To lr شاهد الكود بعد تعديل الحلقه For Private Sub UserForm_Initialize() Dim Top As Integer Dim i As Integer lr = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row Top = 5 For i = 2 To lr With Me.Frame1.Controls.Add("Forms.Combobox.1", "Combobox" & i) .Left = 20 .Top = Top .Height = 40 .Width = 150 .BackColor = &HFFFFC0 .TextAlign = fmTextAlignCenter .FontSize = 20 .Font.Bold = True Dim a As Variant a = Array("ناجح", "راسب") .List = a .Text = Sheet1.Cells(i, 3).Text End With With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With With Me.Frame1.Controls.Add("Forms.Label.1", "Label" & i) .Left = 340 .Top = Top .Height = 40 .Width = 150 .SpecialEffect = fmSpecialEffectEtched .TextAlign = 2 .FontSize = 24 .Font.Bold = True .BackColor = 8454016 .Caption = Sheet1.Cells(i, 1).Text End With Top = Top + 40 Next Me.Frame1.ScrollHeight = Top End Sub اللى مركز معايا هيلاقى 1- تم تعديل بداية ونهاية الحلقه For 2- فى سطر تم اضافته فى خصائص كل عنصر فى عنصر الكمبوبوكس تم اضافه السطر التالى .Text = Sheet1.Cells(i, 3).Text قيمة الكمبوبوكس هى كتبت اسم الشيت وهو بمثالنا الشيت 1 ثم الخلية المطلوبه Cells عباره عن (رقم العمود, رقم الصف)Cells ( Cells( i , 3 i هنا هى رقم الصف اللى هيتغير كل مره بالحلقه For والعمود هو رقم 3 الخاص بالحاله --------------------------------- فى عنصر التكست بوكستم اضافه السطر التالى .Text = Sheet1.Cells(i, 2).Text نفس الكمبوبوكس ولكن تم تغيير رقم العمود هو 2 الخاص بالدرجه ---------------------------------- فى عنصر الليبل تم اضافه السطر التالى .Caption = Sheet1.Cells(i, 1).Text نفس الكمبوبوكس والتكست بوكس ولكن تم تغيير رقم العمود هو 1 الخاص باسم الطالب ----------------------------------------------------------------------------------------------------------------------- ملحوظه اخيره لمن يريد درجة الاحترافيه فى الكود لما كنا بنعمل خصائص العنصر كان الخاصيه Left & Top & Width& Height لكل عنصر كان بيتم كتابتهم بالشكل التالى كلا منهم على حد فى سطر مختلف على سبيل المثال خصائص التكست بوكس With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Left = 180 .Top = Top .Height = 40 .Width = 150 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With ممكن اكتب الاربع خصائص فى سطر واحد من خلال Move القاعدة الخاصه بــ Move Move Left, Top, Width, Height. ويكون شكل الكود كالتالى بالخصائص With Me.Frame1.Controls.Add("Forms.TextBox.1", "TextBox" & i) .Move 180, Top, 150, 40 .TextAlign = 2 .FontSize = 20 .Font.Bold = True .BackColor = &HC0FFFF .Text = Sheet1.Cells(i, 2).Text End With تم استبدال الاربع صفوف بسطر واحد من خلال Move -------------------------------------------------------------------------------------------------------- جرب الكود بنفسك هتثبت المعلومه اكتر الى لقاء اخر من حلقات سلسلة علمنى كيف اصطاد ان شاء الله هيكون عن كيفية التحكم فى العناصر الموجوده داخل الفريم سوء كانت مصممه اثناء عملية التصميم او تم انشائها بكود انتظرونا تقبلوا تحياتى

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

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

اخي بن عليه حاجى انت ررررررراااااااااائع بارك الله فيك

جزاك الله خيرا .. و كل عام و أنت و الأسرة الكريمة بخير دمت بخير و أعزك الله .

السلام عليكم اعملي مربع نص في النموذج وسميه asa واجعليه مخفي وضعيه في اي مكان في النموذج بالتوفيق

السلام عليكم تفضلي اختنا هذا ما طلبتي ويعطي تاريخ النسخ بالتوفيق ssm_Ali.zip

موضوع مرتبط http://www.officena.net/ib/index.php?showtopic=729&st=0&p=3588&hl=العائد&fromsearch=1&#entry3588