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

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

  1. الساعة الأخيرة
  2. إخواني أعضاء أوفيسنا السلام عليكم ورحمة الله وبركاته كيف استخراج المدينة التي لم يتم تسجيل خلال الفترة في جدول(tbl_demanK) مثال استعلام عن فترة صفر العام 1440 تظهر اسم المدينة وهي الباحة HG.rar
  3. Today
  4. السلام عليكم هل ممكن تنفيذ الماكروين بصم ومخاتير الى اكسيل صفحتين مع بعض مثل النموذج المرفق ttt1.accdb 18-03-2019.xls
  5. السلام عليكم ... أرجو الإفادة عن إمكانية تثبيت أكثر من إصدار للسيكوال على جهاز واحد مثال 2005 وكذلك 2014 أو 2016
  6. مرفق لكم مثال للكود طبعا لي كتبته التالي int(Rnd()*30) لي اريده لو تكرمتم اني اعمل كود بحيث لا يكرر لي الرقم العشوائي قاعدة بيانات1.accdb
  7. مرحبا اخواني اخباركم عندي استفسار اريد اعمل ترقيم طلاب عشوائيا بحيث اعطاء لكل طالب رقم عشوائي بدون ان يتكرر الترقيم استخدمة الكود Rnd() * 30 للحصول على الارقام العشوائية لكن المشكلة يكرر لي الارقام اريده ما يكرر الرقم في حالة اني اعطيت الطالب الرقم فهل ممكن مساعدتي في كتابة كود مناسب لذلك
  8. السلام عليكم عندي قاعدة بيانات وواجهتني مشكلة كبيرة في استعلام Copy Of Qتجميع الكل مخاتيرمرتجع خانة مرتجع بدل عن ضائع ليس عندي لهذا الشهر فيعطيني في الاستعلام النهائي للجردة الشهرية رسالة خطأ Qتجميع الكل شهري1 وكذلك الامر في الريبورت Qتجميع الكل شهري1 ما الحل لو سمحتم وعاجل جدا ttt1.rar
  9. السلام عليكم ورحمة الله وبركاته جزاكم الله خيرا وجعل كل ايامكم رضا والسلام عليكم ورحمة الله وبركاته
  10. الأستاذ الفاضل المحترم " سليم حاصبيا تحية طيبة من عند الله جزاكم الله كل الخير على ما قدمتموه وما تقدموه لنا من معلومات قيمة ومفيدة . تم بفضل الله ثم بفضل حضراتكم تنفيذ ما هو مطلوب علي الملف السابق . ولكن هناك طلب بسيط أخر استكمالا لتنفيذ الملف بكشل قيم ومفيد ... المطلوب : تحديد صفحات معينة يتم البحث فيها دون غيرها حيث أنني سوف أدرج صفحات جديدة في نفس الملف ولكن للعمل عليها للمرحلة الإعدادية .... كذلك في حالة إضافة أي صفحات لا يبحث إلا في النطاق المحدد للبحث فقط . مرفق الملف المطلوب التعديل عليه . وجزاكم الله خيرا . اFind_notes - 2.xlsm
  11. اخى ياسر الملف يعمل على أساس أن مربع النص Rectangle 6 متواجد فى كل ملف
  12. جرب هذا اخي 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
  13. فى حاجه الى معدله غير IF مثال.xlsx
  14. ممكن من فضل حضرتك وكرمك ( شرح الكود المستخدم للبحث بالاسم ) وشرح متغيراته حتى أستطيع التعديل عليه حتي يصبح للبحث عن الرقم القومي . إن أمكن الشرح بالعربي
  15. ممكن أطمع في كرم أخلاق حضرتك في تنفيذ المثال كما أخبرت حضرتك في المشاركة السابقة بتنفيذ الأزرار وربطها . بارك الله في حضرتك
  16. في أول كود تمت عملية البحث باستخدام الاسم يمكنك ادراج زر مخصص لهذا الكود بقي الرقم القومي تفعله مشابهاً للماكرو عملية البحث باستخدام الاسم مع ادراج المصفوفات Arr_ODD & ARR-Even بما يتناسب مع وضع العامود الذي نبحث فيه ربما يقوم الاستاذ علي بهذه المهمة اذا كان وقته يسمح بذلك لاني حقيقة ليس لدي الوقت الكافي لهذا الامر
  17. اتفضل الملف بعد ادخال بعض التعديلات ترحيل على اساس الاسم.xlsx
  18. الأستاذ الفاضل بارك الله في حضرتك كنت أتمنى أن يكون البحث عند إدخال أحد المتغيرات الثلاثة يتم البحث سواء الاسم الو الرقم القومي او رقم الجلوس أيهما يتم إدخاله يتم البحث . مع العلم بأنه لن يتم تكرار رقم الجلوس عند العمل على الشيت فتلك البيانات هي للتجربة فقط . وشكرا لحضرتك .
  19. الان يمكن العمل العمل بكل بساطة 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
  20. أخى الكريم عليك بعرض المشكلة بكل توضيح في الموضوع حتى تتمكن الأساتذة من المساعدة
  21. صديقي الاستعلام ليس له علاقة بادخال البيانات الاستعلام يظهر البيانات الموجودة اصلا المطلوب منك عمل فورم او نموذج لادخال البيانات من خلاله نزل القاعدة ونحن نساعدك
  1. Load more activity


×
×
  • اضف...