علي المصري

شكرا بارك الله فيكم

هل يمكن استخدام الكود التالي بشرط Private Sub Workbook_Open() MsgBox ("توضع هنا العبارة التى تريد أن تظهرها عند فتح الملف") End Sub بحيث يجلب تلقائيا اسم المستخدم من الويندوز وتكو الرسالة السلام عليكم ورحمة الله وبركاته ( اسم المستخدم )

افكار جميله ومسلية شكرا

الاستاذ الفاضل كعبلاوي : برجاء الرجوع إلى الملف وقم بتوسعة العمود K ثم حدده وقم باظهار العلامات العشرية تجد ان ناتج القسمة يعطي احيانا ً على سبيل المثال 90.5 أو 79.5 وهي عند جعل العلامات العشرية عددها صفر تتحول 79.5 إلى 80 ولكن عند عملية العد باستخدام الدلة لا تعتبرها 80 ولكن تعتبرها 79.5 فإذا أردت ان تقرب النواتج كلها لرقم صحيح فعليك باستخدام الدلة round مرفق الملف بعد تعديل القسمة مع دالة round تقبل تحياتي ملف لعمل المطلوب.rar

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

بالنسبة للأعداد التي ذكرتها بان عدد الطلاب ما بين 50 و 70 هي 32 ارجو العد مرة اخرى نجدها 31 بما فيه الدرجة 50 و الدرجة 70 وعلى ذلك يكون المطلوب حصر عدد الطلاب الحاصلين على درجات بدءا من 50 وحتى 70 لان كلمة بين تعني الدرجة التي تلي ال50 إلى الدرجة السابقة ل 70 أي من ( 51 إلى 69 ) تم تعديل الملف على حسب المطلوب وشكرا ملف لعمل المطلوب.rar

السلام عليكم ورحمة الله وبركاته موضع جيد وجميل النقاش به استاذي القدير : سليم حاصبيا المعادلة الموجودة بالملف الذي ارفقته تحتاج للمراجعة لأسباب التالية =ABS(COUNTIF($K$9:$K$399;"<"&$U$7)-COUNTIF($K$9:$K$399;">"&$V$7)) الجزء الأول =COUNTIF($K$9:$K$399;"<"&$U$7) المقصود به معرفة عدد الطلاب الحاصلين على أقل من الدرجة المكتوبة في الخلية المذكورة الجزء الثاني =COUNTIF($K$9:$K$399;">"&$V$7)) المقصود به معرفة عدد الطلاب الحاصلين على درجة اكبر من الدرجة المكتوبة في الخليةا المذكورة وبالتالي فرضا اننا نريد الحصول على عدد الطلاب الحاصلين على درجات بين 50 و75 مثلاً فإن المعادلة سوف تقوم بعد عدد التلاميذ الحاصلين على أقل من 50 ثم عدد الطلاب الحاصلين على درجة اكبر من 75 بعد ذلك عملية الطرح فهناك خطأ رياضي في هذه العلاقة لابد من تغيير علامة أقل من في الجزء الأول إلى علامة أكبر من لكي يكون عدد الطلاب الحاصلين على درجة اكبر من 50 - عدد الطلاب الحاصلين على درجة اكبر من 75 وهو العدد المطلوب متأسف على التطويل في الكلام ولكن هذا من واجبي نحو الموقع والاعضاء الكرام شكرا لكم المعادلة في شكلها الجديد =COUNTIF($K$9:$K$399;">"&$U$7)-COUNTIF($K$9:$K$399;">"&$V$7) ارجو المراجعة وابداء الرأي ممكن اكون غلطان ملف لعمل المطلوب.rar

شكرا استاذ رجب على الاهتمام قمت بالتجربة ولكن غير الرقم 1 إلى 1 Sheets("Data").Select حتى لا يظهر الصفحة المراد طباعتها وهي صفحة مخفية وبعدها خطرت لي ان اغير امر الطباعة إلى التالي Application.Dialogs(xlDialogPrint).Show وجربتها والحمد لله ادت المطلوب فاصبح الآن بفضل الله ومساعدتكم اصبح لدينا حلان بارك الله فيكم

