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

السلام عليكم انا قرأت الموضوع بالخطأ ، قرأته اول وآخر سنه ، فأعتذر ارى انكم ما شاء الله اكملتوا الموضوع ، ولكني هنا اعطيكم الحل بنفس الطريقة السابقة : . والنتائج: . ولكن في شيء لم انتبه له البارحة لما وضعت جوابي ، وهو ان السنة في الجدول emp هو نص وليس رقم ، والذي معناه اننا يجب ان نحوله الى رقم قبل ان نأخذ Max ، وإلا فلن نحصل على السنة الصحيحة (صحيح ان النتائج الان ستكون صحيحة ، ولكننا نعرف ان تسلسل النص يكون غير صحيح ، وتسلسل الرقم يكون صحيح) أختي ، لا تهتمي بالاستعلامات الاولى ، فالاستعلام الاخير qry_Update_Values سيأخذ القيم بنفسه ويُتم التحديث جعفر 655.db1.mdb.zip

بعد اذن معلمى جعفر Shell "calc" هذا الامر يفتح الالة الحاسبة بغض النظر عن موقعا بالجهاز لانه يختلف من نسخ الويندوز

ربنا يبارك فيك استاذ ياسر .. عمل ولا اروع '=========================== 'هذا الكود للمحترم النابغه ياسر خليل 'الهدف من الكود هو استدعاء بشرط 'تم هذا الكود في 15/2/2017 Sub استدعاء() Dim arr As Variant Dim temp As Variant Dim cr As Variant Dim lr As Long Dim i As Long Dim j As Long Dim c As Long 'متغير اسم شيت الهدف والمدى المطلوب مسحه Sheets("Sheet2").Range("B7:AJ10000").ClearContents 'متغير اسم ورقة المصدر lr = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row 'متغير اسم ورقة المصدرومدى البيانات بها arr = Sheets("Sheet1").Range("A7:EF" & lr).Value ReDim temp(1 To UBound(arr, 1), 1 To UBound(arr, 2)) 'ارقام الاعمده المطلوب نقلها cr = Array(2, 3, 7, 8, 9, 11, 12, 24, 25, 35, 36, 46, 47, 57, 58, 72, 73) j = 1 For i = LBound(arr, 1) To UBound(arr, 1) ' المعيار او الشرط الذي نبحث به ورقم عمود المعيار If arr(i, 135) Like "*" & "نا*" & "*" Then temp(j, 1) = j For c = LBound(cr) To UBound(cr) temp(j, c + 2) = arr(i, cr(c)) Next c j = j + 1 End If Next i 'متغير اسم شيت الهدف With Sheets("Sheet2") .Range("B7").Resize(j - 1, UBound(temp, 2)).Value = temp 'سطر لمسح التسطير .Range("B7:AJ" & Rows.Count).Borders.Value = 0 'سطر لاضافة التسطير .Range("B7:AJ" & .Cells(Rows.Count, 2).End(xlUp).Row).Borders.Value = 1 End With End Sub ======================== هذا الكود خاص باستدعاء اعمده معينه بناء على شرط ( النجاح ) استدعاء بشرط.rar

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

اذا تريد ان لا يكرر الاسم فقط اليك هذا الكود قبل تحديث الاسم Private Sub serial_BeforeUpdate(Cancel As Integer) If DCount("[id1]", "id", "[serial]='" & Me.serial & "'") > 0 Then MsgBox "هذا الاسم مكرر" Cancel = -1 End If End Sub

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

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

انا لا اعرف هل هذه المشاركتي مخالفة للقوانين ام لا اتفضل خذت هذا من برامجي اللي اعمل عليه الان BackUp.rar

وعليكم السلام أخوي حربي انا انتظرت من الامس الى اليوم حتى اعطيك هذه الملاحظة طريقة عرضك للموضوع تحتم على علينا انزال المرفق ، ثم النظر فيه لمعرفة السؤال !! مقدرة الاعضاء في المنتدى للإجابة على الاسئلة تعتمد على: 1. وجود الوقت الكافي عند العضو للإجابة ، 2. اذا كان يعرف الاجابة مباشرة على السؤال حسب وقته ، 3. بعض الاعضاء يجاوب على الاسئلة من الموبايل ، فلا يستطيع تحميل المرفق ، لذلك ، فانت حسمت الموضوع انه لا رد إلا بإزال المرفق جعفر

