نجوم المشاركات

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

يمكن إدراج الصورة ثم في الأماكن المخصصة لكتابة البيانات يمكن وضع مربع نص textbox هذا مجرد رأي

اخى الحبيب ولله الحمد والمنه انا عملت على كبرى البرامج المحاسبيه على سبيل المثال برنامج الفا عند طباعه ميزان مراجعه او كشف حساب يستغرق وقت 10 ثوانى لعدد 1000 عميل مثلا فهذا شئ طبيعى ومنطقى وليس عيبا ان يستغرق 10 ثوانى ونقطه اخرى ميزان المراجعه لا يتم طباعته او معاينه كل دقيقه من قبل المستخدم ممكن مره باليوم فمفيش مشكله من 10 ثوانى لظهور التقرير 1- اما بخصوص انه فورم اعتقد لا يختلف تنفيذ الكود بالفورم او على الشيت وممكن تعمل النتائج على الشيت ومن ثم اليست بالفورم تعمله Row sourse من الشيت 2-وبخصوص عدد الادخالات لا تسبب ولا تستغرق وقت لان المعادله تم عملها على 100000 صف فهى تقوم بعمليه الجمع على 100000 الف صف حتى وان كان الخلايا فارغه اما الكود يستغرق وقت على حسب عدد الحسابات المطلوب لصق المعادله بها وليس عدد صفوف الادخال بقاعده البيانات تقبل تحياتى

أخى الحبيب ياسر هذا البرنامج ممتاذ فى تحويل من PDF إلى وورد ويدعم اللغة العربية وأنا جربته بنفسى PDF grabber. v7.0.0.8 وهذا رابط تنزيل البرنامج مع الكراك http://www.4shared.com/rar/46txjfQhba/PdfGrabberProv7008_STARTIMES.htm

‏الاربعاء‏، 2‏/9‏/2015م الموافق ‏19‏/11‏/1436هـ السلام عليكم و رحمة الله وبركاته بعد اذن اخونا المبدع سليم هذا حل آخر باستخدام الدوال ايضا =CONCATENATE(TEXT(VALUE(SUBSTITUTE(MID($A3;1;3);"-";""));"000");"-";TEXT(VALUE(SUBSTITUTE(MID($A3;FIND("-";$A3);2);"-";""));"00");"-";TEXT(VALUE(SUBSTITUTE(MID($A3;FIND("-";$A3;FIND("-";$A3)+1);2);"-";""));"00")) AS 000-00-00.rar

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

السلام عليكم جرب هذا الملف لعله يفى بالغرض الحل عبارة عن الخطوات التالية 1- تحديد قيم الخلية A من خلال Data Validation وليكن 1;2;r;b;y مثلا 2- استعمال التنسيق الشرطى على مجموعة الخلايا المراد تلوينها بدلالة A2 3- لاحظ ازالة علامة التثبيت $ من مرجع الخلية الى تشير اليها المعادلة حتى يمكنك نسخ الفورمات لاى عدد من الصفوف ترغبه بدلالة الخانة ِA فى نفس الصف Select Color.rar

المعادلة التالية تفي أيضا بالغرض (باعتبار الشروط التي ذكرها أخي الكريم خالد الرشيدي) =VLOOKUP($A$2;$D$5:$F$9;3;1)

إخواني الكرام أخي الحبيب حسام عيسى وأنس دروبي وأبو يوسف بارك الله فيك صقر المنتدى وجزاك الله كل خير جرب الكود التالي وشوف النتائج صحيحة أم لا .. للتأكد من عمل الكود وجرب سرعة الكود مع بيانات أكثر .. Sub YasserKhalil() Dim Accts As Variant, Data As Variant, Results() As Double Dim D1 As Date, D2 As Date Dim I As Long, J As Long With Sheets("Data") Data = .Range("A5", .Range("A" & Rows.Count).End(xlUp)).Resize(, 9).Value End With With Sheets("Balance") Accts = .Range("B8", .Cells(Rows.Count, "B").End(xlUp)).Value ReDim Results(1 To UBound(Accts, 1), 1 To 2) D1 = .Range("B3").Value D2 = .Range("B4").Value With CreateObject("Scripting.Dictionary") .CompareMode = 1 For I = 1 To UBound(Accts, 1) .Item(Accts(I, 1)) = I Next I For I = 1 To UBound(Data, 1) If .Exists(Data(I, 2)) Then If Data(I, 1) >= D1 And Data(I, 1) <= D2 Then J = .Item(Data(I, 2)) If Data(I, 8) <> "" Then Results(J, 1) = Results(J, 1) + Data(I, 8) If Data(I, 9) <> "" Then Results(J, 2) = Results(J, 2) + Data(I, 9) End If End If Next I End With .Range("E8:F8").Resize(UBound(Results, 1)).Value = Results End With End Sub ميزان المراجعة بالكود.rar

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

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

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

