Emad Sabry

عملتلك المطلوب 1 ومش هينفع غير بالمعدلات اى حاجة غير ناجح هيجبلك نفس السنة فى الصف اللى بعده يعنى انت بتدخل السنة الاولى بس والباقى بيظهر تلقائى وعملتلك مطلوب 3 لاحظ ان مطلوب 2 أو 4 استحالة يتعملوا لسبب بسيط جدا انك مستخدم data validation ومختار القائمة فانت يا اما تظهر كلمة تخرج او متظهرهاش انما تظهر وتختفى دا مستحيل فى الحالة دى زى المطلوب 1 علشان اعملهولك لازم الغى data validatiom وتم الاعتماد على المعادلات mas_السيرة الدراسية.rar

اكتب معادلة المستخدمة هنا علشان نقدر نعدلها .. بس عمتا غالبا قبل vlookup قبلها دالة if error غير القيمة التانية من iferror بدل 0 اكتب ""

تم لاحظ ان معادلة اول صف تختلف عن تانى صف .. انت ابقى خد اوتوفيل من تانى صف New Microsoft Office Excel Worksheet.xlsx

ومن الممكن انك تشوف منشأت بتشتغل فى نفس النشاط وتاخد منهم مثلا ملفات الاكسل ان امكن

ارسل الملف علشان نقدر نعرف فين المشكلة و يتم العمل عليها

هتلاقيها فى التفاصيل .. ومن التفاصيل رقم المنتج

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

تم التعديل .. بمجرد ادخالك الكود هيظهرلك الاسم فى الفورم 4545588888.rar

اكتب الكود زى ما انا كتبه كدا Regsvr32 /u "C:\Windows\SysWOW64\MSCOMCTL.OCX ما تبدأش من c علطول ابدأ من regsvr32 وجرب باقى الخطوات برضه وشوف ادخل على c وفى بحث اكتب الاسم MSCOMCTL.OCX ولازم تلاقيه ظهرلك

أنت عندك office 365 اتبع الخطوات دى ادخل ماى كمبيوتر وبعدين بارتيشن c واكتب فى الشريط اللى فوق C:\Windows\SysWOW64 وابحث عن MSCOMCTL.OCX ودوس عليه كليك يمين واختار properties و دوس على detail فى product number هتلاقى رقم زى كدا 6.01.9839 شوف اخر رقمين عندك لو لقيتهم 18 مثلا بدل 39 يبقى دا نسخة رديئة ونزل واحد احدث وبعد ما تنزله خد القديم كوبى وحطه فى اى مكان ال d مثلا احتياطى وبعدين اعمل كوبى للجديد وبست فى نفس المكان بتاع ال c (وقبل ماتنزل جرب الامر دا برضه الاول و شوف )من start ابحث عن cmd ودوس كليك يمين واختار run as administrator واكتب الامر دا Regsvr32 /u "C:\Windows\SysWOW64\MSCOMCTL.OCX وجرب لازم يظهرك رسالة فيها succeed وقبل دا افتح شيت اكسل ومن developer هتلاقى adds in شيل علامة الصح من جنب solver وجرب

انا عملتلك الكود دا بس فكرة D8 لسه موجود وتقدر من data validation تعدل كمية البيانات من البيانات الموجود فى A لاحظ انك بمجرد ما تختار الاسم هتدوس عليه هتدخل على عمرو وهتلاقى متفلتر جاهز ولما تدوس show all هتلاقى الكل ظهر ملحوظة :- مش لازم تفتح كذا موضوع على نفس المشكلة Payments Trial.xlsm

بص فى صفحة category لازم تكتب الاسماء تمام وفى صفحة Amr استخدم الجزء اللى انا عامله بمجرد تغييرك للبيان عن طريق القائمة فى الخلية D8 هيتغير علطول الناتج E8 واول ما تدوس على على D8 هتتحول ل Amr 2 واول ما تدوس على update الماكرو هيتحدث علطول Payments Trial.xlsm

