علي السحيب

أشكرك أخي الجزيرة على تفاعلك.

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

يمكنك تعديل الكود لكي يذهب إلى أي مكان خالي من البيانات داخل ورقة العمل .. وعند إدخال كلمة المرور الصحيحة يذهب بك إلى بداية الورقة. كما في الملف المرفق: _________.rar

أنا أستخدم أوفيس 2003 .. ولكن ميزة نموذج الإدخال متوفرة حتى في الإصدارات القديمة من الإكسل.

قمة الإبداع أخي حسام .. كما هي عادتك.

بالنسبة لرسالة الخطأ .. فأنا لم تظهر لدي أي أخطاء .. فأخبرني متى تظهر رسالة الخطاً بالضبط. أما بالنسبة لربط أكثر من قائمة .. فأعتقد أنه بالإمكانية عمل ذلك .. ولكي لا يأخذ الموضوع أكثر مما يستحق .. أفضل أن ترفق الملف الذي تود تطبيق الكود عليه .

ليس بالإمكانية زيادة الصفوف .. يمكنك الإنتقال إلى صفحة أخرى .. هذا هو الخيار الذي لديك.

وعليكم السلام، بصراحة عندما طرحت سؤالك لأول مرة .. لم أفهم ما كنت تريده بالضبط .. ولكن عندما رأيت الكود والملف المرفق فهمت طلبك .. وأعتقد أن الكود التالي أقصر ويخدم بشكل أكبر ويعمل على كامل الأعمدة وليس على خلايا معينة فقط .. أي بإمكانك إضافة سجلات آخرى جديدة بدون التعديل على الكود.. Private Sub Worksheet_Change(ByVal Target As Range) Dim RoomNo As String Dim fndRoom As Range If Target.Count = 1 And Target.Column = 4 Then If Target.Value > 0 Then RoomNo = InputBox("أدخل رقم الشقة المُراد إدخال بيانات النزيل فيها","نموذج إدخال رقم الشقة") With Columns(3) Set fndRoom = .Find(RoomNo) End With If Not fndRoom Is Nothing Then fndRoom.Offset(0, -2).Select Else MsgBox "رقم الشقة الذي أدخلته غير موجود", vbExclamation, "عفــواً" End If End If End If End Sub حظاً سعيداً،

يمكنك أخي أيضاً مراجعة الرابط التالي .. أعتقد أنه موضوع ذات صلة بما تريد: http://www.officena.net/ib/index.php?showtopic=8499&hl=تصريف

إذا كنت تريد أن يكون الناتج ثابتاً ولكل سعر خلية مستقلة فقم بوضع الرقم داخل الصيغة بدلآ من مرجع الخلية .. ألا وه H2 في المثال المرفق مسبقاً.

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

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

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

وعليكم السلام، بالنسبة لسؤالك الأول .. يكون ذلك بالذهاب إلى القائمة ملف ثم طباعة .. حيث يمكنك من هناك تحديد الصفحات التي تود طباعتها .. من خلال الخيار صفحات .. من >> إلى. أما بالنسبة لسؤالك الثاني فإنه من المفترض ألا يتم عرض أو طباعة صفوف مخفية .. وأعتقد أن المشكلة غير ذلك .. وللتأكد من نوع المشكلة يمكنك الذهاب إلى القائمة عرض وإختيار الخيار الثاني فيها وهو Page Break Preview .. وعندها سيتم عرض جميع الصفحات المُختارة للطباعة. ولإختيار أجزاء معينة من ورقة العمل ليتم طباعتها يمكنك عمل ذلك عن طريق إختيار الأجزاء المُراد طباعتها ثم الذهاب إلى القائمة ملف وإختيار تحديد منطقة الطباعة.

السلام عليكم، بالنسبة لسؤالك الأول .. فأعلم أنه لا يمكنك وضع شرطاً للجمع يعتمد على لون الخلية أن يكون أخضر أو أحمر .. فالشروط في الإكسل تعتمد على كلمات أو أرقام .. وهذا ينطبق على سؤالك الثاني. شاهد المرفق ________.rar

شاهد أخي المرفق التالي: الورقة الأولى تحتوي على ما طلبت الورقة الثانية تحتوي على طريقة أخرى لإختيار نوع الإجازة والتي أعتقد أنها أسهل في التعامل من الطريقة التي طرحتها. ___________________________.rar

وعليكم السلام، شاهد أخي الملف الموجود في الرابط التالي .. وكيف استخدمنا الأشكال التلقائية لإعطاء الأزرار عدة ألوان .. http://www.officena.net/ib/index.php?showtopic=9772 وسأحاول البحث على النت عن برنامج يقوم بتلوين الأزرار الأساسية للماكرو في الإكسل.