السلام عليكم مؤسسسة غير ربحية لديها حوالي مليون رقم هاتف مستهدف قابلة للزيادة ويريدون ارسال رسائل لهم وحيث ان رسائل الـــ sms مكلفة رأوا ان يكون الارسال عبر الواتس فهل من طريقة برمجية تساعد في ذلك

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاتهأحبتى فى الله كل عام وأنتم بخير بقدوم شهر رمضان المبارك وبهذه المناسبه أقدم لحضراتكم داله معرفه جديده بالاكسيل من تصميم صقر الاكسل الاستاذ / حسام عيسى جزاة الله خير داله بحث مرنه جديده بالاكسيل VLOOKUPAlsaqrHMK وداعا للعقم فى الدالة vlookup وداعا لمعادلات الصفيف المرهقة دالة مرنة جدا جدا شوف الشرح المميز للدالة واتعرف على كل خصائص هذة الدالة المميزة جدا مرفق ملف الدالة كاملا https://www.youtube.com/watch?v=qr3uL3B0hLs استخراج-أخر-حركتان-للصنف-الشيت-(1).rar

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

هذا برنامج عند فتحه يعطي تنبيه برسالة عن الموظفين الذين تنتهي اقاماتهم بعد 60 يوم( بشكل تتابع للرسالة ) وهو مهم لمن يتابعون إنتهاء وثائق معينة ( اقامات ، جوازات ، رخص قيادة ، استمارات سيارات ، ... الخ ) الجدير بالذكر أن الكود تعلمناه من هذا المنتدى المبارك ، وللاسف لا أذكر صاحبه ( جزاه الله عنا كل خير ) نهاية+.rar

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

شكرا أستاذنا الفاضل ، دالة vlookup كانت كافية VLOOKUP VLOOKUP

وفقك الله جارى التنزيل و الدراسة

جزاك الله خيرا ... تمام

السلام عليكم استخدم الدالة TRUNC بهذا الشكل =TRUNC(A1,2)

احسنت عملا شكرا لك

السلام عليكم على قدر ما فهمت - اليك احد الطرق - ضع المعادلة التالية بالخلية E4 ثم اسحبها لاسفل =VLOOKUP(D4,$H$4:$I$11,2,0)

