ياسر العربى

شاشة الدخول تاخد بيانتها من صفحة الصلاحيات لو محتاج تغير شاشة الدخول وممكن مسح كل ما بداخل الملف ووضع شيتاتك مع الحفاظ على صفحة الصلاحيات اما اذا كنت تريد الطريقة اليك الشرح داخل السلسلة للفيجوال بيسك http://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/ اما اذا كان الموضوع شاق عليك ممكن اعملك الشاشة بالشكل اللي تحتاجه وكلمة المرور للملف التي تحتاجها حتى تحميه من الفتح مستقل انظر اولا للموضوع لتعرف الفكرة وبعدها قرر تقبل تحياتي

اخي الكريم وضعت لك مثال بسيط لاستخدام الدالة HYPERLINK بامتداد كل الاعمدة الموجودة تستطيع ازالة الجزء الغير مرغوب من المعادلة تقبل تحياتي HYPERLINK.rar

مجهود رائع اخي الكريم عامر ياسر وطالما اسمك يضم ياسر يبقي ربنا هيكرمك اخر كرم حبيت اسهل عليك بعض الامور في ترحيل البيانات خصوصا البيانات ذات الاعمدة كبيرة العددوعملت لك مثال يبسط ليك الترحيل في كام سطر كدا صغيرين بدل ماا تكتب لكل خليه سطر وتاخد مجال كبير في الكود وفي مسج الخلايا والوقت الكود Private Sub CommandButton1_Click() Dim LR As Long Dim I As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 For I = 1 To 20 Application.ScreenUpdating = False Cells(LR, I).Value = Me.Controls("TextBox" & I).Value Me.Controls("TextBox" & I) = "" Next Application.ScreenUpdating = True End Sub الكود بسيط باذن الله عبارة عن حلقة تكرارية من 1 الى 20 بعدد الاعمدة وعدد التكست بوكس وبدل ما نكتب ارقام الاعمدة وارقام التكست بوكس نكتفى بوضع المتغير I وهو يقوم بالمطلوب وهو الترحيل من 1 الى 20 ترحيل.rar

اخي الكريم حدد العمود اعمل بحث واستبدال ضع كما بالصورة البحث عن البوينت دي (.) واستبدالها بدي (/)

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

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

تستطيع عن طريق الفيجوال بيسك مجرد ان تضع شاشة افتتاحية للبرنامج وهي تقوم بتفعيل الماكرو بدون التدخل في اعدادات الماكرو http://www.officena.net/ib/topic/65629-سلسلة-دروس-الفيجوال-بيسك-6-والاكسيل-من-علي-مصطبة-ياسر-العربي/ اخر درس داخل هذه ا لسلسلة حمل المرفق وجربه لعله يفيدك

معادلة رائعة اخي سليم ولكن للتسهيل على الاخ محمد تفضل الدالة المعرفة دي ضع هذا الكود داخل موديول Function YAS(x As Range) For Each Rng In x If IsNumeric(Rng) = True Then Y = Y + 1 Else GoTo 1 End If Next 1 YAS = Y End Function وفي اي مكان ضع المعادلة التالية =YAS(B4:B200) وتستطيع ان تحدد النطاق الذي تريده ضمن اي عمود المثال مرفق لتجنب بعض عيوب الدالة التى قد تظهر في بعض الحالات تستطيع استبدالها بالكود الاتي Function YAS(x As Range) For Each Rng In x If Application.WorksheetFunction.IsNumber(Rng) = True Then Y = Y + 1 Else GoTo 1 End If Next 1 YAS = Y End Function حسب المناسب لك احصاء الاعداد فقط قبل اول نص.rar

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

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

اخي الكريم ناصر مشكور على هذه اللفته الطيبة وما نحن الا طلاب بجانب عمالقة المنتدى الكرام مثل ا /عبد الله باقشير وما قمت بعمله هو تعديل بسيط بداخل الكود ليتوافق مع ما تم طلبه اما الكود الخاص بي فهو يعتمد اعتماد كلي على المعادلات بالشيت رقم 3 هو ممكن يكون بطئ بعض الشئ الا انه يتميز بالمرونة امام كل من يستخدم المعادلات ولا يعرف الكثير عن الVBA فقط يقوم بالتعديل على المعادلات كما يشاء فهي كلها عبارة عن دوال شرطية تعتمد على شرط او اكثر للحصول على النتيجة المرجوه والكود ما هو الا ناقل لنتائج المعادلات الى جانب كل طالب تقبل فائق احترامي وتقديري

تفضل Test2.rar

تفضل ولكن قم بتوحيد البيانات في كل الصفحات حتى تكون اماكن الاعمدة متطابقه Test2.rar

موضوع رائع جزيت خيرا اخي الكريم ابو صهيب وكل عام وانت بخير واخواني ابو البراء وابو يوسف كل عام اونتم بخير جميعا تقبل الله منا ومنكم صالح الاعمال تقبلو تحياتي

تفضل Book1.rar

تفضل لعله المطلوب 2016طلب إذن وصرف.rar

اخي الكريم اترك الصورة المسماه 999 لا تحذفها

تفضل اخي الفاضل الشيت Con به احتمالات الكتابة وتصحيحها فان لم يعمل الكود مع بعض الاسماء يرجى ادارج مثال لها وتصحيحها ترحيل البيانات وفلترتها من عدة شيتات إلى شيت أخر.xlsb.rar

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

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

سؤال مهم اخي عادل تفضل بكل بساطه http://www.officena.net/ib/topic/66742-فك-حماية-محرر-الاكواد-وحماية-اوراق-العمل/ و http://www.officena.net/ib/topic/66951-فك-حماية-محرر-الاكواد-xlsm-xlsb-بدون-تحويل-الملفات-ل-xls/ و بس تقبل تحياتي

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

تفضل اخي الكريم Yasser.rar

جرب المرفق كدا انا مش متأكد من الحجم بس شوف كدا Yasser.rar ان لم يفلح المرفق الاول جرب المرفق الثاني Yasser.rar

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