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

بسم الله الرحمن الرحيم اعضاء المنتدى الكرام السلام عليكم ورحمة الله وبركاتة اعلم انى مقصر معكم ولكن كانت ظروف طارئة وان شاء الله نعود اليكم بمجموعة منوعة من درووس الاكسيل انتظرونا وتابعونا درس اليوم بناء على سؤال احد الاصدقاء عن كيفية عمل فلتر او تصفية دون تغييير فى المسلسل للجدول فيديو شيق يارب يعجبكم https://youtu.be/kpRzecjmM0g

بسم الله الرحمن الرحيم الاخوه الكرام بعد فترة انقطاع عن المنتدى بسبب الظروف وبعودتي الميمونة احببت أقدم لكم اليوم بمشيئة الله درس حول التحكم بحجم الفورم ===================================== الأدوات ===================================== تكست بوكس/TextBox ليبل/Lebel أو أيقونات كما في الصورة zoom_in zoom_out ===================================== الكود البرمجي ===================================== '==================================================== Private Sub UserForm_Initialize() Dim i As String i = Me.TextBox.Value If i <= 0 Or i = "" Or Not IsNumeric(i) Then i = 100 Me.Zoom = i Me.Width = 712.5 * i / 100 Me.Height = 579.75 * i / 100 End Sub '==================================================== Private Sub zoom_out_Click() If Me.Zoom <= 80 Then Exit Sub j -10 End Sub '==================================================== Private Sub zoom_in_Click() j 10 End Sub '==================================================== Private Sub j(ByVal s) Me.Zoom = Me.Zoom + s Me.Width = 712.5 * Me.Zoom / 100 Me.Height = 579.75 * Me.Zoom / 100 Me.TextBox.Value = Me.Zoom End Sub '==================================================== وفي الاخير أتمنى الفكرة نالت إعجابكم في إنتظار تجربتكم التحكم بحجم الفورم.rar

هذه سهلة جدا ! واحد الافكار : هناك ملف والذي يظل مفتوحا عند فتح ملف الاكسس وبه كذلك المستخدمين الذي شغالين على القاعدة ! فاشوف متى وجد الملف معناته القاعده مفتوحة ؟ ولكن المشكلة كيف يتم اغلاق القواعد الامامية ؟ والحقيقة اخ سعيد مررت بمشاركات كثيرة هنا في المنتدى حول هذه النقاط ! فخليني امر على اغلبلها لكي لا نكرر المضمون والاهم من ذلك خليني ارسم تصور او سيناريو معين ل " افضل طريقة لضغط القاعدة الخلفية وعن بعد او برمجيا " والفكرة او السيناريو هو الاهم ! تحياتي

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

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

اسف نسيت ارفق المثال ... 12345.rar

احي ياسر تعال نعقد (اعني نجغل له عقده) للموضوع ماذا لو كان هناك خلايا فارغة بين البيانات ونريد ان نتجنبها انا عندي الحل (همتك بقى يا ابو الراء مع الاخوان)

احي ياسر انت اقترحت فقط 6 خلايا ،وانا اشتغلت على هذا الاساس اذا كنت تريد اكثر انظر الى هذا الملف جدول مقلوب.rar او ربما هذه المعادلة ابسط قليلاً =IF(ROWS($A$1:A1)>COUNTA(A:A),"",INDEX(A:A,COUNTA(A:A)-ROWS($A$1:A1)+1))

بعد التجارب الامر requery فقط هو اختصار ل me.requery وللتجربة وضعت مربع قائمة فعند البحث لا تظهر النتائج بها لانها تحتاج ريكويري فاما تعمل ريكويري خاص بها او docmd.requery سيعمل للجميع فعند استخدام requery فقط لم تتحدث القائمة مما يظهر لنا انه نفس me.requery على غرار docmd.requery والذي قام بعمل ريكويري للكل تحياتي بحث واضافة-update.rar

كل الشكـــــــــر والتقديـــــــــــــــــــــر استاذ رمهان شكر الله لك واجزلك وفير العطاء وجزاك عنى وعن كل اخوانى كل الخير ان شاء الله

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

اولا السلام عليكم ورحمة الله تعالى وبركاته استاذى الحبيب رمهان ثانيا انا لى عظيم الشرف ان حضرتك تتابع اقل طالب علم فى هذا الصرح الشامخ ثالثا بصراحة انا مش عارف الفرق بين 1. docmd.requery 2. me.requery وللعلم انا جربت الطرق الثلاثه 1. docmd.requery 2. me.requery 3-requery والنتيجة واحدة

هذه مشاركة ضع المعادلة التالية في حقل الدمج =[year] & Format([autono],"0000") بالتوفيق

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الغالي " محمّد حسن المحمّد " على التّنبيه بهذا المصاب الجلل الذي أصاب أخونا الفاضل " ياسر فتحي البنّا " ما عسانا سوى أن نقول : {إِنَّا لِلَّهِ وَإِنَّا إِلَيْهِ رَاجِعُونَ} عظم الله أجركم و أحسن عزاءكم و ألهمكم و ذويكم الصّبر و السّلوان و أسكن الفقيدة فسيح جناتّه إن شاء الله يا رب

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

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

