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

تفضل ...... برنامج_القرأن_الكريم.zip

السلام عليكم ورحمة الله وبركاتة واجهة مشكلة عند النقر على زر ضغط واصلاح قاعدة البيانات وعند تحويل قاعدة البيانات( الواجهة) الى accde بظهور رسالة غريبة ولا يتم بعدها اكمال العملية سواء الضغط والاصلاح أو عملية تحويل القاعدة هذه صورة الرسالة فصرت ابحث وين المشكلة مدة اسبوعين في الاكواد لكن لم اجد اي كود يوجد به خطأ صرت ابحث في الاستعلامات ونفس الشي لم اتوصل الى اي خطأ وبعد التعب في البحث فكرت ابحث عن المشكلة في الجداول في قاعدة البيانات الخلفية كانت الجداول سليمة تمام بعد كذا رحت ابحث في الجداول المرتبطة فكتشفت ان احد الحقول قد تم تغيره وهو عبارة عن حقل قائمة منسدلة يقبل اختيار عدة قيم لكن يظهر بشكل حقل مرفق هذه الصورة قبل وهذه الصورة بعد الان عرفت وين المشكلة لكن مش عارف سببها رجعت الى حلقة البحث والاستكشاف 😖صرت ابحث عن الاكواد التي لها صلة بالحقل في النماذج مباشرة ولكن كل شي كان تمام التمام صرت ابحث في الاكواد العامة في القاعدة مثل اكواد التأمين واكواد النسخ الاحتياطي الخ ...... الى ان وصلت الى كود اخفاء الجداول المرتبطة وهنا كانت المفاجأه فبعد ايقاف هذا الكود واعادة اصلاح الجدول واظهارة اختفت المشكلة وبعد اعادة الكود للعمل وتنفيذ اخفاء الجداول ترجع المشكلة مع العلم ان المشكلة ما تصير الا مع هذا الحقل في هذا الجدول فقط فتذكرت كلمة لاستاذنا @jjafferr في احد المواضيع ( لا اتذكر الموضوع بالضبط ) وهو يقول انه قرأ ان اكواد احفاء الجداول تسبب مشاكل وهذا ما حدث معي بالفعل واحببت ان اشارككم هذه المشكلة لكي يتم اخذ الحيطة والحذر وهذا هو الكود Dim db As DAO.Database Dim tdf As TableDef Set db = CurrentDb For Each tdf In db.TableDefs If tdf.Attributes = 1073741824 Then tdf.Attributes = 1 Next db.Close Set tdf = Nothing Set db = Nothing

تفضل ...... Qran.mdb

بعد اذن الأستاذ محمد فؤاد لك ما طلبت كما تم مناقشة هذا الموضوع من قبل على هذا الرابط https://www.officena.net/ib/topic/91655-دالة-لعد-الطلاب/ New_Microsoft_Excel_Worksheet_(2).xlsx

أ/ jo_2010 فى خصائص الحقل بالجدول Field Size .. Double Format .. Standard بس هيا بتبفى فاصلة بين كل 3 أرقام والنقطة بتبقى قبل آخر رقمين عشريين مبتبقاش كلها نقط

لعل هذا جزء من الحل ..... تفضل حضور المهندسين.accdb

الاخ عبدالله الصاري الموقر والاخ علي محمد علي الموقر جزاكم الله خيرا ورحم الله والديكم

وعليكم السلام -انظر الى هذه الصورة فبها طلبك

تفضل لك ما طلبت تنسيق شرطى بشرط.xlsx

بارك الله فيك أستاذ أحمد ولكن اعتقد ان تكون المعادلة في الخلية bb7 هكذا =IF(AT7="Turkish Lira","Peaches",IF(AT7="USD DOLLARS","Cents"))

وعليكم السلام تفضل اخى الكريم عليك مشاهدة هذه الصورة لمعرفة سبب توقف المعادلة عن العمل Copy of Bank Statement _ 2019.xlsm

او يمكنك تجربة هذا الملف أيضا بريك.xlsx

وعليكم السلام وكل عام وانتم بخير -نورت المنتدى اهلا بك جرب هذا تم ضبط وتعديل الملف , كل ما عليك اختيار كود الموظف من القائمة المنسدلة الموجودة بعمود كود الموظف ثم بعد ذلك كتابة الحضور والإنصراف وسيب الباقى على الإكسيل Attendance.xlsx

تم إضافة الجزئين فى الفورم أما بالنسبة للتسلسل فيوجد دالة في ورقة العمل في العمود A لاحظ أن الليبل المقابل للتكست بوكس 1 مكتوب باسم الوردية والتسلسل يعمل بمجرد إدخال أي بيانات في العمود B بالنسبة للطلب الأخير قم بإضافة ورقة عمل واكتب النتائج المتوقعة ( التي يجب أن تأتي بمعادلات ) حتى يمكننا التعامل معها فكل أعضاء المنتدى لا يتعاملون مع الصور Book1(1).xlsm

