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

وندز 10 عنيد ولا يمكن تسجيل المكتبات بسهولة وغالبا يحتاج تدخل يدوي بعد تخفيض امان وندوز الى الحد الادنى استخدم الطريقة والكود الذي تفضل به اخونا ابو ياسين بالنسبة للملف الذي ارسلت لك غير امتداده من bat الى txt ثم افتحه وشوف

السلام عليكم ورحمة الله تعالى وبركاته اتمنى ان تكونو جمبعا بخير حال الموضوع اليوم قد وضحه العنوان كنت قد وعدت الاخوة فى هذا الموضوع ببعض التحديثات فوجدت ان كل هذه التحديثات يقدمها تطبيق واتساب اتجهت بفضل الله وكرمه الى محاكات نظام واتساب بالاكسس هذا الموضوع هدية لككم واتمنى ذكر الحقوق ان امكن ذلك والان مع الشرح اعتذر لرفعه على موقع خارجى لانتهاء المساحه هنا حجمة 2 ميجا فقط https://www.mediafire.com/file/ir1l91d6g18d8iy/AccessWatsapp.rar/file اتمنى التجربة واعلامى بالنتائج شكرا لكم

تحويل النص الى صوت من الكمبيوتر بعددة طرق الاكسل يتكلم بدون اكواد او معادلات صورة من الاكسل الفيديو

شرح مفصل لدالة العد بشروط COUNTIFs شرح احدى عشر طريقة للدالة COUNTIFs

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

الف الف شكر استاذي الفاضل هذا هو المطلوب جزاك الله خيرا

جرب هذا If Nz(DCount("*", "Data")) > 0 Then MsgBox " الجدول غير فارغ", , "خطأ" End If Data هو اسم الجدول

بارك الله فيك اخي حربي العنزي

الله يبارك فيك استاذي الفاضل ابو ياسين وجزاك الله خيرا وجعلها الله جل وعلا في ميزان حسناتك يا طيب ربي يحميك من كل سوء يارب

لتسجبل اي اداه في نظام وتدوز7 عند قئما ابدا اكتب cmd ثم افتحه تشغيل كمسؤل ثم اكتب هذا الامر مع مراعه تحديد المسار regsvr32 "C:\Windows\System32\MSCOMCTL.OCX ثم اضغط انتر

بالاذن من الاستاذأحمد هذا الماكرو ربما يفي بالمطلوب Option Explicit Sub evaluate_result() Dim my_arr() Dim i As Byte Dim k As Byte: k = 0 Dim st$: st = " يحتاح للعناية في: " Dim Mot Dim resulte$ For i = 5 To 9 If Range("d" & i) < Range("c" & i) / 2 Then ReDim Preserve my_arr(0 To k) my_arr(k) = Range("A" & i).Value k = k + 1 End If Next If k > 0 Then Mot = Join(my_arr, ",") Range("H4") = st & Chr(10) & Mot Exit Sub Else Select Case Range("d11") / Range("c11") * 100 Case Is >= 0.85: resulte = "ممتاز" Case Is >= 0.75: resulte = "جيد جدا" Case Is >= 0.65: resulte = "جيد" Case Is >= 0.5: resulte = "متوسط" Case Else: resulte = "راسب" End Select End If Range("H4") = resulte End Sub الملف مرفق Aziz_salim.xlsm

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

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

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

جرب هذا الماكرو Option Explicit Sub copy_paste() Dim lr1%: lr1 = Sheets("Sheet1").Cells(Rows.Count, "D").End(3).Row + 2 lr1 = IIf(lr1 = 3, 1, lr1) Dim lr2%: lr2 = Sheets("Sheet2").Cells(Rows.Count, "D").End(3).Row Dim i%: i = 1 Dim col As Object Set col = CreateObject("System.Collections.ArrayList") With col Do Until i > lr2 If Sheets("Sheet2").Range("D" & i) <> vbNullString Then .Add Sheets("Sheet2").Range("D" & i).Value End If i = i + 1 Loop Sheets("Sheet1").Range("d" & lr1).Resize(.Count - 1) = _ Application.Transpose(.toarray) End With End Sub الملف مرفق Bookaa.xlsm

وعليكم السلام الملف محمى بكلمة مرور !!!!!!!!!!!!!!!!

تم رفع هذا الكود فى مشاركة منفصله حتى لا ننسى هذه المشاركة يوزر فورم بحث وتعديل واضافه ومشاهده تم ارفاق كود المشاركه من الفاضل/ كيرلس - ابن الملك و تم تعريبه عن طريق اعضاء المنتدى الافاضل و لا تنسونا من صالح الدعاء تحياتى New-Userform- (eng).rar New-Userform-Arabic.rar

السلام عليكم اخى بن عليه حل ممتاز اخى ahmed00 هذا حل ثانى ومش ها تصدق عنيك باستخدام نفس دالتك المفضلة VLOOKUP وانت تعلم ان الدالة VLOOKUP تبخث عن قيمة واحد فقط والفكرة هى دمج شرطينك الى شرط واحد حتى تستطيع VLOOKUP ان تقبض عليها دمجت لك الشرطين فى B2 و C2 ووضعت الناتج فى A1 واستخدمت الصيغة (VLOOKUP(H6&I6;A5:E53;5;FALSE= اتمنى وضوح الفكرة تقبلوا تحياتى A Q ID.rar