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

بسم الله الرحمن الرحيم اعضاء المنتدى الكرام السلام عليكم ورحمة الله وبركاتة اعلم انى مقصر معكم ولكن كانت ظروف طارئة وان شاء الله نعود اليكم بمجموعة منوعة من درووس الاكسيل انتظرونا وتابعونا درس اليوم بناء على سؤال احد الاصدقاء عن كيفية عمل فلتر او تصفية دون تغييير فى المسلسل للجدول فيديو شيق يارب يعجبكم 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 وتقبلوا جميعاً وافر تقديري واحترامي

اخوانى الاعزاء اشارككم الكود الجميل ده مرفق معه اداه تحملوها وباعد ما تضغط رن هيفتحلك انبوت حدد الرنج المراد عكسه بس هنا بيعكسه فى محله اكتشفوا الكود والاداه جميله وفيها حاجات كتير اوى طبعا انتم الاساتذه تعرفونا ايه استعملاتها رابط المصدر رابط الاداه للتحميل 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

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

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

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

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

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

الشيء المهم والذي يجب ان يعرف : ان الضغط والاصلاح لقاعدة البيانات هو عبارة عن عملية يتم من خلالها خطوتين اثنتين وثالثة 1- نسخ القاعدة الى الذاكرة مع الضغط وتغيير الاسم 2- حذف القاعدة الاصلية 3- اعادة لصق ما في الذاكرة واعادة اسمها الاصلي ومن هنا يتبين خطورة العملية فيما لو لم يتم اخذ الاحتياطات اللازمة فالاولى عند تنفيذ العملية ان يسبقها مباشرة في اول الكود عملية اخذ نسخة احتياطية

ما شاء الله عليك استاذ سعيد طلعت انت من الناس الذي يعرفون هم ماذا يعملون والله انت سبقتني وانا اكتب نفس السؤال ؟ لانه فعلا يجب ان يطرح ؟ نجرب ونعود ! تحياتي

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

وهذه اللمسة الرمهانية الفكرة اعجبتنى جدا جدا وجمالها فى سهولتها رمهان.zip

لي مشاركة هنا http://arabteam2000-forum.com/index.php?/topic/294120-%D9%85%D9%85%D9%83%D9%86-%D9%83%D9%8A%D9%81-%D8%B7%D8%B1%D9%8A%D9%82%D8%A9-%D8%A5%D8%B8%D9%87%D8%A7%D8%B1-%D8%B9%D9%84%D8%A7%D9%85%D8%A9-%D8%B5%D8%AD-%D9%88%D8%AE%D8%B7%D8%A3-%D9%81%D9%8A-%D8%A7%D9%84%D8%AA%D9%82%D8%B1%D9%8A%D8%B1-%D8%A8%D8%AF%D9%84-%D9%86%D8%B9%D9%85-%D9%88-%D9%84%D8%A7-%D8%9F/ بفكرة جديده وللفائده تحياتي

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

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

الأخ ياسر فتحي البنا وَعَنْ أُمِّ سَلَمَةَ -رضى الله عنها-، أَنَّهَا قَالَتْ: سَمِعْتُ رَسُولَ اللهِ صَلَّى اللهُ عَلَيْهِ وَسَلَّمَ، يَقُولُ: " مَا مِنْ مُسْلِمٍ تُصِيبُهُ مُصِيبَةٌ، فَيَقُولُ مَا أَمَرَهُ اللهُ: {إِنَّا لِلَّهِ وَإِنَّا إِلَيْهِ رَاجِعُونَ} ، اللهُمَّ أْجُرْنِي فِي مُصِيبَتِي، وَأَخْلِفْ لِي خَيْرًا مِنْهَا، إِلَّا أَخْلَفَ اللهُ لَهُ خَيْرًا مِنْهَا "رواه الإمام مسلم في صحيحه

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

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

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

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

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

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

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

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

نا لله وإنا إليه راجعون

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

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

https://www.youtube.com/watch?v=c1Bii6sCKG0