omar elhosseini

استكمالا للسؤال السابق : التحكم فى مجموعة من صناديق النصوص TextBox المثال السابق يبين كيفية التحكم فى مجموعة من مربعات النصوص جملة واحدة وكان لتوضيح طريقة استخدام الصفة :: Tag اما المثال التالى فهو يبين لنا امكانية التحكم فى مجموعة من TextBox وايضا التحكم فى مجموعة من Label فى بناء قاعدة بيانات موظفين مصغرة وكيفية الاضافة والحذف اليها وايضا امكانية التعديل على سجلاتها او استعراضها وايضا عند تعديل رؤوس عناوين اعمدة جدوال البيانات يتم تعديل الفورم بها اتوماتيكيا ليتتضح لنا كيفية التحكم فى جميع ادوات الفورم كل مجموعة منها على حدى دفعة واحدة اضغط على العنوان التالى للذهاب الى رابط المثال :: التحكم فى مجموعات من صناديق النصوص TextBox او ادوات الفورم الاخرى دفعة واحدة بإستخدام الصفة Tag

استكمالا للسؤال السابق : التحكم فى مجموعة من صناديق النصوص TextBox المثال السابق يبين كيفية التحكم فى مجموعة من مربعات النصوص جملة واحدة وكان لتوضيح طريقة استخدام الصفة :: Tag اما المثال التالى فهو يبين لنا امكانية التحكم فى مجموعة من TextBox وايضا التحكم فى مجموعة من Label فى بناء قاعدة بيانات موظفين مصغرة وكيفية الاضافة والحذف اليها وايضا امكانية التعديل على سجلاتها او استعراضها وايضا عند تعديل رؤوس عناوين اعمدة جدوال البيانات يتم تعديل الفورم بها اتوماتيكيا ليتتضح لنا كيفية التحكم فى جميع ادوات الفورم كل مجموعة منها على حدى دفعة واحدة والى لقاء قريب بإذن الله المثال بالمرفقات _________________.rar

تم الرد على السؤال للوصول الى موضوع اجابة السؤال اضغط عنوان الموضوعى التالى : التحكم فى مجموعة من صناديق النصوص TextBox

بسم الله الرحمن الرحيم والصلاة والسلام على اشرف المرسلين نبينا محمد صلى الله عليه وسلم التحكم فى مجموعة من صناديق النصوص TextBox بسؤال من اخونا ابو اسامة العينبوسي وهذا رابط سؤال اخونا ابو اسامة العينبوسي لمن اراد الاستفسار عن بعض النقاط او التعليق على هذه المشاركة التى تخص الموضوع المشار اليه التحكم فى مجموعة من صناديق النصوص TextBox فى رد سريع الى اخونا ابو اسامة العينبوسي بعيدا عن تسلسل مواد الشرح فى هذا الموضوع الهدف من السؤال هو تعبئة مجموعة من صناديق النصوص جملة واحدة و بالخصوص عندما تكون ذات عدد كبير نسبيا يمكن استخدام الخاصية :: Tag من نافذة خصائص ال TextBox الخاصة بكل TextBox يمكن تحديد خلية تعبئة ال Tag لكل TextBox على حدى وللأسف هى قيمة ثابتة ولكن يمكن التحايل على ذلك بالأتى : يمكن تعيئة مجموعة من صناديق النصوص بقيم معينة بإستخدام حلقة تكرارية ولكن قبل ذلك يجب تعبئة كل تاج فى نافذه الخصائص بقيمة ابتدائبة لتعمل الحلقة ولتكن هذه القيمة عنوان اول خلية لسجل البيانات لصندوق النص المناظر لها من جدول البيانات لنرى هذا الكود Private Sub UserForm_Activate() Dim Ctrl As Control MyRow = 4 MyCol = 2 For Each Ctrl In UserForm1.Controls If Ctrl.Tag <> "" Then Ctrl.Text = Cells(MyRow, MyCol) MyCol = MyCol + 1 End If Next Ctrl End Sub يقوم هذا الكود بتعبئة صناديق النصوص ببيانات اول سجل فى الجدول ويأستخدام هذا الاسلوب يمكن ان يكون الكود مختصرا وفى نفس الوقت اكثر مرونة سواء فى قراءة البيانات من الجدول او كتابة البيانات الى الجدول وللأسف لم ارى هذا الاسلوب يستخدم فى المنتديات العربية رغم انه يختصر حجم الاكواد واكثر مرونة وهذا الشرح مجرد بداية سريعة حتى نصل اليه فى سياق شرح الاوامر او التعبيرات حتى لانخرج عن التسلسل الطبيعى لموضوعنا هذا يوجد مثال بالمرفقات والى لقاء قريب بإذن الله TextBox0.rar

احسنت اخى