ارفق الملف الذي به المشكلة للإطلاع عليه قد يكون هناك كود في حدث ورقة العمل يقوم بإزالة الحماية عن خلايا محددة (هذا مجرد تخمين)

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد في أحدي الموضوعات علي منتدانا الكريم وفي موضوع لاحد الأخوة بطلب برنامج ليتمكن من ادارة الأشتراكات الشهرية (اشتراكات DSL - كروت - توزيع شبكات انترنت او شبكات الكابل التلفزيوني ) وما الي ذلك من الاشتراكات التي تحتاج لمتابعة شهرية علي انتهاء صلاحية اسم المستخدم مثلا او متابعة حركة السداد المختلفة لذلك وفقني الله سبحانه وتعالي لتلك الفكرة بعمل برنامج يقوم بمتابعة تلك الاشتراكات الشهرية ومتابعة سداد وعمل وطباعة تقارير عن المديونية والمبيعات وكشف حساب للعميل وما الي ذلك من العمليات التي يمكن ان يحتاجها المستخدم لادارتها وكذلك ادخال اغلبية البيانات تلقائيا كرقم ايصال السداد مسلسل العميل تاريخ نهاية الاشتراك وادعو الله سبحانه وتعالي ان اكون وفقت في البرنامج وان يكون فيه النفع ويمكن تطويع البرنامج ليتلائم مع ادارة المشروعات الفردية الصغيرة ايضا ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال ناتي لشرح بعض خصائص البرنامج المختلفة أترككم لتجربة البرنامج في المرفقات وارحب بمشاركتكم في اجراء اية تعديلات وفقنا الله واياكم للصالحات مع تحياتي // ضاحي الغريب Manage Subscriptions By Dahy al Gharieb.rar

عزيزي الرائع ابوعبدالله اعتذر بشدة على تاخيري في الرد على كلامك الاكثر من رائع بخصوص محاسبة المطاعم وذلك لظروف مرضي ولكن ان شاء الله يمكننا سويا وضع نواة حسنة لمشروع محاسبة الفنادق والذي كما سبق واوضحت انه يشمل المطاعم بداخله واامل ان نبدا سويا من الالف الى الياء حتى يخرج مشروع فريد لمحاسبة الفنادق والتي اعتقد انها شاملة لاهم ومعظم مجالات المحاسبة. ولكن دائما سيبقى الوقت هو العدو الاوحد لي وساضع امامك اطار عام لمجال المحاسبة داخل المنشآت السياحية ولكن بكل بساطة او بمعنى ادق بالمفهوم العامي وقبل البدء ارجو ان يتسع صدرك لكلام محاسبة وبس اى بدون برمجة حتى تصلك الفكرة الاساسية والتي من خلالها يمكنك معرفة كافة مدخلات الاطار المحاسبي ( البيانات التي سيتم معالجتها او تبويبها )داخل الفندق وكذلك العمليات التي تتم فيه ثم المخرجات والتي ستكون في شكل تقارير اساسية واخرى مكملة - هناك اقسام داخل قسم المحاسبة والتي تقوم بتجميع البيانات كل حسب تخصصه. وهي كالتالي : قسم مراقبة التكاليف :Cost Control ويتراسه Cost controller وهو القسم المسئول عن مراقبة المخزون ومخرجه الاساسي هو ( تكلفة البضاعة المباعة )Cost Of Salesوبالطبع كي نصل الى رقم تكلفة البضاعة المباعة فنحن بحاجة لمعرفة رصيد اول الفترة المحاسبية وصافي المشتروات واخيرا رصيد بضاعة آخر الفترة (كل هذه البنود بسعر التكلفة وليس البيع) والمخزون في غالبية الفنادق يصنف على 4 محاور رئيسية 1- مخزون اغذية Food Store 2- مخزون مشروبات Beverage Store 3-مخزون عام General store 4-مخزون الصيانة Maintenance Store وساقوم برفع ملف به هذه التصنيفات بمحتوياتها من اصناف لان كل من هذه المخازن بداخلها تصنيف فرعي آخر وهنا يجب الاشارة الى معيار هام في التفرقة بين ماهو Food وما هو Beverage وهو اذا لم تتم اضافة اى تكاليف للصنف بعد شراؤه فهو Beverage وللتوضيح الشاى نضيف اليه سكر اذا فهو Food وليس مشروب Beverageاما الكولا فهي مشروب عزيزي ابو عبدالله اعلم اني اطيل عليك ولكن انت قلت ان الفكرة اعجبتك واذا اردت مني اكمال الموضوع فانا معك حتى تصل الفكرة للاذهان واذا قلت توقف وارسل ملفات فانا ايضا معك واتمنى ان لا تمل مني وفي المرة القادمة ساقوم بشرح باقي الاقسام والتعريف بمهامها الاساسية ومدخلاتها ومخرجاتها وهي على النحو التالي قسم مراقبة الايرادات Income و يتراسه Income Auditor ويليه Night Auditor ويليه Restaurant Auditor ويليه General Cashier ثم F&B Cashier وكل له تخصصه وله مدخلات بيانات ومخرجات مكملة لبعضها البعض قسم المدفوعات Payable قسم المقبوضات Receivable وكل هذه الاقسام تصب بياناتها في جعبة رئيس الحسابات والذي بدوره يصب بياناته بعد المعالجات والتسويات المطلوبة للمدير المالي تحياتي للجميع وتحياتي الخاصة جدا لك عزيزي المبدع على الدوام ابوعبدالله هاني بدر