واذا حقول التقرير كثيرة ، فبالاضافة الى جعل التقرير افقي ، قد تحتاج الى 🙂 جعفر

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

وعليكم السلام كان عليك رفع ملف من البداية لعمل اللازم عليه تفضل كود تثبيت التاريخ تلقائيا.xlsm

استبدل الماكرو بهذا Option Explicit Sub Transfer_data() Dim i%, m%: m = 4 Dim lrA%, My_text Dim Wrd(), t%: t = 1 Dim k% Range("D4").Resize(500, 13).ClearContents lrA = Cells(Rows.Count, "A").End(3).Row For i = 4 To lrA If Range("A" & i) = vbNullString _ Or Range("B" & i) = vbNullString Then GoTo NEXT_I End If My_text = Split(Range("b" & i), " ") For k = LBound(My_text) To UBound(My_text) If My_text(k) <> vbNullString Then ReDim Preserve Wrd(1 To t) Wrd(t) = Application.Substitute(My_text(k), ",", ".") Wrd(t) = IIf(IsNumeric(Wrd(t)), Wrd(t), 0) t = t + 1 End If Next Range("D" & m) = Range("A" & i) Range("E" & m).Resize(1, UBound(Wrd) - LBound(Wrd) + 1) = Wrd m = m + 1 Erase Wrd t = 1 NEXT_I: Next Range("D35") = "TOTAL" Range("E35").Resize(, 12).Formula = _ "=SUM(E4:E34)" End Sub

مجهود رائع ا/ محمد هو المطلوب بالظبط شكرا جزيلا ارجو شرح المعادلة المستحدمة فى الشيت لاتمكن من استخدامها فى باقي ملفات العمل " بس يكون شرح لمبتدئ زى يعنى 😂"

الملف يعمل عندى بشكل طبيعى New_Microsoft_Excel_Worksheet_(2).xlsx

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

تم التعديل على الملف اتمنى ان يكون هو المطلوب New_Microsoft_Excel_Worksheet_(2).xlsx

السلام عليكم مشكورين ومنورين وجدت الكود وهو : عند حدث عند التركيز للمربع النص ضع هذا الأمر: Me.txt_date.SelStart = 0 Me.txt_date.SelLength = 1 بحيث txt_date هو اسم مربع النص السطر الأول يعني بداية التحديث، و القيمة 0 تمثل الحرف الأول و 1 يمثل الحرف الثاني و هكذا.. السطر الثاني يحدد طول التحديد أو عدد الأحرف المحددة.

بعد اذن الأستاذ عبدالله وهذا رابط اخر من داخل المنتدى -يمنع فتح الملف اذا تم نقاه وتغيير مكان الحفظ او تغيير اسمه https://www.officena.net/ib/topic/38637-موضوع-مميز-تمت-الاجابةأريد-كود-يمنع-الملف-من-الفتح-عندما-يستبدل-جهاز-الكمبيوتر-نقله/?tab=comments#comment-261437 وهذا موضوع اخر يخص طلبك وهو ربط بين ملف اكسيل واسم جهاز الكمبيوتر http://excel-egy.com/forum/t3183 وهذا ايضا موضوع اخر لملف يعمل على جهازين فقط https://www.officena.net/ib/topic/64356-ملف-يعمل-على-جهازين-فقط/ واخيرا اذا كنت حابب ان تمنع الملف ان يفتح ويعمل على اى جهاز يمكنك تتبع الأتى: اولا:-عليك بفتح مديول جديد ووضع هذا الكود به Sub CommitSuicide() 'http://www.cpearson.com/excel/workbooktimebomb.aspx With ThisWorkbook Application.DisplayAlerts = False If .Path <> vbNullString Then .ChangeFileAccess xlReadOnly Kill .FullName End If .Close SaveChanges:=False End With End Sub Sub Locked(ByVal bEnabled As Boolean) Dim sh As Worksheet Dim iHome As Integer Dim iOthers As Integer If bEnabled = True Then iHome = -1 'visible iOthers = 2 'very hidden Else iHome = 2 iOthers = -1 End If With ThisWorkbook On Error Resume Next Application.ScreenUpdating = False .Sheets("Welcome").Visible = iHome For Each sh In .Sheets If Not sh.Name = "Welcome" Then sh.Visible = iOthers End If Next sh .Sheets("Welcome").Visible = iHome Application.ScreenUpdating = True On Error GoTo 0 End With End Sub ثانيا :- وضع كود اخر فى حدث This Workbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Locked True End Sub Private Sub Workbook_Open() Select Case Environ("COMPUTERNAME") Case "LPPC28" 'approved computers Locked False Case Else CommitSuicide End Select End Sub واخيرا عليك بتسمية احد صفحات الملف ب Welcome Sheet ووضع هذا الكود فى حدث هذه الصفحة Private Sub Worksheet_SelectionChange(ByVal Target As Range) Locked False End Sub بارك الله فيك

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