الاخ فهيد اخى ضع هذا الكود بالملف فى موديول ونفذه Sub Del_All_Link() MySheet = InputBox(ActiveSheet.Name, "Omar", ActiveSheet.Name) If MySheet = "" Then Exit Sub Sheets(MySheet).Select Sheets(MySheet).Copy Before:=ActiveSheet ActiveSheet.Name = "SendMe2 Mail" Application.ScreenUpdating = False With ActiveSheet.UsedRange .Value = .Value .Cells.Hyperlinks.Delete End With Application.ScreenUpdating = True End Sub End Sub

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

الاخ samir1 شاهد المرفق __________________________2.rar

الاخ atob اخى لم تخبرنى عن الملف الموجود فى المشاركة السابقة هل هو المطلوب ام لا ؟؟؟

الاخ design شاهد المرفق :: مع ملاحظة الاتى :: ادخال البيانات فى الاعمدة ذات اللون الاخضر فقط بالنسبة الى تاريخ الجهاز وخلية الحالة :: 1 :: اذا بدأت فترة التناوب ستكون خلية الحالة بالون الاحمر وتبدأ بالعد التنازلى 2 :: اذا لم تبدأ فترة التناوب تكون خلية الحالة ( لم يبدأ التناوب ) 3 :: اذا انتهت فترة التناوب تكون خلية الحالة ( انتهى التناوب ) 4 :: اذا لم تدخل ( تاريخ بداية التناوب) او ( مدة التناوب باليوم ) او لم تدخل الاثنين تكون خلية الحالة فارغة Countdown_1.rar

الاخ ابو اسامة العينبوسي وعليك اخى يامصدر الإلهام بارك الله فيك

الاخ justice شكرا لك اخى بإذن الله سيكون شرح ال ( Target ) مع الاحداث لإرتبطها الوثيق مع احداث الاوراق و الملف

الاخ samir1 شاهد المرفق اخى ______1.rar اليس من الافضل عندما تكتب انت تاربخ البداية وتاريخ النهاية فى الخليتان G1 و G2 تتم التصفية مباشرة بدلا من عمل تصفية متخصصة فى عمود التواريخ

الاخ فهيد لو قمت بالحساب اليدوى ستجد ان الصفر يعمل ارجو تأكيد ان قيمة الصفر تعمل سليمة بالحساب اليدوى ولكن الصفر فى عمود الحرار لا يظهر لإظهاره : من قائمة ( ادوات / خيارات / عرض ) ثم ضع علامة على بند ( قيم الصفر )

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

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

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

الاخ إكسيلجي شكرا لك اخى يسعدنى اهتماك بشرحنا المتواضع الاخ أبو أكرم شكرا لك اخى فعلا اخى فالشرح السطحى يشتت الذهن ولا يغطى كل جوانب اى امر من الاوامر اما ان يكون شرحا وافيا والا فلا داعى له وهو يستغرق بعض الوقت ولكن الثواب والدعاء ورضا الله عز وجل هو افضل جزاء الاخوة justice / ابو اكرم شكرا اخى يحيى من الفضل طرح كل ما يجول بخاطركم لأسباب هامه وهى :: اولا :: أقوم بتجميع الاسئلة يوميا بمجرد ادراجها بالمنتدى ثانيا :: وهو الاهم عند تجميع الاسئلة قد نرى انه من الافضل تقديم احدهم عن الاخر لانه سيساعد فى شرح التالى له فعلا سبيل المثال :: شرح الاحداث لن يكون مجديا قبل الانتهاء من شرح الاتى :: خاصية Offset التعبير الشرطى If...Then...Else وايضا : ال Target ولكن ال Target من الافضل شرحها مع الاحداث لإرتباطهم الوثيق معا شكرا لكم جميع مع حبى وتقيرى لإهتمامك بالبحث عن المعرفة بدون تكبر او حرج !!!!!!!!!!!!! والشكر موصول الى اخونا ابو اسامة

الاخ khomarkh شاهد المرفق ____________2.rar ويمكن استخدام الملف الاول من الموضع الرئيسى فهو يعمل مع اى ارقام اضغط هنا :: لتصل الى المشاركة الاصلية ب : البوم للصور والمعروضات, يسع 30.000 صورة او منتج

الاخ atob شكرا لك اخى بالنسبة ل myrng هو نطاق تم سميتة ب myrng وايضا الدالة تعمل بالطريقة التى ذكرتها وهى تحديد النطاق او عناوين النطاق او اول خلية واخر خلية كما ذكرت الاخ إكسيلجي شكرا لك اخى على تشجيعيك وتحية خاصة لك منى اخى أبو عبدالله

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