مساعدة في اظهار رصيد السابق لتاريخ بداية الكشف لحساب العميل الملف في المرفقات كشف حساب مع الطباعة.rar

أخي الفاضل فضل أبو الفضل إليك المعادلة التالية في الخلية G9 =IF(ROWS($1:1)>SUM(IF(FREQUENCY(IF(A$2:A$41=F$9,B$2:B$41),B$2:B$41),1)),"",SMALL(IF(FREQUENCY(IF(A$2:A$41=F$9,B$2:B$41),B$2:B$41),B$2:B$41),ROWS($1:1))) المعادلة معادلة صفيف أي بعد الإدخال يتم الضغط على Ctrl + Shift + Enter .. إذا واجهتك مشكلة مع المعادلة يمكنك استبدال الفاصلة بفاصلة منقوطة تقبل تحياتي

السلام عليكم استاذى الكريم احمد ... جزاك الله خيراً اسمح لى ان اقدم هذا الاقتراح بخصوص تكرار الترحيل ... طالما ان كل العمليات التى فى الورقة 1 سيتم ترحيلها الى الورقة 2 وايضاً صف بداية ترحيل البيانات بالورقة 1 وصف بداية استقبال البيانات المرحلة بالورقة 2 هو نفسة الصف الثالث إذاً لماذا لا نجعل حلقة الترحيل من اخر صف بة بيانات بالوقة 2 الى اخر صف بة بيانات بالورقة 1 اى تعديل الحلقة من For ER1 = 3 To FS.UsedRange.Rows.Count الى For ER1 = ER2 To FS.UsedRange.Rows.Count خالص تحياتى

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

تفضل اخي هذا فقط مثال توضيحي A.rar

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

ارفق نموذج مصغر لملفك ووضح بالضبط المطلوب أخي الكريم

السلام عليكم مرفق مثال باستخدام التنسيق الشرطى لمجموعة من 5 اعمدة وبيتلون الصف لما تكتب فى الخمسة كلهم بالكامل .. باستخدام التنسيق الشرطى Select Color When Completed .rar

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

اخى الكريم بافتراض ان الرقم الذى تريد تطبيق الشروط علية فى الخلية A2 ...ضع هذه المعادلة فى خلية النتيجة وليكن B2 =($A$2>=1)*($A$2<=30)*60+($A$2>30)*($A$2<=60)*90+($A$2>60)*($A$2<=90)*100+($A$2>90)*($A$2<=120)*150+($A$2>120)*($A$2<=150)*170 تقبل تحياتى

بارك الله فيك اخي الكريم خالد الرشيدى اعمالك واضافاتك جدا مميزه .

قمت بالتعديل على ملفك بترك صفحة واحدة (نموذج) يمكنك إضافة أو حذف ما تريد من الصفوف (يكفي فقط تمديد الأرقام التسلسلية في العمود الأول ونسخ معادلات الأعمدة الأخرى في حالة إضافة صفوف جديدة)... ثم الضغط على زر الطباعة لطباعة كل القوائم للصف المختار... أو الضغط على زر المدرج لمعاينة هذه القوائم... لم أرد أن ألغي الكلمة السرية ل VBA لذا كتبت لك كودا صغيرا يتم نسخه بموديول Module ثم ربطه بزر "طباعة كل القوائم" والكود كما يلي: Sub Print_All() Dim I As Integer For I = 1 To [F2] If I <= [F2] Then [F1] = I: ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Next End Sub أرجو أن يكون هذا التغيير موافقا لما تريده... 11.rar

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

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

