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

يمكنك استعمال هذه المعادلة لتحويل النص إلى تاريخ =DATE(MID(A2,1,4),MID(A2,6,2),MID(A2,9,2)) على اعتبار أن الخلية التي بها هذا النص A2 بالتوفيق

تفضل أخي الكريم أرجو أن يكون الحل: Retails Sales Report (2).xlsx

السلام عليكم و رحمة الله الكود التالى ضعه فى كلاس موديول و سمه (اى الكلاس موديول) ClsButn Public WithEvents Btn As MSForms.CommandButton Sub Btn_Click() Dim ws As Worksheet For Each ws In Worksheets If Btn.Caption = ws.Name Then ws.Visible = True Else On Error Resume Next ws.Visible = False End If Next End Sub اما الكود التالى فضعه فى حدث الفورم Dim MyBtn(1 To 9) As New ClsButn Private Sub UserForm_Initialize() For i = 1 To 9 Set MyBtn(i).Btn = Me.Controls("CommandButton" & i) Next End Sub اضغط على الزر مرتين لكى يعمل معك الكود بصورة صحيحة هذا و الله اعلى و اعلم

الحمد لله الذي بنعمته تتم الصالحات بخدمتكم أخي الكريم.

جزاكم الله خيراً على حسن قولكم ...ولكم بمثل ما دعوتم آمين الملف الجديد يثبت أن الملف مرتبط بآخر علماً أنه ليس في ملفك نطاق معرف بـ: Y_3 على الإطلاق حسب بحثي فيه ، لكن النطاق المعرف وموجود تعريفه على كلا الملفين هو Y_5 علماً أن في الملف الثاني فيه : =IFERROR(IF($C$2="";"";INDEX(Y_3;SMALL(IF(Y_3=$C$2;ROW(Y_3)-3;"");ROW(C1));MATCH(C$3;'Form Responses 1'!$A$1:$S$1;0)));"") تقبل تحياتي العطرة

وعليكم السلام ورحمة الله وبركاته أخي الكريم @Yasser Fathi Albanna كيف الحال ؟ إن شاء الله بخير رأيت أن أقدم نصيحة لتكون الإجابة على تساؤلكم بشكل دقيق أن ترفق الملف التالي الذي يفترض وجوده لديكم على الـ: D برنامج حساب المعاينات والصرف والإدخار والكوبونات كون المعادلات متعلقة به حصراً في الشيت المرفق.. حيث تعريف Name manager كجزء من المعادلة Y_5 ='D:\[برنامج حساب المعاينات والصرف والإدخار والكوبونات.xlsx]Calculating Points'!$A$4:$DS$1003 أرى أن تقوم بوضع الملف المذكور أعلاه ضمن المسار المحدد، فإن بقي الخطأ في المعادلة يمكنك طرح السؤال ... وفقكم الله لما يحب ويرضى والسلام عليكم.

عليكم السلام ضع هذا الكود في حدث الصفحة (Sheets Code) Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("C:C")) Is Nothing Then With Target: .Value = .Value: End With End If End Sub

السلام عليكم ورحمة الله وبركاته 🌹 درسنا اليوم عن طريقة عمل قوائم ديناميكية متحركة بأقل عدد من الأكواد وطريقة مبتكرة . 🙂 النتيجة النهائية : الشرح : تحميل الملف : Dynamic Menus.accdb

كثيرا ما نحتاج لتصميم عرض تقديمي تفاعلي يمكن العرض من التفاعل مع المستخدم فإذا اختار المستخدم اختيار يقوم البرنامج بإجراء معين وهكذا وهذه مجموعة من ملفات الشرح بالصوت والصورة لكيفية عمل عرض تقديمي تفاعلي حجم الملف 71.7 ميجا بايت ولا تنسوا أخاكم / محمد صالح من صالح دعائكم والآن مع التحميل http://www.mediafire.com/download.php?mjmmiyzmwyg

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

شكرا جزيلا وربنا يجزيك خيرا

أحسنت وبارك الله فيك باش مهندس @أ / محمد صالح .. 🌹😊 إضافة جميلة جدا للموضوع والمنتدى .. جعلها الله شفيعة لك يوم الحساب 🙂 مقترح : هل يمكن ضم المشاركات في البحث ؟ لأن الكثير من العناوين لا تدل على محتواها .. والمشاركات تحتوي على الكثير من الدرر وأغلب الفوائد موجودة فيها .

بارك الله فيكم جميعا جميل جدا هذا العمل إبداع وهذه مساهمتي للبحث في موضوعات منتدى الاكسس ولكن في مجال الويب حتى يمكن البحث بسرعة بمجرد الكتابة ولو في الموبايل بدون الحاجة إلى برنامج الأوفيس https://officena.net/team/mas/access.html بالتوفيق للجميع دعواتكم

الله يعزك ويكرمك ويديم عليك فضله أخى الكريم أستاذ / محمد

تعبت حضرتك ممكن النظر إلى الملف المرفق حيث أنه تم تغيير الشيت نهائى وعمل Name manager جديد وتم ربطه داخل المعادلة ولكن يظهر نفس الرسالة بالصورة المرفقة Retails Sales Report.xlsx أسف أستاذ محمد بعت الرد قبل حل حضرتك ألف شكر لحضرتك وتعبت حضرتك معايا بس حضرتك ممكن توضح لى كيف تم حلها

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

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

