احمد حمور-ابوعبدالله

انا اسف بالنسبة لامر الطباعة كل شئ تمام اما الملاحظه الاولى فانا احتاجها لانني في النهايه سوف اظهرها في listbox

شكرا لك الحل ممتاز ولكن احتاج انه بمجرد وضع القيمه في خلايا العمود f ان تظهر في الخلايا الموجوده في العمود h دون الاضرار لوضع القيمه في العمود g اما الشئ الثاني جرب يا اخي ان تعمل معاينة طباعة ستجد ان الصفحات مازال بها التالي وهذا يجعل امر الطباعة يطبع اوراق فارغة بدون داتا

السلام عليكم ارجوا المساعده بالمرفق اريد ان تكون الخليه h2=f2-g2 h3=f3-g3 وهكذا حتى اخر الصفحه حاولت ان اضع المعادله في الخلايا من h12:h4000 ولكن المشلكله انه اذا اردت ان اطبع الصفحة الاولى فانها تطبع لي كل لصفحات حتى تصل الى الخليه h4000 المشكله عندي في الطباعه حيث انني لا اريد طباعه الا في وجود الداتا فاتمنى لو كان يوجد كود يكون افضل لي Book123.rar

السلام عليكم ورحمة الله وبركاته في الحقيقه لم اعرف كيف ابدئ بكلامي ولكني اخترت عنوان الموضوع كي يشمل شكري وتقدير لكل الاخوه بالمنتدى وبالاخص الاخ خبور والاخ احمد زمان الموضوع ببساطه انني منذ فتره وانا احاول ان اعمل LIST BOX استطيع من خلالها استدعاء DATA من صفحة اكسل ولكني تغلبت كثيرا وكان تواصلي مع الاخ احمد زمان ولكنه صارحني بانه لا يعمل كثير في FORMS واقترح علي ان يساعدني في طلبي بتغيير الموضوع كله فوافقته على ذلك وللامانه كان عمله رائع وشافي لما اقترح علي ، فمن هنا اكرر شكري له على تعبه معي. ولكني كنت متشوق لمعرفة المزيد عن طلبي بخصوص LISTBOX وDATA فعند تفقدي في المومري الخاصه بي وجدت ملف خاص بعضو لا اذكر اسمه كان يطلب نفس طلبي ، فاجايه الاخ خبور خير عليه بطريقه رائعه فعندما قرات الكود الموجود وحاولت ان افهمه وجدت انه ممكن ان يلبي غرضي ولكن ببعض التغييرات البسيطه التي تتناسب وما اريد فعملت عليه بالتغييرات البسيطه ، فكان عملا جيدا من وجهة نظري فلهذا السبب الشكر موصول للاخ خبور خير لانه اعطاني الحل من دون ان يشاركني به فبهذا نكون قد اشتركنا في عمل هذا الملف نحن الثلاثه دون تنسيق مسبق بيننا الملف ببساطه هو ليس برنامج وانما فورم يتسدعي الداتا من صفحة ويظهرها في LIST BOX ولكن هنا اضضطرت ان اضع LISTBOX عدد 2 لان الداتا المطلوب استدعائها تحتاج الى اكثر من عشرة اسطر وحاولت ان استدعيها في لست بوكس واحد ولنني لم استطيع ارجوا ان ينال الملف اعجابكم وان وجه شكر لي ارجوا ان يكون موصول ايضا للاخ خبور والاخ احمدزمان نسيت ان اوضح شئ بان الداتا الخاصه بالاسماء هي لصاحب الملف الاصلي ، وانا اتأسف منه ان كنت قد استخدمها دون علمه ولكني نسيت ان استدبدلها بداتا اخرى بحث.rar

الاخ العزيز احمد زمان قد قمت بقراءة الملف العمل رائع ومتعوب عليه ويلبي ما اريده ولك جزيل الشكر

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

اسأل الله العظيم رب العرش العظيم ان يفرج همك ويفك كربك

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

صدقوني ان الامل موجود ومازال الامل فيكم كبير ولكن الغريب انه لم يرد على طلبي الا انا والعزيز احمد يعقوب والباقون ممتنعون عن الرد سواء بالسلب او بالايجاب

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

للرفع

اعلم ان الجميع مشغول بكأس العالم ولكنني اردت فقط ان اعلم ان كان احدا يعمل في المرفق الذي ارسلته وهذا والله فقط للتذكير وشكرا لكم

اعلم انه لاشئ صعب على خبرائنا الكبار للرفع

فقط للتذكير للرفع

ما شاء الله اسال الله العلي العظيم ان يجعل نفسك طوييييييييييييييييييييييييييل كي تكمل هذا العمل الرائع بالشرح المفصل فهذا لا شك به انه عمل متعب جدا جدا ولكن الانسان منا يسعى دائما الى كسب الحسنات وانت بهذا العمل تكسب حسنات كثيره باذن الله , جعله الله في ميزانك بارك الله فيك

