نجوم المشاركات

هذا البرنامج يتيح لك امكانيه علق قاعده البيانات ضد مفتاح شفت وعمل العكس هذا البرنامج هديه للاعضاء وشكراا البرنامج فى المرفقات

اسم الملف: محاضرة عن التعديلات فى الاصدار الخامس للدليل المعرفي لإدارة المشاريع مرسل الملف: محمد طاهر ارسل الملف في: 16 ماي 2013 تصنيف الملف: Project Management محاضرة عن التعديلات فى الاصدار الخامس للدليل المعرفي لإدارة المشاريع 13 مارس 2013 اضغط هنا لتحميل هذا الملف

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

كنترول الصف الثانى الثانوى علمى وأدبى للأستاذ السيد ابو الفتوح 30 / 5 / 2013 اسم المستخدم سيد كلمة المرور سيد كنترول الصف الثانى الثانوى_علمى_السعدية ث 2012_2013.rar كنترول الصف الثانى الثانوى أدبى_السعدية ث 2012_2013.rar

بسم الله الرحمن الرحيم اخواني الأعزاء جمعة مباركة ودائما بالصحة والعافية انا لدي بيانات كبيرة في ورقة واحدة ومجموع الوصولات يصل الى الخمسة الاف واحيانا ,,, وبدون قصد ادخل اضع يدي على الكيبورد وبدل الرقم يكتب حرف وبعدها اعمل حفظ بدون لا اعرف انه حصل خطأ وبعد فترة اخرى اعمل مطابقة مالية فأجد نفسي غير قادر على المطابقة نتيجة وجود حرف في خلية الرقم سهوا . اريد حل لهذه المشكلة بالدخول الى الخلية بكلمة سر ولكن من تاريخ الى تاريخ اي بمعنى انه من تاريخ 1/1/2013 لغاية 27/5/2013 يمع الدخول الى اي خلية في الأعمدة الخمسة الأولى الا بكلمة سر وانا امدد بالتاريخ كل ما انتهي من يوم او يومان اتنمنى ان تكون قد وصلت الفكرة مع التقدير اخوكم ابو شرف

أخواني الافاضل لدي مجلد رئيسي بداخله 5 مجلدات فرعية وليكن على سبيل المثال ( المجلد الرئيسي اسمه مقرر ) بداخله ( مجلدات فرعية اسماءها ( الوحدة 1 ) ( الوحدة 2) ...( الوحدة 5) ) بداخل المجلدات الفرعية مواضيع عن كل وحدة . عملت صفحة اساسية عبارة عن تصميم وعملت ارتباطات تشعبية بحيث إذا ضغطت اي ايقونة يداخلك على المطلوب مشاهدته . سؤالي يكمن فيما يلي : 1- كيف اقوم بتضمين جميع الملفات داخل سيدي واحد بحيث عندما تعمل الاسطوانة يظهر لي التصميم مباشرة واقوم بضغط الايقونة المناسبة وادخل على المحتويات . 2- أخفاء الملفات المرفقة بحيث لا يظهر إلا التصميم فقط . الاوفيس لدي 2007 . مع تحياتي لكم . جعلها الله في موازين حسناتكم .

اعضاء منتدي اوفيسنا الكرام تحية طيبة وبعد اعمل على فكرة تسمي في عملي التوزيع ومعناها عدد العملاء المتعاملين في صنف معين فلو افترضنا على سبيل المثال انة لدي شيت اكسيل فارغ يوجد اسماء العملاء فية فى قاعدة بيانات العملاء (شيت 1 ) رقم واحد تحت العمود A النطاق A1:A2499 ومتسلسل حتي 2500 عميل وانة يوجد لدي في فواتير العملاء (شيت 2 ) صفحة رقم 2 فواتير جميع العملاء من بداية الشهر وحتي اخرة حيث ان اسم العميل تحت العمود B النطاق B1:B2499 تبدا الاعمدة متسلسلة في صفحة قاعدة بيانات العملاء (شيت 1 ) بداية من عمود B وحتي العمود CW عدد 100عمود ( الهدف) المصفوفة B1:CW2499 تبدا الاعمدة متسلسلة في صفحة فواتير جميع العملاء ( شيت 2 ) بداية من عمود C وحتي العمود CX عدد 100 عمود ( البيانات التي يتم معالجتها) المصفوفة C1:CX2499 المطلوب اذا كان لدينا عدد 100 صنف متسلسلين من 1 وحتي 100 ونريد معرفة اذا كان العميل متعامل وليكن على سبيل المثال هل العميل متعامل في الصنف رقم 1 من خلال الفواتير الموجودة في صفحة فواتير جميع العملاء ام لا ارجو التكرم بمساعدتي حيث اني حاولت كثيرا واخر ماتوصلت الية مجرد فكرة عن عمل تكرارات ومتغيرات ولكني تهت ولم استطيع ان اصل إلي شيء برجاء الاقتراح علي ماذا افعل محلوظة : كتبت معادلة بالاكسل لتوضيح ماذا اريد ان افعل ولكن ما اريد فعل اريد فعلة بالفيجوال بيسك شكرا جزيلا ______ _______.rar

السلام عليكم الاخوة والاساتذة اريد كود لطباعة كل الورق فى ورقة عمل (جدول الاستاذ) مرة واحدة وليس ورقة واحدة مثل ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1 طباعة1.rar

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

