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

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

وعليكم السلام وحمة الله وبركاته تفضل اخي الكريم B: [التوصية] & " " & Format([التاريخ];"yyyy/mm/dd") & " " & [الملاحظة] مثال للتاريخ.rar تحياتي

السلام عليكم مرحبا اخي ابو حسان دائما السائل الذي لا يتقيد بقواعد المشاركة يتعجب لماذا لا يتم الرد من الاخوة الاعضاء ، ولا يدري انه هو السبب ومن ضمن هذه القواعد والتي لم يتم مراعاتها هنا هو ادراج اكثر من طلب في موضوع واحد ، في هذه الحال يتحاشى الاعضاء الرد على احدها لانه سيكون ملزم بايجاد حلول لباقي الطلبات ، وقد يكون وقت العضو لا يسمح ، او ان بعض الاستفسارات تصعب عليه .. ولا ننسى ان طرح سؤال واحد افضل وارسخ في التعلم نحن دائما نغلق مثل هذه المواضيع ونطلب من السائل اعادة طرح موضوعه مع مراعات قوانين المشاركة ارى الافضل لك ان تطرح استفساراتك بمشاركات منفصلة كل سؤال في موضوع يخصه مثلا : -------------------------------------------- تقرير اكتب رقم الفاتورة فيستدعى البيانات فأتمكن من التعديل لو اخطأت لان نظرى ضعيف (1) واحتاج لاضافاة صلاحيات عدد 2 يوزر واحد يمكنه مشاهدة كل الفورمز (2) ولو امكن اخفاء حدود الاكسس كلها (3 ) وضع الفورمز والتقارير فى وضع ملئ الشاشة وفى حالة الضغط على فورم فأن الفورم الاخر يختفى (4) --------------------------------------------------------------- هذه اربعة مواضيع .. اعانك الله ووفقك ،،،

أحسنت استاذ سليم عمل ممتاز بارك الله فيك وجعله الله فى ميزان حسناتك الأمر بسيط yasse.w.2010 عليك بتغيير هذا الصف من كود الحذف ws.Cells(FR.Row, 1).Resize(, 7).Delete واستبداله بهذا ws.Cells(FR.Row, 1).Resize(, 7).ClearContents

ربما هذا الكود ينفذ ما تقصد كهرباء المخيم.xlsm

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

المشكلة عندك في الجهاز يجب تغيير نظام التاريخ فيه الى yyyy/mm/dd

تم تفعيل زر الحذف مع ادراج التاريخ بالتنسيق كما تريده Private Sub Cmd_Del_Click() First_Of_all Dim FR As Range If Val(Me.Where) <= 0 Then Else Set FR = ws.Range("A8:A" & lr) _ .Find(CInt(Me.Where), lookat:=1) If FR Is Nothing Then MsgBox "I can't Find That " _ & """" & Me.Where & """" & " In Column A" Exit Sub Else ws.Cells(FR.Row, 1).Resize(, 7).Delete lr = ws.Cells(Rows.Count, 2).End(3).Row ws.Range("a10").Resize(lr - 9) = _ Evaluate("Row(1:" & lr - 9 & ")") End If Me.Where = CInt(Me.Where) End If End Sub yasse.w._1.xlsm

السلام عليكم الهرم السكاني 2.xlsx

تفضل كيفية إضافة توقيع في Outlook 8 نموذج لتوقيع بريد الكتروني مهني

وعليكم السلام يمكنك ذلك من خلال التنسيقات الشرطية بهذه المعادلة =and($C2<=TODAY()-3,$c2<>"") متابعة1.xlsx

بعد اذن الأستاذ حسين ولإثراء الموضوع يمكنك هذا بهذه المعادلة =IFERROR(IF(B2="عام",VLOOKUP($E2&"/"&$D2,الحالة!$N$2:$Q$80,2,0),VLOOKUP($E2&"/"&$D2,الحالة!$H$2:$K$80,2,0)),"") المنتوج+المحور+الاستحقاق1.xlsx

جزاك الله كل خير استاذنا الكريم

بارك الله فيك استاذ مجدى

جزاك الله خير الثواب وزادك الله من فضله

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

أحسنت استاذ مجدى بارك الله فيك ورحم الله والديك

عليك استخدام هذه المعادلة طبقاً لطلبك =IF(A3="","",IF($A3="Can limon",0%,IF($A3="Rosie",100%,70%))) New Microsoft Excel Worksheet1.xlsx

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

بعد اذن الأستاذ خيماوى ولإثراء الموضوع يمكن ذلك بهذه المعادلة المعرفة MYVLOOKUP فعليك بفتح مديول جديد ووضع هذا الكود به وبالطبع فمعادلة الأستاذ خيماوى تعمل بكفاءة ولكن يظهر هذا الخطأ معك لأنك لم تستخدمة نسخة 365 من الأوفيس فهذه المعادلة موجودة بهذه النسخة فقط Function MYVLOOKUP(lookupval, lookuprange As Range, indexcol As Long) Dim r As Range Dim result As String result = "" For Each r In lookuprange If r = lookupval Then result = result & " " & r.Offset(0, indexcol - 1) End If Next r MYVLOOKUP = result End Function وعليك بوضع هذه المعادلة بداية من الخلية J7 سحباً للأسفل =MYVLOOKUP($I7,$D$6:$E$190,2) ورقة عمل Microsoft Excel جديد __.xlsm

