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

لدالة البحث VLOOKUP إمكانيات مذهلة لا يعلمها الكثير بالتاكيد تم استعراض الكثير من هذه الامكانيات على منتدى اوفيسنا إن لم يكن كلها ولكن كانت فى الاغلب رداً على اسئلة زملاء فلم ينتبة اليها الكثير لهذا سنستعرض معاً إمكانيات هذه الدالة على شكل - امثلة مع الشرح فكرة 1 / فكرة 2 / فكرة 3 / وبما اننا استخدمنا الدالة MATCH فلنتذكرها معاً فى المرفق ستجدوا التطبيقات وستتوالى باقى امكانيات هذه الدالة تباعاً ان شاء الله VLOOKUP _ 1.rar

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

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

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

اخوتي الكرام السلام عليكم ورحمة الله وبركاته العنوان ينطق بالمعنى كيف يعمل مستخدمون كثيرون ضمن نموذج واحد ولكن كل حسب صلاحيته وتطبيقه على ارض الواقع في البرنامج المدرسي حيث يتسنى لكل معلم ادخال درجات طلابه لا يشاركه في ذلك احد الا المسؤول عن البرنامج وهو جزء من درس احببت افراده ارفقت مثال بسيط عبارة عن جدولين ونموذجين يشتمل على 13 معلما ومسؤول واحد كلمات المرور للمعلمين تبدأ من 101 وحتى 113 وكلمة مرور المسؤول = 222 بيت القصيد والذي تدور عليه العمليه هو حقل رقم المعلم ويوجد مخفيا في حقل داخل النموذج لللاستزادة ورؤية التطبيق من هنا http://www.officena.net/ib/index.php?showtopic=55142&page=4#entry350160 آمل ان تجدوا الفائدة myUser.rar

الأخت الفاضلة أمة الله (أبو حنين ) نفس شكل الاسم ونفس شكل الملف الخاص بك .. عموماً تفضل جرب الملف المرفق ..عله يكون المطلوب ... متنساش تدعي لي على الإفطار Sub TransferData_YK() Dim WS As Worksheet Dim strSheet As String, strID As String, strDes As String Dim startDate As Date, endDate As Date Dim LR As Long, lRow As Long, Cell As Range Set WS = Sheets("general") strSheet = WS.Range("G1") strID = LCase(WS.Range("B3")) strDes = WS.Range("G2") startDate = WS.Range("B1") endDate = WS.Range("B2") lRow = 6 Application.ScreenUpdating = False WS.Range("B6:G100").ClearContents If strSheet <> "" Then With Sheets(strSheet) LR = .Cells(Rows.Count, 3).End(xlUp).Row For Each Cell In .Range("E6:E" & LR) If Cell >= startDate And Cell <= endDate And Cell.Offset(, 1) = strDes And LCase(Cell.Offset(, -2)) = strID Then Cell.Offset(, -3).Resize(, 6).Copy WS.Cells(lRow, 2).PasteSpecial xlPasteValues lRow = lRow + 1 End If Next Cell End With End If Application.CutCopyMode = False Application.ScreenUpdating = True End Sub تقبل تحياتي اسنان.rar

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

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

السلام عليكم شرح رائع ووافى جدا جزاكم الله خيرا

بسم الله ماشاء الله شرح رائع جدا بارك الله فيك استمر اخى الحبيب خالد الرشيدى فى تعليم الاخرين جزاكم الله خيرا

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

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

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

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

السلام عليكم / أ. محمد الريفى / أ.سليم حاصبيا تقبلوا خالص تحياتى اما عن شرح المعادلة فى البداية ها هو تفنيط المعادلة وسأبدا بشرح Value_if_False Logic_Test, Value_if_True والان اليك المرفق ستجد فية تطبيق لفكرة ان يكون جدول البحث فى ورقة عمل اخرى vllokup.rar

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

الأخ الحبيب حسام صقر المنتدى وأحد الكبار الذين نتعلم منهم اسمح لي بمشاركة بسيطة بناءً على الكود الذي تفضلت به Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row > 1 Then If Target.Column >= 1 And Target.Column <= 4 Then ActiveCell = Cells(1, Target.Column) End If End If End Sub تقبل تحيات أخوك أبو البراء

