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

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

تكرار المصاريف2.accdb

عليكم السلام ورحمة الله وبركاته If Not IsNull(DLookup("wexdate", "wexpen", "wexdate=form!wexdate and wexname=form!wexname")) Then MsgBox "التاريخ مكرر" Undo End If تكرار المصاريف2.accdb

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

القيمة في جدول آخر ام في الفورم (غير منضمة) ؟

وعليك السلام ورحمة الله أخي الدكتور قاسم 🙂 ما يدور في ذهني في هذا الموضوع هو كيف نستطيع أن نربط قاعدة بيانات الأكسس بالجوجل شيت Google Sheet .. وخلفيتي حول هذا الموضوع غير مكتملة لحد الآن .. ولكن حسب بحثي الأولي أنه يمكن الرط عن طريق ال Google Sheets API .. وهي خدمة تقدمها جوجل للربط بخدماتها .. وتحتاج لتفعيلها للدخول إلى موقع الجوجل وتفعيل الخدمة وستعطيك رقم للتفعيل والربط مع البرامج الأخرى مثل الأكسس .. بعدها يمكنك ترحيل البيانات مباشرة 🙂 ويمكنك من خلال القاعدة المركزية تحميل البيانات من الجوجل شيت وجمعها وتحليلها . والموضوع بحاجة للمزيد من البحث والتجربة ..

مشاركة مع أستاذنا @Moosak تفضل أخي عمل متكامل بكل طلباتك افحصه جيداً وجرب ووافنا بالرد . جدول أسبوعي-1.accdb

السلام عليكم كمال على طارق جزاك الله خيرا وأحسن إليك.

تفضل تم معالجة الفكرة باستخدام طريقين 1- يفتح التقرير على الاستعلام الجدولي (الداخلي) كمصدر بيانات رئيسي يستقي البيانات من استعلام qrysumthisyear .. وهي بيانات السنة الحالية 2- حقول السنة السابقة في التقرير يتم جلبها من استعلام qrysumLastyear باستخدام الدالة DlookUp قد تلاحظ ثقلا قليلا عند فتح التقرير ولكنه يعد سريعا جدا فيما لو استخدمنا الدالة لجميع الحقول عملت لك نموذجا يجب ان يكون مفتوحا قبل فتح التقرير يشتمل على حقلين قيمتهما الافتراضية العام الحالي/العام المنصرم ... وهما المعيار لاستعلامي التحديد اتمنى ان يحقق حاجتك مثال3.accdb

وعليكم السلام - يمكنك بإستخدام هذا الكود وتكراره لكل تكست بوكس على حده .. وطبعاً تم الرد بالكود وليس بملف لأنك لم تقم برفع ملف توضيحى من البداية لطلبك !!! Private Sub TextBox5_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) With TextBox5 If IsDate(.Text) Then .Text = Format(DateValue(.Text), "dd/mm/yyyy") Else MsgBox "Not a date" Cancel = True End If End With End Sub

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

وعليكم السلام ورحمة الله وبركاته .. 🙂 نعم ممكن أخي @moho58 بكل سهولة .. وبدون الحاجة للدخول في تعقيدات الاستعلام الجدولي .. مادام أن الشكل ثابت لا يتغير بزيادة في عدد السجلات المعروضة .. وإنما التغيير يكون أسبوعيا .. فيمكنك إنشاء جدول وتكون الحقول هي نفس عدد الخلايا التي في الشكل الذي عندك لكل سجل .. هكذا : وبعدها سيكون الموضوع بسيط جدا .. مجرد تنسيق للخلايا في النموذج هكذا : والنتيجة النهائية في النموذج : ولو أردت جعل المادة والمعلم تظهر تلقائيا بدل كتابتها كل مرة .. ضعها في خاصية القيمة الافتراضية عند تصميم الجدول الملف المرفق : جدول أسبوعي.accdb