أخي الكريم شريف جرب الحل التالي Sub ConvertTextToNumberUsingArrays() Dim Arr, Temp, C, Str As String, I As Long, P As Integer Arr = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row) ReDim Temp(1 To UBound(Arr, 1)) For I = LBound(Arr) To UBound(Arr) Temp(I) = AscWConvert(Arr(I, 1)) Next I Range("B1").Resize(UBound(Temp)).Value = Application.Transpose(Temp) End Sub Function AscWConvert(Rng As Variant) Dim C, P, Str If IsNumeric(Rng) Then AscWConvert = Val(Rng) ElseIf Not IsEmpty(Rng) Then For P = 1 To Len(Rng) C = AscW(Mid(Rng, P, 1)) If C - 1632 >= 0 And C - 1632 < 10 Then Str = Str & (C - 1632) Else Select Case C Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57 Str = Str & ChrW(C) End Select End If Next P If Len(Str) = 0 Then AscWConvert = "" Else AscWConvert = Val(Str) End If End If End Function الموضوع استغرق مني يومين بحث ومناقشات في منتديات للوصول لحل ، فلا تنسانا بدعوة بظهر الغيب تقبل تحياتي

وعليكم السلام ورحمة الله تفضلي أختنا الفاضلة فتح استعلام الاسم.rar

بغد اذن اخي بن علية هذه المعادلة توضع في الخلية B18 ,تسحب ياسراً و نزولاً =SUMPRODUCT((($B$3:$B$14) ($B$3:$D$14)=$A18)*(($D$3:$D$14) ($B$3:$D$14)=B$17)*$C$3:$C$14) مرفق الملف Kerols Ashraf.rar

اتفضل انا غيرت شوية حجات البحث عملته بطريقه جديده علشان يكون عندك اكثر من طريقة اكواد الاضافة والتعديل والحذف تم اضافتها بحث واضافة-update2.rar

السلام عليكم ورحمة الله تطبيق المعادلة المقترحة في الموضوع الآخر المكرر... بن علية طلب معادلة.rar

السلام عليكم مشاركة سريعة مني تحليل الاذون مارس 2016 .rar

السلام عليكم ورحمة الله وبركاته إخواني أحبابي في الله وفقنا الله عزوجل إلى فكرة جديدة بدأناها من أسبوعين ، وهي أن يخصص كل أسبوع موضوع للبحث ، يشارك فيه جميع الأعضاء بالبحث وتقديم الحلول المختلفة حول موضوع معين .. ليكون الموضوع فيما بعد مرجع للباحث ، حيث أن الموضوع سيستغرق أسبوع وهي فترة ليست بالقصيرة ، والكل يشارك فيه بكل معلومة ولو بسيطة لإثراء الموضوع .. ويتم مناقشة الحلول المقدمة ومعرفة جوانب القوة والضعف في كل حل لنصل في النهاية إلى حلول متنوعة تثري الموضوع وتجعل الباحث يجد مبتغاه فيما يبحث بشأنه أرجو من الجميع المشاركة وعدم التكاسل ... لا أريد مجرد ردود وفقط .. أريد من الجميع تقديم ولو معلومة بسيطة تثري الموضوع ، فلربما وجد الأخوة الحلول من مجرد فكرة بسيطة موضوع الأسبوع هو كيفية عكس القيم في عمود .. لنفترض أن لدينا القيم التالية في النطاق A1:A6 Yasser 15 Khalil Hello Nader Bye المطلوب أن تكون القيم في العمود المجاور له العمود B بالشكل التالي Bye Nader Hello Khalil 15 Yasser وتقبلوا جميعاً وافر تقديري واحترامي

برنامج تأليف و تلخيص الكتب ************************ برنامج مجانى لا ابيح فتح مصدره (محتواه البرمجى) و لا استخدامه تجاريا ************************************************************* رابط شرح البرنامج https://www.youtube.com/watch?v=pKjRK737QXk ************************************************ رابط تحميل Microsoft Access 2010 Runtime https://www.microsoft.com/en-us/download/details.aspx… ****************************************************** رابط تحميل البرنامج http://www.mediafire.com/download/ol2ca1fnri9s7m8/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC+%D8%AA%D8%A3%D9%84%D9%8A%D9%81+%D8%A7%D9%84%D9%83%D8%AA%D8%A8+.accdb ****************************************************** اسم المستخدم : الله المستعان كلمة السر : الله المستعان ********************************** لا تنسى الإعجاب بالصفحة حتى يصلك كل جديد https://www.facebook.com/mahmoudelhamahmy1000 ******************************************************