السادة الأفاضل أعضاء المنتدى كل جمعة وأنتم بخير أريد كود يسمح بالكتابة في النطاق A1:A100 بشرط أن تكون الخلية H1 = 5 وجزاكم الله خيراً .

السلام عليكم الاخ الكريم / hussam alhamadani بارك الله فيك عذرا اخي الكريم فلم اري طلبك الاول ولم اشاهدة لا في الطلب الثاني جرب المرفق هل هذا ما تقصده ... جزاك الله خيرا اكسيل ..طريقة عمل شاشة ادخال-SAMA.rar

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

اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

بارك الله فيك اخي الكريم وجزاك الله خيرا

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

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

السلام عليكم الاخ الكريم / أكرم جلال بارك الله فيك بعد اذن استاذي العزيز / جمال عبد السميع ... جزاه الله خيرا واثراءا للموضوع ... اليك اخي الكريم كود يقوم علي السماح بالكتابة في النطاق A1:A100 بناءا علي قيمة الخليه H1 ** اذا كان قيمة الخلية H1 تساوي 5 يمكنك الادخال في النطاق المذكور ... وان كانت غير ذلك لا يمكنك الادخال ارجو ان يكون هو طلبك ... وعسي الله ان ينفع به Private Sub Worksheet_Change(ByVal Target As Range) If Me.[H1].Value = 5 Then Exit Sub If Not Application.Intersect(Target, Range("A1:A100")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End Sub جزاك الله خيرا كود للسماح بالكتابة في نطاق تبعا لقيمة خليه.rar

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

هل ممكن بأستخدام ( data validation ) إدخال بشروط.rar

أختى الغالية جربى هذه المعادلة وهى معادلة صفيف =IF(COUNTA(A1:A16)=0;"";INDEX(A1:A16;MIN(IF(A1:A16="";99^99;ROW(A1:A16)))-ROW(A1:A16)+1;1)) وهذه لأول خلية فى عمود أما أول خلية فى صف هى نفس المعادلة ولكن يتم تغيير فيها كلمة ( row ) إلى ( column ) ولاتنسى حضرتك أن المعادلاتان معادلتا صفيف ، أى تقفى حضرتك فى نهاية المعادلة بعد كتابتها ويتم الضغط على ( ctrl +shift+enter ) معا

أخي العزيز // خالد الشاعر بارك الله فيك والله ولي التوفيق

أخي الحبيب روح المنتدي الاستاذ// حمادة عمر ما اطيب من مرورك بارك الله فيك وجزاك خيرا تقبل تحياتي

احسنت اخي الحبيب / ضاحي ... ابوعمرو جزاك الله خيرا

السلام عليكم الاخ الكريم / yousifsamra بارك الله فيك سأضع رابط موضوعك الاساسي لزيادة الافادة للجميع لمن يحتاج الي نفس طلبك والذي قام بتقديم الحل الاخ الحبيب / ضاحي الغريب ... ابو عمرو ... جزاه الله خيرا وشارك فيه القدير الحبيب الخبير / ابو حنين .. جزاه الله خيرا http://www.officena.net/ib/index.php?showtopic=47325 جزاك الله خيرا

ولو أردت اختصار أكثر استخدم هذا Sub ترحيـل() Range("AI8:AI117").Copy Select Case Range("E3").Value Case 9 To 12 Cells(8, Range("E3").Value + 29).PasteSpecial Paste:=xlPasteValues Case Is = 1 Range("AP8").PasteSpecial Paste:=xlPasteValues Case 2 To 6 Cells(8, Range("E3").Value + 42).PasteSpecial Paste:=xlPasteValues End Select Application.CutCopyMode = False Range("B6").Select End Sub

عند التثبيت يطلب password ما هي؟

اخي الكريم نعم ممكن ان يعمل الكود بناء علي قيمة خلية مثال فرضا لو اريد ان الون الخلايا من (( A8:A20)) باللون الاصفر عندما تكون قيمة الخلية (A2) = 10 سوف اعمل كود كالتالي Sub TEST() Range("A8:A20").Select With Selection.Interior .ColorIndex = 36 .Pattern = xlSolid End With End Sub وكود اخر وذلك لو ان القيمة في الخلية ((A2)) لا تساوي 10 اجعل الخلايا بدون لون كالتالي Sub TEST2() Range("A8:A20").Select Selection.Interior.ColorIndex = xlNone End Sub وفي حدث الصفحة اقوم بوضع الكود التالي Private Sub Worksheet_Change(ByVal Target As Range) If [A2] = 10 Then Call TEST Else Call TEST2 End If End Sub والتطبيق بالمرفقات Book1B.rar

الاخ ابو حنين كود رائع وبارك الله فيك ولكن ماذا لو اردنا اظهار يوم 10/1 ايضا حيث ان سرد التواريخ ينتهى عند 9/1

جزاك الله خير يأخى وأتمنى منك مواصله دروسك وخوصا فى عمل الماكرو ومن يفعل خيرا لا ينتظر الشكر عليه كله ابتغاء مرضاه الله والهم اجعله فى ميزان حساناتك

جزاك ألف خير يأخي

جزاك الله الف خير اخي و الله يجعلة في ميزان حسناتك