السلام عليكم و رحمة الله و بركاته و مغفرته و رضوان لكم جميعا اخوتى الأعزاء أعضاء المنتدى و زواره كنت منذ عدة ايام طلبت كود ترحيل بسيط لكن لم ارفق ملف للتنفيذ و ها أنا ارفق الملف ولكن مع بعض التعديلات على الطلب الأول حيث مع محاولاتى لتعديل اكواد مشابهة ارتفع سقف طلبى ليتحول الكود المطلوب إلى اكواد استدعاء تعتمد على ٣ متغيرات حالة الطالب ناجح او دورثان نوع الطالب بنين او بنات حالة القيد ( منقول او مستجد او باق ) او منازل وفى كل متغير يوجد احتمالين كما هو موضح مع ملاحظة انى عاوز الكود يتعامل مع المنقول و المستجد و الباقي كأنهم متغير واحد اى اى كلمة منهم هم التلاتة تعامل نفس المعاملة الشيت مصدر البيانات و الشيتات الهدف اول سطر به بيانات هو السطر ٢١ و البيانات يمكن أن توجد حتى السطر رقم ٢٠٠٠ المفترض أن الكود هيقول بالتالي اول حاجة هيحذف الداتا فى ملفات الهدف فى الرانج من الخلية A21 : HZ2000 تانى حاجة هيستدعى الداتا المطلوبة من جميع الاعمدة من A:HZ فى شيت المصدر طبعا حسب المتغيرات فى الخلايا C1 D1 E1 بشيت الهدف و محدد اسماء و ارقام اعمدة تواجدها فى الشيت او المصدر تالت حاجة هيعمل مسلسل جديد للبيانات المستدعاة رابع حاجة هيعد عدد الطلبة اللى قام بجلب بياناتهم و هيكتب رسالة تم جلب بيانات عدد كذا طالب بنجاح انا عارف ان الكود بقى معقد شوية لكن كلى امل ان اساتذتى فى اوفيسنا ماتصعبش عليهم حاجة و تقبلوا اسمى و اخلص التحايا و الامانى ملف لتجربة كود الإستدعاء.xlsm

برنامج حساب التأمين لارباب العهدة بالمصالح الحكومية بجمهورية مصر العربية محدث عام 2023 تم زيادة عدد الموظفين الى 30 موظف تم اتاحة اختيار الاجر الوظيفيى او الاساسى لكل موظف على حدة برنامج حساب أرباب العهد عام 2023.xlsm.xlsx لتحميل الملف من جوجل درايف اضغط على الرابط التالى https://docs.google.com/spreadsheets/d/1AW0QhXRCs2IwMU7qH8pYyp0qJE4h6MOXr_d7mTxs38A/edit?usp=sharing

تفضل اخي تم تفعيل جميع الاكواد بالنسبة ل 6 تبويبات ملاحظة لتتمكن من عرض ملفات PDF على اليوزرفورم وطباعة التقارير قم بتثبيت برنامج Adobe Acrobat على جهازك قاعدة البيانات.xlsm

لمشاهدة كيفية استخدام البرنامج اضعط على الرابط

تفضل أخي برنامج حصلته عندي من أعمال منتدانا أفسينا الاستبيان---2003.rar

