اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

  1. Ali Mohamed Ali

    Ali Mohamed Ali

    المشرفين السابقين


    • نقاط

      31

    • Posts

      11643


  2. سليم حاصبيا

    سليم حاصبيا

    أوفيسنا


    • نقاط

      11

    • Posts

      8723


  3. أبوبسمله

    أبوبسمله

    الخبراء


    • نقاط

      9

    • Posts

      3463


  4. طارق محمود

    طارق محمود

    أوفيسنا


    • نقاط

      7

    • Posts

      4533


Popular Content

Showing content with the highest reputation on 02/12/20 in all areas

  1. جرب هذا الكود 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
    3 points
  2. تفضل يمكنك ذلك بإستخدام هذه المعادلة بالتنسيق الشرطى =AND(COUNTIF($A$2:$A$310,H2)=0,H2<>"") تنسيق شرطى للمختلف.xlsx
    3 points
  3. السلام عليكم الأفضل تجميع البيانات في ملف واحد ، بل في ورقة واحدة لكن علي كل حال تستطيع إستخدام الدالة ( في لوك اب) مع خاصية المطابقة التامة أي مثل VLOOKUP(X,Range,n,0) أي تجعل الدالة تبحث عن المتغير بالضبط تطابق وإلا ترجع بخطأ وذلك عن طريق المتغير الرابع بالدالة تعطيه قيمة 0 أو False ثم قبل الدالة ، تضيف دالة أخري Iferror والتي تغير نطاق البحث من الملف A إلي B مثلا لو أعطي البحث الأول خطأ تفضل الملف به الدالتين ABC.xlsx
    3 points
  4. وعليكم السلام اتفضل اخى شوف الرابط لاخى واستاذى محمد جزاه الله خيرا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
    2 points
  5. السلام عليكم تغضل اخي الكريم ملفك بعد التعديل اتمنى يكون المطلوب Database4.rar
    2 points
  6. بعد اذن استاد طارق محمود ولاثراء الموضوع جرب المرفق 1 انسخ المجلد المسمى mydata في :d 2 افتح الملف المسمى main واضغط زر استعلام سيأتي ببيانات حسب الرقم في العمود A ملاحظة تم تغيير اسماء الشيتات ليعمل الكود بكفاءة ارجو ان يكون ما تريد my data.rar
    2 points
  7. داخل المرفقات شوفها بعد التحميل Password: 123456
    2 points
  8. Mahmoud Mostafa Mandour أين الضغط على الإعجاب ؟!!💙
    2 points
  9. بالتوفيق رجاءٌ موجه إلى المشرف مشكوراً غير مأمور. تغيير العنوان ليكون: أصغر قيمة في حقول ضمن السجل نفسه / سجل واحد أو حسب ما يرتئي حتى يكون العنوان معبراً يمكن للباحث الاستفادة من مضمون السؤال وعدم تكراره. وجزاكم الله كل خير.
    2 points
  10. تستطيع ذلك، تحتاج برنامج Android Studio لكي تقوم بعمل تطبيق لعرض الرقم المتصل عن طريق BroadcastReceiver وبعدها ترسله لواجهة الكومبيوتر هذا حل سريع: https://www.cnet.com/how-to/you-can-now-place-and-receive-android-phone-calls-on-your-windows-pc/
    2 points
  11. بعد اذن استاذنا الفاضل واخونا الحبيب استاذ سليم جزاه الله عنا خير الجزاء واثراء للموضوع جلب رقم الصف.xlsx
    2 points
  12. بعد أذن الأخ Ali Mohamed Ali الأخ Saadrafic شاهد المرفق هو يعمل جيدا مع ويندوز 64 والمفروض انه يعمل مع ويندوز 32 لقد قمت بتجربة الكود علي windows 32 bit وهو يعمل جيدا ايضا اذن الكود المرفق سابقا يعمل علي كل من نسختي ال windows سواء كانت 32 bit أو 64 bit Show_Keyboard.xlsm
    2 points
  13. تفضل هذه المعادلة 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
    2 points
  14. المرحلة الاولي: اضغط زر ويندوز + r اكتب appwiz.cpl ثم اضعط Enter اختار Intel Optane Pinning Explorer Extensions. ثم اختار Repair المرحلة الثانية اضغط زر ويندوز + X ثم اختار Device Manager ثم اختار Intel® Pinning Shell Extensions ثم اختار Software components ثم Uninstall Device
    2 points
  15. هذا هو المطلوب ........... شكرا لك أحمد الفلاحجى
    1 point
  16. الاجابة في النطاق الاصفر من هذا الملف Spec_Char.xlsx
    1 point
  17. اتفضل اخى على تم اضافه سطر لمعالجه خطأ / لايوجد سجل حالى On Error Resume Next تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق Relation2.accdb
    1 point
  18. بارك الله فيك استاذ حسن كود ممتاز-وبعد اذنك أخى الكريم ولإثراء الموضوع , هذا حل أخر بالمعادلات =COUNTIFS($B$4:$B$150,$E5,$C$4:$C$150,F$4) معادلة حساب عدد التوافق في الشرط من خليتين.xls
    1 point
  19. وهليكم السلام اتفضل راجع الرابط ده ان شاء الله تجد فيه ما تريد تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
    1 point
  20. ماشاء الله مهندس طارق جزاكم الله خير
    1 point
  21. شكرا لك أخي الكريم تمت تجربة الكود ويعمل بكفاءة حتى الان
    1 point
  22. أحسنت استاذ منير أعمال رائعة بارك الله فيك
    1 point
  23. السلام عليكم تفضل أخي الملف به المعادلات بالأزرق والأعمدة علي اليسار بالأحمر تستطيع إخفاؤها لكن لاتلغيها فهي داخلة في تركيب المعادلات الاجازات جودة.xlsx
    1 point
  24. شكرا جزيلا اخي الكريم على المساعدة السريعة هذا هو المطلوب وتم تجربته على الشيت الاساسي ونجحت بالفعل جزاك الله كل خير
    1 point
  25. السلام عليكم ورحمه الله اخي الكريم مرفق لك حل بسيط لما تقدمت بطلبه وارجو ان تكون اضافتي البسيطة وافيه لطلبك وشكرا ,,, New Microsoft Excel Worksheet.xlsx
    1 point
  26. اعمل على اصدار 2007 يظهر عندي حفظ في جدول القروض لاخر واحد فقط يعني تنمسح الاسماء السابقة
    1 point
  27. السلام عليكم تواصل معي أخي الفاضل "وجيه شرف الدين" علي الخاص ليخبرني أن الملف به أخطاء وقد صححتها كما أرجو وأحببت أن أضيف الملف بعد التعديل حتي يستفيد منه كل من عنده نفس المسألة فقد غيرت الكود وأضفت عليه بعض الشروحات داخل الكود ليكون دليل لمن يحب التغيير أو التعديل عليه ضبط-كود-توزيع_2.xlsm
    1 point
  28. أزكى التحيّات وأجملها أرسلها لك بكلّ الودّ والحب شاكرًا لك على كل ما قدمت سائلا الله سبحاته وتعالى ان يجعلها في ميزان حسناتك وان يديم عليك نعمه وفضله انه سميع عليم
    1 point
  29. اتفضل اخى الكريم الملف سيتم حذف التاريخ بعد اسبوع من تاريخ اليوم حذف الاسماء.xlsm
    1 point
  30. السلام عليكم ورحمة الله في الملف المرفق تجد ثلاثة حلول... الحل الأول : بالمعادلة أعلاه الحل الثاني : باستعمال المعادلة التالية: =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
    1 point
  31. أحسنت استاذ عبد اللطيف .. عمل ممتاز بارك الله فيك
    1 point
  32. وعليكم السلام استاذ عبدالجيد اطلع عالمواضيع التاليه لعلك تستفيد منها تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق
    1 point
  33. بارك الله فيك استاذ عبد اللطيف وزادك الله من فضله
    1 point
  34. مجهود ممتاز استاذ منير بارك الله فيك
    1 point
  35. رابط ملف شرح الدرس الثالث https://www.gulf-up.com/fma99a0a6cmo الدرس الثالث تابع شرح الدالة IF.xlsm
    1 point
  36. عمل ممتاز بارك الله فيك ووفقك الله دائما
    1 point
  37. وعليكم السلام-يمكنك الإستعانة بهذا Trasted Location .. إنشاء موقع أمان لملفات الأكسيس توماتيكى
    1 point
  38. اتفضل ان يسر الله لى تعالى قد يكون لى عودة بما يتفضل به الله تعالى على لاتيك بحلول أخرى إن أمكن ذلك بمشيئة الله تعالى قد تكون هناك حلول افضل من ذلك ولكن هذا اول ما خطر ببالى اعتذر ظروفى ولله الحمد على كل شئ لا تسمح لى حاليا بالتركيز أو التفكير اعتذر ان كانت الطريقة مطولة ومعقدة بعض الشئ Change Characters.mdb
    1 point
  39. السلام عليكم ورحمة الله تعالى وبركاته اتقدم اليكم بإهداء بسيط جدا تحويل الرسائل الى نماذج والتحكم الكامل فى الية الظهور والاغلاق والشكل والمضمون ونص الرسالة وعنوانها ولون الخط وحجمه ...... frmMassage.rar
    1 point
  40. بسم الله الرحمان الرحيم اليوم سأقدم لكم مشروع صغير و هو احتساب الاعمار منها العام و الشهر و اليوم سوف أرفق لكم هذا الملف البسيط مع تحياتي لكم المبرمج : مناد سفيان ............ الجزائر
    1 point
  41. بارك الله فيك وجزيت خيرا كثيرا
    1 point
  42. وعليكم السلام تفضل أخى هذا كود أحد الإخوة الكرام طھطµط­ظٹط­ ظƒظˆط¯ ط§ظ„طھط±ط­ظٹظ„ ط¨ط§ظ„ظپظ„طھط±ط© ط§ظ„ظ…طھظ‚ط¯ظ…ط©.xlsm
    1 point
  43. توكل .. جزيت خيرا وأنا أشهد بنباهتك مرفق الدرس الرسومات التفاعلية.rar وهذا ملف هدية إلى الغالين يستخدم معيارين للرسم COMPLETE_Dynamic Chart Using Option Buttons.rar وتقبلوا تحياتي
    1 point
  44. جرب هذا الملف تحدد كل الأوراق (من الورقة 2 حتى اخر ورقة الورقة الرابعة مثلاُ)وتكتب المعادلة دفعة واحدة Write_all_in_One.rar
    1 point
  45. السلام عليكم ورحمة الله وبركاته الآن سنقوم بشرح الطريقة الجديدة لاضافة شريط ادوات باستخدام لغة التوصيف XML اولا: نقوم باضافة جدول نظام جديد: ننشئ جدول فى عرض التصميم وتكون حقوله كالآتى Field Name Type Field Size ID AutoNumber Long Integer RibbonName Text 255 RibbonXml Memo ونسميه USysRibbons ونحفظه نلاحظ اختفاء الجدول وذلك لان الجداول التى تبدأ ب USys او يعتبرها الاكسس من جداول النظام نفتح الجدول فى طريقة عرض Data Sheet ونضيف اول Tool Bar نضيف اسم الشريط ثم كود XML وهذا ما سنشرحه فى مشاركة قادمة ان شاء الله
    1 point
  46. السلام عليكم أخي الحبيب / بوعلام أولا إسمح لي فقد حذفت النسخة الأخري من الموضوع ، حيث انك وضعتها بالخطأ كما يحدث لنا جميعا ثانيا تفضل هذا الكود Sub t_booking() Dim sh As Worksheet Sheets("مواقيت الأساتدة").Activate last_row = [B10000].End(xlUp).Row Set sh = Sheets("حجز مواقيت الأقسام") last_row2 = sh.[D10000].End(xlUp).Row For rr = 8 To last_row If Cells(rr, 2) = "" Then GoTo 10 t_name = Cells(rr, 2) For day_col = 6 To 14 Step 2 For j = 8 To last_row2 If sh.Cells(j, day_col) = t_name Then t_time2 = sh.Cells(j, 4) t_deprt = sh.Cells(8 * Int(j / 8), 2) & " -- " & sh.Cells(j, 5) new_col = day_col / 2 + 2 For i = 0 To 7 t_time = Cells(rr + i, 4) If t_time = t_time2 Then Cells(rr + i, new_col) = t_deprt Next i End If Next j Next day_col 10 Next rr End Sub وهذا المرفق ، إضغط الزر الأزرق "مواقيت الأساتدة" المواقيت.rar
    1 point
×
×
  • اضف...

Important Information