العفو استاذي الكريم

تم التعديل سداد.rar

تفضل data transfer.xlsm

اقترح هذا الماكرو Option Explicit Sub CALCUL() Dim MY_DIC As Object Dim K, m#, x%: x = 3 Set MY_DIC = CreateObject("Scripting.Dictionary") With MY_DIC Do Until Range("B" & x) = vbNullString K = Range("B" & x): m = Range("D" & x) If Not .exists(K) Then .Add K, m Else MY_DIC(K) = MY_DIC(K) + m End If x = x + 1 Loop Range("F3").Resize(.Count) = _ Application.Transpose(.Keys) Range("G3").Resize(.Count) = _ Application.Transpose(.Items) .RemoveAll: Set MY_DIC = Nothing End With End Sub الملف مرفق Working_with_dictionary.xlsm

أهلا بك في منتدانا تفضل يتم ذلك مباشرة بمجرد دخولك على هذه الروابط-اختر منها ما يناسبك : https://smallpdf.com/ar/pdf-to-excel https://www.hipdf.com/ar/pdf-to-excel https://www.freepdfconvert.com/ar/pdf-to-excel https://www.pdftoexcel.com/ar https://convertio.co/ar/pdf-xlsx/ https://www.ilovepdf.com/ar/excel_to_pdf

اهلا بك اخى الكريم في المنتدى تفضل هذا الرابط فبه كل ما تطلب https://www.officena.net/ib/topic/50897-تفقيط-مبلغ-معين-من-الأرقام-الى-الحروف-سواء-باللغة-العربية-أو-الإنجليزية-بدون-اكواد/?tab=comments#comment-313355

ابداع استاذ سليم معادلات رائعة بارك الله فيك

تفضل اخى الكريم حسن -تم عمل قائمة منسدلة بأسماء العملاء ثم بعد ذلك عمل معادلات مصفوفة بمجرد اختيار اسم العميل سوف يتم جلب كل بياناته ولكن كان لزاما عليك من البداية رفع مشاركة مستقلة بما تريد فقد تم فصل مشاركتك ووضعها بمشاركة جديدة مستقلة Book1.xlsx

اهلا بك في منتدانا الكريم تفضل هذا الرابط -كان عليك استخدام خاصية البحث في المنتدى أولا قبل رفع المشاركة https://www.officena.net/ib/topic/91235-طباعة-الشيكات-بالاكسل/?tab=comments#comment-572010

يمكنك تسجيل يوم بيوم تحت بعض وهناك صفحة أخرى تسمى الإجمالى يتقوم بدورها بتجميع كل الأيام خلال الشهر لكل موظف بارك الله فيك

وعليكم السلام - تم فصل الموضوع عن المشاركة الأخرى فعليك عند رفع مشاركة جديدة لابد ان تكون مستقلة ولا تقوم برفعها مع مشاركة أخرى مختلفة وان يكون العنوان معبر عن مضمون الطلب والمشاركة تفضل النقطة الإدارية.xlsx

وعليكم السلام ممكن تشوف الصورة

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

وعليكم السلام التنسيق الشرطى.xlsx

تفضل-هل هو غير واضح لهذه الدرجة ؟!!!!!!! http://www.mediafire.com/file/iwmlyw13zdl/بيانات+طبية.rar

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

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

بعد اذن أخي بن علية هذا الحل (في الخلية P2 تضع قيمة الحد الأدنى اذ ربما احببت ان تغير قيمته) المعادلة =IF(COUNTA($B2:$C2)<2,"",MAX(OFFSET($O$2,MATCH(C2,$N$2:$N$4,0)-1,,)*$B2,$P$2)) الملف مرفق Classeur_salim.xlsx

تفضل برنامج الشيكات.xlsx

كبف يمكن هذا بكود الوظيفة وهو كود واحد وثابت لكل الموظفين ؟! من فضلك عليك بتوضيح المطلوب اكثر على الملف ووضع شكل النتائج المطلوب استخراجها

تفضل معادلة بحث.xlsx

تفضل VLOOKUP.xlsx

اهلا بك اخى الكريم فى المنتدى الرابط موجود فى اول مشاركة من الموضوع-تفضل http://www.mediafire.com/file/iwmlyw13zdl/بيانات+طبية.rar

اشكرك استاذي على الشرح ...... بارك الله فيك

حبه حبه علينا يا أمير .... ولك من اسمك نصيب لكن ماذا لوكان الكود بدون علامة تنصيص ..... شاهد المرفق kanory.rar