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

اخي الحبيب وفقك الله يكفي منك عند عدم حصولك على مطلوبك ، فقط كتابة كلمة : للرفع وعند حصولك على الاجابة الشافية تؤشر امامها كأفضل اجابة الجميع هنا طلاب علم .

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

سبق وقلت لك ان الجدول لا يتناسب مع المعطيات لقد وضعت لك جدولا يحدد الأساتذة الغائبين مع عدد ايام الغياب لكل منهم في العامود الاول السؤال: كيف تريد ان توزع ايام الغياب (التواريخ) في صف واحد لو اخذنا مثلاً الاستاذ باري عامر عنده 6 غيابات في تواريخ مختلفة كيف تدرج هذه التواريخ في الصف السادس وفي خلية واحدة ( (A6 ملاحظة :لم احذف الصفحات الباقية بل فقط اخفيتها حتى اتعامل مع الصفات المطلوبة مؤقتاً يرجى اعادة تصميم الجدول اذا كنت تريد تواريخ كل الغيابات للغائبين مع العلم انه يمكن ان يكون هتاك اكثر من مرة غياب فب في شهر واحد الشرح اكثر وضوحاً في الملف المرفق الكود Option Explicit Sub fil_name() Dim p As Worksheet, t As Worksheet, G As Worksheet Dim x%, m%, how_many% Dim resl As Range, r% Set p = Sheets("P"): Set t = Sheets("T") Set G = Sheets("GHIAB") Set resl = G.Range("a5").CurrentRegion r = resl.Rows.Count If r > 1 Then resl.Offset(1).Resize(r - 1).ClearContents x = 4: m = 6 Do Until p.Range("a" & x) = vbNullString how_many = Application.CountIf(p.Range("D" & x).Resize(, 222), "Ok") If how_many > 0 Then With G.Cells(m, 1) .Value = how_many .Offset(, 1) = p.Cells(x, 1) .Offset(, 2) = p.Cells(x, 2) .Offset(, 3) = p.Cells(x, 3) m = m + 1 End With End If x = x + 1 Loop End Sub الملف مرفق (تم تغيير اسم صفحة الغائبين الى GHIAB) لسهولة التعامل مع اللغة الاجنبية من حيث نسخ الكود ولصقه medSalim.xlsm

وعليكم السلام-فقط يمكنك استخدام هذا الكود بحدث الصفحة وكلمة السر عند الحاجة هى 123 Private Sub Worksheet_Change(ByVal Target As Range) Dim xRg As Range On Error Resume Next Set xRg = Intersect(Range("C6:G8"), Target) If xRg Is Nothing Then Exit Sub Target.Worksheet.Unprotect Password:="123" xRg.Locked = True Target.Worksheet.Protect Password:="123" End Sub اقتراح موعد لاجتماع شرح التقرير الشهري1.xlsm

تفضل هذا هو المطلوب بالفعل-جرب بنفسك الكمبوبوكس1.xlsm

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

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

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

وعليكم السلام ورحمة الله وبركاته تم التعديل على ملفك في المرفقات جرب اذا الامور تمام قاعدة البيانات2.rar

وعليكم السلام ورحمة الله لم افهم ما ترمي اليه بالضبط هل تقصد ان يبدا من الرقم 1 في كل اضبارة عند ادخال سجلات جديدة ان كانت هذا ما تقصدة فهذة يمكنك ان تعملها بالنماذج وليس بالجداول حسب خبرتي المتواضعة ام تقصد ان لكل رقم مخابرة مع رقم الكتب ؟ اذا كان هذا ما تقصدة قم بربط الكتب بما تريد من الجداول وستاتيك النتيجة كما تحب

وعليكم السلام-اهلا بك فى المنتدى , فقط بهذه المعادلة =IFERROR(VLOOKUP($A2,Sheet1!$A$2:$B$900,2,0),"") معادلة جلب اسم المحافظة.xlsx

اليكم الدرس التاسع لشرح برنامج الاكسيل من الرابط التالى https://youtu.be/khRj307MPug ملف شرح الدرس التاسع لشرح الاكسيل.rar

مرحبا اخى @Khalf هل هناك مشكله بالموقع ام اننى نائم كان هناك مشاركه للاخ السائل قبل ردى هذا ولذلك رديت عليه هل قام بتجربته ام لا ????

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

السلام عليكم لم يتح لي تطبيق الطريقة في إصلاح المشكلة والتي أشارت مايكروسوف إلى أنها غير مرتبطة بمستوى الأمان، أدعها لمن يرغب بالتجربة علماً أن هناك من قام بتطبيقها بحسب بعض المواقع على ٢٠١٦ ونجحت، أترككم مع الرابط https://docs.microsoft.com/en-us/office365/troubleshoot/administration/enable-disable-hyperlink-warning

تم التعديل علية جرب الان قاعدة البيانات2(2).rar

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

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

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

ما عملنا شي لك عزيزي بخصوص السوال الثاني احذف الكود التالي DoCmd.RefreshRecord من زر الحفظ وجرب

وعليكم السلام ورحمة الله العلاقات مهمة جدا وابسط مثال ممكن اقوله هو الاب> الابناء هناك جدول رئيسي > وجدول فرعي هناك مخزون > هناك حركة مخزون فاذا كان المخزون هو الرئيسي فيجب ان يكون فريد من نوعه وترتبط الحركة بشكل كامل مع المخزون فلو افترضنا ان لدي اربع مخازن اريد اعرف كم كل مخزون بقي فية من الاصناف او ماهي خركة المبيع الخاصة به فانني اعرف بواسطة العلاقات وقد قمت بالتعديل على قاعدة البيانات وعملت ربط للجدولين المذكور في المشاركة السؤال الثاني تحويل الحقل % Utilisation من رقم الى محسوب وقم بعملية الحسابات كمثل الالة الحاسبة monitoring.rar

ربما يكون الحل Result.xlsx

نفضل اخي الكريم بعض المواضيع في المنتدى https://www.officena.net/ib/topic/71690-ترجمة-وكتابة-الاسماء-من-العربية-الى-الانجليزية-تلقائيا https://www.officena.net/ib/topic/87360-%D8%AA%D8%B1%D8%AC%D9%85%D8%A9-%D8%AC%D9%88%D8%AC%D9%84-google-translate/ تحياتي

وعليكم السلام .... من فضلك الأمر ليس بهذه البساطة فالموضوع غامض من قلة الشرح عليك بشرح المطلوب بكل دقة لأنه لا يمكن العمل على التخمين فكيف تريد عمل هذا البحث ,وفى اى صفحة يتم البحث وفى اى خلية ومن اى صفحى يتم جلب بيانات البحث ؟!!!! لابد من توضيح كل هذا حتى تتمكن الأساتذة من مساعدتك ,اذا كنت تريد المساعدة فلا تبخل بالتوضيح والشرح المفسر

امين وياك اخي الكريم ريان نعم استاذ احمد اوافقك الرائي ماذا لو كان لدية خمسة او سته اطفال افضل ان يكون للاطفال جدول للاطفال بعلاقة مع الجدول الخاص بالاب فمهما كان العدد من الاولاد لا يؤثر عليه في المستقبل مداخلة لا اكثر تحياتي لكم

وعليكم السلام تفضل مثالك بعد التعديل اطفال.rar

الاخ خالد سيسكو والاخ أحمد الفلاحجى طبعا لا اعرف كيف اشكركم من صميم قلبي استفدت منكم كثير كنت احتاج الفكرتين طبعا تحياتي لكم وربي يبارك بكم وخصوصا هذا المنتدى العريق لاتوجد كلمات اوصف بها ما يسعني ان اقول الله يبارك بكم ويجعلها في ميزان حساناتكم مساعدة اخرى هل استطيع ان اعمل استعلام وضع في المعيار شرط العمر =< 18 سنة لاربع حقول مثلا بمعنى لدي في جدول واحد اربع اسماء ولكل اسم مواليد لكن اريدها بتقرير واحد طبعاً اولا اشكر كل من في هذا المنتدى لان فعلا كلمة الشكر قليلة في حقكم ثانيا وبصراحة لم اعرف هناك يوجد اعجاب للمشاركة ولذلك اعتذر عن ذلك وحتى الضغظ على الاعجاب قليلة في حقكم يجب علينا نضع قلوبنا للاعجاب وليس الضغط على ايقونة الاعجاب وتحياتي لك

السلام عليكم السبب ان مجموعة (عضو جديد) لها حد لعدد المشاركات اليومية تم تعديل المجموعة لتجنب هذا الشرط اهلا بك كعضو ممبز 🌼

بعد اذن الاخ مداد تم تغيير اسم الشيت الى اللفة الاجنبية "salim" (كما اعمل دائماً مع الاكواد لحسن عمل الماكرو من حيث النسخ واللصق) هذا الكود البسيط Option Explicit Sub get_Data() Dim S As Worksheet Dim x%: x = 4 Dim dic As Object Dim ky Set S = Worksheets("salim") S.Range("d4").CurrentRegion.ClearContents Set dic = CreateObject("Scripting.Dictionary") Do Until Cells(x, 1) = vbNullString If Not dic.exists(S.Cells(x, 1).Value) Then dic.Add (S.Cells(x, 1).Value), S.Cells(x, 1).Offset(, 1) End If x = x + 1 Loop '======================== With S.Range("d4").Resize(dic.Count) .Offset(, 1) = _ Application.Transpose(dic.items) .Value = _ Application.Transpose(dic.keys) .Offset(dic.Count).Resize(dic.Count) = _ Application.Transpose(dic.keys) For Each ky In dic.keys dic(ky) = dic(ky) + 1 Next .Offset(dic.Count, 1) = _ Application.Transpose(dic.items) End With Set dic = Nothing: Set S = Nothing End Sub الملف مرفق Conditional_Duplicate.xlsm

ارجو عمل معادلة للطباعة ويومية مبيعات كما هو فى اليومية وعمل شيت بحيث يتم طباعة اكتر من ٥٠ فاتورة فى وقت واحد وترحيلها الى يومية مبيعات وشكرا لكم فواتير٣٣٣(1).zip

أستاذ Ahmed 70 أين الضغط على الإعجاب ؟!!💙

السلام عليكم-يمكنك استخدام هذه المعادلة =SUBTOTAL(9,$J$2:$J$63) المعادلة بسيطة جدا كما ترى غير محتاجة الى شرح فقط عليك بعد كتابة = تكتب اسم المعادلة Subtotal ثم بعد ذلك تقوم بفتح قوس , وبما انك تريد اجمالى فعليك بعد فتح القوس كتابة رقم 9 ثم علامة الكومة المناسبة لجهازك سواء عادية او منقوطة , ; ثم بعد ذلك كتابة النطاق او العمود الذى تريد الإجمالى منه وفى حالتك هو $J$2:$J$63 ثم بعد ذلك تقوم بغلق القوس , وبارك الله فيك Subtotal.xlsx

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

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

وعليكم السلام - تفضل الم تطلع على الملف تم تنفيذ المطلوب بهذا الكود Sub arrange() Sheet1.Activate Columns("A:A").Select Selection.Copy Sheet2.Activate Columns("b:b").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub ترتيب بيانات الصفوف حسب القائمة الأساسية.xlsm

يمكنك استخدام الكود هكذا فى حدث ThisWorkBook Private Sub Workbook_Open() ActiveWorkbook.Sheets(1).Select Range("a1").Activate Dim aa As Byte If IsNull(Range("b65535").Value) Then Range("b65535").Value = 1 End If aa = Range("b65535").Value If aa = 5 Then MsgBox "Used for 5 times , no more use is allowed !!" Application.ActiveWorkbook.Close Exit Sub Else Dim bb As String bb = Str(aa + 1) MsgBox "This File was used " & bb & " Times " End If Range("b65535").Value = aa + 1 Application.ActiveWorkbook.Save If Date >= DateValue("26/6/2021") Or Sheets("Sheet1").Range("S1") >= Date Then Sheets("Sheet1").Range("S1") = Date MsgBox " expire انتهت صلاحية الملف " ThisWorkbook.Save Application.Quit End If End Sub

جرب المرفق Backup2.rar

اتفضل Database (1).mdb

اعرض الملف تحويل المعدل الى تقديرات نصية باستخدام IF تحويل المعدل الى تقديرات نصية باستخدام IF نموذج ملف معدلات طلاب وتحويل المعدل الى تقدير اقل من 50 راسب 50 - 60 مقبول 60 - 70 متوسط 70 - 80 جيد 80 - 90 جيد جدا 90 - 100 امتياز صاحب الملف ahmad3a تمت الاضافه 12 يول, 2019 الاقسام قسم الإكسيل

تفضل بعد اذن الأستاذ عماد يومية1.xlsx

من غير طريقة انا بالصدفة جربت هذا الرقم وتم معى

وعليكم السلام كلمة السر : 123 بارك الله فيك

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

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

أهلا بك اخ كريم فى المنتدى عليك برفع ملف اكسيل وشرح عليه ما تريد بالتفصيل بارك الله فيك

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

أحسنت بارك الله فيك وجزاك الله كل خير

تفضل بعد اذن الأستاذ أحمد تكت كتابة الاستمارات للصف الثالث الاعدادى.xls

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

انت ليه كل شويه بتغيير الشروط اللى انت عايزها قبل كده طلبت هذا وتم عملها ومش عارف انت عايز ايه تانى انا عايز اذا دخلت الرقم 1316 يغير اللون غير كدا لا يغير في خانة الرسوم عايز اذا دخلت 8 أو 16 يتغير اللون انا عايز اذا دخلت الرقم 1215 يغير اللون غير كدا لا يغير في خانة الرسوم عايز اذا دخلت 8 أو 16 يتغير اللون انا عايز اذا دخلت الرقم 1216 يغير اللون غير كدا لا يغير في خانة الرسوم عايز اذا دخلت 8 أو 16 يتغير اللون وهكذا في جميع الصفوف هنا ادخل 265 يغير اللون غير كدا لا يغير نفس الشي هنا 250 يغير لون المصروف يغير لون عند كتابة 8 أو 16 ودلوقتى بتغيير ممكن تشتغل على اخر ملف ارسلته اليك وتتبع الخطوات وتقم بالتغيير كما تشاء جزاك الله كل خير