السلام عليكم جزاكم الله خيراً.

بارك الله فيك .. جزاك الله خيرًا و زادها بميزان حسناتك

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

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

هو فين شحاته ..أقصد هو فين البرنامج ..أقصد برنامج ايه؟ هل تقصد الملفات المرفقة ؟؟ Test.rar

بدلاً من حذف الموضوع لما لا تقدم الحل الذي توصلت إليه ليستفيد منه غيرك أخي الكريم

بارك الله فيك أستاذنا الفاضل خالد الرشيدي على أعمالك الرائعة جزاك الله خير اًاخى الحبيب

هذا لا يؤثر على المعادلة حاول و سترى salim book.zip

‏الاربعاء‏، 2‏/9‏/2015م الموافق ‏19‏/11‏/1436هـ السلام عليكم و رحمة الله وبركاته الأستاذ الفاضل و الأخ الحبيب ياسر خليل جزاك الله خيرا على طيب كلماتك انت تخجلنا بكلماتك الطيبة و وصالك الرائع خالص تحياتي و تقديري لشخصكم الكريم

أخي العزيز / طائع إذا أردت الحماية بكلمة خاصة بك عدل السطر الخاص بفك الحمايةفي أول الكود والحماية في آخر الكود ActiveSheet.Unprotect ActiveSheet.protect بهذا الشكل على سبيل المثال حيث كلمة المرور هنا ( 111) وهذا الكلمة التي عملتها في الملف المرفق ActiveSheet.Unprotect 111 ActiveSheet.protect 111 وإذا أردتها حروف أو حروف وأرقام ضع كلة المرور بين علامتي تنصيص بهذا الشكل ActiveSheet.Unprotect "aaa" ActiveSheet.protect "aaa" ActiveSheet.Unprotect "aaa111" ActiveSheet.protect "aaa111" طبعا هذا ليس خطأ لأن الكود يقوم بنسخ معادلة على أساسها يقوم بفك الحماية أو إغلاقها فالمفروض أن ينفذ الكود مرة واحدة فقط ومن ثم يتم رصد الدرجات ولكن ربما يتم تنفيذ الكود على سبيل الخطأ وهناك بيانات أو يتم تنفيذه عند تحديد الصفحة كما هو الحال في الملف فتم التخلص من هذا بإضافة شرط وهو : إذا كان هناك بيانات تم رصدها يتم إغلاق الكود كم تم أيضا إلغاء التنفيذ من حدث الصفحة قفل خلايا بشروط 22.rar

جرب السطر التالي Sub Test() Sheet2.Range("G2") = Application.Match(Sheet2.Range("A1"), Sheet1.Range("A1:A" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row), 0) End Sub

هي المشاركة دي جديدة ولا من 2010 ... حرام عليك بجد ..تحرمنا منك ليه بس... ليك وحشة كبيرة والله يا كبير مفتقدين وجودك

حياك الله اخي الكريم .... بالنسبة لسؤالك الأول .. لو تلاحظ في الاستعلام حقل دائن موجود قبل حقل مدين قم بتبديلها في الإستعلام وبالتالي في التقرير ...

السلام عليكم تم عمل كود للترحيل جربة وحدد ماتريد تعديله hhhh.rar

جرب هذا الملف salim book.zip قفث

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

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

جرب المرفق مع بعض التعديلات والإضافات... 11.rar

لليوم الثالث علي التوالي انتظر اخواني لعل المانع خير

الأخ / وائل بعد السلام عليكم ورحمة الله وبركاته أرجو أن يكون بالمفق الحل المراد وذلك حسب الخبرة المحدودة عن طريق معادلتي if & sum بالمعادلات wael.rar

اخوي badico جزاك الله خير لكن هل تنفع للتواريخ ؟ جربت مانفع يعني مثلا التاريخ اليوم 10-6-2009 لما اضيف تاريخ اقل من 360 يعني اقل من سنة يعني من 10-6-2010 يعطيني قيمة ولما يزود لو يوم واحد يعطيني قيمة يعني لما يكون 11-6-2010 ومابعدة ويعافيك ربي ويجازيك الجنة