أ / محمد صالح

لحماية الشيت في إصدار 2003 وما قبله Tools - protection - protect sheet أدوات - حماية - حماية ورقة العمل

هل المرفق في المشاركة السابقة لا يفي بالغرض المطلوب ؟ أرى أنه نفس ما تطلبه تعال نفهم المعادلة في C3 IF(DAY(TODAY())=10 يعني لو اليوم الخاص بتاريخ جهاز المستخدم يساوي 10 (يعني في 10 في الشهر) يعرض قيمة الخلية A3 وإذا اليوم ليس 10 لا يعرض شيئا ونفس الشيء في معادلة عمود التحصيل IF(C3="","",TODAY()) لو خلية المحصل فارغة تصبح خلية التاريخ فارغة وإذا بها اسم يعرض تاريخ اليوم ما المطلوب غير هذا ؟؟؟

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

يمكنك وضع هذه المعادلة في الخلية F2 =INDEX('عدد الوثائق'!B:B,MATCH(B2,'عدد الوثائق'!A:A,0)) وهي للبحث عن القيمة المقابلة للجنة في عمود عدد الوثائق بالتوفيق

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

يمكنك استعمال هذه المعادلة في الخلية B1 =VLOOKUP($I$1,Feuil1!$A$3:$G$150,ROW(),0) وهي للبحث بدالة Vlookup بصورة رأسية مع إمكانية سحب المعادلة لأسفل للحصول على باقي نتائج البحث بالتوفيق

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

جرب أن تضع في الخلية G7 هذه المعادلة =COUNTIFS(C7:F7,"<>"&0,C7:F7,"<>") وهي تعني عد الخلايا بشرطين ألا تكون فارغة وألا تتساوي صفر بالتوفيق

يمكنك طباعتهم في برنامج الوورد مثلا من خلال دمج المراسلات أو من خلال الاكسل وتوزيعها بعد الطباعة وتوقيع كل طالب بالاستلام

إن شاء الله يكون هذا هو المطلوب تم إضافة معادلة للعمود A ومعادلة للعمود B ومعادلة للعمود C وما بعده مع إضافة عمود لأسماء العملاء بدون تكرار في الشيت الأول بالتوفيق تحصيل عملاء تجريبى.xlsx

رءوس الأعمدة لا يتم إضافتها إلى عناصر القائمة وإنما تكون عبارة عن تسميات labels أعلى القائمة تفضل هذا ملفك بعد التعديل إظهار نتائج البحث في listbox.xlsb

جرب هذا التعديل Private Sub CommandButton2_Click() Dim i As Long Me.ListBox1.CLEAR 'لعمل رأس الاعمدة For a = 1 To 6 Me.ListBox1.AddItem Sheet3.Cells(1, a) Next a Me.ListBox1.Selected(0) = True End Sub

تكمن المشكلة في أن الأرقام التي يصدرها البرنامج لا يعتبرها الإكسل أرقاما نظرا لأنها تحتوي على رموز غريبة غير مرئية char(254) لذلك ينبغي علينا : أولا إصلاح تنسيق الأرقام ثانيا: إيجاد المفقود من سلسلة الأرقام تفضل هذا كود إجرائين للغرضين السابقين Sub mas() lr = Cells(2, 2).End(xlDown).Row Range("A1:L" & lr).NumberFormat = "General" Range("D1:D" & lr).NumberFormat = "@" Range("L1").Value = "القيم المفقودة" For n = 2 To lr Range("b" & n).Value = Replace(Range("b" & n).Value, Chr(254), "") Range("c" & n).Value = Replace(Range("c" & n).Value, Chr(254), "") Range("d" & n).Value = Replace(Range("d" & n).Value, Chr(254), "") Next n FindMissingNumbers Range("b2:b" & lr), Range("l2") End Sub Sub FindMissingNumbers(InputRange As Range, OutputRange As Range) For i = WorksheetFunction.Min(InputRange) To WorksheetFunction.Max(InputRange) If InputRange.Find(i, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then OutputRange.Cells(j + 1, 1).Value = i j = j + 1 End If Next i MsgBox "Done" End Sub بعد تنفيذ الإجراء mas سيتم تعديل الأرقام والتواريخ وتغيير تنسيق رقم الحساب إلى نص لأنه يبدأ بصفر على اليسار ثم إيجاد الأرقام المفقودة ووضعها في العمود L ملحوظة: لا يوجد أرقام مفقودة في ملفك. ولتجربة الكود يمكنك حذف أي عدد من الصفوف بطريقة عشوائية وسيتم كتابتهم في العمود L بالتوفيق

يوجد في منتدانا الرائع مشاركات كثيرة لتعليم vba يمكنك البحث عنها بكلمات مفتاحي مثل دورة vba تعليم vba كتاب vba شرح vba والأفضل استعمال معامل البحث and لتقليل عدد النتائج وقتها بالتوفيق

لا يوجد أي مشكلة في التحميل إلا المرفق المسمى بحروف عربية يظهر بعد تحميله برموز غريبة قليلا والحل لهذه المشكلة هو استعمال برنامج internet download manager في تحميل المرفقات

المطلوب غير منطقي أريد كود (هذا اعتراف بأنه كود) وجميع الأكواد لن تعمل إلا إذا قام المستخدم بتفعيل الماكرو ربما أن يفتح الملف على شيت به صور وشرح لطريقة تفعيل الماكرو يؤدي الغرض مثل هذه الصور مع كتابة عبارات مثل : حتى يعمل الملف بصورة صحيحة يجب الضغط على زر تمكين المحتوى Enable content أو ضبط الإكسل على الموافقة على تشغيل جميع الأكواد بهذه الطريقة بالتوفيق

أعتقد أن هذا المطلوب تمت الإجابة عليه مرتين (بالمعادلات وبالكود) قبل ذلك

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

أشك في ضبط إعدادات اللغة العربية في الويندوز حاول تنفيذ هذه الخطوات Control panel --> clock and region --> change date, time, number formats --> administrative - current languge for non-Unicode programs تأكد أنها اللغة العربية وإذا قمت بتغييرها سيتم عمل إعادة تشغيل للجهاز بالتوفيق

حسب فهمي للمطلوب أنك تريد التصفية على حرف الغياب غ ولكن بطريقة أفقية إن شاء الله يكون هذا هو مطلوبك بالتوفيق تصفية أفقية بالمعادلات.xlsx

لن تحصل على شيء لأن العمود Q فارغ للعلم الدالة cells تستعمل في التعامل مع النطاقات مثلها مثل range ولكن الفرق أن range نقدم لها اسم النطاق مثلا range("c5").value = "Mas" هذا الكود يقوم بكتابة Mas في الخلية C5 ويمكن استعمال cells لنفس الغرض cells(5, 3).value = "Mas" حيث أن 5 هو رقم الصف و3 هو رقم العمود فعند كتابتك رقم 17 في خانة العمود فأنت تقصد العمود Q بالتوفيق

الانتقال لاول خلية فارغة في العمود C موجود في الملف عند تنشيط ورقة العمل data أو عند الضغط على السهم الأزرق بالأعلى

تفضل هذا مطلوبك الثاني Sub tar7eel() For n = 2 To Cells(Rows.Count, 9).End(xlUp).Row If Range("i" & n).Value = Range("d2").Value Then Range("j" & n).Value = Range("e2").Value Next n End Sub بالتوفيق

حسب فهمي للمطلوب يمكنك استعمال الإجراء التالي وربطه بزر أو شكل أو صورة Sub tar7eel() Range("j2").Value = Range("e2").Value End Sub ومتى تريد تحديث قيمة J2 يتم الضغط على الزر وتنفيذ الإجراء

الفيمة الموجودة قي E2 ناتجة عن حساب أكبر قيمة في المدى من A3:A1000 وهي 18 حاليا =MAX(A3:A1000) وإذا كنبنا في J2 هذه المعادلة =E2 فسيظهر نفس الرقم 18 هذا شرح بالتفصيل لما قمت أنا بعمله حاليا ما المطلوب بالتفصيل ؟