ابوحمزه المصرى

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم قولت بدل ماارجع افتح المنتدى وايدى فارغه زى كل مره ويبقى شكلى مش ولا بد قولت اشارك اخوانى الافاضل بالمنتدى الرائع آخر ما استخدمت فى البرمجه ؟ نسخة فيجوال بيسك 2010 كامله من موقع مايكروسوفت ومجانيه قمت بتحمليها اليوم وكانت رائعه لعلها تحوز على اعجابكم . النسخه ايزو ممكن يتم حرقها على اسطوانه 700 MP لكن الافضل DVD 4GB ببرنامج الترا ايزو او استخدامها من سى دى وهمى بنفس البرنامج او فك ضغط الملف باى برنامج ضغط اليكم الرابط http://download.microsoft.com/download/1/E/5/1E5F1C0A-0D5B-426A-A603-1798B951DDAE/VS2010Express1.iso

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

وداعاً للقوائم المنسدلة .. وداعا لListBox .. وداعا لكل انواع القوائم عنوان موضوع تمت كتابته بواسطه الحسامي رحمه الله واسكنه الفردوس الاعلى لكن المرفق غير متوفر هل من الممكن اعاده ارفاق الملف للاستفاده منه

للأسف لم اجرب فانا ليس لدى طابعه .. لا تيأس فستجد حلا ان شاء الله

اخى ابو الياس انا مازلت ارى ان المشكله فى الاعدادات حيث يوجد خيارForm Image قم بتحديده بالصورة الاولى الموضحه بالملف الخاص بك فى نافذة Print VBA Project ثم اختر SETUP ثم Landscape وسيكون ذلك هو الحل بإذن الله

اخى ابو الياس ادخل على نافذة الاكواد من خلال alt+F11 وبعدما تفتح نافذة الاكواد اضغط Ctrl+P ستظهر نافذة طباعة الاكواد ثم اضغط على زر SETUP ثم اختار Landscape .

فعلا الحل بسيط لم يأتى على بالى .. بارك الله فيك اخى ابو البراء.. شكراً لك

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

تأكد من اعدادات الطابعه انها افقى

جرب المرفق التالى .. لعله المطلوب .. اعانكم الله الذاتية الإدارية1.rar

السلام عليكم ورحمة الله وبركاته اسعد الله اوقاتكم لدى فى حدث الشيت كود لتنفيذ أمر وكود للزووم لماذا لا يعمل كود الزووم Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("s3")) Is Nothing Then Tarhil End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$s$1" Then ActiveWindow.Zoom = 120 ElseIf Target.Address = "$s$2" Then ActiveWindow.Zoom = 120 ElseIf Target.Address = "$s$3" Then ActiveWindow.Zoom = 120 Else ActiveWindow.Zoom = 80 End If End Sub الزووم لا يعمل.rar

لك جزيل الشكر اخى الفاضل ابو البراء على الكود الرائع أما بالنسبه للتنسيق فإن دل فإنما يدل على ذوقك رائع .

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

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

تفضل اخى لعله يكون المطلوب تصميم زر طباعة البطاقة.rar

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

حل رائع وشرح ممتاز اخى ابو البراء .. بارك الله فيك وجعله بميزان حسناتك

شكراً اخى الكريم ابو البراء جزاك الله كل خير ..

اخى الكريم ابو البراء بارك الله فيك ... عند تجربة الكود لم يتم تنفيذ المطلوب ... هل الخطأ فى تطبيق المثال. RangeVariable.rar

اخى الكريم بارك الله فيك ... اضم صوتى لك لانى اريد نفس الطلب رغم انى اظن انه صعب المنال .

شكرا اخى ياسر موضوع متميز ومهم جداً

خير ان شاء الله اخى الفاضل ابو البراء شكرا على االاهتمام المشلكه بس انا شغال بفلاشة نت بعيد عنك وانت عارف ان الشبكه تمام ولا نقدر نقول غير كده ... احد .. احد

فعلا موضوع متميز من ابو البراء المتميز ...... شكر خاص حدا لك

اهلا بكل اخى MOCHEKS .... تفضل اخى لعله المطلوب ... تم الغاء صفحة المنسدلة حيث تختار الاسم من نفس صفحة الطباعة... الرجاء تغيير الاسم للعربيه حسب تعليمات المنتدى تجربة.rar

لا إله إلا الله محمد رسول الله بها نحيا وعليها نموت