KHMB

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim dayDate As String If Target.Column <> 3 Then Exit Sub If Target <> "" Then dayDate = Range("C" & Target.Row) Range("G" & Target.Row) = Format(dayDate, "DD") Range("H" & Target.Row) = Format(dayDate, "MM") Range("I" & Target.Row) = Format(dayDate, "YYYY") On Error GoTo 0 End If End Sub السلام عليكم ورحمة الله اخي الربيعي انا مثلك عندي إلمام فقط بالاكسل زمان كنت ابرج واعمل برامج صغيرة علي الفيجول بيسك وماشي حالي وطبقت الشي القليل علي الاكسل بالاكواد انسخ من المواقع واحاول اعدل واغير حتى تزبط معي وتركت الموضوع لسنوات عديدة والان رجعت ومامعي من ذلك إلا الاسم فقط اعذرني ماعندي برنامج الشرح بالفيديو ولكن بالكتابة فدر المستطاع. مثلا البرنامج اللي تشتغل علية وترغب في برمجتة هو مصنف مكون من عدة أوراق او شيتات كمثال عندك Sheet1 -Sheet2-Sheet3 وعملك هو بالصفحة او الشيت1 اضغط علي مفتاح Alt وبالاستمرار بالضغط علية اضغط F11 سيفتح لك نافذة إسمه محرر اكواد الفيجوال بيسك في الجانب الايسر او الأيمن حسب لغة النظام عندك ستلاحظ أسماء الأوراق اضغط علي ال Sheet1 دبل كليك ستفتح لك صفحة بيضاء هي محرر الاكواد مقسومة نصفين نصف مكتوب General عام والأخر Declarations الإعلانات افتح السهم اللي بجانب General واختار WorkSheet ثم بالاجانب الاخر افتح السهم اختار كلمة Change Private Sub WoorkSheet_change(Byval Target as Range) انسخ الكود اللي من المثال الرفق سابقا او اللي كاتبة الأخ أبو محمد عباس جزاه الله خير هنا ...إنتهى End Sub وممكن تستخدمة في جميع الشيتات او بعضها حسب طلب العمل هذا ما اتستطعت علية ةإذا امكن اح الاخوان شرح ذلك بملف فيديو صغير جزاه الله خير أبو الحسن والحسين

السلام عليكم ورحمة الله شكرا أبو محمد عباس اعتقد ان الأخ الربيعي لايريد كود يريد معادلات Formula وبنفس نتائج الكود

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

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

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

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

السلام عليكم ورحمة الله اخواني انا غالبا تظهر لي رسالة خطأ في بعض البرامج وخاصة اللي تستخدم الإعلان Declare عن دوال 32 بت ونص الرسال/ ان الكود في هذا المشروع يجب تحديثة لإستخدامة علي أنظمة 64 بت. وما ادري كيف يتم التحديث مع العلم انني استخدم اوفيس 2013 والجهاز عندي ماشاء الله تبارك الله / All In One 27 Inch المعالج i7 الذاكره 8 النظام Windows 8.1 64 Bit مرفق الملف رسالة خطأ عند تشغيل الساعة.rar

السلام عليكم ورحمة الله وبركاتة تفضل الملف بالكود إن شاء الله يكون به ماتريد تجزئة التاريخ.rar

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

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

السلام عليكم ورحمة الله وبركاتة نعم يفي بالغرض 100 % الله يجعل لك من كل ضيق مخرجا ويرزقك من حيث لاتحتسب رزفا حلالا طيبا ويجعله عونا لك في دينك ودنيارك بارب اخي ابن مصر هل ممكن عمل ذلك عن طريق المتغيرات وتعريف الشيث وتحديد كلمة lastRow dim I as integer dim sw as WorkSheet Dim Add as Range Set Sw =ThisWorkbook.Sheets("Main") Set Add = Sw.Range("A65536").End(XlUp).LastRow او Set Add = Sw.Range("ِ65536").End(XlUp).Offset(0, 1)a شي مثل كذا فقط للتعلم. وجزاك الله خير

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

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

