طارق محمود

أو تفضل المرفق 154_2.rar

السلام عليكم أخي العزيز أولا حدد مساحة الطباعة Set Print Area في الورقة "ورقة2" ثانيا ضع الكود التالي ليتم تفعيله عند الضغط علي الزر Sub nPrint() LR = [A9999].End(xlUp).Row If LR < 2 Then LR = 2 For r = 2 To LR With Sheets(1) .[A1] = Cells(r, 1) .PrintOut Copies:=1 End With Next r End Sub

إضغط الملف أولا باستخدام winrar أو winzip ثم إرفع الملف المضغوط

السلام عليكم أخي العزيز غير جزء الكود الخاص بورقة المطالبات للتالي: Sheets("مطالبات").Activate mLR = [E9999].End(xlUp).Row Rows(mLR - 14 & ":" & mLR + 3).Copy Cells(mLR - 14, 1).Select Selection.Insert Shift:=xlDown Rows(mLR - 14 & ":" & mLR + 3).UnMerge Rows(mLR - 14 & ":" & mLR + 3).Copy Selection.PasteSpecial Paste:=xlPasteValues Sheets("Bill").Activate .. ..

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

السلام عليكم أخي العزيز أهلا ومرحبا بك بين إخوانك ================== يمكنك رفع (تحميل ملفات الاكسل مدار الموضوع) بعد ضغطها باستخدام winrar أو winzip ثم ترفع الملف المضغوط أما إن كنت تسأل عن التنزيل فقط تضغط علي اسم الملف ثم تجده عندك غالبا في مجلد (فولدر) التنزيلات - Downloads أنظر الفيديو تنزيل ملفات الاكسل من الموضوع.rar

مرة أخري رد عليا الأخ aaeg2015 بالرد التالي (علي الخاص) ومرة أخري أرجوه ان تكون المشاركات في الموضوع أو إنشاء موضوع جديد لتعم الفائدة علي باقي الأعضاء والمشاركين =========== أخي الفاضل في هذه الحالة ، ممكن تقسم الشكل الذي تريد مساحته إلي مثلثات أنظر الرسم وتكون المساحة الكلية = مجموع مساحات المثلثات الثلاثة ومساحة كل مثلث بمعلومية إحداثياته ولكن هل تريد مساحة مقطع الطريق فقط أم أيضا الأرض المحيطة؟ =========== المثلثات الثلاثة هي : 1-2-6 ، 3-4-6 ، 4-5-6

السلام عليكم أخي العزيز ردا علي أسئلتك 1- ارجو ان يتم حفظ الفواتير فى الشيت الخاص بها "Bill" بنفس طريقة حفظ المطالبات تم عمل اللازم 2-هل يمكن تسجيل الفاتورة بكشف الحساب فى آخر سطر فارغ تلقائياً و المقصود بالتسجيل للفاتورة هو تسجيل اسم الفاتورة " فاتورة 10 2014 " فى العمود البيان B و "المبلغ" فى العمود مدين E تم عمل اللازم 3-اخر حاجة فى شيت data 10-2014 هل توجد طريقة لتحديث ملف واحد فقط يتم اختياره -- ماكرو او يوز فورم -- لانه عند الضغط لعمل ملفات جدييدة و نقل البيانات يتم تحديث كل الملفات الموجود بالشيت و فى اوقات كثيرة يكون المطلوب تحديث ملف واحد فقط. تم عمل اللازم عن طريق آخر عمود AA إذا وضعت فيه الرقم 1 يعني تريد التعديل عليه فقط مرفق الملف وبه الكود الجديد لاحظ أن اول عميل تم إضافة 1 في آخر عمود AA وعلي ذلك فسوف يتم تعديله هو فقط أما العميلان التاليان له فلن يتم تحديثهما والعميلان الأخيرين سوف يتم إنشاء ملفان لهما جرب وأخبرني Data10-2014.rar

السلام عليكم أخي العزيز تفضل المرفق به ماطلبت خزينة تجربة.rar

إذن ببساطة أي شكل رباعي يكون مجموع زواياه 360 وإذا كان معين (أو أي شكل منتظم) فإن 1- كل زاويتين متجاورتين تكونان متممتان لنصف هذه القيمة (أي مجموعهما = 180) 2- كل زاويتين متقابلتين تكونان متساويتان يعني مثلا لو الشكل معين وإحدي زواياه = 118 فإن باقي الزوايا هي: 72 ، 118 ، 72 و مثلا لو الشكل شبه معين وزواياه = 118 ، 35 ، 88 فإن الزواية الباقية هي: (360 - < 118+35+88>) = 360-241 = 119

السلام عليكم في المرفق مثال للسؤال وليس الحل أرجو من السائل أن يوضح هل هذا هو السؤال قمة وقاع.rar

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

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

