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

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

الاخوه الافاضل تحية طيبه وبعد مرفق شيت يقو باستخراج كشف حساب للعميل الرقم السرى 123 اضغظ على الزر الموجود فى لاشيت ثم زر ENTER OR CORRECT ثم ادخل التاريخ ثم رقم العميل 20100100401 ثم اكتب فى خانة PAYED اى مبلغ تريده وليكن 10500 ثم قم بعمل SAVE اذهب الى الشيت ستلاحظ الاخطاء التالية 1- يوجد كود ضمن اليوزر فورم 12 يتم استدعاءه اسمه CALL CODE هذا الكود لا يعمل فلماذا 2- اضغط على الزر الموجود فى الشيت ثم REPORT ثم ادخل التاريخ من 1/1/2013 الى التاريخ الذى قمت بادخاله مسبقا ثم اكتب رقم العميل 20100100401 واى اسم تريد فى خانة SHEET NAME ثم اضغط على زر BALLANCE ثم اذهب الى الشيت الذى قمت بانشائه ستلاحظ ان البيانات التى قمت باضافتها لا تظهر ضمن كشف الحساب 3-اذا ذهبت الى شيت INVOICE ثم قمت بعمل دبل كليك على التاريخ ثم قمت بعمل ريبورت ستجد ان البيانات قد ظهرت ارجو المساعده LXR-2013.rar

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

السلام عليكم الاخت الفاضلة / أم عبد الله مرور من كريم من اخت فاضلة وتشجيع اروع جزاك الله خيرا

السلام عليكم الاخ والاستاذ الكريم / سعيد بيرم الف مليون شكر علي تشجيعك الدائم لي مرورك شرفني واسعدني جزاك الله خيرا

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

السلام عليكم الاخ الكريم / عمر أبو صهيب لإثراء الموضوع وعلي حسب فهمي هو نفس الطريقة المستخدمة من الاخ الكريم / جلال محمد .... جزاه الله خيرا يفعل ما تريد عند فتح الملف (يقوم باخفاء كل قوائم الاكسيل ) وعند اغلاق الملف ( يقوم باعادة القوائم لطبيعتها ) بوضع الكود في حدث ThisWorkbook ارجو ان اكون وفقت فيما طلبت جزاك الله خيراً Book2+.rar

<p>أخى الفاضل / حسين</p> <p>هذا السطر</p> <p>x = UBound(Filter(Split(arr, &quot;,&quot;), TextBox1))</p> <p>يقوم بعمل فلترة للبيانات الموجودة فى المتغير arr&nbsp; وشرط الفلترة هو القيمة المكتوبة فى Textbox&nbsp;</p> <p>ثم بعد ذلك تقوم الدالة ubound&nbsp; بايجاد قيمة الحد الأعلى للمصفوفة الناتجة عن الفلترة</p> <p>فاذا كانت قيمة الحد الأعلى ( x ) يساوى -1 معنى ذلك أنه لا يحتوى على بيانات</p> <p>مما يعنى أن قيمة ال Textbox غير موجودة فى نطاق البيانات [ A1:A6] فتظهر الرسالة التى تخبرنا بذلك</p>

اخي عمر السلام عليكم ارفقت لك ملف كان موجود عندي من فترة فهل هو المطلوب ؟ Book2.rar

السلام عليكم أخي سعيد أشكرك علي مرورك الطيب وكلماتك الرقيقة جزاك الله خيرا أخي هاني عندك حق أخي الكريم أنا لم أفهم المطلوب من الأول أعتقد أن المرفق هو ماتريد وبه ايضا شرح للمعادلة واحتمالاتها تفضل المرفق بيان حركة الموظفين بالتأمينات3.rar

