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

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

اليك هذا النموذج الذي يمكنك البناء عليه اختر القيم من الخلايا C2 and d2 البحث بشروط.rar

بسم الله الرحمن الرحيم دروس فى VBA Excel هذه الدروس نتيجة جهد مستفاد من شروحات وأعمال السادة أساتذة منتديات أوفيسنا أسأل الله عز وجل لهم أن تكون فى ميزان حسناتهم http://www.officena.net/ib/index.php الدرس الأول قبل أن نبدأ، دعونا نتأكد من أن الأدوات التي نحتاجها موجودة. إذا كنت تستخدم ( Excel 2007) أو إصدار أعلى click ". Office button, then click Excel Options بالاسفل سيتم إضافة علامة تبويب جديدة وهى Developer سوف نحتاج فى العمل مع التعليمات البرمجية ل VBA ، محرر، يتم تثبيته بشكل افتراضى. يمكنك فتحه عن طريق الضغط على تركيبة مفتاح الاختصار " Alt+ F11 ": او انقر على الشكل المشار له بالسهم بالصورة السابقة انتهى الدرس الأول مرفق ملف PDF يرجى ان كان هناك أى استفسار يكون فى مضمون الدرس حتى لا يتم التشتيت وتقبلوا منى وافر الإحترام والتقدير الدرس 1VBA Excel.rar

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

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

شرح تركيب الأداه http://www.excel2013.info/power-query/

شاهد هذا الرابط وقم بالتنزيل http://www.microsoft.com/en-eg/download/details.aspx?id=39379

بارك الله فيك اخي مارد

جهد مشكور علية

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

الأخت الكريمة أم سارة أهلا ومرحبا بك في المنتدى بين إخوانك إليك الملف من غير حماية كشــف حضور وغياب الطلاب أو موظف.rar

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

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

هل مكن ارفاق القاعدة ذات الجداول المربوطة للنظر فى المشكلة او للتعديل

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

الأخ الفاضل سبق أن طلبت منك تغيير اسم الظهور للغة العربية لسهولة التواصل الحل المقدم من الأخ الغالي خزاني حل بسيط وجميل جداً أنا فقط ترجمته إلى الكود Sub TimeCalculate() With Range("C2:C" & Cells(Rows.Count, 1).End(xlUp).Row) .Formula = "=MOD(B2-A2,1)" .Value = .Value End With End Sub تقبل تحياتي

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

جرب هذا الملف لقد وضعته في صيغة 2003 لاكبرعدد من المستفيدين منه تاريخ تلقائي 2003.rar

أخي الحبيب ياسر (أبو البراء) تفضل، هذا طلبك.. وآني الممنون. جدول الضرب2 .. الحل.rar جدول الضرب..فيديو.rar

اخي ياسر افتح الرابط واحفظ الرابط في المتصفح لديك وتصفح اوفسينا وهو شغال حاجة حلووووووووووه تستحق ان يحتفظ الشخص بهذا الرابط بل ويضعة في توقيعة https://archive.org/details/bokhari_audio صحيح البخاري صوتيا

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

الأخ الفاضل أحمد بالنسبة للمنتدى ليس به مشكلة ..قد يكون الموضوع كان بعنوان غير مناسب فقام أحد المشرفين بتغيير العنوان للموضوع ومن السهل الوصول لموضوعاتك من خلال اسمك بالمنتدى ادخل على رابط كتاباتي ستجد كلمة المشاركات والموضوعات وبسهولة يمكنك الوصول لموضوعك إليك الكود التالي عله يفي بالغرض Private Sub Worksheet_Change(ByVal Target As Range) Dim lRow As Long If Target.Cells.CountLarge > 1 Then Exit Sub If Not Intersect(Target, Range("F3")) Is Nothing Then If Not IsEmpty(Range("F3")) Then Cells.EntireRow.Hidden = False lRow = Range("F3").Value + 4 Rows("" & lRow & ":39").Hidden = True End If End If End Sub تقبل تحياتي اخفاء صفوف.rar

السلام عليكم ورحمة الله أخي الكريم، راجع شروط النجاح والرسوب في المعادلة لأن الحالة المحققة في هذا الصف لا تحقق لا شروط النجاح ولا شروط الرسوب (X32=X13 و T32=T13) لذلك ظهر الفراغ في الخلية المعنية.... وأعتقد أن الخلل في شروط النجاح خاصة.... بن علية

هذا هو المرفق DoCmd.OutputTo acOutputQuery, "q", acFormatXLS, CurrentProject.Path & "\mared.xls", True q هو اسم الاستعلام الخاص بالجدول التى تريد تحويله الى اكسل mared_export.rar

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

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

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

إلى أن تقوم برفع ملف جرب الكود بهذا الشكل .. Private Sub Worksheet_Change(ByVal Target As Range) Dim R As Integer On Error Resume Next If Not Intersect(Target.Cells(1, 1), Union(Range("D2:D10000"), Range("O2:O10000"))) Is Nothing Then R = Target.Row If Cells(R, "D").Value <> "" Then Cells(R, "O").Value = R + 4999 Cells(R, "E").Value = WorksheetFunction.VLookup(Cells(R, "D"), [TUNNEL6], 2, 0) Cells(R, "F").Value = WorksheetFunction.VLookup(Cells(R, "D"), [TUNNEL6], 3, 0) Cells(R, "G").Value = WorksheetFunction.VLookup(Cells(R, "D"), [TUNNEL6], 4, 0) Else Union(Cells(R, "O"), Cells(R, "O")).ClearContents End If End If If Not Intersect(Target.Cells(1, 1), Union(Range("C2:C10000"), Range("O2:O10000"))) Is Nothing Then R = Target.Row If Cells(R, "C").Value <> "" Then Cells(R, "O").Value = R + 4999 Cells(R, "l").Value = WorksheetFunction.VLookup(Cells(R, "C"), [TUNNEL3], 2, 0) Else Union(Cells(R, "O"), Cells(R, "O")).ClearContents End If End If On Error GoTo 0 End Sub ولكن الكود غير مفهوم بالنسبة لي .... ومبهم في بعض الأسطر .. ولاحظت أن في الكود رقم 0 وأعتقد أن الصحيح هو أن الصفر يجب استبدالة بحرف الـ O عموما جرب قد يكون المطلوب