أحسنت استاذ عبد اللطيف عمل رائع بارك الله فيك ورحم الله والديك

أحسنت استاذ السيد جعله الله فى ميزان حسناتك

تفضل بعد اذن الأستاذ ابراهيم طبعاً ... فكان عليك تعيين زر لحسن عمل الكود , تفضل نسخة من المصنف1 1.xlsm

ماكرو بحث واستبدال اسم أو رقم بفورم الاكسل وبعددة طرق الفيديو الصور

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

الله يسعدكم جميعاً

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

الاكواد داخل فورم اضفته في ملفك yousef.xlsb

للتعديل قم بتسمية زر التعديل بـــ Cmd_UPdate كما في الصورة الكود اللازم Private Sub Cmd_UPdate_Click() Dim Arr(5), Itm, FR As Range Arr(0) = "T_B": Arr(1) = "T_C":: Arr(2) = "T_D" Arr(3) = "T_E": Arr(4) = "T_F": Arr(5) = "T_G" First_Of_all If Me.Where = vbNullString Or _ Val(Me.Where) <= 0 Then MsgBox "ادخل رقم تاكيد الحجز" Exit Sub End If Set FR = ws.Range("A8:A" & lr) _ .Find(CInt(Me.Where), lookat:=1) If FR Is Nothing Then MsgBox "No data" Else With ws.Cells(FR.Row, 2) For i = 0 To UBound(Arr) .Offset(, i) = Me.Controls(Arr(i)) Next End With End If

السلام عليكم 🙂 اخوي صالح ، معلومة تهمنا في الاكسس ، من هنا : Microsoft 365 Roadmap | Microsoft 365 . جعفر

عليكم السلام ورحمة الله وبركاته تم تعديل اسماء أوراق العمل حتى يعمل الكود بشكل سليم تم إضافة أوراق عمل لباقي شهور السنة تجنبًا لترتيب أوراق العمل تم إضافة تحديد ورقة العمل ( الشهر ) الذي يتم فيه ترحيل البيانات تلقائيًا ملحوظة تم رفع الملف مضغوط لأنه حجمه كبير ولا أدري ما السبب إذا لم يفتح معلك قم بتنزيل برنامج ون رار إصدار حديث متابعة1.xlsb

لم افهم عليك ما تريد ربما كان هذا المطلوب If_Tow.xlsx

طيب بعد اذن الدكتور @SEMO.Pa3x بما ان حضرتك وضعت الصورة الخاصة بالختم فى تذييل التقرير تم اضافة الكود على حدث تنسيق الخاص بتذييل التقرير الفرعى Private Sub تذييل_التقرير_Format(Cancel As Integer, FormatCount As Integer) If txt_remaining <= 0 Then img_thanks.Visible = True Else img_thanks.Visible = False End If End Sub

وعليكم السلام - لك ما طلبت حضور ادارة المشتريات1.xlsx

عليكم السلام، تفضل. JO_2021.accdb

تفضل كما تريد .... بالتنسيق الشرطى حمادة.xls

وعليكم السلام-يمكنك استخدام هذه المعادلة =IFERROR(NETWORKDAYS.INTL(L2,A2,6),"لم يصرف") تقرير فواتير مبيعات رواج من 1-1-2021 الى 18-1-2021.xls

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

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

بارك الله فيكم جميعا وفى جهودكم

أحسنت استاذ محمد بارك الله فيك وزادك الله من فضله

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

أحسنت استاذ مجدى عمل ممتاز جعله الله فى ميزان حسناتك

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

هذه قائمة مميزة فيها بعض الأسرار المهمة والمفيدة في برنامج وورد، والتي توفر الكثير من الوقت والجهد

ايجاد الأرقام الناقصة في تسلسل ما و إعادة ادراجها موضوع جميل missing number.rar

السلام عليكم ورحمة الله و بركاته تفضل أخي هذا مطلوبك تظليل الخلايا المدخلة بطريقة خاطئة 1.rar

بالإذن من أخ سالم فيما أنت ضاغط على زر ALT اكتب الرقم 0144 (لحرف گ) والرقم 0141 (لحرف چ) من الارقام الجانبية على يمين لوحة المفاتيح لا من الأرقام العلوية فوق مفاتيح الأحرف، مع التأكد أن مفتاح Num Lock مضاء

شاهد رد أحد موظفي شركة مايكروسوفت: Dirk Goldgar Replied on October 6, 2014 No, there is no code you can put into the un-trusted database too automatically make it trusted. If you think about it, being able to do that would completely defeat the security barrier placed on untrusted code. What I would suggest you do is, rather than have your co-workers need to actively trust this particular database, put the database into a shared network folder that everyone's installation of Access is set to trust. That way, any database placed in that folder will automatically be trusted, so no security prompt will be displayed. However, the hitch here is that all users must tell Access to trust that folder. Manually, that would be done by way of the Trust Center settings, and you'd have to give everyone instructions that they'd have to follow -- once -- to trust the folder. If your company has a standard desktop configuration that gets installed on all users' desktops, it would be possible to have the trusted network folder be part of that installation. Alternatively, I believe there may be a utility out there that you can have all your users execute to add a particular folder to the trusted folders list. I'll have a quick look around online now to see if I can find such a thing; you may want to do the same. Dirk Goldgar, MS Access MVP 2001-2015 Access tips: www.datagnostics.com/tips.html