محمد الزريعي

الاخوة الاعزاء .. في المرفق .. تمت البرمجة وعملية التنسيق وبقت بعض الاخطاء الحسابية البسيطة . وهي عبارة عن 5 أو 6 نقاط ذكرتها لكم في المرفق .. نرجو التكرم منكم بالمشاركة والحل .. ترحيل البيانات وتنسيق المرحل وحساب العدد للارسال.rar

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

لكسر ورقة العمل المحمية اخي استخدم الكود التالي Sub PasswordBreaker() 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) ActiveWorkbook.Sheets(1).Select Range("a1").FormulaR1C1 = 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 افتح ملف الاكسل المطلوب فك حماية صفحاته تحول الى صفحة تحرير الفيجوال VB Editor :Visual Basic Editor او للاختصار alt+F11 ادرج نموزج جديد من قائمة Insert>>>Module - ثم ضع الكود اغلق VB Editor انتقل لصفحة العمل الي حابب تكسرها فعل الماكرو الي عملتوو بتلاقيه بقائمة Tools>>Macro>>Macros وبعدين دبل كليلك على الماكرو الي عملتو بالنسبة للاكسل 2007 بتروح على قائمة View وبتلاقيه اخر اداة على اليمين اختار ماكرو وبعدين اختار الماكرو الي عملتو ودبل كليك ملاحظة : الباسورد الي بتطلع عن طريق هي العملية مو بالضرورة تكون نفس الباسورد الي تم حماية هالصفحة فيها وانما هوو بيخلق باسورد تفك الحماية وهي ناجحة 100%

ماهي روابط التوجيهات أخي .. مافهمتها ؟

نعم هذا هو المطلوب وجزاك الله الف خير .. أنا مبتدئ في الاكسل واريد ان اوضح شرح الكود أكثر للأخرين لكي يستفيدو منه . 1- وهو ReDim ArrOut(0 To 14) تقوم بزيادة الرقم 14 أذا كان هناك زيادة في عدد الجنسيات أو عدد الشهادات راح يكون الرقم أكبر .. وحالياً يعني ( 3*5=15 ) اكتب 15 عادي .. ولكن أذا كان الرقم 10 راح يعطيك خطاء .. 2- قم بتعديل هذا الجزء With Range("J7:J" & LR) وهذا بعد اخر عمود للجدول وهو أول عمود فارغ في نهاية الجدول لان البرنامج راح يحذف الاعمدة من هذا الموقع . 3- تحتة مباشرة Formula = "=TRIM(H7) & "" "" & TRIM(F7)": .Value = .Value وهذا الكود مهم ما عليك تغير h7 و f7 >> حيث يرمز لـ H7 العمود H والسطر السابع .. ويمكنك تغيرة الي أي عمود اخر كما أن H7 هو المؤهل في هذا الجدول الذي سوف نقوم بالفرز علية وأن f7 الجنسية 4- وهو كود طويل لكن يحتاج الي تركيز شوي فهو بسيط Range("A6:I" & LR).Sort Key1:=Range("J6:J" & LR), OrderCustom:=Application.CustomListCount + 1, Key2:=Range("I6:I" & LR), Order2:=xlDescending, Key3:=Range("B6:B" & LR), Order3:=xlAscending, Header:=xlYes هذا الكود غير فقط اللون الأخضر .. حيث أن الاول يعني الصف من a6 وحتى l في نهاية الشيت ، ... والرنج الثاني من j6 وهو اول عمود على يسار الجدول ومن الصف السادس وحتى نهاية هذا العمود . كما l6 الي l يرمز الي القيم العمرية في هذا الجدول .. وأخيراً في هذا الكود هو بداية السطر الذي سوف ينقل منه البيانات وهنا وضع الاستاذ B6 وحتى نهاية البيانات وبإمكان أي شخص يضع من العمود الاول وهو a6 وربما يكون الصوف عندهم اقل من 6 ربما تكون 2 5- اخر شئ هنا وهو عملية الحذف Columns("J:J").Delete اكتب بدل J:j أسم اول عمود يبداء الكمبيوتر بالحذف منة ويكن t: t أو أي عمود اخر بعد الجدول هذا وجزاء الله الاستاذ / ياسر خليل أبو البراء الف شكر وتقدير على الدعم والمساعدة وكتابة هذا الكود .

شكراً لك أبو البراء .. تم نسخ الكود وجاري الان التجربة ..

اخي العزيز / هذا الملف مرفق به كل شئ علماً انني قمت على تعديل الكود ( من ناحية الاعمدة ) . الملف عبارة عن 3 صفحات والمطلوب هو صفحة واحدة وأنا زوت الصفحات لكي يكون عندك نسخة احتياطية في الصفحة الاولى .. ووضعت في الصفحة الثانية وهي الصفحة التي يجرى عليها الكود والصفحة الثالثة هي عبارة عن النتيجة التي نريدها بعد تنفيذ الكود . شاكر ومقدر لكم Sort Custom List YasserKhalil.rar

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