لسلام عليكم ورحمة الله وبركاتة عشمى في الله ثم فيكم ان تردو على استفساراتى وما اريد فعله على الملف في اللينك اسم المف do to it الملفين في المرفقات الطلب الاول اولا الملف يتكون من ثلاث اوراق : اول ورقة هى sheet1 ,in وبها تقرير عن الاسم والرقم القومى ورقم بطاقة اخر المطلوب : واريد فعل ماكرو على الورقة sheet 1 وهو يقوم تحويل الورقة من الشمال الى اليمين عمل دمج للخلايا ثم توسيع الخلايا لكى يظهر بها الاسم كامل والرقم كامل ثم عمل فلتر بحيث لايوجد خلايا فارغة في اسم المواطن وليس التاجر لاننى لا اريد التاجر وهى العمود (e) ثانى ورقة هى control وبهذه الورقة اريد وضع الماكرو الذى ينفذ على sheet1 في المكان الاول ومكتوب بالون الاصفر ثالث ورقة وهى باسم main وهى تحتوى على جدول اريد ان يملاء بمحتويات الورقة sheet1 بعد تنفيذ الماكرو على الورقة sheet1 اريد ترحيل الداتا من هذا الشيت الى الجدول الموجود بالورقة main حيث يوجد اسم المواطن ويوجد الرقم القومى والرقم الاخر بحيث ان يعطى عدد االخلايا الغير فارغة من الورقة sheet1 التى سترحل الى main في رسالة تظهر ان عدد المواطنين هو ( ) ملحوظة اريد لتاكيد ان التقرير الموجود في الشيت sheet 1 سوف يتم تغير العدد فيه حيث ان عدد الاسماء فيه متغير ويزيد او يقل حسب كل شهر فيمكن زيادة عدد المسلسل الموجود في الورقة main حسب عدد المسلسل في الورقة sheet 1 مع العلم ان قمت بعمل عدد 2 ( command button ) وتم تسميتهم ولكن لا يوجد بهم اى كود فارجو ان يكون الكود بهم =========================================================================== الطلب الثانى لا يوجد به صله بينه وبين الطلب الاول هو على workbook مختلف تماما واليلنك بتعته هو : اسم الملف eso all اطلب في هذا الملف شئ بسيط جدا هو ان عند ترحيل الخلايا من الورقة batches الى الورقة monitor 1- اريد ان اعرف عدد الخلايا التى تم ترحيلها ( الخلايا التى تم فعلا اللصق لها كام خليه ) في رسالة تظهر امام المستخدم بعدد هذه الخلايا مع العلم ان بعد اللصق تظهر هذه الرسالة بعدد الخلايا التى تم لصقها فعلا 2- مع العلم ان الكود المعمول لعمل عملية النسخ واللصق لايوجد فيه حالة ان اذا تكرر التاريخ باليوم والاسم لايظهر اى رساله بالخلايا المكرره ولكن كل ما يحدث هو ان الاحدث يكون هو الملصق فانا لا اريد ذلك ولكن ماريده هو ان اذا تكرر التاريخ لنفس الاسم فيحدث عملية تنسيق للخليه المرحلة اليها بالورقة monitor بلون جديد وليكن احمر وبنفس الوقت يتم ظهور رسالة في النهاية بعدد الخلايا المكررة ثم بعد الضغط على ok يتم تحديد ;كل حالات التى يكون المكرر بالاسم والتاريخ في الورقة batches وعمل فلتر عليها لتظهر امام المستخدم ليستطيع اعادة كتابتها بطريقة يدوية مرة اخرى ملحوظة : عند فتح الملف سوف تفهم سيادتكم كل ما هو مطلوب واذا كان لدى سيادتكم اى استفسار فانا تحت امر سيادتكم الاكود موجودة بالداخل فارجو ان يضاف عليها المطلوب وتلوينه بلون اخر حتى افهم واذا لم يتاح هذا فاعمل الكود من الاول للاخر براحتك شكرا واسف لاخذ وقت طويل والاثقال بالطلبات الملفين في المرفقات ارجو الرد على في ما ارسلته حيث اننى مضغوط جدا جدا جدا واريد المساعدة المرفقات : tow.rar