شكرا لك اخي @أبو إيمان على التوضيح تفضل اخي Sub TEST_Rng() Dim a As Variant, ST1 As Variant, MH As Variant, ST3 As Object Dim WS_Data As Object, ST2 As Range, Data_Cells As Range, i As Long, Idx As Long Dim WS_Réf As Worksheet Set WS_Réf = ThisWorkbook.Sheets("Sheet1") Application.ScreenUpdating = False If WS_Réf.AutoFilterMode Then WS_Réf.AutoFilterMode = False Set ST2 = WS_Réf.Range("C2:F" & Range("C" & Rows.Count).End(xlUp).Row) ST2.Interior.ColorIndex = xlNone a = Application.Index(ST2.Value2, , 1) Set WS_Data = CreateObject("Scripting.Dictionary") WS_Data.CompareMode = vbTextCompare For i = 1 To UBound(a) If a(i, 1) <> "" Then WS_Data(a(i, 1)) = WS_Data(a(i, 1)) + 1 Next MH = Array(RGB(255, 128, 128), RGB(204, 255, 255), RGB(51, 204, 204), RGB(153, 153, 255), RGB(0, 255, 0), RGB(204, 204, 204), _ RGB(255, 102, 0), _ RGB(204, 204, 155), RGB(255, 255, 0), RGB(255, 153, 0), RGB(255, 0, 255)) For Each ST1 In WS_Data.keys If WS_Data(ST1) > 1 Then ST2.Offset(-1).AutoFilter 1, ST1 WS_Réf.AutoFilter.Range.Offset(1).Interior.Color = MH(Idx) Idx = Idx + 1 End If Next If WS_Réf.AutoFilterMode Then WS_Réf.AutoFilterMode = False ST2.Offset(ST2.Rows.Count).Resize(1).Interior.Color = xlNone For Each ST3 In WS_Réf.Range("C2:F500").Cells If ST3.Value = "" Then If Data_Cells Is Nothing Then Set Data_Cells = Range(ST3.Address) Else Set Data_Cells = Union(Data_Cells, Range(ST3.Address)) End If End If Next Data_Cells.Interior.ColorIndex = xlNone Application.ScreenUpdating = True End Sub في حالة الرغبة بالتعامل مع جدول Sub Color_Tbl() Dim a As Variant, MH As Variant, ST4 As Variant Dim Tab_WS As ListObject, ST5 As Object, WS_Data As Object Dim ST_Idx As Long, ST6 As Range, i As Long Dim Data_Cells As Range Dim ST_Réf As Worksheet Set ST_Réf = ThisWorkbook.Sheets("Sheet2") Application.ScreenUpdating = False Set Tab_WS = ST_Réf.ListObjects("Tableau1") Tab_WS.Range.AutoFilter Set ST6 = Tab_WS.DataBodyRange ST6.Interior.ColorIndex = xlNone a = Application.Index(ST6.Value2, , 1) Set WS_Data = CreateObject("Scripting.Dictionary") WS_Data.CompareMode = vbTextCompare For i = 1 To UBound(a) If a(i, 1) <> "" Then WS_Data(a(i, 1)) = WS_Data(a(i, 1)) + 1 Next MH = Array(RGB(255, 128, 128), RGB(204, 255, 255), RGB(51, 204, 204), _ RGB(255, 102, 0), RGB(204, 204, 155), RGB(255, 255, 0), _ RGB(255, 153, 0), RGB(255, 0, 255), RGB(153, 153, 255), RGB(0, 255, 0), RGB(204, 204, 204)) For Each ST4 In WS_Data.keys If WS_Data(ST4) > 1 Then Tab_WS.Range.AutoFilter 1, ST4 Tab_WS.Range.Offset(1).Interior.Color = MH(ST_Idx) ST_Idx = ST_Idx + 1 End If Next Tab_WS.Range.AutoFilter ST6.Offset(ST6.Rows.Count).Resize(1).Interior.Color = xlNone For Each ST5 In ST_Réf.Range("C2:F500").Cells If ST5.Value = "" Then If Data_Cells Is Nothing Then Set Data_Cells = Range(ST5.Address) Else Set Data_Cells = Union(Data_Cells, Range(ST5.Address)) End If End If Next Data_Cells.Interior.ColorIndex = xlNone End Sub بالتوفيق....... countif_V7.xlsm

وعليكم السلام معادله مقدار الدرجات =IF(F4="","",VLOOKUP(F4,'بيانات المعلمين'!$A$2:$K$212,10,0)) =IF(F5="","",VLOOKUP(F5,'بيانات المعلمين'!$A$2:$K$212,10,0)) معادله الملاحظات =IF(F4="","",VLOOKUP(F4,'بيانات المعلمين'!$A$2:$K$212,9,0)) =IF(F5="","",VLOOKUP(F5,'بيانات المعلمين'!$A$2:$K$212,9,0)) تجربة 1.xls

وعليكم السلام ورحمه الله وبركاته يمكنك استخدام هذه المعادله =TEXT(A8,"dddd") استخراج اسم اليوم.xls

