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

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

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

سبق وقلت لك ان الجدول لا يتناسب مع المعطيات لقد وضعت لك جدولا يحدد الأساتذة الغائبين مع عدد ايام الغياب لكل منهم في العامود الاول السؤال: كيف تريد ان توزع ايام الغياب (التواريخ) في صف واحد لو اخذنا مثلاً الاستاذ باري عامر عنده 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

وعليكم السلام ورحمة الله وبركاته هل تريد استدعاء البيانات من الاكسل الى الاكسس ؟ ام العكس

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

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

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

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

عليكم السلام ورحمة الله و بركاتة تفضل اخى الكريم لك ما طلبت Copy of With Holding Tax_The _2019.xlsm

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

نفضل اخي الكريم بعض المواضيع في المنتدى 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/ تحياتي

وعليكم السلام-تفضل شوف بنفسك نقاط البيع pos نظام يعمل على اجهزة الكاشير المحاسبية والباركود

وعليكم السلام ورحمة الله اليك المثال بعد التعديل Library.rar

My_formula.xlsx

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

وعليكم السلام-تفضل دالة dcountA شرح الدالة DCOUNT

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

السلام عليكم لو جربتموها و قمتم بالعمل عليها لوجدتم خلاف ذلك المصفوفات تسهل علينا الكثير من المسائل و تختصر الكثير من الأكواد

بارك الله فيك استاذ محمد وجزاك الله كل خير مبارك الترقية أستاذ moneer saad ان شاء الله مستحقة وعن جدارة

بعد اذن الاخ مداد تم تغيير اسم الشيت الى اللفة الاجنبية "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

تفضل كود لأحد اساتذة هذا المنتدي الجميل فواتير٣٣٣.xlsm

وعليكم السلام - تفضل الم تطلع على الملف تم تنفيذ المطلوب بهذا الكود 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

فقط عليك استخدام هذه المعادلة =MIN(A2:B2) تواريخ1.xlsx

وعليكم السلام -تفضل حافز 2العملاء.xlsx

تم تغيير اسم الورقة الاولى الى "DATA_BASE" لحسن التعامل مع المعادلات باللغة الاحنبية المعادلة المطلوبة في الخلية G2 يلزمها (Ctrl+Shift+Enter) وليس (Enter) وحدها لانها معادلة صفيف =IF(A2="","",INDEX(DATA_BASE!$C$2:$C$50,SMALL(IF(DATA_BASE!$C$2:$C$50<>"",IF(DATA_BASE!$A$2:$A$50=$A2,ROW($C$2:$C$50)-ROW($C$2)+1)),COUNTIF(DATA_BASE!$A$2:A2,A2)))) الملف مرفق للمعاينة SALIM_VLOOKUP.xlsx

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

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

اهلا بك فى المنتدى تفضل استحقاق الترقية#1.xlsm

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

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

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

تفضل اخى الكريم محمد اعمال يومية3.xlsm

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

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

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

وعليكم السلام -تفضل اخى الكريم ترحيل.xlsm

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

وعليكم السلام تفضل Report.xlsm

الف ميروك استاذ ابو ياسين-دائما الى الأمام ومن تفوق الى رقى بالتأكيد ترقية مستحقة ومجهود رائع ونشاط ملحوظ فى المنتدى ودائما تسعى الى مساعدة الإخوة بارك الله فيك وجزاك الله كل خير وجعل الله جميع اعمالك فى ميزان حسناتك

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

اخي الكريم راجع هذا الرابط قد يفيدك https://support.microsoft.com/ar-sa/help/2581301/acc2010-you-receive-an-error-in-microsoft-access-using-the-built-in-wi