أ / محمد صالح

حبذا لو كان الشرح مرتبطاً بنسخة إكسل حديثة 2007 أو 2010 وبفضل الله سأجتهد أن أكون معكم وأقترح: تنظيم الدورة في صورة دروس أومواضيع مستقلة (فصول أو أبواب) كل درس أو فصل يتم تدريسه على مدار الأسبوع (7 ايام) يوجد تكليفات وترشيحات لمن يقوم بحل التكليفات لمناصب أعلى في المنتدى وفي نهاية كل أسبوع يتقدم المشترك في الدورة بعمل من إعداده وغير مسبوق يستخدم فيه ما درسه في هذا الفصل ضم هذه المناقشات لموضوع الطريق إلى تعلم فيجوال بيسك الأوفيس بعد تغييره إلى تعلم فيجوال بيسك الإكسل http://www.officena.net/ib/index.php?showtopic=39279 بحيث لا يكون هنا غير الدورة ودروسها وواجباتها ومشاريعها وفقنا الله جميعاً لكل مما يحب ويرضى

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

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

ياريت مزيد من التوضيح

أخي الكريم تصميم البرنامج لك (عمل تجاري) يمكنك الاتفاق مع من تختاره من الإخوة في ذلك أما إذا كنت تريد عمله بنفسك فنحن هنا لنساعدك إذا تعثرت فقط لا غير

أخي الكريم أبو الحسن بالفعل يمكنك عمل ذلك من خلال استعمال عمود جديد بجوار العمود المذكور يتم وضع قيمة 0 إذا كان الرقم قديما وقيمة 1 إذا كان الرقم جديداً ثم في النهاية تقوم بجمع أرقام العمود المذكور في حالة ما غذا كانت قيمة الخلية المجاورة 1 فقط باستعمال sumif

أخي وحبيبي في الله م / محمد طاهر أين قائمة الانتقال السريع بين أقسام الموقع؟؟ أتمنى أن أراها عن قريب

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

أسعدني مروركما الكريم أخي عبد الله وأخي يوسف وفقنا الله وإياكم لكل ما يحب ويرضى

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

اللغة العربية غنية جداً بالمفردات التي لها نفس الحروف ولكن التشكيل هو الذي يفرق بينها فكيف للآلة أن تميز بين كل هذه الكلمات واللغات واللهجات؟؟!! أعتقد أن هذا الموضوع مثل موضوع تحويل النص العربي إلى صوت حتى الآن ليس له حل

أخي الكريم أحمد يرجع السبب في هذه المسافات إلى تغيير قيمة المحاذاة العمودية vertical alignment إلى مضبوطة justified وهذه القائمة توجد في نافذة إعداد الصفحة page setup في التبويب الثالث التخطيط layout والصواب أن تكون أعلى top جرب وأخبرني بالنتيجة

ما شاء الله حل رائع أخي أبا عبد الله على فكرة أنا أيضا أبو عبد الله ونور الله بارك الله لك

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

أكرمك الله أخي الكريم أبا خليل هذا بعض ما عندكم

لحل هذا اللغز أخي الكريم ضع في عمود معين تختاره سلسلة الأرقام التي تريد تكرارها ولو إلى مليون (نفترض أنه العمود b وسلسلة الأرقم حتى الرقم 20) ثم ضع في العمود الذي تريد التسلسل بالتكرار فيه هذه المعادلة (نفترض أنه مثلاً العمود A وأول خلية بها أرقام هي a1) =INDEX($B$1:$B$20,ROUNDUP(ROWS(A$1:A1)/5,0)) جرب وأخبرني بالنتيجة

اضغط زر الأوفيس ثم خيارات options ثم خيارات متقدمة advanced وفي الجزء العرض display ستجد عرض القياسات بوحدة show measurements in units of اختر منها ما تريد

اعذرني أخي يوسف ما دلالة الرقم 8 في معادلتك؟؟ وإلى اي شيء يعود؟ عزيزى الغالى ماس كل قطة كبيرة معها 7 قطط صغيرة يبقى عددهم 8 قطط تمام إذاً اسمح لي بتغيير المعادلة هكذا =(4*8*7*7*7)+(2*7) حتى يتمكن ضعاف التركيز مثلي من تتبع الأمر ههههههههه

لا أدري ما الخلل عندك فالكود يعمل معي على نماذج بها نماذج فرعية وبها قوائم وأزرار وتسميات ومعظم أنواع عناصر التحكم ولكن جرب أن تستدعي دالة التحجيم resizefrom Me, 1024, 768 قبل أمر التكبير DoCmd.Maximize ...... للعلم تم تعديل الدالة للتحكم في حجم خط عنصر التحكم الذي يحتوي على نصوص ليتناسب مع تغيير حجم العنصر ودقة الشاشة

أخي الكريم الكود وظيفته هي قراءة دقة الشاشة لدى المستخدم ومقارنتها بأفضل دقة وهي المحددة منك في استدعاء الدالة resizefrom Me, 1024, 768 ثم إذا كانت غير المحددة منك يتم تغيير حجم النموذج وكل عناصره بما يتناسب مع دقة الشاشة الموجودة بجهاز المستخدم سواء بتكبير حجم النموذج إذا كانت دقته أعلى من المحددة في الكود أو بتصغيره إذا كانت دقة أصغر من المحددة في الكود أما بالنسبة للمسافات بين العناصر فهي أيضا تمت مراعاتها حيث يتم تحديد موضوع العنصر في النموذج بناء على دقة الشاشة ...... ويبدأ الكود ب wrate = DisplaySize(0) / bestw hrate = DisplaySize(1) / besth ويعني معدل العرض يساوي ناتج قمة عرض شاشة المستخدم على أفضل عرض (المحدد في استدعاء الدالة) وكذلك معدل الارتفاع ثم frm.InsideWidth = frm.InsideWidth * wrate frm.InsideHeight = frm.InsideHeight * hrate وتعني تغيير عرض النموذج إلى عرض النموذج الأصلي مضروباً في معدل العرض (المحسوب سابقاً) وكذلك تغيير ارتفاع النموذج ثم Dim fc As Control For Each fc In frm.Controls fc.Top = fc.Top * hrate fc.Left = fc.Left * wrate fc.Width = fc.Width * wrate fc.Height = fc.Height * hrate Next وتعني أنه يتم تغيير موضع كل عنصر تحكم في النموذج إلى موضعه الجديد الناتج عن ضرب مكانه الأصلي في معدل العرض أو الارتفاع وتم تغيير ما يلي مكانه بالنسبة لأعلى النموذج ومكانه بالنسبة ليسار النموذج وعرضه وارتفاع هذا هو شرح الدالة وكيفية عملها ........ ولكن ما معنى نموذج يملأ الشاشة؟؟

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

اعذرني أخي يوسف ما دلالة الرقم 8 في معادلتك؟؟ وإلى اي شيء يعود؟

شكرا لك أخي مجدي لغز جميل أنا حليته من الآخر بهذه المعادلة =((4*7*7)+28)*7*7+14 وياريت كل واحد يقول لنا المعادلة اللي وصل للحل بيها

يوجد كود أخي الكريم لحذف التشكيل أما وضعه فلا أعتقد

شكرا لك أخي الكريم برجاء استخدام البحث قبل كتابة أي موضوع جديد http://www.officena.net/ib/index.php?showtopic=38279