شكرا لك اخي ياسر خليل .. .. جاري الان تجربة الكود ..

الشرح موجود داخل ملف أكسل المرفق السابق .. ولكن الشرح سوف اقوم بشركة مرة أخرى .. على سبيل مثال عندي جدول مكون من 10 أعمدة حيث كل عمود يعني نوع من القيم ( الاسم - الجنس - رقم الهوية - مكان الميلاد - الجنسية - اللغة - المؤهل التعليمي - ملاحظات ) وعدد الاشخاص تقريباً 500 شخص .. أريد أن افرزهم حسب المؤهل التعليمي . حيث يكون ترتيبهم كالتالي 1- دكتور 2- ماجستير 3- بكالوريوس 4- دبلوم 5- ثانوية عامة تكملة للسابق . يعني أن في الجدول 500 صف و 10 أعمدة // ويتم فرز الأشخاص حسب المؤهل عند النقر على الزر يقوم بفرز اول شئ اصحاب الشهادات الدكتور ثاني شئ اصحاب الشهادات الماجستير ثالث شي أصحاب الشهادات البكالوريوس وهكذا

الاخوة الأعزاء السلام عليكم ورحمة الله وبركاته .. لقد قمت بالبحث عن كود يقوم بترتيب الاسماء أبجدياً حسب القيم المعطاة ووجدت كود ولكن لم استطيع تفعيلة .. اريد مساعدة منكم وجزاكم الله الف خير . ترتيب الاسماء1.rar

الحمد لله .. خلصت منه . ونسقته كمان ونزلته لمن يستفيد 666.rar

اخي هل هناك فلوك اب . كود وليس معادلات ..

مافي احد يفزع معي .. الله يكون بالعون

شباب عندي راتب يعتمد على الساعات فقط .. كل ساعة بـ 20 ريال . وهناك تنزل مكافئات من الشركة خلال شهر رمضان فقط أذا صار عدد ساعاتي 4 ساعات أخذ 50 وأذا 5 ساعات أخذ 100 . وهذا . وهناك عروض تنزل بين فترة وأخرى مكافئات .. لكن هذا الشركة عليلة بتسليم الراتب .. يوم يؤخروك 10 أيام ويوم 15 يوم عن الشهر عالعموم مالي منهم .. حبيت احسب ساعاتي ومكافئاتي في هذا البرنامج البسيط .. سيوتة والحمد لله اكتمل .. ولكن أذا جيت أضع في تاريخ المكافئات .. تاريخ اخرى مثلاً من تاريخ الي تاريخ .. تأخذ على الساعة ... وعلى الساعتين كذا .. يقوم البرنامج من جديد بعملية حسابية خاطئة .. لانه تكرر التاريخ . ارجو المساعدة منكم . فقط وجزاكم الله خير 555.rar

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

شكرا لمشاركاتكم .. اخواني . واساتذتي الكرام .. لقد قمت بمحاولات حتى وجت الحل المطلوب وقمت برفع الملف لكي يستفيد الاخرين منه .. واشكركم جميعا كود تلوين الخلايا المتشابهة.rar

طيب اخي مطلوب ( كود تلوين الخلايا المتشابهة في صف معين ) على سبيل المثال ( تلوين الخلايا التابعة للموظف احمد عبدلله باللون الاحمر مثلاً ) حيث أن الخلايا التابعة له تبداء من العمود B وحتى العمود K .

شباب . الفزعة .. من البارحة وأنا انتظر الرد

السلام عليكم ورحمة الله وبركاته ألاخوه الاعزاء أطلب مساعدة في تكملة هذا الكود المرفق المطلوب أذا تلونت القيم النصية في H يتلون الصف من a وحتى i شاكر ومقدر حسن تعاونكم كود تلوين الخلايا المتشابهة.rar

اخي الكريم حاولت كذا مرة ولم افلح بشئ في هذا الكود لكن ممكن تشرح لي اكثر .. انا حاولت بكل الطرق في هذا ولم اصل الي نتيجة ...

اشكرك اخي العزيز على تعاملك القيم اولاً .. ثانياً ارفقت لك الكود الذي استخدمته في فجول بيسك . واسف لو غلبتك معي . كود فجول بيسك تصغير.rar

نعم أخي ان نظام التشغيل عندي 64 غير 32 يمكن هذا السبب .. لكن هل ممكن انفذ هذا الكود على برنامج فجول بيسك 6

بارك الله فيك اخي الغالي : واشكرك على ردك السريع على الموضوع .. نعم قمت بتنفيذ عملك وطلع نفس ما اطلبة ولكن الضاهر انه مشفر أي لم استطيع فتح البرمجة كي ارى الكود .. ممكن فقط تعطيني الكود كتابة أو تشرح لي كيف اسوي . ؟

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