هادى محمد المامون سالم

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

بسم الله الرحمن الرحيم جرب الملف المرفق سيتم تثبيت التاريخ فى الخليه A5 السلام عليكم Save.rar

اعتقد ان عدم الرد لان المطلوب كثير او غير واضح بصراحه الاسهم كثير بسم الله الرحمن الرحيم كان هذا طلبى ليتم المساعده و الفهم ( مرحله اوامر التوريد ثم مرحله الترحيل 000000 ) , و لم يتم الاستجابه فالملف التى قمتى بارفاقه نفس الطلبات السلام عليكم السلام عليكم

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

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

بسم الله الرحمن الرحيم المطلوب فى الملف غير واضح فى اى عمود تريد وضع 55 اذا وجد سلعه 1 ؟ واذا وجد سلعه2 ماذا يحدث ؟ السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Copy_01.rar

بسم الله الرحمن الرحيم اخى ابو عبدالله الله يبارك فيك كود عظيم السلام عليكم

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

بسم الله الرحمن الرحيم اخى أيوب الكود التالى يؤدى الغرض Sub sAdd() Range("A3:A5").ClearContents For i = 2 To Sheets.Count [A3] = [A3] + Sheets(i).Cells(6, "K") + Sheets(i).Cells(6, "E") [A4] = [A4] + Sheets(i).Cells(10, "K") + Sheets(i).Cells(10, "E") [A5] = [A5] + Application.WorksheetFunction.Sum(Sheets(i).Range("B18:K18")) Next End Sub مرفق ملف السلام عليكم Add_Cells_01.rar

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

بسم الله الرحمن الرحيم الحل بالملف المرفق السلام عليكم Add_Cells.rar

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

بسم الله الرحمن الرحيم موضوع مشابه http://www.officena.net/ib/index.php?showtopic=13962 السلام عليكم

بسم الله الرحمن الرحيم ربنا يزيدك علما السلام عليكم

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

بسم الله الرحمن الرحيم نستكمل الحديث عن جمله IF تمهيدا للأنتقال الى الجمل التكراريه و بعد الأنتهاء من Function و ربطها بورقه العمل سننتقل الى الاستخدام المطلق للكود عن طريق الاجراء Sub مع ربطه بمفتاح و لكن سيتم التطبيق على خليه واحده مؤقتا حتى يكون الموضوع أبسط و أسهل 0 Sub sAdd_01() If Sheets("Main").Cells(2, "A") <> "" Then Sheets("Main").Cells(2, "C") = Sheets("Main").Cells(2, "A") _ + Sheets("Main").Cells(2, "B") End If End Sub شرح الكود أذا كانت الخليه A2 ليست فارغه ( الرمز <> معناها ليست أو لا تساوى و علامتى التنصيص "" معناها ان الخليه فارغه ) الخليه C2 = A2 + B2 وكما تعلمنا فى درس الأشاره الى الخلايا يمكن تنفيذ نفس الكود بالطريقه التاليه : Sub sAdd_02() If Sheets("Main").Cells(2, 1) <> "" Then Sheets("Main").Cells(2, 3) = Sheets("Main").Cells(2, 1) _ + Sheets("Main").Cells(2, 2) End If End Sub و هذه طريقه ثالثه Sub sAdd_03() If Sheets("Main").[A2] <> "" Then Sheets("Main").[C2] = Sheets("Main").[A2] _ + Sheets("Main").[B2] End If End Sub مرفق ملف السلام عليكم vb_06.rar

بسم الله الرحمن الرحيم هذا هو كود OR مع IF Public Function My_Function(MyCell_1 As Integer, MyCell_2 As String) As String If MyCell_1 = 1 Or MyCell_2 = "Hady1" Then My_Function = (MyCell_1 & " / " & MyCell_2) ElseIf MyCell_1 = 2 Or MyCell_2 = "Hady2" Then My_Function = (MyCell_1 & " / " & MyCell_2) Else My_Function = "الكود خطأ" End If End Function مرفق ملف السلام عليكم vb_05.rar

بسم الله الرحمن الرحيم سنقوم باستخدام جمله IF مع اكثر من شرط أذا تحقق الشرطان معا سنحصل على النتيجه المطلوبه و اذا لم لم يتحقق الشرطان سوف تظهر لنا رساله بان " الكود خطأ " و ذلك بأستخدام And مع IF Public Function My_Function(MyCell_1 As Integer, MyCell_2 As String) As String If MyCell_1 = 1 And MyCell_2 = "Hady1" Then My_Function = (MyCell_1 & " / " & MyCell_2) ElseIf MyCell_1 = 2 And MyCell_2 = "Hady2" Then My_Function = (MyCell_1 & " / " & MyCell_2) Else My_Function = " الكود خطأ " End If End Function شرح الكود اذا كانت الخليه الاولى بها رقم 1 و الخليه الثانيه بها كلمه Hady1 سيكون الناتج ماهو موجود فى الخليه الاولى و لكى نضيف نتيجه اخرى يجب الفصل برمز & و لكى نضع فاصل نستخدم علامه " " و نضع داخل علامه التنصيص اى فاصل تريد أستخدمه سواء / أو أى كلمه أو رمز يحلو لك مع ترك مسافه قبلها و بعدها لتوسيع مجال علامه التنصيص( و هذا امر اختيارى لك ) ثم يجب اضافه رمز & مره اخرى لتظهر ما هو موجود بالخليه الثانيه و هذا امر هام و حيوى عندما تريد دمج خليتان معا سواء عند استخدامك للأكواد أو عند التعامل داخل ورقه العمل و اذا لم يتحقق الشرطان معا سوف يظهر لنا كلمه الكود خطأ 0 و لاحظ فى بدايه الكود قمنا بتعريف MyCell_1 As Integer لاننا نتعامل مع الارقام قمنا بتعريف MyCell_2 As String لاننا نتعامل مع الكلمات و اتمنى تطبيق نفس الفكره مع OR مع IF و لكن الفرق ان الناتج يتحقق عند تحقق احد الشروط و ليس الشرطان معا و اتمنى اكثر ان يقوم احد الاعضاء بشرحها بنفس الطريقه و ليس هناك اى احراج أو قلق حتى اذا حدث خطأ فى الشرح لأنى سوف اقوم بالمراجعه و التصحيح 0 مرفق ملف السلام عليكم vb_04.rar

بسم الله الرحمن الرحيم جرب هذا الرابط http://www.officena.net/ib/index.php?showt...;رو أخى أيوب شاكر جدا على عرضك الطيب و لكنى الان عدت الى ارض الوطن شكرا مره اخرى الاخوه الكرام : للموضوع بقيه ان شاء الله لكن أمهلونى بعض الوقت السلام عليكم

بسم الله الرحمن الرحيم مشكور اخى asmo200666 هو ده الكلام شاكر تعاونك السلام عليكم

بسم الله الرحمن الرحيم منتدى الأكسيل برنامج سهل فى اعداد كشف البنوك http://www.officena.net/ib/index.php?showtopic=18756 منتدى الأكسيل حفظ أكسبل 2007 بصيغه أكسيل 2003 تلقائيا http://www.officena.net/ib/index.php?showtopic=18757 منتدى الأكسيل كيف تجعل الصورة خلفية للورقة http://www.officena.net/ib/index.php?showtopic=18717 منتدى الأكسيل كيف اجمع خليتين احدهما قروش والاخري جنيهات http://www.officena.net/ib/index.php?showtopic=18749 السلام عليكم

بسم الله الرحمن الرحيم مجهود كبير الله يفتح عليك السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Cars.rar

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