احمدزمان

‏الخميس‏ 11‏/1‏/1435هـ الموافق ‏14‏/11‏/2013م السلام عليكم اكرر اعتذاري عن التأخير ولكن احاول الشرح ما استطعت ليستفيد الجميع و لضيق الوقت وقد يكون هذا العمل من اواخر ما انجزة ولكي يستفيد منه الإخوة حيث انني لم الاحظ من يعمل بهذه الطريقة الا نادرا بسبب 99% يعتمدون على الفورم فقط المهم ,,,,,,,,,,,, نكمل نحن مازلنا في ورقة الفورم لتوزيع الأقساط وكما قلنا الورقة مهمة جدا وتعتبر نصف العمل اعطينا شكل للفورم وسمينا ورقة الفورم و ورقة حفظ بيانات الأقساط سسمينا المدى لورقة حفظ الأقساط = Aqst وهذا مهم للعمليات الحسابية القادمة الآن لاحظ في ورقة الفورم استغلينا الجزء الأيمن من الورقة لعملية الإدخال من المستخدم وفي الجزء الأيسر قمنا بعمليات حسابية كثيرة تعتمد على المدخلات من المستخدم هذه العمليات الحسابية استخدمنا فيها الشرط البرمجي الرئيسي في اكسل وفيجول بيزك وهو شرط TRUE او FALSE بمعنى صح او خطأ لكل عملية ادخال يقوم بها المدخل وربطنا نتيجة الشرط مع التحقق من صحة ليتحقق من صحة البيانات المدخلة وفق الشروط التي حددناها له في الخلية وينتج عن الخطأ رسالة تحذيرية بان المدخل خطأ امثلة رقم العقد: نحن حددناه هنا تلقائيا بأكبر قيمة رقم عقد في ورقة بيانات الأقساط +1 و سمحنا للمستخدم بادخال رقم عقد ل يتبع للتسلسل بشرط ان يكون رقم العقد هذا لم يسبق تسجيله في بيانات الأقساط تاريخ العقد: سمحنا للمدخل ان يدخل تاريخ للعقد ولكن لايكون تاريخ العقد خلال الأيام القادمة ويمكن ان يكون التاريخ خلال السنة التي مضة من تاريخ اليوم بيانات الأرض او العقار: سمحنا للمستخدم باختيار بيانات العقار من القائمة المنسدة وتفاديا للخطأ وضعنا دالة تتأكد لنا من وجود هذه البيانات مطابقة لماهو في الخلية - - ثم حددنا الصف لهذه البيانات و بموجب تحديد الصف استطعنا ان نجلب او نعرف قيمة الأرض كم حددت بيانات العميل: سمحنا للمستخدم باختيار بيانات العميل من القائمة المنسدلة وتفاديا للخطأ وضعنا دالة تتأكد لنا من وجود هذه البيانات مطابقة لماهو في الخلية - - ثم حددنا الصف لهذه البيانات و بموجب تحديد الصف استطعنا ان نجلب او نعرف اذا كان العميل لديه عقار سابق مقسط لدينا واستخدمنا الألوان عن طريق التنسيق الشرطي للتوضيح للمستخدم بان القيمة التي ادخلت صحيحة بعد اكتمال بيانات الأرض وبيانات العميل كما هي مسجلة لدينا – يستطيع المستخدم البدأ بتوزيع الأقساط حسب الإتفاق مع العميل وذلك بتحديد تاريخ كل قسط وقيمة كل قسط أي مبلغ كل قسط ومسمى القسط (القسط الأول –او- قسط 1 –او- قسط يناير او غير ذلك) بشرط ان لا يتكرر اسم القسط اكثر من مرة - - واضفنا خانة ملاحظات للمستخدم يستطيع من خلالها وضع أي ملاحظة على أي قسط حسب الإتفاق مع العميل. وضعنا شرط اخير لإكتمال البيانات وهو يتأكد من صحة و اكتمال بيانات الموقع صحة و اكتمال بيانات العميل اجمالي المبالغ و القساط المسجلة على العميل اكبر من او تساوي القيمة التي حددناها لبيع العقار تقسيط اراضي.rar

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

‏الاربعاء‏ 10‏/1‏/1435هـ الموافق ‏13‏/11‏/2013م السلام عليكم قمنا بعمل مايلي عدلنا الدالة الموجودة في ورقة بيانات العقارات بحيث يتم تجميع بيانات العقار للعقارات التي لايوجد بها اسم مشتري لضمان عدم استخدامها للبيع مرة اخرى تم تسمية نطاق البيانات العملاء =Cstmrs و بيانات العقارات =ForSale بدأنا في تصميم ورقة نموذج توزيع الأقساط و ورقة حفظ البيانات للأقساط ورقة نموذج التوزيع هذه الورقة نصف كامل العمل لأنه فيها يتم عمل كل شيء وعندنا في هذه الورقة شغل كثير جدا من تنسيقات و تحقق من صحة للتأكد او متابعة البيانات المدخله وجلب بيانات للمقارنة و ترحيل تقسيط اراضي.rar

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