السلام عليكم ======== سألني عضو جديد علي الخاص السؤال التالي - شاهدت لحضرتك بعض الملفات اكسيل مرسوم فيها بالدوال الخطية - رجاءا ان يوجد شرح مفصل لهذه الدوال لان انا لا اعلم عنها شئ وكنت ابحث عنها وعندما شهدت ملف حضرتك انبهرت فعلا والله اعلم - اريد ان استخدمها فى رسم بيانات عندى مثل حضرتك فى ملف Eng_Func_Draw والمثال الموضح باسم SIN_COS وسوال اخر لو تكرمت هل الاكسيل يستطيع حساب المساحة بين الخطين الازرق والاحمر الت فى رسم حضرتك . أحببت أن أضع السؤال والإجابة هنا أيضا لتكون المشاركات هنا في الموضوع ليستفيد منها باقي الأعضاء وقد أجبته كالتالي السلام عليكم أخي الحبيب أهلا ومرحبا بك في أي وقت وأي سؤال ==================== أخي الكريم أسئلتك عامة بعض الشيء فهلا حددت نقاط معينة بعدما تقرأ ماشرحته أنا بالفعل بالموضوع الذي ذكرته http://www.officena....showtopic=30605 مثلا أخبرني طبيعة عملك ونوع البيانات أو ارسل نسخة مثال منها حتي يمكنني شرح ماتريد أما سؤالك " هل الاكسيل يستطيع حساب المساحة بين الخطين الازرق والاحمر" فالإجابة لا الإكسل لوحده لايفعل شيئا ، لابد أن تعلم أنت المعادلات والعلاقات اللازمة لحساب ماتريد ثم تتضعها للبرنامج وهو يطبقها فقط بصوابها وخطئها أما من ناحية أخري ، فنحن نستطيع طبعا إن كنت أنا أو أنت لانستطيع فهناك من يفعل ذلك بيسر وسهولة فالمساحة بين منحنيين أيا ماكانوا تستطيع حسابها كالتالي 1- المساحة بين المنحني الأول ومحور السينات = أ مثلا 2- المساحة بين المنحني الثاني ومحور السينات = ب مثلا فتكون المساحة المطلوبة تساوي (أ-ب) وللحصول علي المساحة بين المنحني ومحور السينات فعليك بالتكامل (Integration) تقديم بلاغ عن مشاركة مخالفة(عنوان الآي بي: 83.110.89.142 )

خلاص يبقي نطبق معادلة الغالي / بن علية مع ضبط موضوع الطول كالتالي =1*VALUE(RIGHT(B3,LEN(B3)-SEARCH("/",B3)+3)+DATE(2,1,0))

السلام عليكم أخي الحبيب وأستاذي الفاضل / بن علية فكرت في تلك المعادلة ولكن خشيت أن الأسماء قد تطول وتقصر ولن تكون كلها 10 أحرف مثل ahmed.moh لذلك كان افتراض أن طول معامل التاريخ يكون أكثر ثباتا وهاهو أبو حنين يضرب لنا ذلك الفرض أيضا لابد من تثبيت شيء لنبدأ بالتعامل من عنده مثلا لو الأسماء لاتحتوي مسافات ، نعمل دالة تجلب لنا أول مسافة فين ثم نأخذ التاريخ من بعدها وإلا نأخذ مكان أول علامة "/" ونطرح منه ثلاثة هذا سيكون أفضل إذن المعادلة التالية أشمل بإذن الله بشرط ألا يتضمن إسم الشخص في الخلية هذا الحرف "/" =IFERROR(EDATE(VALUE(RIGHT(B3,LEN(B3)-SEARCH("/",B3)+3)),24),"")

السلام عليكم أخي العزيز الحل علي الفرض الثاني أسرع تفضل إستبدل الكود الخاص بالورقة بالتالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim LR As Integer Dim nametodel As String On Error Resume Next LR = Cells(Rows.Count, 1).End(xlUp).Row If LR < 8 Then LR = 8 Set myrg = Range("A8:A" & LR) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, myrg) Is Nothing Then nametodel = Target.Offset(0, 1).Value Justify = MsgBox(nametodel & " " & "هل تريد إخفاء الصف ", vbYesNoCancel) If Justify = vbYes Then Target.EntireRow.Hidden = True End If If Target.Offset(1, 0).EntireRow.Hidden = True Then nametodel = Target.Offset(1, 1).Value J2 = MsgBox(nametodel & " " & "إذن هل تريد إظهار الصف التالي ", vbYesNoCancel) If J2 = vbYes Then Target.Offset(1, 0).EntireRow.Hidden = False End If End If End Sub أو تفضل المرفق جدول المبيعات2.rar

السلام عليكم أخي العزيز بفرض أن التاريخ دائما بهذا التنسيق الذي أرسلته والذي طوله = 18 حرفا جرب هذه المعادلة =IFERROR(EDATE(VALUE(RIGHT(B3,18)),24),"")

السلام عليكم أخي العزيز لايوجد مرفقات رددت عليك علي الإميل

السلام عليكم أخي العزيز تأخرت عليك ، عذرا تفضل المرفق بالتنسيق الشرطي AnyYearBusinessCalendar1.rar

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

السلام عليكم تفضل المرفق كود تلوين2.rar

لايوجد مرفق لكني أعتقد أن التسيق الشرطي (Conditional Format) يفي بالغرض في حالتك هذه

السلام عليكم أخي العزيز أنظر المرفق Numbers.rar

لا أدري ياأخي عندي يعمل بلا مشاكل (أوفيس 2010)