السلام عليكم، أولآ آسف على التأخر في في تلبية طلبك .. ولكن أن تصل متأخراً خيراً من ألا تصل .. على كل حال طلبك موجود في الملف المرفق .. أتمنى أن يحوز على رضاك. ____________.rar

السلام عليكم، في هذا النوع من التصفية لا نستطيع جعل الجدولين جدول واحد فقط .. لأن الجدول الأول يحتوي على البيانات التي سوف يتم تصفيتها .. أما الجدول الثاني فإنه يحتوي على النتائج المصفاه فقط .. ولكن إذا كنت لا تريد ظهور الجدول الأول (الذي يحتوي على البيانات) فيمكنك إخفاء الأعمدة المُكونة له .. وبهذا سوف يظهر عندك جدول واحد فقط. حظاً سعيداً،

الملف المرفق يقوم بتلوين الخلايا التي بقي على إنقضاء تاريخها أربعة أيام أو أقل. ويتم ذلك عن طريق إستخدام الصيغة التالية في التنسيق الشرطي: =DATEDIF(INDIRECT(ADDRESS(ROW(),COLUMN())),TODAY(),"d")<=4 أتمنى أن يكون هذا ما تريد: ___________________________________________________________.rar

شاهد المرفق، ____________.rar

يمكنك إستخدام الأشكال التلقائية الموجودة ضمن شريط الأدوات رسم وتغيير تنسيقاتها كيف تريد عوضاً عن أي برامج لتصميم الأزرار.

وعليكم السلام، بالنسبة لسؤالك الأول .. راجع الرابط التالي: http://www.mana.ae/powerpoint.htm

شاهد المرفق، ____________.rar

سأشرح لك كيفية عمل صورة تحتوي على الاسم في برنامج الباور بوينت 1- أفتح برنامج الباور بوينت وقم بإدراج وورد آرت والذي تجده في شريط الأدوات رسم وهو على شكل حرف A لونه أزرق .. 2- عند الضغط عليه ستخرج لك عدة أشكال قم باختيار الشكل الذي يناسبك منها ثم أضغط موافق. 3- وستخرج لك نافذة أخرى قم بكتابة العبارة التي تريدها ثم أضغط موافق .. 4- سيظهر الشكل الآن على الشريحة وسيظهر معه شريط أدوات الوورد آرت والذي يمكنك من خلاله تغيير تنسيق الوورد آرت الذي أنشأته .. وإذا لم يخرج لك شريط أدوات الوورد آرت قم بإظهاره عن طريق قائمة أشرطة الأدوات. 5- لكي تجعل الشكل الذي أنشأته شفافاً كما هو ظاهر في الملف المرفق في هذه المشاركة وفي مشاركتي السابقة .. قم باختيار الشكل ثم أضغط عليه بالزر الأيمن وأختر تنسيق وورد آرت. 6- ستخرج لك نافذة تغيير الألوان .. وموجود في أعلاها شريط تمرير موجود بجانبه عبارة Transparency أو شفافية .. قم بضبطها على حسب رغبتك ثم أضغط موافق. 7- أصبح الشكل الآن جاهزاً ولكن عند حفظه كصورة ستصبح خلفيته سوداء ولتغيير لون خلفيته .. قم بإنشاء مستطيل وغير لونه على حسب رغبتك ولا تضع له حدود .. وقم بوضع الوورد آرت الذي أنشأته فوقه .. 8- الآن أصبح الوورد آرت خلف المستطيل الأبيض ونحن نريد العكس .. ولعمل ذلك قم بالضغط بالزر الأيمن على المستطيل وأختر ترتيب ثم إرسال للخلف .. وسيتحقق ما نريد. 9- بقي الآن أن ندمج الوورد آرت مع المستطيل ليصبحوا شكلاً واحداً فقط .. ولعمل ذلك قم باختيارهما ثم أضغط عليهما بالزر الأيمن وأختر تجميع ثم مجموعة .. وبهذا أصبحوا شكلاً واحداً فقط. 10- ولتحويل الشكل إلى صورة قم بالضغط عليه الزر الأيمن ثم أختر حفظ الصورة بإسم ويفضل حفظها على امتداد JPEG وأحفظها في المكان الذي تريد على الجهاز. 11- الآن قم بفتح ملف الإكسل الذي تريد أن تضع له خلفية وأذهب إلى القائمة تنسيق ثم ورقة عمل ثم خلفية وقم باختيار الصورة التي حفظتها على الجهاز لكي تكون خلفية لورقة العمل ثم أضغط موافق. وإذا واجهتك أي صعوبة شاهد المرفق وقم بتغيير ما تريد فيه. أعلم أن الشرح طويل جداً .. ولكن الأمر يتطلب كل هذا الشرح. BackGropund.rar