الاخ justice الاخ إكسيلجي لكم شكرى وتقديرى على حسن متابعتكم واصراركم على المعرفة والأحداث من اهم الجزئيات التى تعطى بعدا مميز للحلول والتحكم اللأنهائى للحل اعمل الان على تجهيز الاولا :: Offset ثانيا :: If...Then...End If لاننا سوف تحتاجهم فى شرح الاحداث لكم حبى وتقديرى

الاخ skyblue هذه البيانات هى ارقام وليست نصوص ومضاف اليها حرف وليس مسافة فارغة ( فراغ ) فالمسافة الفارغة ذات كود اسكى رقم 32 وهو حرف غير ظاهر استخدم المعادلة التالية لتنقية الارقام من هذا الحرف =SUBSTITUTE(C2;CHAR(160);) شاهد المرفق Omar_1.rar

السلام عليكم ورحمة الله وبركاتة كلنا نعرف دالة الاكسيل المشهورة ( VLOOKUP ) التى تبحث فى العمود الاول فقط من جدول وتستخرج النتيجة من عمود اخر دالتنا اليوم واسمها ( VLOOKAnyCol ) هى مثل دالة الاكسيل المشهورة ( VLOOKUP ) تماما وتمتاز عنها بعدم اشتراط البحث فى العمود الاول فقط فهى تبحث فى اى عمود ولا يشترط ان يكون العمود الاول وتستخرج النتيجة من عمود اخر - ولا تشترط ترتيب جدول البيانات وهى طبعا عربية بأيدى عربية شرح وبناء دالة ( VLOOKAnyCol ) :: دالة VLOOKAnyCol لها اربع مدخلات او باراميترات هم على التوالى :: جدول_البيانات / قيمة_البحث / عمود_البحث / عمود_النتيجة المدخل الأول :: جدول_البيانات :: جدول المعلومات الذي يتم البحث فيه عن البيانات ( قيمة_البحث ) فى اى عمود منه استخدم أحد المراجع لأحد النطاقات أو أحد أسماء النطاقات، مثل MyRng المدخل الثانى :: قيمة_البحث :: القيمة التي سيتم البحث عنها في العمود الذى تحدده ب ( عمود_البحث ) من جدول_البيانات يمكن أن تكون قيمة_البحث قيمة أو مرجع أو سلسلة نصية المدخل الثالث :: عمود_البحث :: هو رقم عمود الجدول الذى سيتم البحث فيه عن قيمة_البحث من جدول_البيانات المدخل الرابع :: عمود_النتيجة :: هو رقم عمود الجدول الذى سيتم استخراج النتيجة منه المقابلة ل قيمة_البحث والى لقاء قريب بإذن الله فى سلسلة الدوال العربية بالمرفقات الشرح مع مثال : VLOOKAnyCol.rar المرفق التالى عبارة عن ملف قيديو يبين كيفية نقل كود الدالة الى ملقك لتعمل الدالة به Omar_1.rar

الاخ Picoo-net رفقا بأخواناك اخى كل الاخوة ممن يتطوعون بتلبية رغبات وحل مشاكل اخوانهم يقومون بهذ العمل تطوعا واستقطاع الوقت لمساعدة الغير ابتغاء وجة الله الكريم وهو ليس الزاما عند طرح مشكلة ان تجد حل لها او تجد حل فى الوقت الذى يناسبك فقد لا يتوافر احد الاعضاء الذى يستطيع الرد على مشاركتك فى الوقت الذى تستعجل الجميع على ذلك رغم انك حصلت فى موضوع الاول فى نفس يوم تسجيلك بالمنتدى على ثلاثة ردود من المنتدى فى اقل من 24 ساعة وهو رقم قياسى والان ادرجت هذا الموضوع فى تمام الساعة 6:31 مساء وفى تمام الساعة 7:28 مساء تسعجل اخوانك اى بعد 57 دقيقة وفى تمام الساعة 7:33 اى بعد خمسة دقائق فقط فتسغرب تأخير اخوانك رغم مضى ساعة واحدة ودقيقتين فتعلق على ذلك فلا اعتقد ان من يستطيع ايجاد حل لمشاركتك التى مضى عليها فقط ساعة واحدة ودقيقتين يجلس داخل الكمبيوتر فى انتظار ادراج مشاركة للرد عليها فالجميع له حياته الخاصة ومشاكلة ايضا ويساعدون الغير فى حل مشكلهم فجزاهم الله خير جزاء وعندما تكون تود استعجال الرد يكفى ات تدرج مشاركة وتكتب فيها ( للرفع ) او ( تقوم بتحية اخوانك ) فيقفز موضوعك الى اول الصفحة الاولى وبذلك يكون تحت انظار الجميع هذا بدلا من توجيه اللوم الى الجميع ارجو ان تتقبل النقد بصدر رحب ورفقا بأخوانك اخى