اذهب الي المحتوي

كل الانشطه

هذه الصفحة تحدث تلقائياً     

  1. الساعة الأخيرة
  2. hossam mokhtar hossam mokhtar joined the community
  3. abdelrahmankhedr abdelrahmankhedr joined the community
  4. عبداللهM
    إخواني أعضاء أوفيسنا السلام عليكم ورحمة الله وبركاته كيف استخراج المدينة التي لم يتم تسجيل خلال الفترة في جدول(tbl_demanK) مثال استعلام عن فترة صفر العام 1440 تظهر اسم المدينة وهي الباحة HG.rar
  5. Today
  6. مجدى يونس
    وعليكم السلام ورحمة الله وبركاتة الف شكر
  7. tarek_f26180 started following مساعدة في تصدير ملفات اكسيل
  8. tarek_f26180
    السلام عليكم هل ممكن تنفيذ الماكروين بصم ومخاتير الى اكسيل صفحتين مع بعض مثل النموذج المرفق ttt1.accdb 18-03-2019.xls
  9. hanafymahmood started following تثبيت أكثر من إصدار
  10. hanafymahmood
    السلام عليكم ... أرجو الإفادة عن إمكانية تثبيت أكثر من إصدار للسيكوال على جهاز واحد مثال 2005 وكذلك 2014 أو 2016
  11. الفشل2009
    مرفق لكم مثال للكود طبعا لي كتبته التالي int(Rnd()*30) لي اريده لو تكرمتم اني اعمل كود بحيث لا يكرر لي الرقم العشوائي قاعدة بيانات1.accdb
  12. mahmoud alansari mahmoud alansari joined the community
  13. محمد الشابورى started following copy data from a closed excel file & paste it in a closed excel file by mokhtar
  14. محمد الشابورى
    هل تريد الختم فى الشكل Rectangle 1 ام فى الخلية المدمجة f25 ??
  15. الفشل2009
    مرحبا اخواني اخباركم عندي استفسار اريد اعمل ترقيم طلاب عشوائيا بحيث اعطاء لكل طالب رقم عشوائي بدون ان يتكرر الترقيم استخدمة الكود Rnd() * 30 للحصول على الارقام العشوائية لكن المشكلة يكرر لي الارقام اريده ما يكرر الرقم في حالة اني اعطيت الطالب الرقم فهل ممكن مساعدتي في كتابة كود مناسب لذلك
  16. مدحت الدويري مدحت الدويري joined the community
  17. الفشل2009 الفشل2009 joined the community
  18. علاء رسلان علاء رسلان changed their profile photo
  19. Senior Amjad Senior Amjad changed their profile photo
  20. m.elgamal m.elgamal joined the community
  21. tarek_f26180 started following مساعدة عاجلة في استعلام تجميعي
  22. tarek_f26180
    السلام عليكم عندي قاعدة بيانات وواجهتني مشكلة كبيرة في استعلام Copy Of Qتجميع الكل مخاتيرمرتجع خانة مرتجع بدل عن ضائع ليس عندي لهذا الشهر فيعطيني في الاستعلام النهائي للجردة الشهرية رسالة خطأ Qتجميع الكل شهري1 وكذلك الامر في الريبورت Qتجميع الكل شهري1 ما الحل لو سمحتم وعاجل جدا ttt1.rar
  23. 1133 1133 joined the community
  24. ahmed kandel ahmed kandel changed their profile photo
  25. taltun10 taltun10 changed their profile photo
  26. على متولى
    السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا وجعل كل ايامكم رضا والسلام عليكم ورحمة الله وبركاته
  27. حاتم عيسى
    الأستاذ الفاضل المحترم " سليم حاصبيا تحية طيبة من عند الله جزاكم الله كل الخير على ما قدمتموه وما تقدموه لنا من معلومات قيمة ومفيدة . تم بفضل الله ثم بفضل حضراتكم تنفيذ ما هو مطلوب علي الملف السابق . ولكن هناك طلب بسيط أخر استكمالا لتنفيذ الملف بكشل قيم ومفيد ... المطلوب : تحديد صفحات معينة يتم البحث فيها دون غيرها حيث أنني سوف أدرج صفحات جديدة في نفس الملف ولكن للعمل عليها للمرحلة الإعدادية .... كذلك في حالة إضافة أي صفحات لا يبحث إلا في النطاق المحدد للبحث فقط . مرفق الملف المطلوب التعديل عليه . وجزاكم الله خيرا . اFind_notes - 2.xlsm
  28. aitlamti aitlamti joined the community
  29. flyingamr flyingamr changed their profile photo
  30. عبدللرحيم
    اخى ياسر الملف يعمل على أساس أن مربع النص Rectangle 6 متواجد فى كل ملف
  31. كريمو2 started following تفقيط مبلغ في تقرير
  32. كريمو2
    جرب هذا اخي salimboub24 وانسخها في الوحدة النمطية بإسم مثلا "convertir-chiffres-lettres" واستدعي الدالة =NbEnLettres([مربع النص الذي به المبلغ في التقرير];"DA";"cm") & " " Public Function ConvertNbLettres(NB, DA As String) As String Dim varnum, varnumD, varnumU, resultat, varlet Static chiffre(1 To 19) chiffre(1) = "un" chiffre(2) = "deux" chiffre(3) = "trois" chiffre(4) = "quatre" chiffre(5) = "cinq" chiffre(6) = "six" chiffre(7) = "sept" chiffre(8) = "huit" chiffre(9) = "neuf" chiffre(10) = "dix" chiffre(11) = "onze" chiffre(12) = "douze" chiffre(13) = "treize" chiffre(14) = "quatorze" chiffre(15) = "quinze" chiffre(16) = "seize" chiffre(17) = "dix-sept" chiffre(18) = "dix-huit" chiffre(19) = "dix-neuf" Static dizaine(1 To 8) dizaine(1) = "dix" dizaine(2) = "vingt" dizaine(3) = "trente" dizaine(4) = "quarante" dizaine(5) = "cinquante" dizaine(6) = "soixante" dizaine(8) = "quatre-vingt" 'traitement du cas 0 frs If NB >= 1 Then resultat = "" Else resultat = "zéro" GoTo fintraitementfrancs End If 'traitement des millions varnum = Int(NB / 1000000) If varnum > 0 Then GoSub centaine_dizaine resultat = varlet + " million" If varlet <> "un" Then: resultat = resultat + "s" End If 'traitement des milliers varnum = Int(NB) Mod 1000000 varnum = Int(varnum / 1000) If varnum > 0 Then GoSub centaine_dizaine If varlet <> "un" Then: resultat = resultat + " " + varlet resultat = resultat + " mille" End If 'traitement des centaines et dizaines varnum = Int(NB) Mod 1000 If varnum > 0 Then GoSub centaine_dizaine resultat = resultat + " " + varlet End If resultat = LTrim(resultat) varlet = Right$(resultat, 4) 'traitement du "s" final pour vingt et cent et du "de" pour million Select Case varlet Case "cent", "ingt" resultat = resultat + "s" Case "lion", "ions" resultat = resultat + " de" End Select fintraitementfrancs: resultat = resultat + " " + DA If NB > 2 Then: resultat = resultat + "s" 'traitement des centimes varnum = Int((NB - Int(NB)) * 100 + 0.5) If varnum > 0 Then GoSub centaine_dizaine resultat = resultat + " et " + varlet + " centime" If varnum > 1 Then: resultat = resultat + "s" End If ' conversion 1ère lettre en majuscule resultat = UCase(Left(resultat, 1)) + Right(resultat, Len(resultat) - 1) 'renvoi du resultat de la fonction et fin de la fonction ConvertNbLettres = resultat Exit Function 'sous programme centaine_dizaine: varlet = "" 'traitement des centaines If varnum >= 100 Then varlet = chiffre(Int(varnum / 100)) varnum = varnum Mod 100 If varlet = "un" Then varlet = "cent " Else varlet = varlet + " cent " End If End If 'traitement des dizaines If varnum <= 19 Then If varnum > 0 Then: varlet = varlet + chiffre(varnum) Else varnumD = Int(varnum / 10) varnumU = varnum Mod 10 Select Case varnumD Case Is <= 5 varlet = varlet + dizaine(varnumD) Case 6, 7 varlet = varlet + dizaine(6) Case 8, 9 varlet = varlet + dizaine(8) End Select If varnumU = 1 And varnumD < 8 Then varlet = varlet + " et " Else If varnumU <> 0 Or varnumD = 7 Or varnumD = 9 Then: varlet = varlet + " " End If If varnumD = 7 Or varnumD = 9 Then: varnumU = varnumU + 10 If varnumU <> 0 Then: varlet = varlet + chiffre(varnumU) End If varlet = RTrim(varlet) Return End Function
  33. said ben said ben joined the community
  34. chelabi sultan chelabi sultan joined the community
  35. adnanh20091@yahoo.com adnanh20091@yahoo.com changed their profile photo
  36. ayman.esam90
    التكرم المساعدة
  37. سلامة على
    فى حاجه الى معدله غير IF مثال.xlsx
  38. حاتم عيسى
    ممكن من فضل حضرتك وكرمك ( شرح الكود المستخدم للبحث بالاسم ) وشرح متغيراته حتى أستطيع التعديل عليه حتي يصبح للبحث عن الرقم القومي . إن أمكن الشرح بالعربي
  39. magdygida magdygida changed their profile photo
  40. semsema555550 semsema555550 changed their profile photo
  41. عمرو الجزار عمرو الجزار changed their profile photo
  42. eng.tony_atj@yahoo.com eng.tony_atj@yahoo.com changed their profile photo
  43. سليم حاصبيا
    شاهد هذا الفيديو التعليمي بهذا الشأن https://www.youtube.com/watch?v=eLWRqGGdGEQ
  44. حاتم عيسى
    ممكن أطمع في كرم أخلاق حضرتك في تنفيذ المثال كما أخبرت حضرتك في المشاركة السابقة بتنفيذ الأزرار وربطها . بارك الله في حضرتك
  45. سليم حاصبيا
    في أول كود تمت عملية البحث باستخدام الاسم يمكنك ادراج زر مخصص لهذا الكود بقي الرقم القومي تفعله مشابهاً للماكرو عملية البحث باستخدام الاسم مع ادراج المصفوفات Arr_ODD & ARR-Even بما يتناسب مع وضع العامود الذي نبحث فيه ربما يقوم الاستاذ علي بهذه المهمة اذا كان وقته يسمح بذلك لاني حقيقة ليس لدي الوقت الكافي لهذا الامر
  46. mostafa sharaf
    اتفضل الملف بعد ادخال بعض التعديلات ترحيل على اساس الاسم.xlsx
  47. حاتم عيسى
    الأستاذ الفاضل بارك الله في حضرتك كنت أتمنى أن يكون البحث عند إدخال أحد المتغيرات الثلاثة يتم البحث سواء الاسم الو الرقم القومي او رقم الجلوس أيهما يتم إدخاله يتم البحث . مع العلم بأنه لن يتم تكرار رقم الجلوس عند العمل على الشيت فتلك البيانات هي للتجربة فقط . وشكرا لحضرتك .
  48. ali mohamed ali
    أحسنت أستاذ سليم عمل ممتاز بارك الله فيك
  49. سليم حاصبيا
    الان يمكن العمل العمل بكل بساطة Option Explicit Sub find_Studant_Data() On Error Resume Next Dim My_St: My_St = Sheets("Home").Cells(2, "L") Dim sh As Worksheet Dim r%, n%, SH_name$ Dim find_rg As Range Dim Adr$, col%: col = 2 Dim k% Dim arr_Even(1 To 13) Dim arr_Odd(1 To 12) Range("My_range") = vbNullString '========================================== arr_Even(1) = 6: arr_Even(2) = 8: arr_Even(3) = 10: arr_Even(4) = 12 arr_Even(5) = 14: arr_Even(6) = 16: arr_Even(7) = 20: arr_Even(8) = 22 arr_Even(9) = 18: arr_Even(10) = 24: arr_Even(11) = 26: arr_Even(12) = 28 arr_Even(13) = 30 For n = 1 To UBound(arr_Even) - 1 arr_Odd(n) = arr_Even(n) + 1 Next '============================= For n = 2 To Sheets.Count Set find_rg = Sheets(n).Range("B:B").Find(My_St, Lookat:=xlWhole) If Not find_rg Is Nothing Then r = find_rg.Row Adr = find_rg.Address Set sh = Sheets(n) With Sheets("Home") .Cells(2, "F") = Sheets(n).Name & ":" & Adr .Cells(4, "C") = sh.Range(Adr).Offset(, 2) .Cells(6, "C") = sh.Range(Adr).Offset(, 1) .Cells(4, "K") = sh.Range(Adr).Offset(, -1) .Cells(6, "K") = sh.Range(Adr) .Cells(2, "J") = sh.Range(Adr).Offset(, -1) .Cells(2, "K") = sh.Range(Adr).Offset(, 2) '===================================== For k = LBound(arr_Even) To UBound(arr_Even) .Cells(14, col) = sh.Range(Adr).Offset(, arr_Even(k)) col = col + 1 Next col = 2 For k = LBound(arr_Odd) To UBound(arr_Odd) .Cells(15, col) = sh.Range(Adr).Offset(, arr_Odd(k)) col = col + 1 Next '============================= End With Exit For End If Next If r = 0 Then MsgBox "Not Found" & Chr(10) & _ "The Number: " & My_St & " Does't Exists", 64, "Salim Tell You" Erase arr_Even: Erase arr_Odd End Sub الملف مرفق اFind_notes New_Edition.xlsm
  50. أحمد يوسف
    أخى الكريم عليك بعرض المشكلة بكل توضيح في الموضوع حتى تتمكن الأساتذة من المساعدة
  51. عبد اللطيف سلوم started following سؤال أرجوا المساعدة
  52. عبد اللطيف سلوم
    صديقي الاستعلام ليس له علاقة بادخال البيانات الاستعلام يظهر البيانات الموجودة اصلا المطلوب منك عمل فورم او نموذج لادخال البيانات من خلاله نزل القاعدة ونحن نساعدك
  53. مجدى يونس
    الف شكر اخ على
  1. Load more activity


×
×
  • اضف...