طارق محمود

تم دمج الموضوعين

أنظر المشاركة رقم 5 في الموضوع التالي http://www.officena.net/ib/index.php?showtopic=56398&hl=%D8%AA%D9%88%D8%A7%D9%81%D9%8A%D9%82#entry357444

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

السلام عليكم الأسهل تغيير علامات الـ (+) لتمتد بخلايا مجاورة وتستخدم نفس الطريقة السابقة

السلام عليكم تفضل المرفق جمع خليتين فقط2.rar

السلام عليكم تفضل أخي الدالة W_Hol إختصارا لكلمة Working Holidays وهي دالة مستحدثة كما طلبت (user defined function) كودها كالتالي Function W_Hol(a As Range) As Integer nm = Cells(a.Row, 1) r = WorksheetFunction.Match(nm, [AK1:AK999], 0) Set rst = Range("AL" & r & ":AS" & r) For Each cl In a If IsNumeric(cl) And cl > 0 Then For Each b In rst If Cells(2, cl.Column) = b Then W_Hol = W_Hol + 1: GoTo 1 Next b End If 1 Next cl End Function وإليك المرفق وبه الدالة calculate Addition_ALL2.rar

السلام عليكم أخي الكريم تفضل 111111_2.rar

تفضل 4 قوالب / الصفحة (A4) 154_3.rar

السلام عليكم أخي الكريم كونت لك دالة جديدة اسمها AJZ كودها كالتالي Function AJZ(x As Range) As String For Each cl In x If cl = "ج" Then AJZ = AJZ & "+" & Cells(2, cl.Column) Next AJZ = Right(AJZ, Len(AJZ) - 1) End Function أنظر المرفق Write Vacc.rar

السلام عليكم نعم باستخدام Text2Column أنظر الفيديو Text2Column.rar

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

السلام عليكم أخي الكريم أنت طلبت في الملف السابق "كل أسم في قالب ويكون القالب في الورقة 2 واحد فقط" لذلك تم التنسيق علي هذا بدلا من إعادة العمل عليك ان تحدد مقاس الورقة التي تطبع عليها (مثلا الشائع A4 التي مقاسها 21×30 سم تقريبا) ثم تحدد إما عدد القوالب المطلوبة في الورقة الواحدة أو مقاس القالب المطلوب طباعته مثلا في حجم الصورة الشخصية 4× 6 سم أو أكبر قليلا 6×9 أو أكبر (نصف الورقة العادية) 10×15

حبيبي أبا البراء لم أنتبه لردك عذرا

أخي الكريم تفضل Taxes.rar

أو تفضل المرفق 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