من كنترول بانل دوس على programs and features وبعدين دوس على الاوفيس كليك يمين واختار change وبعدين اختار add or remove features وبعدين جنب كلمة Microsoft Office فى سهم دوس عليه (او دوس كليك يمين) واختار Run all from my computer وبعدين اوك او continue وبعدين افتح الملف وجرب لو ظهر برضه نفس الخطا روح هنا لو لقيت اى ملفات امسحها C:\Users\<User Name>\AppData\Roaming\Microsoft\Excel\XLSTART طبعا user name تشيلها وتحط اسم الكمبيوتر بتاعك و خلى بالك طالما جهازك 64 بت شوف نسخة الاوفيس 32 ولا 64 من file دوس account و شوف هى كام وممكن تغيرها يعنى لو 32 جرب 64 والعكس واخر حاجة ممكن يكون العيب فى الويندوز نفسه خاصة لو بستخدم ويندوز اقل من ويندوز 7

استخدم الدالة التالية وخدها اوتوفيل لتحت وفى الخلية P دوس كليك يمين واختار format cell ومن number اختار date =IF(OR(L1<>"",M1<>""),NOW(),"")

عمتاُ اتفضل الملف بدون فورم ويجب ادخال الوقت الضائع بنفس الشكل المكتوب تسجيل الوقت.xlsm

بالظبط ايه فائدة الفورم .. هل لازم فورم ولا ممكن تكون فى شكل جدول

لسه وخد بالى من المكان انا عملتلهالك ل 3 اسماء وانت كمل خد المعادلة كوبى وبست وغير بس ال B فى match خليها على الاسم اللى عاوزه ( B6 فى اول معادلة التانية B10 التالتة B14 وهكذا ) HIEtZSbf4uL_EAC-20018-DEMANDE-1.xlsx

انت كان ممكن ترفع الملف هنا علطول لان مساحته صغيرة .. وانى واحد جدول الواجهة لأن المتواجد ما هى الا صورة وعمتا انت مش محتاج ماكرو ممكن عن طريق الدوال vlookup أو index وداخل index دالة match

لانك بتنسخ الخلية نفسها .. انسخ البيانات اللى فى الخلية يمعنى دوس دوبل كليك على الخلية المؤشر هيظهر داخل الخلية خد البيان اللى هو 115 كوبى واعمل بست وعدل عليها عادى جدا .. هتلاقى ان البست لسه شغال برضه تقدر تعمل بست تانى ل 115 فى خلية تانى .. الخ

اختار review ودوس فى اى مكان فاضى كليك يمن واختار customize the ribbon على اليمين هتلاقى قائمة و من ال review هتلاقى change دوس على علامة ال + ودوس على على new group من تحت واكتب اى اسم ليه ومن القائمة على الشمال اختار all commands وانزل تحت لحد ما تلاقى track change دوس add ثم ok

ارفع ملف وحط به بعض البيانات بدون الكود وقول طلبك يعنى مثلا خلية A1 لو ظهر فيها بيانات عاوز الكومنت يكون ايه

اتفضل العمال وغيره مهنى.xlsx

استخدم الكود التالى فى فيجوال بيسك بس تعمله لكل شيت لوحده . لو ظهرتلك رسالة فيها كذا رقم وحرف متكررين يبقى الباسورد اتفك وبعد ما تفك الباس روح file ثم save as واختار الحفظ فى شكل pdf واتمنى ان اى حد هيستخدمه لا يسئ استخدامه Sub PasswordBreaker() 'Breaks worksheet password protection. Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveSheet.ProtectContents = False Then MsgBox "One usable password is " & Chr(i) & Chr(j) & _ Chr(k) & Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & _ Chr(i3) & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Exit Sub End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub

مفيش مشكلة بس هتضطر تعمل الدالة بس بدل ما هى 6 if هتضطر تعمل 40 if ( لأن انت بتقول 40 مصنف ) هتعملها على اول صف به بيانات وكمل اوتوفيل تلقائى للباقى

الله يخليك ا/فيصل سأقوم بمراسلتك ان شاء الله