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

جرب هذا الكود Option Explicit Private Sub Worksheet_Activate() fil_dat_val End Sub '+++++++++++++++++++++++++++++++++++ Sub fil_dat_val() Application.ScreenUpdating = False Dim I%: I = 6 Dim arr Dim rg As Object Set rg = CreateObject("system.collections.arraylist") With rg Do Until Sheets("sheet1").Range("B" & I) = vbNullString If Not .contains(Sheets("sheet1").Range("A" & I).Value) Then _ .Add Sheets("sheet1").Range("A" & I).Value I = I + 1 Loop .Sort arr = .toarray arr = Join(arr, ",") End With With Sheets("sheet2").Range("H2").Validation .Delete .Add xlValidateList, Formula1:=arr End With End Sub '============================== Sub get_values() Dim rg As Object, I%, m%, kY Dim Sh1 As Worksheet, Sh2 As Worksheet I = 6 Set Sh1 = Sheets("Sheet1"): Set Sh2 = Sheets("Sheet2") Set rg = CreateObject("Scripting.dictionary") Sh2.Range("a6").CurrentRegion.Offset(1).Clear With Sh1 Do Until Not IsNumeric(.Range("a" & I)) If .Range("A" & I) = Sh2.Range("h2") _ And .Range("C" & I) >= Sh2.Range("I2") _ And .Range("C" & I) <= Sh2.Range("J2") Then rg(m) = _ .Range("C" & I).Value & "*" & _ .Range("D" & I).Value & "*" & _ .Range("E" & I).Value m = m + 1 End If I = I + 1 Loop End With If rg.Count = 0 Then GoTo End_Me m = 6 For Each kY In rg.keys Sh2.Cells(m, 1).Resize(, 3) = _ Split(rg(kY), "*"): m = m + 1 Next With Sh2.Range("A6:C" & m - 1) .Value = .Value .InsertIndent 1 .Borders.LineStyle = 1 .Font.Size = 14 End With End_Me: Application.ScreenUpdating = True Set rg = Nothing End Sub Saerch_by_date.xlsm

تفضل يمكنك ذلك بإستخدام هذه المعادلة بالتنسيق الشرطى =AND(COUNTIF($A$2:$A$310,H2)=0,H2<>"") تنسيق شرطى للمختلف.xlsx

السلام عليكم الأفضل تجميع البيانات في ملف واحد ، بل في ورقة واحدة لكن علي كل حال تستطيع إستخدام الدالة ( في لوك اب) مع خاصية المطابقة التامة أي مثل VLOOKUP(X,Range,n,0) أي تجعل الدالة تبحث عن المتغير بالضبط تطابق وإلا ترجع بخطأ وذلك عن طريق المتغير الرابع بالدالة تعطيه قيمة 0 أو False ثم قبل الدالة ، تضيف دالة أخري Iferror والتي تغير نطاق البحث من الملف A إلي B مثلا لو أعطي البحث الأول خطأ تفضل الملف به الدالتين ABC.xlsx

TRY THIS FILE ROW_NYMMBER.xlsx

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

السلام عليكم تغضل اخي الكريم ملفك بعد التعديل اتمنى يكون المطلوب Database4.rar

بعد اذن استاد طارق محمود ولاثراء الموضوع جرب المرفق 1 انسخ المجلد المسمى mydata في :d 2 افتح الملف المسمى main واضغط زر استعلام سيأتي ببيانات حسب الرقم في العمود A ملاحظة تم تغيير اسماء الشيتات ليعمل الكود بكفاءة ارجو ان يكون ما تريد my data.rar

داخل المرفقات شوفها بعد التحميل Password: 123456

Mahmoud Mostafa Mandour أين الضغط على الإعجاب ؟!!💙

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

تستطيع ذلك، تحتاج برنامج Android Studio لكي تقوم بعمل تطبيق لعرض الرقم المتصل عن طريق BroadcastReceiver وبعدها ترسله لواجهة الكومبيوتر هذا حل سريع: https://www.cnet.com/how-to/you-can-now-place-and-receive-android-phone-calls-on-your-windows-pc/

بعد اذن استاذنا الفاضل واخونا الحبيب استاذ سليم جزاه الله عنا خير الجزاء واثراء للموضوع جلب رقم الصف.xlsx

