BuFaisal

جميلة وعملية لك جزيل الشكر

جزيل الشكر لكم على هذا الدعم المتواصل واعتذر على كثرة الاسئلة اخوكم بوفيصل

بعد التمحيص والتفحيص استطعت ان اجعل الشيت مخفية حتى عن طريق format …….. Sheet ---------unhide كما اني اضفت رقم للأدمنستريتر 100 وذلك بالكود التالي Private Sub Worksheet_Selectionchange(ByVal Target As Range) If Range("Sheet1!A1") = 30 Then Sheets("Sheet3").Visible = True ElseIf Range("Sheet1!A1") = 100 Then Sheets("Sheet3").Visible = True Else Sheets("Sheet3").Visible = xlSheetVeryHidden End If If Range("Sheet1!A1") = 40 Then Sheets("Sheet4").Visible = True ElseIf Range("Sheet1!A1") = 100 Then Sheets("Sheet4").Visible = True Else Sheets("Sheet4").Visible = xlSheetVeryHidden End If If Range("Sheet1!A1") = 20 Then Sheets("Sheet2").Visible = True ElseIf Range("Sheet1!A1") = 100 Then Sheets("Sheet2").Visible = True Else Sheets("Sheet2").Visible = xlSheetVeryHidden End If If Range("Sheet1!A1") = 50 Then Sheets("Sheet5").Visible = True ElseIf Range("Sheet1!A1") = 100 Then Sheets("Sheet5").Visible = True Else Sheets("Sheet5").Visible = xlSheetVeryHidden End If End Sub اعلم انه امر بسيط بنسبه للمتمرسين ولكن للمستجدين فهو امر عظيم والمتبقي هو حماية الكود من العرض او العبث بحيث لايستطيع اي شخص اخر من الحصول على الارقام السرية لأشخاص اخرين او تغييره ودمتم سالمين

اساتذتي الافاضل السلام عليكم ورحمة الله ان الغاية من استخدام ميزة الاخفاء هو مقدرة ارسال بيانات سرية لعدد من الاشخاص في ملف واحد على ان يقوم الشخص بأدخال رقمه السري الخاص لتعرض له الشيت الخاصة به. وقد تلاعبت بالكود المقدم من الاستاذ هشام حتى اصبح كتالي Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("Sheet1!A1") = 30 Then Sheets("Sheet3").Visible = True Else Sheets("Sheet3").Visible = False End If If Range("Sheet1!A1") = 40 Then Sheets("Sheet4").Visible = True Else Sheets("Sheet4").Visible = False End If If Range("Sheet1!A1") = 20 Then Sheets("Sheet2").Visible = True Else Sheets("Sheet2").Visible = False End If If Range("Sheet1!A1") = 50 Then Sheets("Sheet5").Visible = True Else Sheets("Sheet5").Visible = False End If End Sub ولكني فقدة الميزة المقدم من الاستاذ عماد حيث يحمي الشيت من الضهور حتى عند استخدام format …….. Sheet ---------unhide كما اود ان اضيف انه سيكون من الرائع اذا امكن ايجاد رقم سري مثلاً 100 للادمنستريتر المنسق للملف حيث ستضهر جميع الشيتات عند ادخاله . سؤال اخير هل يمكن حماية الكود من العرض او العبث بحيث لايستطيع اي شخص اخر من الحصول على الارقام السرية لأشخاص اخرين ودمتم سالمين كثير الاسئلة بقصد المعرفة اخوكم بوفيصل

أعزائي اعضاء المنتدى الاجلاء في مشاركة سابقة للأخ عماد الحسامي كان قد حدد زر لاخفاء الشيت واخر لارجاعها والكود هو Private Sub CommandButton1_Click() Sheet2.Visible = xlSheetVeryHidden End Sub Private Sub CommandButton2_Click() Sheet2.Visible = True End Sub سؤالي وهو بعد محاولات كثيرة وطويلة بائت كلها بالفشل اذا امكن ان يتم اخفاء الشيت 2 اذا كانت قيمة الخلية A1 في Sheet1 لا تساوي 50 اما اذا كانت تساوي 50 فشيت سوف تضهر ولكم خالص تحياتي اخوكم بوفيصل