السلام عليكم ورحمة الله وبركاته.. كنت قد طرحت سابقًا موضوع يتكلم عن ارسال رسائل الى الواتس اب لعدد X من المستخدمين من خلال الاكسس وهنا X معناها عدد معين كأن يكون 10 مستخدمين او اكثر او اقل.. الموضوع القديم كان فيه مشكلة وهو ان رسائل الواتس اب الطويلة لا يمكن ارسال او تُرسل بشكل مقطوع! الحمدلله في هذا الاصدار تم التغلب نهائيًا على هذه المشكلة واصبح البرنامج يرسل عدد كلمات بالعدد الذي يسمح به الواتس اب الجديد في هذا الاصدار: امكانية ارسال المرفقات ( الصور فقط ) 1- يمكنك ارسال رسائل فقط 2- يمكنك ارسال صور فقط 3- يمكنك ارسال رسالة مع صورة صورة مشروع الاكسس: قم بتحديد الاشخاص الذين تريد ارسال الرسالة لهم مع وضع نص الرسالة مع امكانية تحديد الكل يمكنك شروط البرنامج بحسب ماتراه مناسباً. النتيجة: ملاحظة يجب ان يكون برنامج الواتس اب موجود في جهاز الكومبيوتر واهم ملاحظة هي يجب كتاب رقم الواتس اب الذي تريد ان ترسل له الرسالة كما يظهر في البرنامج، مثال: لتحميل الواتس اب من الرابط الاتي: https://www.whatsapp.com/download بالمناسبة: الحمدلله انتهيت من برنامج تحويل الصور الى نصوص مهما كانت اللغة ( OCR ) وخصوصا اللغة العربية وحتى الصور التي تكون مكتوبة بخط اليد يتم تحويلها الى نصوص يسهل التعديل عليها في برنامج الوورد البرنامج يعمل بطريقتين: 1- يمكنك تحويل الصور بشكل مباشر 2- يمكنك استخدام الاكسس في ارسال CommandLine يتضمن مسار الصورة ومسار ملف التكست للنص الذي سوف يحفظ وسيقوم البرنامج بعمله لا تنسوني ووالدي من صالح دعائكم. تم بحمد الله. SendWhatsAppMessages.rar

السلام عليكم ورحمة الله وبركاته هذا الشيت من اعمال الاستاذ وجيه شرف الدين التى ساعدنى بها زر ينبثق منه ازرار.xlsm

طبعا لا حاول تثبيث نسخة 2021 ستمكنك من للاستفادة من عدة دوال غير موجودة في النسخ السابقة صراحة لا أعلم هل قانون المنتدى يسمح بوضع الروابط داخل المشاركة ام لا على العموم هذا رابط لنسخة 2021 قد سبق وأن رفعتها لأحد الأعضاء على المنتدى https://www.mediafire.com/file/rgd5dqaiagdhckm/Office_2021-M__Hicham.zip/file

السلام عليكم https://www.officena.net/ib/topic/100763-هدية-معالجة-الكتابة-الحروف-العربية-المشفرة-التي-تظهر-في-ملفات-إكسل/

السلام عليكم ورحمة الله ضع هذه الدالة " PtrSafe " بين كلمتى "Declare" و "Function" فى كل سطر تجد فيه هاتين الكلمتين

الأخوة الأعزاء الأفاضل و هذه نسخة تقوم بالبحث بجزء من الكلمة سواء في أول الكلمة أو وسط الكلمة أو آخرها . و دمتم ذخراً New-Userform-Arabic.rar

السلام عليكم ورحمة الله وبركاته إخوتي الكرام إليكم البرنامج بعد محاولة التعريب فما كان به من خير فمن الله وإن كان من خطأ أو سهو أو نسيان فمني ومن الشيطان جزاكم الله خيراً على حسن أدبكم وكلامكم الرفيع والسلام عليكم New-Userform-.rar

السلام عليكم اخي كنانة مشكلتك الاساسيةهي التنسيقات للصفوف المستقبلية لاوراق العملاء وعملية فصل العملاء بملف احد لن تحل مشكلة زيادة حجم الملف ولوتلاحظ ملف العميل فيه عميل واحد فقط وحجمه تجاوز kb1500 الحل يكمن في ازالةالتنسيقات المستقبلية واضافتها اول باول حسب وجود البيانات في الصفوف مرفق ملف فيه فكرة تخفيف الحجم مع الاحتفاظ بالمعادلات الاحصائية بطريقة حديثة هي في المرفق ادناه ملف للفاتورة زايدا عميلين ولم يتجاوز 160 على فكرة انا استخدم ملف واحد لبرنامج محاسبي فيه حوالي 400 حساب فوق الاوراق الرئيسية للعمل وهي تسع اوراق ومازلنا نضيف حسابات اخرى وحجه لا يتجاوز kb4000 [ فاتورة2.rar