بعد أذن الأخ Ali Mohamed Ali الأخ Saadrafic شاهد المرفق هو يعمل جيدا مع ويندوز 64 والمفروض انه يعمل مع ويندوز 32 لقد قمت بتجربة الكود علي windows 32 bit وهو يعمل جيدا ايضا اذن الكود المرفق سابقا يعمل علي كل من نسختي ال windows سواء كانت 32 bit أو 64 bit Show_Keyboard.xlsm

تفضل هذه المعادلة Option Explicit Option Compare Text Function kh_count_y_m_d(Mydate_Birth As Date, Optional Mydate_Now _ , Optional Y_M_D As String = "Y_M_D", Optional MyCalendar As Boolean) Dim Mydate As Date, KH_Calendar As Integer Dim D_1 As Integer, D_2 As Integer, M_1 As Integer, M_2 As Integer, Y_1 As Integer _ , Y_2 As Integer, D As Integer, M As Integer, Y As Integer If IsDate(Mydate_Now) Then Mydate = Mydate_Now Else Mydate = Date If IsDate(Mydate_Birth) And CDate(Mydate_Birth) <= CDate(Mydate) Then KH_Calendar = Calendar If MyCalendar = True Then Calendar = 1 Else Calendar = 0 D_1 = Day(Mydate): D_2 = Day(Mydate_Birth) M_1 = Month(Mydate): M_2 = Month(Mydate_Birth) Y_1 = Year(Mydate): Y_2 = Year(Mydate_Birth) If D_1 >= D_2 Then D = D_1 - D_2: M = 0 Else D = D_1 + 30 - D_2: M = -1 If M_1 + M >= M_2 Then M = M_1 + M - M_2: Y = 0 Else M = M_1 + M + 12 - M_2: Y = -1 Y = Y_1 + Y - Y_2 If Y_M_D <> "Y" Or Y_M_D <> "M" Or Y_M_D <> "D" Then kh_count_y_m_d = Y & "y-" & M & "m-" & D & "d" If Y_M_D = "Y" Then kh_count_y_m_d = Y If Y_M_D = "M" Then kh_count_y_m_d = M If Y_M_D = "D" Then kh_count_y_m_d = D Calendar = KH_Calendar End If End Function kh_count.xlsm

المرحلة الاولي: اضغط زر ويندوز + r اكتب appwiz.cpl ثم اضعط Enter اختار Intel Optane Pinning Explorer Extensions. ثم اختار Repair المرحلة الثانية اضغط زر ويندوز + X ثم اختار Device Manager ثم اختار Intel® Pinning Shell Extensions ثم اختار Software components ثم Uninstall Device

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

هذا هو المطلوب ........... شكرا لك أحمد الفلاحجى

اتفضل اخى على تم اضافه سطر لمعالجه خطأ / لايوجد سجل حالى On Error Resume Next تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Relation2.accdb

بارك الله فيك استاذ حسن كود ممتاز-وبعد اذنك أخى الكريم ولإثراء الموضوع , هذا حل أخر بالمعادلات =COUNTIFS($B$4:$B$150,$E5,$C$4:$C$150,F$4) معادلة حساب عدد التوافق في الشرط من خليتين.xls

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

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

أحسنت استاذ منير أعمال رائعة بارك الله فيك

السلام عليكم تفضل أخي الملف به المعادلات بالأزرق والأعمدة علي اليسار بالأحمر تستطيع إخفاؤها لكن لاتلغيها فهي داخلة في تركيب المعادلات الاجازات جودة.xlsx

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

السلام عليكم ورحمه الله اخي الكريم مرفق لك حل بسيط لما تقدمت بطلبه وارجو ان تكون اضافتي البسيطة وافيه لطلبك وشكرا ,,, New Microsoft Excel Worksheet.xlsx

اعمل على اصدار 2007 يظهر عندي حفظ في جدول القروض لاخر واحد فقط يعني تنمسح الاسماء السابقة

اليكم الدرس العاشر من دروس شرح الاكسيل https://youtu.be/-y-KzHhD44A وملف الشرح من المرفقات الدرس العاشر لشرح الاكسيل.xlsm

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

أزكى التحيّات وأجملها أرسلها لك بكلّ الودّ والحب شاكرًا لك على كل ما قدمت سائلا الله سبحاته وتعالى ان يجعلها في ميزان حسناتك وان يديم عليك نعمه وفضله انه سميع عليم

اتفضل اخى الكريم الملف سيتم حذف التاريخ بعد اسبوع من تاريخ اليوم حذف الاسماء.xlsm