حركه حلوه تبين ان فيها فن تسلم لي اخوي kemas

اخوي بوعبدالله شاكر ومقدر لشرحك المفصل حيث وجدت في دالة TRANSPOSE المطلوب من عامودي الى افقي مع وجود الارتباط بين الخليتين اما PASTE SPECIAL ثم TRANSPOSE فتنقلها كداتا بدون ارتباط وبالمناسبة فانا اسمع عن معادلة ARRAY وقد وضحت الفكرة فلك جزيل الشكر اخوك بوفيصل

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

الحلول التي تقدمها استاذ هشام لها طعم خاص وفقك الله

أستاذ هشام وأستاذ عماد في مشاركة واحده دنتو جبتو الذيب من ذيلوه الف شكر مقدم لكما اخوكم ابوفيصل

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

أستاذ هشام ومنكم نستفيد لقد قمن بتغيير بسيط في الكود السابق ز حيث بدلت السطر Worksheets.Add الى Sheets("Database").Select Sheets("Database").Copy Before:=Sheets(1) وتم المطلوب حيث اصبح لدي حرية التغيير في ورقة Database وعند اضافة عضو جديد سوف يقوم الفورم بأضافة ورقة Database جديده تحتوي على اسم العضو الجديد تجدون مثال في المرفق ولكم خالص الشكر اخوك ابوفيصل تكرار وتسمية شييت محدد.rar

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

أستاذ هشام طالب العلم دائماً طماع ولا يكتفي خصوصاً اذا كان المعلم كريماً طائياً لايمل او يتعب من النصح والارشار مثل سعادتكم فما ارفقتم كان 95% من المطلوب و 5% المتبقية هي تكرار ورقة معينة (فورم معد مسبقاً لمتابعة وتحديث بيانات كل عميل على حدى ) يتم انشائها بأسم العميل ارجو مشاهدة المرفق تحديد نص لأنشاء صفحة.rar

أستاذ هشام جمعة مباركة عليك وعلى جميع المسلمين في بقاع الارض اجمعين ارجو ان تسمح لي ان ابين لك الغاية من استخدام هذة الداله حيث اني مسؤول عن ادارة جمعية تعاونية تتكون من 55 عضو ز كل عضو يدفع مبلغ معين شهرياً ولمدة 10 سنوات بعد ان يكمل العضو اشتراك لمدة سنتان يؤهل لستخدام ميزة القروض المقدمة من الجمعية وبدون فوائد ولمتابعة سجلات المشتركين قمت بانشاء شيت خاصة لكل مشترك يسجل بها اقساط الاشتراك الشهري و اقساط القروض المستحقة المطلوب انشاء قالب له صفحة بداية ادخل بها اسم العضو والقسط المدفوع (اشتراك شهري - سداد قرض) وتاريخ السداد ليقوم بتحويلة الى الشيت الخاصة به وميزة الداله السابقة هي في حالة اشتراك عضو جديد اقوم بأدخال اسمة واضغط على زر انشاء ليتم عمل شيت بيانات جديدة (نسخة من قاعدة بيانات مطابقة لبقية الاعضاء) لهاذا العضو الجديد وبنسبة لادخال بيانات السداد اليومية فأنني سوف اقوم بمحاولة انشاء الدالة الخاصة بذلك معتمدً على مشاركات سابقة اخيراً اذا ترغب في مثال للقوالب ارجو ان تمهلني حتى الغد لارفاق الملف وعذرني على الاطالة اخوك بوفيصل

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

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

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

أخ عماد بعد تفحيص وتمحيص طويلين تمكنت من معرفة سبب المشكلة وهي وجود خاصية القائمة المنسدلة في الخلايا المراد حذفها فقمت بأضافة كلمة Select للكود حيث اصبح كتالي Sheets("Dataentry").Range("C5").Select Selection.ClearContents وهو الان شغال 100% الف شكر لك

مبدع والكرم من طبعك أستاذ هشام

اخ عماد غيرت قليلاً في الفورم مما سبب عطل في الكود الذي تكرمت بعمله لي ارجو مراجعة ايميلك المسجل بالموقع فقد قمت بارسال جميع التفاصيل المطلوبه ولك جزيل الشكر اخوك بوفيصل

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

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

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

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