السلام عليكم ورحمة الله اخي في الله إبن مصــــــــــــــــــــــــــــــــــر حفظة الله ظهرت لي مشكله بسيطة وهي لما يكون إسم الشركة اكثر من 31 حرف يعطيني رسالة مفادها حسب الرسالة الرفقة فما الحل إن وجد شكرا جزيلا على تحملكم وسعة صدركم عوًضك الله بخيرالدنيا والآخره. كذلك كانت هناك رسالة تظهر لي 3 مرات في كل إنتقال من الكمبيو وقد حليتها بتغير الخاصية للكمبو MatchRequired الي False وهي تمنع عدم التقيد في الاختيار خارج النطاق الخاص بها فقط للعلم والإحاطة بارك الله فيك المرفق صور رسالة كود.rar

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

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

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

السلام عليكم ورحمة الله تمت التجربة بالبحت عن أسماء الشيتات سوى بالحروف او الأرقام فهي 100 % جزاك الله خير

السلام عليكم ورحمة الله الأخ ياسر خليل ارجع لبداية السطر الأول وستلاحظ الطلب بارك الله فيك

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

Private Sub CommandButton1_Click() Dim i As Long 'Check if sheet name found or not For i = 1 To Worksheets.Count If Me.TextBox1.Text = Worksheets(i).Name Then Me.TextBox2.Text = Worksheets(i).Name MsgBox "ÅÓã ÇáÕÝÍÉ ãæÌæÏ ãÓÈÞÇ, íÑÌì ÅÎÊíÇÑ ÅÓã ÃÎÑ", vbOKOnly + vbCritical, "ÊäÈíå" Exit Sub End If Next السلام عليكم ورحمة الله وبركاتة المطلوب البحث عن إسم الصفحة من خلال مرع النص (Text1) وإظهار النتيجة في مربع النص (Text2) مع ملاحظـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــة / ان إسم الشيت أحيانا بأرقام فقط واحيانا بحروف فقط واحيانا بارقام وحروف معا لانني حاولت عندما اعطي نوع المتغير I Integer : يظهر لي الأسماء التي بالأرقام اعطيتة متغير نصي لم يظهر لي نتيجة لا ارقا ولا الاسم بالحروف ثم حاولت ب Long ظهرت لي النتيجة للاسماء بالأرقام مثل Integer مرفق المثال بحث عن شيت.rar