السلام عليكم ورحمة الله ارفق لكم ملف ذمم سبق وان ارسلته ولكني ارغب باضافة كود له انه عند فتح الملف يظهر فورم قد وضعت به كود يقوم عند اختيار رقم الشركة يظهرها لي عن طريق الاسم وان اردت الدخول الى الصفحه فقط اختار ENTER المطلوب بالضبط : انني انشأت LIST BOX واريد عند اختيار رقم الشركه ان يظهر لي كل البيانات الواجب ظهورها في LISTBOX اما التكست بوكس الخاص برقم الحجز فهو الاساس في عملية البحث حيث انني بعد ان اختار رقم الصفحه استطيع ان اختار رقم الحجز المطلوب وان تظهر بيانات الحجز بالضبط كما هي في صفحة الاكسيل وان يمكنني عند اختيار رقم الحجز ان يدخلني الى صفحة الرقم المختار عن طريق كليك دبل كليك على رقم الحجز الموجود داخل LISTBOX شكرا لكم ذمم.rar

ما عليك سوى وضع الاضافة التالية على الكود if target.column=4 or target.column=5 then userform3.show end if والمقصود هنا باضافة العبارة or حيث يمكن استخدام اكثر من عمود كما تشاء

السلام عليكم ورحمة الله وبركاته الاخ zoro888 الموضوع ببساطه انه اي عمود انت تريده تستطيع فقط تغيير رقم العامود من داخل الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 3 Then UserForm1.Show End If End Sub هنا اخترنا الحدث دبل كليك من نفس الصفحه التي نريد ان يظهر في عمودها الثالث وهو c ، ببساطة اذا اردت العمود b فانك ستضع الرقم 2 بدل الرقم 3 او الرقم 1 بدل الرقم 3 اذا اردت التاريخ في العمود a اماالمقصود بالكود اعلاه انه اذا تحقق الشرط بحيث يكون اختيار الخليه بالضغط عليها دبل كليك ضمن نطاق العمود c هنا اطلب من التقويم ان يظهر لي لكي اضع به التاريخ الذي اريده اما بخصوص الفورم الخاص بالتقويم ستتبع الخطوات التاليه: اولا - الدخول الى محرر الفجوال بيسك ثانيا - اختيار ادراج فورم userform ثالثا - من الادوات tools اختيار additional controls او اضافة عنصر تحكم رابعا - من القائمه التي ستظهر معك اختيار calendar control ومن ثم موافق ، بعدها ستجد الامر موجود في toolbox مثلها مثل label او textbox وغيرها خامسا - ستقوم بسحب امر calendar داخل الفورم وتعيد تنسيقه بالشكل الذي تريد سادسا - دبل كليك من على فورم ستظهر لك نافذة البرمجه سابعا - ستضع الكود التالي داخل حدث التقويم Private Sub Calendar1_Click() ActiveCell = Calendar1.Value ActiveCell.NumberFormat = "DD/MM/YYYY" UserForm1.Hide End Sub ويعني هذا الكود انه في الخليه النشطه تكون قيمتها هي نفس قيمة التقويم والسطر الثاني بخصوص اختيار الفورمات التي سيظهر عليها التاريخ والسطر الثالث يعني عند ادخال التاريخ من التقويم يقوم تلقائيا باخفاء التقويم اما الكود التالي فيعني في كل مره يستدعا بها التقويم يعطيني تاريخ اليوم الفعلي Private Sub UserForm_Activate() Me.Calendar1.Value = Now() End Sub اتمنى ان تعذرني ان اطلت عليك الشرح لانه ربما انك تعلم الكثير مما كتبت ولكن قصدت هذا ليستفيد الجميع حياك الله

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

الاخ hancock شكرا لك على مرورك الكريم وبارك الله فيك ودعائي لك بالخير ان شاء الله ودعائي ان يفك الله اسر الاقصى المبارك اللهم امين

الاخ يحيى حسين شكرا لك على مرورك الكرام الله يقدرني على الدعاء لجميع المسلمين ان شاء الله

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

اضافة بسيطه على كود الاخ بن عليه وهو Private Sub Calendar1_Click() Range("A1") = Calendar1.Value UserForm1.Hide End Sub حيث تسمح لنا باخفاء الفورم عند اختيار التاريخ

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

السلام عليكم ورحمة الله وبركاته ارفق لكم برنامج ذمم ينقسم الى 48 صفحة رئيسيه للذمم الرئيسي وصفحة خاصة بذمم المتفرقات وقد استخدمت بالصفحات مبدأ الداتا لست بالاضافة الى بعض الاكواد البسيطه جدا اتمنى ان يعجبكم وادعوا لي ان يتقبل الله عمرتي في 11_4_2010 واسلام عليكم ورحمة الله وبركاته ذمم المحل.rar