الجموعي

ماشاء الله أستاذي أبو تراب إبداع بلا حدود سلمت يمينك تحياتي

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

السلام عليكم ورحمة الله تعالى وبركاته أستاذي الكريم ياسر أعرف ان الموضوع مكرر أرجو أن تقبل هذا التعديل والشرح على كود فهرس الألوان Sub ShowColorIndexNums() '[I] ,[N] إعلان متغيرين Dim I, N As Integer ' القيمة 0= [N] حيث المتغير N = 0 ' إضافة ورقة عمل جديدة قبل الورقة الأولى Worksheets.Add before:=Sheets(1) ' قيمة النص المدرج بين تنصيصين = [A1]قيمة الخلية 'اللون 6 من فهرس الألوان ال 58 لونا = [A1]تعبئة الخلية [A1].Value = "Color": [A1].Interior.ColorIndex = 6 ' قيمة النص المدرج بين تنصيصين = [B1]قيمة الخلية 'اللون 6 من فهرس الألوان ال 58 لونا = [B1]تعبئة الخلية [B1].Value = "Index Number": [B1].Interior.ColorIndex = 6 'إسم ورقة العمل = قيمة النص المدرج بين تنصيصين ActiveSheet.Name = "ColorIndex" ' [I]حلقة تكرارية للمتغير For I = 2 To 58 '[N]فهرس الألوان إبتداء من قيمة المتغير = [I]الي غاية أخر رقم في المتغير [A] قيمة العمود Range("A" & I).Interior.ColorIndex = N '[N]قيمة النص المدرج بين تنصيصين إبتداء من قيمة المتغير = [I]الي غاية أخر رقم في المتغير [A] قيمة العمود Range("A" & I).Value = "[Color " & N & "]" '[N]فهرس الألوان إبتداء من قيمة المتغير = [I]الي غاية أخر رقم في المتغير [B] قيمة العمود Range("B" & I).Value = "[Color " & N & "]" '[N]لون الخط في فهرس الألوان إبتداء من قيمة المتغير = [I]الي غاية أخر رقم في المتغير [B] قيمة العمود Range("B" & I).Font.ColorIndex = N 'ضبط محاذة النص = توسيط [I] الي غاية أخر رقم في المتغير [A1:B1] قيمة الخلايا Range("A1:B1" & I).HorizontalAlignment = xlCenter '1 +[N]القيمة = [N] حيث المتغير N = N + 1 ' التالي Next I 'إحتواء تلقائي لعرض العمود[B:B]في الورقة النشطة في كامل العمود ActiveSheet.[B:B].EntireColumn.AutoFit End Sub المرفق Color Index.rar

اريد طريقة تسلسل الشهور

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

السلام عليكم ورحمة الله تعالى وبركاته اخواني في المنتدى اقدم لكم هذا الملف الترحيل بواسطة خاصية TAG الفكرة في الفورم عمل ترقيم لكل مربع نص او كمبوبوكس بترتيب الاعمدة باستخدام TAG التكست بوكس الاول بياناته يتم ترحيلها للعمود 1 إذن يحمل التاج 1 التانى بياناته يتم ترحيلها للعمود 2 إذن يحمل التاج 2 التالث بياناته يتم ترحيلها للعمود 5 إذن يحمل التاج 5 الكمبوبوكس الأول بياناته يتم ترحيلها للعمود 3 إذن يحمل التاج 3 التانى بياناته يتم ترحيلها للعمود 4 إذن يحمل التاج 4 لاحظ الصورة التالية اتمنى ان اكون وفقت في ايصال المعلومة خالص تحياتي الترحيل بواسطة خاصية tag.rar

جرب هذا المرفق InputBox Char DK.rar

بارك الله فيك أخي على الكلام الطيب وشكرا على الدعاء زادك الله بالمثل من علمه

تفضل أستاذي تعديل بسيط تم حذف المتغير InputBox Char.rar

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

جرب التعديل التالي حيث رقم 7 يشير إلى إسم المستخدم حسب الحروف mokhtar وإن كان الإسم أكبر أو أقل قم بالتعديل على الرقم =MID(RIGHT(INFO("DIRECTORY");LEN(INFO("DIRECTORY"))-9);1;7)

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

فعلا هو المطلوب لو تكرمت استاذي تعديل بسيط قمت بتحديد خلايا وأسميتها data وقمت بتعديل على الكود بهذا الشكل فتظهر رسالة الخطأ If Target.Address = Range("DATA") Then

لتسهيل العملية المرفق التحكم في ادخال بيانات في خلية.rar

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

شكرا أستاذي محمدي عبد السميع على اللفته الطيبه فعلا إفتقدناهم وعسى المانع خير إن شاء الله سلامات: للعلامة /عبد الله باقشير والأستاذ القدير /عبد الله المجرب نسأل الله أن تكون كل الأمور على ما يرام

يا اخي جربت وضع اي رقم فلم تظهر علامة x

تفضل كود Getting the Username.rar

تفضل كود Getting the Username.rar

السلام عليكم ورحمة الله تعالى وبركاته في الخلية A1 اريد عند الكتابة بالأرقام أو الحروف في الخلية تكتب علامة x الكود يهذا يعمل مع الأرقام فقط وعند الكتابة بالحروف أقوم بإدراج هذا الكود If Not IsNumeric(Target) Then وأنا أريدهم معا Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub If Target.Address = "$A$1" Then If IsNumeric(Target) Then On Error Resume Next Application.EnableEvents = False Target = "x" Application.EnableEvents = True On Error GoTo 0 End If End If End Sub وبارك الله فيكم

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

اه لم أنتبه لذلك تعديل بسيط هو جعل زر التحكم دخول هو الإفتراضي مرفق واجهه كنترول للاستاذ الحسامي2.zip

عندي يعمل تمام بعد كتابة اسم المستخدم وكلمة المروروالضغط على موافق تدخل شاشة الكنترول الجامع للمدارس الإبتدائية

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

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