‏الثلاثاء‏ 9‏/1‏/1435هـ الموافق ‏12‏/11‏/2013م السلام عليكم و رحمة الله وبركاته تم عمل الكود التالي: Dim SH, SH1, SH2, SH3, TR, FR Dim FS As Worksheet, TS As Worksheet Sub CLCT_ALL_CARS_MILEG() On Error Resume Next SH1 = Sheets.Count SH2 = "TOTALS" & SH1 Sheets.Add ActiveSheet.Name = SH2 Sheets(SH2).Move After:=Sheets(SH2) Set TS = Sheets(SH2) TR = 1 For SH3 = 1 To SH1 SH = Sheets(SH3).Name If Val(SH) > 0 And Val(SH) < 32 Then Set FS = Sheets(Sheets(SH).Name) ER = FS.UsedRange.Rows.Count For FR = 1 To ER If FS.Cells(FR, 3) <> "" And FS.Cells(FR, 1) <> "" Then If IsError(FS.Cells(FR, 3)) Or IsError(FS.Cells(FR, 10)) Then GoTo 9 TS.Cells(TR, 1) = FS.Cells(FR, 3) TS.Cells(TR, 2) = FS.Cells(FR, 10) TR = TR + 1 End If 9 Next FR End If Next SH3 TS.Select ER = TS.UsedRange.Rows.Count Range("A1:A" & ER).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("D1"), Unique:=True ER = Range("D65535").End(xlUp).Row Range("E2:E" & ER).FormulaR1C1 = "=SUMIF(R1C1:R9999C1,RC4,R1C2:R9999C2)" TS.Calculate Range("D1:E" & ER).Copy Range("D1:E" & ER).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False [E1] = [B1] Range("D1:E" & ER).Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal Range("A1:B1").EntireColumn.Delete End Sub وهذا الكود يقوم بالخطوات التالية ادراج ورقة جديدة المرور على كل اوراق الملف ونسخ الخلايا C , K من كل ورقة الى الورقة الجديدة استخراج بيان غير مكرر لأرقام اللوحات من العمود A غير مكرر الى العمود D في الورقة الجديدة استخدام الدالة SUMIF في العمود E لحساب مجمل كل سيارة في العمود D فقط تثبيت قيم الدالة فرز البيانات حسب رقم اللوحة حذف العمودين A,B قد أخذ الكود وقت طويل يصل الى 15 دقيقة حسب كثرة البيانات مع التحية maste.rar

http://www.officena.net/ib/index.php?showtopic=49920

‏الاثنين‏ 8‏/1‏/1435هـ الموافق ‏11‏/11‏/2013م بسم الله الرحمن الرحيم وبه نستعين والصلاة و السلام على سيدنا ونبينا محمد وعلى آله وصحبه اجمعين في موضوع لأحد الإخوة الأعضاء وطلبة نظام متابعة لأقساط بيع قطع أراضي على الرابط http://www.officena.net/ib/index.php?showtopic=49666 = = = = = = = = = = = = = = = = = وحيث ان هذا البرنامج يتكون من 3 خطوات البيانات الرئيسية او الثابته التي سوف يتم التعامل معها المعالجة و الحساب و التسجيل النتائج و المخرجات ان الخطوة الأولى لأي برنامج هي الدراسة وتحديد الإحتياجات في البيانات الرئيسية او الثابته التي سوف يتم التعامل معها لذلك بعد دراسة الملف و المعطيات من اخونا في الملف الذي تم ارفاقة في الرابط السابق فكرت (وقد تختلف الفكرة من شخص لآخر) في ان تكون البيانات الثابته هنا تنقسم الى نوعين بيانات قطع الأراضي التي سوف يتم التعامل معها في البيع تقسيط او كاش بيانات العملاء الذين سوف يتم التعامل معهم وتقسيطهم الأراضي وهنا تم توسيع الفكرة قليلا لتشمل أي نوع عقار باضافة عمود سميناه نوع العقار ويمكن ان تكون (ارض – شقة – فيلا – عمارة – مزرعة – او غير ذلك) وهذا ماتم تنفيذه ووضعه في المرفق حيث سوف يتم ادخال البيانات لكل الأراضي المعروضة وقيمة او السعر المحدد للبيع – وكذلك العملاء الذين سوف يتم التعامل معهم تقسيط اراضي.rar الخطوة القادمة بإذن الله سوف تكون نموذج يتم فية ادخال البيانات: للأرض المباعة (بيانات مختصرة و مميزة لاتتكرر) بيانات المشتري (بيانات مختصرة و مميزة لاتتكرر) كذلك قيمة البيع الدفعة الأولى تاريخ وقيمة كل قسط بحيث: يحسب النموذج اجمالي المبلغ المدخل و الذي يجب ان لايقل عن قيمة بيع الأرض ويسمح له ان يزيد عن قيمتها يستبعد النموذج العقارات المباعة سابقا حيث لا يتكرر البيع لنفس الأرض لأكثر من عميل.

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