المطلوب السنتان الأخيرتان أيا كانا يتغير ذلك سنويا و مع ذلك فقد توصلت لحل بسيط جدا يتطلب إضافة واحدة و هى حقل فى جدول REPORT يسجل فيه رقم تقرير الموظف يعنى رقم داخلى غير الرقم العام المسلسل كما بالصورة بعد ذلك نستخدم هذا الحقل فى شرط فى استعلام التحديث DLookUp("[REP]";"REPORT";"[EMP_ID]=" & [EMP_ID] & "AND [EMP_TAQNO]=" & DCount("[EMP_ID]";"REPORT";"[EMP_ID]=" & [EMP_ID])) و مفادها البحث عن القيمة فى حقل REP بالجدول REPORT بحيث أولا : تساوى رقم الموظف ثانيا : رقم تقرير الموظف = عدد تقاريره التى حصل عليها (هذا لتقرير العام الحالى و عدد تقارير الموظف -1 و هذا لتقرير العام السابق و نبتعد عن التواريخ غير المنضبطة هاكم الملف بعد التعديل 655keraFINAL.db1.rar وشكرا لتعاونكم

نعم اعرف انا لا استخدمت قاعدة بياناتها لان بعد ما وضح لي المطلوب الى اختنا @ساره عبدالمنعم مثلا السنين تابع لموظف الاول مثلا هما 1914 و 1915 و 1916 و 1917 ولموظف اخر هو 1915 و 1916 و 1917 و 1918 ولموظف اخر هو 1915 و 1916 و 1917 و 1918 و 1919 ما تريد الان هل تريد ان يظهر لكل موظف سنتين الاخرين ام تريد ان تظهر السنتين الاخرين 1918 و 1919 وفي هذه الحالة سيكون للموظ الاول ما بها اي سجل

عليكم السلام ورحمة الله وبركاته جرب المرفق db2.rar اسف استاذى ابوخليل لم ارى مشاركتك الا الان عموما نفس الفكرة

المرفق مختلف عن الملف فى أول مشاركة

بكل سرور لان مصدر نموذجك هو استعلام q1 لذا انا غيرت في اسم الجدول الى اسم الاستعلام وتقدر تكتب اسم الجدول ايضا لكن الاسم الجدول اللي هو مصدر الاستعلام استخدمت هذا Private Sub serial_BeforeUpdate(Cancel As Integer) If DCount("[id]", "q1", "[serial]='" & Me.serial & "'") > 0 Then MsgBox "هذا الاسم مكرر" Cancel = -1 End If End Sub واليك ملفك بعد تعديل test150.rar

أنت لها أنت لها @shivan باقى استعلام تحديث للجدول employees

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

المطلوب أحدث سجلين اثنين

اذا تريد ان تحصل الى احدث سجل انت ستحتاج حقل اخر وهو حقل الان اي NOW وعند تعمل تحديث للسجل في اي حقل كان سيأخذ حقل الاضافي اللي قيمته الان وقت التحديث وهناك تقدر تحصل للسجل الاحدث مع تحياتي

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

المطلوب اخر سنتان ايا كانت نحن الان فى سنه 1917 يكون المطلوب تقرير 1916 -1917 السنه القادمه يكون المطلوب هما تقرير 1917- 1918 وهكذا مع شكرى لحضرتك استاذ عبدالفتاح

جرب الكود التالي Sub Test() Dim r As Range For Each r In Range("D5:D" & Cells(Rows.Count, "D").End(xlUp).Row).SpecialCells(2, 1).Areas r(r.Count + 1).Formula = "=subtotal(9," & r.Address & ")" r(r.Count + 1).Offset(, 1).Formula = "=subtotal(9," & r.Offset(, 1).Address & ")" Next End Sub

تم النقيح وضم المواضيع المتشابهة

أوك الحين البيانات ستدخل لكن راجع الجمع وانتبه لأن الشهور لو زادت عن 12 تتحول إلى سنوات كذلك الأيام لو زادت عن 30 أو 60 أو 90 ProgWork 3.rar

بالنسبة للتنقل 1. التالي Me.مستندات.Forward 2. السابق Me.مستندات.Back وبالنسبة للتقرير صمم تقرير عادي مصدره الجدول ثم اسحب المرفق للتقرير بالتفصيل وكبر حجم العنصر ليناسب حجم الصفحة بالتوفيق

افترضت - على غير المطلوب- أن المطلوب سنتان محددتان هما 1916 - 1917 و هذا المرفق ربما يحتاجه أحد غير الأخت السائلة 655kera.db1.rar

استاذ محمد عند تحويل الملف الي اكسيل 2003 اعطاني هذا الخطاء التقاط صورة2.rar

تفضل الفترق حدث قبل التحديث test120.rar

فعلا هذا ما حدث معي ولم أحاول المساعدة في الحل سابقا هلا أ/ حربي ليس عندي دالة جاهزة تؤدي للحل في مسألة جمع التواريخ لكن اجتهدت في وضع شروط للجمع ربما طابت العين . وربما أظلمت كلتا العينين ههههههه ProgWork 2.rar

وهذا مثال خاص لمعلمنا الجليل ابو خليل بصيغة 2003 send2.rar

استاذى الفاضل / العلم نور المطلوب بالمرفق لعله يكون هو الجواب المطلوب وشكرا 22.rar

وهذا مثال للاكسس طبعا يجب ادخال الاسماء يدويا ( كما هي مسجلة في الهاتف تماما ) send1.rar

السلام عليكم ورحمة الله تعالى وبركاته هو انا عندى شيت اكسل بتحددله الرسالة واسماء الاشخاص اللى هيتبعتلهم وهو هيبعتلهم عن طريق الواتس ويب بدون روابط خارجيه بيعتمد على الاسماء اللى انت مسجلها انا بستعمله دايما هو تلقائى بيفتح صفحة الواتساويب ويبحث عن الاسماء اللى انت محددهاله ويبعتلها دى صورة منه ودا الشيت Excel e whatapp.rar

السلام عليكم ومرفق البرنامج الشبه نهائي (لأنه لا يرسل رسائل عربية Unicode بعد) والكود فيه الكود الاسرع (الذي في الاعلى) ، وكود التجارب في الاسفل: Private Sub cmd_WhatsApp_Click() Dim cmmd As String Dim cmmd1 As String Dim cmmd2 As String Dim cmmd3 As String Dim cmmd4 As String Dim cmmd5 As String Dim cmmd6 As String Dim cmmd7 As String 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'Send a message from MS Access through WhatsApp cmmd1 = App_Location & " shell input keyevent 82" & "; sleep 1; " cmmd2 = "am force-stop com.whatsapp" & "; sleep 1; " cmmd3 = "am start -n com.whatsapp/.Main" & "; sleep 1; " cmmd4 = "input text " & Me.To & "; sleep 1; " cmmd5 = "input tap 400 700" & "; sleep 2; " cmmd = cmmd1 & cmmd2 & cmmd3 & cmmd4 & cmmd5 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) Exit Sub 'turn on the mobile cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'turn close WhatsApp cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'start WhatsApp cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'search for a name or a Group or a phone number cmmd = App_Location & " shell input text " & Me.To & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/touch the first name location (x,y) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'insert the message cmmd = App_Location & " shell input text " & Chr(34) & Me.WhatsApp & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/click on the send button location (x,y) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) End Sub جعفر Send_WhatsApp_messages.mdb.zip