أخي الكريم سعد سعد يحيا سعد استغرق الموضوع مني أكثر من ساعتين والله .. لأن الموضوع جديد بالنسبة لي .. ألا وهو ترتيب البيانات حسب التاريخ الهجري وجدت أن التواريخ الهجرية لا يتم ترتيبها كما في التواريخ الميلادية ، فخطرت لي فكرة التحويل من الهجري إلى الميلادي ، فبحثت في مكتبتي فوجدت دالة تحول التاريخ الهجري إلى تاريخ ميلادي ثم بدأت في كتابة الكود ، وفوجئت أن الترتيب لا يعمل بالشكل الصحيح ، فاكتشفت أن التواريخ المحولة عبارة عن نصوص وليست تواريخ ، فقمت بتجزئة النص إلى أجزاء : يوم وشهر وسنة ، ثم لم شمل هذه الأجزاء واستخدام دالة CDate لتحويل النص إلى تاريخ .. ونجحت العملية بفضل الله .. :power: وكعادة الأطباء أن ينسوا المشرط في بطن الطبيب .. نسيت أن أنفذ الكود .. قم بتنفيذه على بركة الله الكود بهذا الشكل Sub SortByHijriDates() Dim LR As Long, I As Long, strDate As String LR = Range("A" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False Range("H1").Value = "Helper" For I = 1 To LR If IsDate(Cells(I, "E")) Then strDate = Mid(ConvertDateString(Cells(I, "E")), 1, 2) & "/" & Mid(ConvertDateString(Cells(I, "E")), 4, 2) & "/" & Mid(ConvertDateString(Cells(I, "E")), 7, 4) Cells(I, "H") = CDate(strDate) End If Next I Range("A1:H" & LR).Sort Key1:=Range("H1:H" & LR), Order1:=xlAscending, Key2:=Range("C1:C" & LR), Order2:=xlAscending, Header:=xlYes Columns("H:H").ClearContents Application.ScreenUpdating = True End Sub Function ConvertDateString(ByRef StringIn As String) As String Dim SavedCal As Integer Dim myDate As Date Dim str As String SavedCal = Calendar Calendar = 1 myDate = CDate(StringIn) Calendar = 0 str = CStr(myDate) ConvertDateString = Format(str, "dd.mm.yyyy") Calendar = SavedCal End Function لا تنسى أن تحدد الإجابة كأفضل إجابة عن طريق الضغط على كلمة "تحديد كأفضل إجابة" ؛ ليظهر الموضوع مجاب ومنتهي ، كما لا تنسى أن تضغط على كلمة "أعجبني هذا" الموضوع استغرق مني أكثر من ساعتين ولن يستغرق الأمر منك أكثر من ثانيتين تقبل تحياتي Sort By Hijri Dates.rar

الله يسلمك اخي صلاح تحياتي لشخصكم الجميل

السلام عليكم ورحمة الله وبركاته اشكركم يا شباب على حسن ترحيبكم اشكرك اخي ابو الآء 1. التقرير عبارة عن تقرير عادي ، يمكنك عمل ما شئت به من طباعة وحفظ بالصيغ التي يسمح بها الاكسس 2. فكرة ممتازة ، لانه في بعض الاشياء اللي لها علاقة بالكود ، وقد يستفيد منها الآخرون ، فمثلا: الكود يعمل قاعدة بيانات خارجية ، ويلصق بها البيانات التي طلبتها ، ثم يمسح هذه القاعدة ، والسبب اني عملت هذا ، لأني لا احبذ ان تكون الجداول المؤقته في البرنامج ، حيث ادخال البيانات فيها ثم حذفها ، يؤثر على حجم البرنامج ، ويجب عليك عمل Com[act and Repair بين الحين والآخر ، بينما عمل جدول مؤقت في قاعدة بيانات مؤقته خارج البرنامج ، لا يكلف إلا كود في عملها ، وكود آخر في حذفها ، وَكَفَى اللَّهُ الْمُؤْمِنِينَ الْقِتَالَ جعفر

المخرجات : استعلام qryDrjat ملحوظة : يجب استبعاد جميع الامثلة القديمة ( اجعلوها في مجلد خاص ) واستخدام الاحدث فالاحدث لاني اقوم بالتعديل باستمرار مثلا في المرفق التالي عملت استعلام واحد بجميع مخرجات الدرجات التي يحتاجها البرنامج وايضا قبل ذلك قمت بالتعديل على خصائص الحقول الرقمية في الجدول ( يمكنكم الاطلاع والمقارنة بالسابق ) وكتبت ايضا بقية التسميات التوضيحية داخل الجدول الخطوة القادمة ان شاء الله هي عرض المخرجات sch11.rar

هذا هو الكود المسؤول Option Compare Database Dim Stest As Byte Private Sub sOK_Click() Dim i As Boolean Dim x As String i = Nz(DLookup("pass", "tblUsers", "pass = forms!frmsecurity!text2")) x = Nz(DLookup("UserId", "tblUsers", "pass = Forms!frmsecurity!text2")) If i = True Then If Stest = 1 Then myuser = x DoCmd.Close DoCmd.OpenForm "frmDrjat", acNormal Else myuser = "" DoCmd.Close DoCmd.OpenForm "frmDrjat", acNormal End If Else MsgBox "كلمة المرور غير صحيحة فضلاً تأكد وحاول مجدداً" Text2 = Null End If End Sub علما ان myuser هو متغير نصي تم الاعلان عنه في وحدة نمطية عامة و Stest متغير رقمي يمثل اول رقمين من كلمة المرور وطريقة الوصول الى الكود هو عند تشغيل المثال : نضغط على shift وفي نفس الوقت ننقر على البرنامج فيفتح على التصميم نفتح نموذج frmsecurity على التصميم ثم ننقر Alt+F11

20 مرة تحميل بارك الله فيكم وشاكر للاهتمام بتحميل الملف

السلام عليكم أخى الفاضل / صممت مثل ذلك العمل ( الشيك ) بكل أبعاده على اكسيل وبعد عدة تجارب كانت كل بيانات الشيك تقع فى مكانها كما رغبت ملحوظة : ليست كل أبعاد وبيانات الشيك واحدة مجرد رأى وللخبراء الرأى الصواب