انا بستخدم الكود التالي لاظهار المربع الحواري للطابعات المثبته على الجهاز ومنه اقوم اختيار وتعديل اعدادات الطابعة ثم بالضغط على ok يتم الطباعة ولكن في بعض الأحيان احتاج إلى إلغاء الطباعة وهنا هي المشكلة عند الضغط على cancle تتم ايضا الطباعة ولا يلغى عملية الطباعة نرجوا من حضراتكم تقييم الكود وتصحيح الخطأ شكرا Sub Macro6() ' ' Macro6 ãÇßÑæ ' ' Application.ScreenUpdating = False Sheets("ALIELBASRY").Select Range("A11:T65").Select Selection.AutoFilter ActiveWindow.SmallScroll Down:=-12 Range("A11").Select ActiveSheet.Range("$A$11:$T$65").AutoFilter Field:=1, Criteria1:="<>" Range("E12").Select Sheets("ALIELBASRY").Select Range("E5:P5").Select Application.Dialogs(xlDialogPrinterSetup).Show ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("Data").Select End Sub

شكرا لكم جميعاً

ملف به 3 انواع من الطباعة الاكواد و الفورم للاعضاء الكرام ولكن باضافة جديدة حصلت عليها من أحد المواقع فلعلها تفيد الجميع analysis Math T3.rar

thanks alot

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

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

شكرا لكم

شكرا جزيلا

بعد البحث في منتدى الاكسيل عثرت على الكود التالي من عمل الاستاذ أحمدزمان Range("a1:O1").Select ActiveWindow.Zoom = True جزاه الله خيرا وجاري التجربة على شاشات مختلفة المقاس حيث " a1:o1" المدى المراد ظهوره على حسب مقاس الشاشة

شكرا اخي الكريم ولكن هذا الكود يغير اعدادات الشاشة المطلوب كود يغير من إعدادات الزوم الخاصة بالصفحة 100% - 120% وهكذا لكي تتلائم مع شاشة الجهاز الذي تعمل عليه

الشكل النهائي للبرنامج Desktop.rar

مطلوب عمل ذلك تلقائيا ً باستخدام كود VBA

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

السلام عليكم ورحمه الله وبركاته المشكله بالتفصيل : انا عندي نسخه ويندوز 7 (ultimate) حيث تتوفر فيها خاصيه تشفير الاقراص . وقد عملت علي تفشير احد الاقراص لدي وهذا القرص هوا به جميع برامجي وبه كل شي به شغل سنوات ولا اريد ان اضحي بهم في سبيل امر تافه مثل الفور مات . المهم وعمليه التشفير قائمه للقرص المراد تشفيره كنت اعمل على تنصيب الحزمه الخدميه الاولى لويندوز 7 فطلبت منى ان اعمل ريستارت فى ظل ان ال bitlocker كان يعمل على تشفير القرص ولم يكتمل التشفير بعد وفعلا تم عمل الريستارت للجهاز وعندما اردت الدخول الى القرص المشفر طلب ال password فكتبه فاخد مده طويله يعمل ولاكن بالنهايه ظهر لى رساله تفيد انه يوجد خطاء فى القرص اخر الرساله تقول . فاخذ فى تنصيب نسخه جديده على اساس التشفير سوف يخنفي ولاكن المشكله قائمه فقوت بادخال اسطوانه صيانه لويندوز 7 على اساس اشوف ملفاتي وعندما فتحت البارتشن المشفر يعطيني رساله access is denai . فرجو من سيادتكم خبراء قلعه العلم ان تفيدونى بحل لهذه المشكله

شكرا ً جزيت خيرا

الكود Private Sub Worksheet_Activate() 'شكر خاص للاستاذ 'عبدالله باقشير 'منتديات اوفيسنا ' Application.ScreenUpdating = False Select Case CStr(AliElbasry2.range("c15")) Case Is = "English" Me.DisplayRightToLeft = False Case Is = "اللغة العربية" Me.DisplayRightToLeft = True End Select End Sub

شكرا استاذ عبدالله هذا هو المطلوب لكن عندما اضفت إلى الكود السطر التالي حتى لا تظهر الحركة اثناء التبديل لم تأتي بفائدة Application.ScreenUpdating = False فهل من حل آخر شكرا جزيلا على الكود