بالنسبة لى فانا افضل مربعات النصوص غير المنضمة هههههههههه بستريحلها نفسيا عن مربعات النصوص المنضمة وفور الانتهاء من تثبيت الويندوز لدى سارفق مثالا لبرنامج اخى الفاضل

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

تجمع النجوم ..!! تطلع فوق على سطح البيت وتجيب معاك صاعق وتلسكوب وكيس ... وتبص من خلال التلسكوب وتركز على أي نجمة تعجبك ولما تلاقيها تقوم تمسك الصاعق وتلوش بيه هتلاقي النجمة وقعت في الكيس وهكذا .. والله ما فهمت حاجة لا من الملف ولا من الشرح ...ارفق بعض النتائج المتوقعة واشرح بالتفصيل المطلوب بدقة جرب المعادلة دي في الخلية K2 =G2&" "&H2&" "&I2&" "&J2 تقبل تحياتي

اليك الحل كما يجب ان يكون الرقم القومي.rar

السلام عليكم ورحمة الله أستاذ أبو يوسف فضلا وضع باسورد الحماية حتى نتمكن من العمل على الملف

أخى الفاضل / الصقر بارك الله فيك وفى أولادك وان شاء الله تراهم من المتفوقين دائما تقبل أرق تحياتى وتقديرى لشخصكم الكريم أخوك / رجب جاويش

اخى الكريم طريقة العمل فى المرفق الاتى اضف الموظف وبياناته اضف الصنف وبيانته ثم اذا اردت ان تضيف عهدة ادخل الى نموزج اضافة عهدة وما عليك الا كتابة الرقم العام للعميل وسيقوم البرنامج تلقائيا بجلب بياناته ثم اضف التاريخ وابدا فى اضافة العهدة قمت بانشاء الاستعلامات المطلوبه وانشاء التقرير الذى تريده وبعدما تنتهى من كتابة العهدة فقط اضغط زى طباعة فى اعلى النموزج وسيقوم بالطباعة المرفق http://www.mediafire.com/download/e4cnevmr2ysibeh/برنامج_عهد_المستودع_5.rar

لا مش اسرع واخف فاستخدام لوحة المفاتيح بادخال الارقام افضل واسرع من فتح القوائم المنسدلة ثم البحث عن القيمة المطلوبة

السلام عليكم ورحمة الله الأخ طارق، المشكل يمكن له أكثر من سبب : * فيروس، تأكد من أن الملف خال من أي فيروس... * كود يقوم بتغيير حالة الملف إلى Read Only، راقب إن لم يكن في الملف أي كود يقوم بهذه العملية... * (وهي الحالة التي أرجحها) أن يكون قد تم حفظ الملف بخاصية Read Only Recommanded، وفي هذه الحالة يمكن حل هذا المشكل بالقيام بالمراحل التالية : Choose File -> Save As. Enter a filename, and click on 'Tools', just to the left of the Save button. Then select 'General Options...'. In the box that opens, deselect the checkbox next to 'Read-only recommended' and press OK وبالعربي : نفتح الملف المعني ونختار من قائمة "ملف" الخاصية "حفظ باسم" ثم نختار "أدوات" Tools ونختار خاصية "خواص عامة" General Options ثم نحذف العلامة التي أمام الاختيار "Read Only Recommanded" ونضغط على OK (وقد يُطلب استبدال الملف إذا كانت التسمية هي نفسها)... والله أعلى وأعلم أرجو أن وُفّقت في تقديم يد المساعدة... بن علية

اخي وحبيبي راعي مع فائق الاحترام لك وللأخ قدور انا عملت بالنصيحة وعدلت البرنامج وخليت المجموع يضم السعر * العدد زي ما انت قلت بس الأخ قدور حمل الملف المرفق اول واحد واذا نزلت اخر مرفق الي حتلاقي انو متعدل. انا بشكركم جدا جدا جدا واتعبتكم معي. اللهم ارحم من علمني حرف وجعل له جنة الفردوس الأعلى ورحم امه وابيه وابنائه وجميع عائلته واحبتهم اللهم آمين آمين آمين

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

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

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

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

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

بسم الله الرحمن الرحيم اخى العزيز على الشيخ اشكرك جدا على اهتمامك بالموضوع ما اريده موجود بالفعل فى هذا الصرح الكبير ولاكن لم استطع تطبيقه على برنامجى بعد اذن سيادتكم ارسلت رابط المثال الموجود بهذا الصرح الكبير اتمنى ان تتوفق على تطبيقه فى برنامجى (فاتورة مبيعات) ولكم جزيل الشكر والتقديرhttp://www.officena.net/ib/index.php?showtopic=56482&p=358111 www.officena.net/ib/index.php?showtopic=56482&p=358111

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