السلام عليكم تفضل هذا الكود شبه النهائي ، وشغال 100% مع اللغة الانجليزية 'turn on the mobile cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'turn close WhatsApp cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'start WhatsApp cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'search for a name or a Group or a phone number cmmd = App_Location & " shell input text " & "Hason" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/touch the first name location (x,y) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'insert the message cmmd = App_Location & " shell input text " & Chr(34) & "Testing" & Chr(34) & "; sleep 1" Call ShellWait(cmmd, vbNormal) 'tap/click on the send button location (x,y) cmmd = App_Location & " shell input tap 1000 1100" Call ShellWait(cmmd, vbNormal) ولكن للوصول الى الارقام في السطر قبل الاخير ، يجب اتباع التالي (بدل ان تكون ارقامك بالتجربة): . اختر الحقلين 1 و 2 بعلامة الصح ، واللي محتاجين لهم ليعطونا نتائج رقم 3 و 4 (وبعد الحصول على الارقام الصحيحة ، يجب الغاء الصح من الحقلين 1 و2): . لمعرفة مكان زر الارسال ، محور س و ص X Y : ثم بعد ان ندخل اي شيء في حقل الكتابة في الواتس اب ، اغغط وخليك ماسك زر المايكروفون (لانه بعد الكتابة سيتغير الى زر الارسال) ، لاحظ الارقام في الاعلى في المربعين الاحمرين ، وسترى من الصورة انها 1022 في 1062 ، والذي قربته انا في الكود الى 1000 في 1100 . جعفر

لبيك أخي ابوخليل مع اني لم استعمل واتس اب طول عمري ، ولكن لأجل عين ألف عين تُكرم ، جربت على تلفون ولدي الكود غير مكتمل ، لكنه على الطريق الصحيح: 1. يجب اتباع هذه الخطوات لجعل الهاتف يتفاهم مع الكمبيوتر ، الى الصورة التي قلت تحتها: "الآن هاتفك مهيأ للتحكم فيه من خلال البرنامج" ، 2. انزل المرفق من الرابط ، 3. في النموذج frm_Names ، اضف زر للواتس اب ، وضع الكود (الكود المرفق ، ليس الذي في الرابط) على حدث النقر وفي الكود ، بدل: "اسم او رقم الشخص" ، او اسم المجموعة ، يجب ان تكتب معلمة حقيقية ، لأن البرنامج سيعمل بحث لها ، Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" Save_images_to = BE_Path & "images\" 'image capture mode cmmd = App_Location & " shell input keyevent 82" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am force-stop com.whatsapp" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell am start -n com.whatsapp/.Main" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "اسم او رقم الشخص" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 400 700" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input text " & "I am testing'" & "; sleep 1" Call ShellWait(cmmd, vbNormal) cmmd = App_Location & " shell input tap 990 1650" & "; sleep 1" Call ShellWait(cmmd, vbNormal) المفروض الكود يشتغل عن أخوي ابوخليل على طول ، لأنه جرب برنامجي في الرابط واشتغل معاه وارجو منه يعطينا النتيجة حاليا الكود عندي لا يكتب الرسالة ، ولم اجرب الارسال بعد ومضطر اترك التجربة الآن ، الى بعد حوالي 3 ساعات جعفر

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

تفضل اخي الكريم db11.rar

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء الرجاء اريد منكم خدمة لو تكرمتم اريد برنامج على الاكسس لتسجيل الاطفال والرسوم الشهرية والرسوم المدفوعة والتبقية فمن يستطيع ارجوكم مساعدتي البريد الالكتروني : l.a.t411@gmail.com او جوال : 0541687681 انا محتاج البرنامج

السلام عليكم أخي الحبيب / أبو عبدالله عمل جميل وإسمح لي لإثراء الموضوع أن أقدم حل بدون أكواد فمعظم اللي ماعنده خبره إكسل لايحب حتي التعامل بها وتقبل تحياتي وإحتراماتي الأخت الفاضلة مرفق نموذج وبه الشرح Tenders TRACKING.rar