السلام عليكم بالإضافة الى حل خبيرنا جمال جزاه الله خيرا للعلم الداله شغاله 100×100 و العيب في تنسيق الخلايا لأننا عندما نستخدم الداله LEFT هنا غيرنا خصائص النتيجة الى نص وليس رقم و الإكسل يتعامل مع الناتج كـ نص وليس رقم بينما عندما ادخلت الرقم في الورقة الأخرى تعامل كـ رقم و ليس نص وهنا تختلف القيمة الرقمية بين الخليتي حتى ولو تشابه الشكل لذلك يمكنك تحويل تنسيق الخلايا الى نص وسوف تعمل الدالة باذن الله تعالى llll.rar

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

السلام عليكم و رحمة الله وبركاته نظام_شراكة العقارات ‏الاثنين‏ 8‏/1‏/1435هـ الموافق ‏11‏/11‏/2013م ادارة استثمار عقاري نحن لدينا هنا شخص يقوم بالإستثمار في العقارات وهي عبارة عن قطع اراضي يقوم بشرائها وبيعها بعد فترة وجيزة بعد تحقيق الربح وحيث ان هذا الشخص يستثمر بأموال عدة اشخاص مشاركين معه في المشروع وبعد البيع يتم توزيع الأرباح بين المشاركين وفق التالي ثلث صافي الربح = 33.33% من صافي الربح بعد البيع لمدير المشروع الباقي يوزع على المشاركين كل واحد حسب نسبة المبلغ المدفوع منه في الأرض عند الشراء يحق لكل مشارك زيادة راس المال في المشاركة في أي وقت حسب امكانياته يحق لكل مشارك سحب أي مبلغ يحتاجة حسب المتوفر نقدا من راس المال و الأرباح الخاصة به مدير المشروع هو فقط الذي يحدد قيمة حصة كل مشارك في الإستثمار الجديد وذلك حسب المتوفر من النقد للمشارك كلمة السر لإستخدام الملف هي ((عبدالله)) بدون مسافات عند فتح الملف وفي الخانة الحمراء المكتوب فيها اسم المستخدم تكتب : عبدالله وبعد ذلك يمكنك استخدام الملف نظام_شراكةالعقارات3.rar

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

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

اخ عزيز نحبه و نفتقدة

السلام عليكم جزاك الله خيرا جاري التحميل

الحمد لله رب العالمين

و عليكم السلام و رحمة الله وبركاته اخي الكريم عند اخفاء الأعمدة احرص على عدم اخفاء آخر عمود وهو العمود IV و عند اخفاء الصفوف احرص على عدم اخفاء آخر صف وهو رقم 65536 و بإذن الله لن تظهر لك هذه الرسالة =============

السلام عليكم بعد اذن اخي الكريم ابو حنين هذا ملف اخي ابو حنين بعد تعديل تنسيق التاريخ الى هجري طلب تعديل.rar

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

اخي علاوي اولا حدد الخلايا التي تريدها انتظهر بتاريخ هجري ثم من تنسيق اختار تنسيق الخلايا في تبويب رقم من اليسار اختار تاريخ سوف يظهر لك على اليمين عدة اشكال للتاريخ اختار احد الأشكال التي تريدها

السلام عليكم تم الإطلاع على الملف الملف ممتاز ونحتاج اولا ترتيب بعض البيانات مثل الأقساط 2*100 يفضل عمل عمود لعدد الأقساط و عمود لقيمة كل قسط والفكرة فكرة ملف اقساط سوف احاول تطبيقة على فكرة سابقة لدي حول تقسيط السيارات

السلام عليكم اخي علوي غير تنسيق التاريخ في الخلايا الى تنسيق تاريخ هجري

السلام عليكم هذا حل آخر باستخدام التصفية المتقدمة وبدون دبل كليك اختار اسم الصف تتغير قائمة الإسم حسب اسم الصف ويمكن تطبيقها على الدبل كليك اذا اردت مع التحية رصد الغيابات.rar

السلام عليكم و رحمة الله وبركاته اخي ضاحي جزاك الله كل خير عمل رائع ومجهود جبار تشكر علية و مش غريب منك

الحمد لله رب العالمين انها انحلت مع الشكر و التقدير لك على كريم اخلاقك جزاك الله خيرا