السلام عليكم ورحمة الله في الملف المرفق تجد ثلاثة حلول... الحل الأول : بالمعادلة أعلاه الحل الثاني : باستعمال المعادلة التالية: =TEXT(A3-A1;"[hh]:mm:ss") or =TEXT(A3-A1;"[hh]:mm") أو =TEXT(A3-A1,"[hh]:mm:ss") or =TEXT(A3-A1,"[hh]:mm") الحل الثالث: بالمعادلة A3-A1= وتطبيق التنسيق hh]:mm:ss] على الخلية (أو التنسيق hh]:mm] إذا أردت عرض الساعات والدقائق فقط). تحويل الفرق بين ساعات ودقائق.xlsx

أحسنت استاذ عبد اللطيف .. عمل ممتاز بارك الله فيك

تفضل UserformKeyboard.xls

وعليكم السلام استاذ عبدالجيد اطلع عالمواضيع التاليه لعلك تستفيد منها تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

مجهود ممتاز استاذ منير بارك الله فيك

رابط ملف شرح الدرس الثالث https://www.gulf-up.com/fma99a0a6cmo الدرس الثالث تابع شرح الدالة IF.xlsm

عمل ممتاز بارك الله فيك ووفقك الله دائما

وعليكم السلام-يمكنك الإستعانة بهذا Trasted Location .. إنشاء موقع أمان لملفات الأكسيس توماتيكى

تفضل .... التسلسل في الليست بوكس.accdb

اتفضل ان يسر الله لى تعالى قد يكون لى عودة بما يتفضل به الله تعالى على لاتيك بحلول أخرى إن أمكن ذلك بمشيئة الله تعالى قد تكون هناك حلول افضل من ذلك ولكن هذا اول ما خطر ببالى اعتذر ظروفى ولله الحمد على كل شئ لا تسمح لى حاليا بالتركيز أو التفكير اعتذر ان كانت الطريقة مطولة ومعقدة بعض الشئ Change Characters.mdb

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

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

بسم الله الرحمان الرحيم اليوم سأقدم لكم مشروع صغير و هو احتساب الاعمار منها العام و الشهر و اليوم سوف أرفق لكم هذا الملف البسيط مع تحياتي لكم المبرمج : مناد سفيان ............ الجزائر

بارك الله فيك وجزيت خيرا كثيرا

تفضل أخى وقد تم ايضا اخفاء الصفوف الفارغة بمجرد ضغط على الشيت أو كتابة أى شيى ثم انتر سوف تختفى الصفوف الفارغة -وهى مختفية الأن فى الشيت المرسل لك وهناك ايضا طريقة بدون أكواد ولكن لحذف الصفوف والأعمدة الفارغة وهى : أولاً تقوم بتحديد نطاق خلايا الجدول التى تريد أن تحذف منها الصفوف والأعمدة الفارغة والباقى فى الشرح مع الصور المرفقة New ظˆط±ظ‚ط© ط¹ظ…ظ„ Microsoft Excel.xlsm الخطوة الأولى تذهب الى علامة النظارة وتختار.docx

وعليكم السلام تفضل أخى هذا كود أحد الإخوة الكرام طھطµط­ظٹط­ ظƒظˆط¯ ط§ظ„طھط±ط­ظٹظ„ ط¨ط§ظ„ظپظ„طھط±ط© ط§ظ„ظ…طھظ‚ط¯ظ…ط©.xlsm

أهلا وسهلا بك فى المنتدى نورتنا اليك كودين مختلفين ممكن تختار اللى انت عايزه منهما-بارك الله فيك كود ثابت للوقت والتاريخ.xlsm

توكل .. جزيت خيرا وأنا أشهد بنباهتك مرفق الدرس الرسومات التفاعلية.rar وهذا ملف هدية إلى الغالين يستخدم معيارين للرسم COMPLETE_Dynamic Chart Using Option Buttons.rar وتقبلوا تحياتي

جرب هذا الملف تحدد كل الأوراق (من الورقة 2 حتى اخر ورقة الورقة الرابعة مثلاُ)وتكتب المعادلة دفعة واحدة Write_all_in_One.rar

انظر هذه المشاركة لأخي الحبيب المبدع @الزباري وخذ منها ما تريد https://www.officena.net/ib/applications/core/interface/file/attachment.php?id=118806