جمعة العوامي

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

هذا الملف المرفق .. اعتقد اني وضعت فيه بعض الاجتهادات الشخصية والتي تعلمتها من هذا الموقع .. فلست استاذا وانما طالب علم ... وامل ان يفي بالغرض ... وبارك الله في الجميع ... OK_vsa.xlsm

محاولة مني ... في المرفق اثراء للموضوع ... والشكر موصول للعضو السابق عبدالرحيم OK_vsa.xlsm

ضع الكود ده .. في مودول .. وجرب ان شاء الله يفي بالغرض ... Option Explicit Sub Print_by_number() 'في حالة الطباعة بدون معاينة Dim m As Integer m = InputBox("كم نسخة تريد طباعتها : ", "اوفيسنا ") ActiveSheet.PrintOut Copies:=m, Collate:=True Range("b5").Activate End Sub Sub Print_by_number2() 'في حالة الطباعة بمعاينة Dim m As Integer m = InputBox("كم نسخة تريد طباعتها : ", "اوفيسنا ") ActiveSheet.PrintOut Copies:=m, Preview:=True, Collate:=True Range("b5").Activate End Sub

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

اول مشكلة لديك في التاريخ .. يظهر كتاريخ ولكنه نص ... (يجب التعديل ) بالارقام وبدون مسافات ... وتنسيق التاريخ من قائمة مخصص yyyy/mm/dd لان التاريخ مهم في المقارنة ...

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

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

ماشاء الله !!!

المشكلة في الارقام كبيرة .. مثلا رقم 60 هل يعني بان قبل الشيت 60 لديك 59 شيت .. افرض لديك 200 هل ذلك يعني بان لديك 199 شيت قبل هذا ؟؟ ومامعنى المتبقي من البداية والنهاية .. وهل لها علاقة بالصورة ؟؟؟ ماذا لونقص الرقم من 60 الى 50 هل يلغى رقم 60 ...؟؟؟؟؟ بالنسبة للنقل من شيت لاخر .. لا يوجد مشكلة ... والاساتذة في الموقع لديهم الكثير من كنوز الكودات المتعلقة بالنقل في هذا الموقع ... المهم .. السؤال الواضح .... لتحصل على المطلوب ...

سؤالك غير مفهوم ... مامعنى مدرج ؟ واين تريد وضع الصورة ... وماعلاقة المتبقي بالصورة ... ؟؟؟؟؟ ولا تخاف على الفصل ... الاعمار والارزاق بيد الله !!!

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

الحل هو قبل نهاية الصفحة بسطر insertRows لعدد 10 اسطر .. السطر الأول قي الخلية اكتب يتبع .. ورقم الصفحة التالية .. وفي السطر الثالث بداية الصفحة التالية اكتب صفحة ورقم الصفحة الحالية وفي السطر الحامس اكتب عنوان الكشف وفي السطر التاسع اعمل عنوان الكشف .. وفي السطر العاشر اكمل بقية الكشف لغاية نهاية الصفحة .. وهكذا دواليك لبقية الصفحات .. واشكر مساعدتكم ومروركم ...

للرفع ...

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

sub khasem Dim wwsw As Worksheet 'source_sh As Worksheet: Set wwsw = Sheets("kholasa") 'source_sh = Sheets("salim") Dim ws As Worksheet 'target_sh As Worksheet: Set ws = Sheets("haseb") 'target_sh = Sheets("Haseb") Dim i: i = 15 Dim k%, xx%, n_rows%: 'n_rows = 50 Dim s#, rr% n_rows = ws.Cells(ws.Rows.Count, "d").End(xlUp).Row With wwsw Do Until .Cells(i, 4) = vbNullString k = Application.Match(.Cells(i, 4), ws.Rows(3), 0) For xx = 4 To n_rows If IsNumeric(ws.Cells(xx, k)) Then If ws.Cells(xx, k) > 0 Then rr = rr + 1 s = s + ws.Cells(xx, k) End If Next .Cells(i, 4).Offset(, 2) = s .Cells(i, 4).Offset(, 1) = rr s = 0: rr = 0: i = i + 1 Loop End With end sub

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

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

وجربت هذا الكود ايضا ولم ينجح معي ... Dim ws As Worksheet Set ws = Sheets("01") Dim xadi, c, cc As Integer xadi = ws.Cells(ws.Rows.Count, "d").End(xlUp).Row For cc = 15 To 29 Range("f" & cc).Formula = Sum(Application.WorksheetFunction.Index(ws.Range("J4:X" & xadi), , Application.WorksheetFunction.Match(Range("D" & cc), ws.Range("J3:X3"), 0))) Next

الأستاذان الكريمان .... سليم حاصبيا و بن علية حاجي بارك الله فيكم ولكم .. و لكن برجاء وبعد اذنكم ، كيف يتم الحل عن طريق الماكرو وليس الدوال .. أقصد عن طريق المصفوفات ولم اتعلم تلك الطريقة بعد .. يرجى مساعدتكم ... ولقد عملت دالة sumif ولكنها لم تنجح معي .. طريقتان الاولى عن طريق الكمبوبوكس واختار المجموع كل واحدة على حدة .. والثانية يمسح المدى b5:B19 ويعطى المجموع دفعة واحدة وامام كل بيان مجموعه .. احتاج لذلك كثيرا في عملي ... Sub subtot1() Dim ws As Worksheet Set ws = Sheets("51") For r = 5 To 19 ws.Range("b" & r) = Application.WorksheetFunction.SumIf(ws.Range("J3:X100"), ws.Range("a" & r), ws.Range("j4:x100")) Next End Sub فكيف يتم ذلك ؟ الله يرحم والديكم .. شاكرا تعبكم معنا ..

الملف المرفق يوضح ذلك .. يرجى ممن لديه الحل .. ان يزودني به واكون له من الشاكرين وبارك الله فيكم رغبة مجموع.xlsm

للرفع .. لضرورات العمل ...