السلام عليكم ورحمة الله وبركاتة اخي الفاضل ابن مصر بارك الله فيك بالنسبة البيان نضع محله الحاله من الفورم منفذ او منفذ جزئي او ملغي او منتهي (لانة ليس مهم بس نعمل له الحالة ) وإذا مااريده اضع له الفاصله لكي لايتأثر السعر مثل ماهو للعلم فقط اهم شي الشراء والبيع كعدد أي الكمية في الفورم كعدد دون أي قيمة مالية او حسابية. أي هي نفس الكمية والرصيد يفضل ترك الصف الأول لوضع رصيد مبدئي ولو كان صفر ليتم الإضافة والخصم علية بالشراء والبيع (مثل ماعملت في الشيت العام الصف الأول الخلفية مضله بالاسود والكتابة بالابيض. الحمد لله انني قدرت أوصل ما اريد. ويقول المثل الصقر لوًح له أي ولو بإشارة الاصبع دون إنتباه الآخرين. يعني مثال الكمية 1500 سهم السعر 50 ريال في نموذجنا هذا الثاني الحركة للشركات كل شي مثل ماهو في النموذج ال 1500 إذا كان شراء توضح 1500 في عمود الشراء مدين والعكس إذا بيع يكون ال 1500 في عمود البيع البيع دائن لكن هناك نقطة إنتبهت لها في الترصيد وهي عكس طريقة الترصيد في الشيت الرئيسية السابقة يكون :الرصيد + البيع -الشراء سابقا اما الترصيد في صفحات الشركات يكون :الرصيد + الشراء - البيع ملاحظة مهمة. اما البيانات اللي حتروح في الشيت الجديد (المنشئ من الناسخة) من الفورم هي : 1- التاريخ وهو في الفورم ليس مربع نص هو لابل Label وإسمة TxtDate 2- رقم الامر OrderNo.Text 3- البيان ممكن ان نضع له الحاله (حاليا) ونعطله بالفاصله لو جاء له إحتياج مستقبلا وإسم الحقل (TxtCase.Text) 4- السعر (Price) 5- الكية (بالفورم) مثل ماهي عليه مقابله في شيت الحركة شرط نوع الامر شراء تكون في خانة او عمود المدين والعكس إذا بيع 6- الرصيد لا مقابل له من الفورم سوى الرصيد البدائي + الشراء - البيع (مثال عندي رصيد مبدئي مثلا في بنك الرياض 500 إشتريت 500 الرصيد صار لدي 1000 سهم بعت 700 سهم الرصيد المتبقي لدي 300 سهم وإذا بعت الاف كله الرصيد (0) بالنسبة للرصيد في الناسخة عملت له معادلة وسحبها إل 200 صف من الأفضل إلغائها لكي يعمل الترصيد بالكود فقط تمام الاستفسار إذا هناك شي ترغب في إيضاحة رد علي وانا سأكون متابع أحيانا اتأخر شوي حسب الظروف . شكر الله سعيكم في خدمة إخوانك وحسن تعاملك وتعاونك.

السلام عليكم ورحمة الله شكرا لكم جميعا انا تقريبا عملت الكثير بمساعدة اخبي ابن مصر وكل امر منفصل سأرسل مره أخرى طلبي مع مافمت به من زيادة ماتم الانتهاء منه / 1- أستاذ إبن مصر الطلب السابق الذي اعنتني بعمله وهو لما اعبئ حقول الفورم واضغط زر إضافة باللون الأحمر يقوم بعمله تمام وهو يقوم بالترحيل إلي الصفحة الرئيسية Main إنتهينا منه ومن شروط التنفيد 2- إضافة شيت (صفحة) بالاسم اللي بالفورم شركة جديدة والمهم فيها ان اول شي يبحث إن كانت الصفحة موجودة يعطيني رسالة وان كانت غير موجودة فينشئ شيت جديدة عبارة عن نسخ شيت نموذج جاهز مخفي وينشئه كصفحة بالاسم من علي الفورم ويضع رمز الشركة في خلية C2 وإسم الشركة في الخلية D2 ***** وهذا الحمد لله إنتهيت منة وللتجربة قم فقط بإختيار رمز الشركة من الكمبو وهو تلقائيا سيعطي إسم الشركة ثم اضغط زر إضافة صفحة جديدة علي اليمين بالاسفل ولاحظ .الي هنا إنتهينا من هذه الخطوة . الخطوة التالية المطلوبة هي / 3- من الصفحة الرئيسية نضغط زر إدخال بيانات فياتي الفورم ونقوم بتعبئة الحقول هنا اريدة يرحل البيانات فقط إلي الصفحة (الشيت) حسب إسمها من حقل إسم الشركة من علي الفورم وفي حالة ان الشركة غير موجودة يقوم بإنشائها ثم ترحيل البيانات. 4- بعد الانتهاء من البند رقم 3 أعلاه 5- وفي النهاية وبضغطة زر واحد ينفذ ماذكر ماذكر أعلاه يكون كالتالي / 1- نقوم بتعبئة جميع الحقول 2- ثم ترحيل البيانات إلي الصفحة الرئسية Main ويظهر رسالة بالانتهاء وعند الضغط علي موافق ينفذ الامر الثاني وهو ترحيل نفس البيانات إلي حركة الشركة (حركة الصنف) ككمية فقط وليس هناك قيمة مالية لمعرفة كم المتبقي والبيانات المطلوبة حسب مابالشيت المخفي الناسخة او الكليشة أي حقل التاريخ ورقم الامر وشراء(مدين) وبيع(دائن)وهو حسب نوع الامر إن كان الامر شراء ففي المدين وإن كان بيع ففي الدائن مع الترصيد.هذا ما استطعت توصيله آسف جدا علي الإطالة جزاكم الله خير الجزاء في الدنيا والآخره مرفق الملف الاسهم.rar

للرفع

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