اخوانى الاعزاء اشارككم الكود الجميل ده مرفق معه اداه تحملوها وباعد ما تضغط رن هيفتحلك انبوت حدد الرنج المراد عكسه بس هنا بيعكسه فى محله اكتشفوا الكود والاداه جميله وفيها حاجات كتير اوى طبعا انتم الاساتذه تعرفونا ايه استعملاتها رابط المصدر رابط الاداه للتحميل Sub FlipColumns() 'Updateby20131126 Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer, j As Integer, k As Integer On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Arr = WorkRng.Formula For j = 1 To UBound(Arr, 2) k = UBound(Arr, 1) For i = 1 To UBound(Arr, 1) / 2 xTemp = Arr(i, j) Arr(i, j) = Arr(k, j) Arr(k, j) = xTemp k = k - 1 Next Next WorkRng.Formula = Arr End Sub بالتوفيق اخوانى

انظر query1 drgat.rar

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

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

شوف يا عم ابو البراء انت عمال تجيبلنا موضوعات صعبه انا كل اللى عرفت اعمله احط معادله فى الست خانات باستعمال اوفست دى اول خانه والبقيه تحتها =OFFSET(A1;5;0) حاولت اعمل مصفوفه معرفتش حاولت اظبطها باوفيست فى Vba برضه معرفتش يالا مش مشكله هنحاول تانى وجزاك الله كل خير والنبى والنبى يا استاذ امتحنا امتحان سهل احنا ساقطين لوحدنا ههههههههههههههههههههههه

الضغط يتم باحد طريقين اما بفتح قاعدة البيانات / ادوات/ ضغط واصلاح قاعدة البيانات واما بواسطة الكود البرمجي للقاعدة البعيدة وهو ما بينته في مشاركتي السابقة بما يشبه هذا الكود DAO.DBEngine.CompactDatabase db_name, temp_name Kill db_name Name temp_name As db_name

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

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

أخي وحبيبي الجموعي لكم افتقدتك الآونة الأخيرة .. عوداً حميداً يا رجل ولا تحرمنا من تواجدك معنا فنحن أخوة ونشتاق لإخواننا فلا تحرمنا من رؤياك ولو لدقائق كل يوم مشكور على الهدية القيمة والرائعة تقبل وافر تقديري واحترامي

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

جزاك الله خيراً أتمنى أن تضيف جديداً كلما سنحت للك الفرصة

السلام عليكم ورحمة الله وبركاته إخوتي الكرام: أخي الكريم حراثي تواتي لقد ساعدك إخوتي الكرام باﻷكواد وفقا لطلبكlabel 5 &6 إلا أنك عرضت كود به label 59&60 فكيف لأكوادهم أن تلبي طلبك إذا كانت المعطيات تختلف عما طلبت منهم . جزاكم الله خيرا على كل ما قدمتموه إخوتي الجموعي وعبد العزيز وحراتي والسلام عليكم ورحمة الله وبركاته.

الف الف شكر لك اخي ياسر او البراء فعلا انت رجل محترم ومحترف ربنا يجزيك خير ويرزقك من نعيمه ويحفظك ويبارك فيك تم الحل فعلا

شكرا اخي الكريم على الرد و الافادة هذا الكود الذي جربته و ضبط معي Private Sub UserForm_Activate() Do Me.Label59.Caption = Format(Now, "hh:mm:ss") DoEvents Loop End Sub

الاخ / ياسر عظم الله اجرك انا لله وانا اليه راجعون

يا اخي الفاضل الله يرضي عنك وعن والديك هي كانت مجرد فكرة لا ادري هل يمكن ان تتحقق ام لا وقد حققتها انت بارك الله فيك وفي علمك يارب العالمين

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

جزاكم الله كل خيراً

السلام عليكم أستاذنا الكريم عماد غازي المحترم الذي يتحفنا بكل جديد ومفيد جزاكم الله خيراً على هذا العرض الرائع لهذه الدالة التي تبقي الأرقام متسلسلة في حالة التصفية أو وجود فراغات ولكن إن لم تكن نسخة الأوفيس من 2010 وما فوق فإنني سأعرض عمل دالة أخرى إثراء لما قلته وهي: SUBTOTAL =IF(B2<>"";SUBTOTAL(3;$B$2:B2);"") حيث تعطي النتيجة ذاتها تقريباً بعد الفلترة ...مع ملاحظة أن عيب هذه الدالة في السطر الأخير حيث لا تعطي كما هذه الدالة الجديدة AGGREGATE جزاكم الله خيراً والسلام عليكم ورحمة الله وبركاته.

لادراج اليوم تلقائى بتقريرك بالتوفيق

السلام عليكم هل هو المطلوب دمتم تحليل الاذون مارس 2016 .rar

طريقه ممتاز اخي اباجودي

أحبائى فى الله أحبائى الكرام محمد ابو صهيب أحمد الفلاحجى الصـقر زيزو العجوز ياسر العربى رجب جاويش جلال الجمال_ابو أدهم صلاح المصرى سعد عابد لا أرى كلام يعبر عن مدى سعادتى بشعورى أننى بين إخوتى أدام الله بيننا الأخوة والمحبة ولا أراكم الله مكروه فى عزيز لديكم عظم الله أجركم وأشكركم جميعا على مشاعركم النبيلة ودعائكم الطيب إن لله وإن إليه راجعون قدر الله وما شاء فعل

عظم الله اجركم اخي ياسر انا لله وإنا إليه راجعون

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

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