وعليكم السلام ورحمة الله الله وبركاته 🙂 باستخدام دالة Sleep نفسها المستخدمة للإنتظار في كود الواتسأب ضع هذه الأسطر من ضمن كود الإرسال لديك ( يفضل أن يكون تحت جملة For مباشرة ) : Dim W As Long ' المتغير يعد الأشخاص الذين تم الإرسال لهم If W = 10 Then ' حدد عدد الذين تريد الإنتظار بعدهم Sleep 15000 ' مدة الإنتظار (كل ألف يساوي ثانية) W = 1 Else W = W + 1 End If وهذا مثال للتجربة : Sub SendToWhatsApp() Dim x As Integer For x = 1 To 50 Dim W As Long ' المتغير يعد الأشخاص الذين تم الإرسال لهم If W = 10 Then ' حدد عدد الذين تريد الإنتظار بعدهم Debug.Print "================================(إنتظار)" Sleep 15000 ' مدة الإنتظار (كل ألف يساوي ثانية) W = 1 Else W = W + 1 End If ' هنا كود إرسال الواتسأب Debug.Print "جار الإرسال للمستخدم رقم: ", x Sleep 500 DoEvents Next x End Sub والنتيجة :

السلام عليكم بناءا على طلب أحد الاخوة المتابعين برنامج صغير لتسجيل وقت الدخول والخروج واسم المستخدم تستطيعون اضافته الى برامجكم user name : Admin Password : 12345 تسجيل الدخول والخروج.accdb

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

شكر لك أخي @عبد اللطيف سلوم 🙂

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

If IsNull(Me.mont) Then msgbox "معلومات غير مكتملة" Exit Sub Else DoCmd.OpenReport "table1", acViewPreview 'لعرض التقرير DoCmd.RunCommand acCmdPrint End If

بعد اذن الأستاذ محمدي عبد السميع حتى لا يتأخر طلب الغالي spyhearts Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Target.Column = 3 And Target.Row = 5 Then ChaingeLanguage "English" Else ChaingeLanguage "Arabic" End If End Sub

وعليكم السلام ورحمة الله وبركاته بعد اذن استاذنا ابراهيم الحداد قمت ببعض التعديلات على الكود العبقري (مختصر ومركز وذكي) قمت ببعض الاجتهادات وفق الاتي: - ترحيل جميع الأسماء إلى شيت الخلاصة ضروري ليتم التجميع مع نهاية العام لجميع الأشهر، لذا ابقيت الخلاصة النهائية كما هي بنقل جميع الحالات لجميع الأسماء. - بناءً على رغبتكم بترحيل الأسماء التي لديها حالات (بياناتها غير صفرية) الى شيت جديد باسم (خلاصة الشهر) لعلها ما تطلب. مع وافر التحية والتقدير الاجازات.xlsm

هل احتجت أن تستبدل أكثر من نص (حرف أو كلمة) بمجموعة أخرى من النصوص (حروف أو كلمات) ومللت من تكرار دالة substitute بعدد مرات الاستبدال في المعادلة؟؟؟!!! إليك الحل بطريقتين مختصرتين دالة معرفة UDF وإجراء SUB زكاة العلم نشره فشارك غيرك ما تعلمه يزدد علمك لو بخل بها غيرك ما وصلت إليك #a1mas #ostazmas بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays فتابعونا. mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays ورد إلينا هذا السؤال في صفحتنا على فيس بوك وكانت الإجابة سريعة ولكن غير مختصرة فقررت تصميم دالة معرفة تقوم بالمطلوب وهو استبدال مجموعة من النصوص بمجموعة أخرى من النصوص في مرة واحدة ولكن ما هو الكود الذي سنحتاجه لعمل هذه الدالة mas_substitute ؟ تابعونا للإجابة عن هذا السؤال وأكثر تابعونا في هذا الفيديو ونتعرف أيضا على: طريقة إنشاء دالة معرفة user defined function في إكسل طريقة إنشاء إنشاء إجراء sub في إكسل كيفية التعامل مع كل خلية في النطاق بالكود vba كيفية التعامل مع كل عناصر المصفوفة array elements إجراء أكثر من عملية استبدال بضغطة زر واحدة والكثير من المهارات الأساسية في فيجوال بيسك للتطبيقات وفي معادلات إكسل لا أريد أن أطيل عليكم تابعوا معي هذا الفيديو mas substitute تطوير دالة substitute للتعامل مع المصفوفات arrays الشرح يعمل في إكسل 2016 و 2013 و 2010 و 2007 رابط الملف المستعمل في الشرح هنــــــــا للمزيد زوروا ميكروسوفت إكسل Microsoft excel ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور mas_substitute.rar

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

لا تنشرها جزاك الله خير ... ادخل وحمل وستعرف !! جمعة مباركة اخواني الكرام اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين جمعة مباركة.rar

الاخ /العفيرى 1. اول شي افتح ملف البوربوينت 2. اذهب الى قائمه file 3. اذهب الى save as 4. ستظهرلك قائمه بتقول لك اين تحفظ الملف ابحث فوق بتلاقي كلمه tools اضغط عليها 5. تظهر نافذه جديده security options بتروح عند الفراغ الى قدام password modify وتكتب كلمه سر التى تريدها بعدين بتضغط موافق بتجيب نافذه تعيد كتابه كلمه السر بعدين بتحفظ الملف فى المكان المناسب بجهازك 6. افتح ملف البوربوينت رح يظهرلك تلات خيارات يا تكتب كلمه السر وتضغط موافق يا الغاء امر يا للقرائه فقط وطبعاً لا احد يقدر يفتح او يعدل على الملف الا بكلمه السر فهل هذه الطريقة المطلوبه