هاني بدر

بسم الله الرحمن الرحيم استاذي الفاضل خبور هذه هي اخر خطوة في تنفيذ فكرة استغلال هذا الفورم ليكون هو الواجهة الاساسية في اولاً : تسجيل البيانات ثانياً : ترحيل البيانات ثالثاً : عرض البيانات رابعاً: تعديل البيانات خامساً : حذف البيانات سادساً : التقرير عن البيانات ولو بمائة متغير دون ارهاق الملف بالحجم الذائد سابعاً : طباعة البيانات كل ذلك وا انا على الفورم حيث انني اعتبرت ان الصفحة الاساسية هي المكان المخصص لتسجيل البيانات وليس البحث عنها بمعنى انني قمت بتثبيت قيمة تكست البحث الى " *" وذلك لاستدعاء الصفحة كاملة ثم التسجيل فيها ثم ترحيلها الى صفحة اخرى تكون هي قاعدة البيانات ولتيسير التسجيل و انا على الفورم ولنفرض انني ساقوم بتسجيل قيد يومية اذا فمن المهم ان اقوم بالبحث عن رقم حساب من خلال فورم آخر وما اكثرهم فورمات البحث ثم ادراج ناتج البحث في الخلية التي اقف عليها وا انا على الفورم الرئيسي لذلك فان طلب تحديد موفع الخلية النشطة والسطر الموجودة فيه هو امر جوهري واساسي لاكمال تسجيل البيانات دون عناء . ارجو من سيادتكم التكرم بافادتي عن هذه الخاصية او تلك الميزة ولكم كل التحية والتقدير Test6.rar

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

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

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

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

بسم الله الرحمن الرحيم هذا هو كود البحث بناء على تغيير القيم في التيكت بوكس 1 On Error Resume Next Dim KH_Range As Range Dim M As String Dim W% Dim KH_1% Dim KH_2% Dim F% Dim A As Range Set KH_Range = Range("Chart") M = TextBox1.Text ListBox1.Clear If M = "" Then GoTo 1 W = ListBox1.ListCount With KH_Range KH_1 = .Rows.Count KH_2 = .Columns.Count Set A = Range(.Cells(1, 1), .Cells(.Rows.Count, .Columns.Count)).Find(M) If Not A Is Nothing Then F = A.Address Do ListBox1.AddItem ListBox1.List(W, 0) = Sheets("Chart").Cells(A.Row, 6).Value ListBox1.List(W, 1) = Sheets("Chart").Cells(A.Row, 5).Value ListBox1.List(W, 2) = Sheets("Chart").Cells(A.Row, 4).Value ListBox1.List(W, 3) = Sheets("Chart").Cells(A.Row, 3).Value ListBox1.List(W, 4) = Sheets("Chart").Cells(A.Row, 2).Value ListBox1.List(W, 5) = Sheets("Chart").Cells(A.Row, 1).Value W = W + 1 Set A = Range(.Cells(1, 1), .Cells(KH_1, KH_2)).FindNext(A) Loop While Not A Is Nothing And A.Address <> F End If End With Set A = Nothing 1 End Sub

بسم الله الرحمن الرحيم أرجو المساعدة في الملف المرفق حيث ان ناتج البحث يظهر في الليست بوكس ليس بتكرار الكلمة ولكن باول ما يقابل الموجود في التيكست بوكس فقط Test5.rar

بسم الله الرحمن الرحيم الـ ........... الفاضل استاذنا خبور تعمدت ترك مابعد الالف واللام خاليا لاني والله لم اعرف ماذا ساكتب احترت والله فيما انعتك به ولكن ان عجزت الحروف والكلمات عن التعبير عما نريد قوله فاعلم اننا ماعجزنا الا من فرط ابداعك واستسمحك في ان تقوم انت بالتنفيذ العملي لانني لست بالخبير مثلكم بل انا مجرد مجتهد احاول فهم ما انفذه وما اعجز عن فهمه لضيق وقتي اطبقه كما هو وانا ماتعلمت الماكرو الا على ايديكم وما امكنني فهمه اتقنته بل وحاولت تطويره ولكن مازال امامي الكثير من الجهد والقراءة والتعلم اكثر من ذلك بكثير .وانا فعلا احاول جاهداً في اخراج الملف المطلوب باقل حجم ممكن ومن خلال فورم وفورم لاغير دون رؤية ولو ورقة واحدة من ورقات العمل وهو تحدي بالنسب لي ارجو ان تساعدني فيه لذلك ارجو منك تطبيق ما قلته على الملف المرفق ولك جزيل شكري وتحياتي

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

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته استاذنا الفاضل خبور كم انت مبدع مبهر بلاحدود في الابتكار واستميحك عذرا ان نسعى للاقتراب من الكمال فالكمال لله وحده ولتقبل مني المناقشة حول موضوعك بشكل لا يهدف الا الى الوصول لماهو مختلف بشكل ليس له مثيل الفكرة قامت على اساس فورم للبحث والتعديل الفوري في الفورم لتظهر نتيجته مباشرة في ورقة العمل بمجرد مغادرة الخلية النشطة وانت داخل الفورم وما صاحبها من ابداعات في التنسيقات وسرعة الاستجابة في الحصول على المعلومة والتاثير فيها ايضاً وباضافة كومبو بوكس لتغيير معايير البحث او لاضافة تكسات لبيانات جديدة تظهر في ورقة العمل فهذا مطلوب ولكنه يسير ويمكن ان يقوم الكثيرون بمثل هذه التعديلات . اعرف ان كلامي قد يثر حفيظة الكثيرين ولكن والله ماقصدت سوى التطوير واستغلال ما تعرضه انت وكل عظماء المنتدى من افكار غاية في الروعة والجمال للانطلاق من بعدها الى ماهو اشمل واعمق وكي لا اطيل عليك ما اردته هو استغلال الفكرة بشكل اكثر افادة فماذا لو غيرت الهدف ا لاساسي من هذا الليست بوكس الاكثر بكثير من الرائع من مجرد البحث عن المعلومة والتاثير فيها بشكل فوري الى فورم ادخال بيانات وترحيلها الى ورقة اخرى وكى اوضح الفكرة اكثر في كل المنتدى حاول الكثيرين تصميم فورم لادخال فواتير شراء على سبيل المثال عن طريق الفورم ولكن كلهم مشكورون على مجهودهم ولكن لم تخرج بالشكل الابداعي الموجود في هذا الليست وانا واثق بانك اذا قمت بعمل استفتاء على احسن شكل ادراج فاتورة مشتروات او مبيعات او تسجيل بيانات مشابهة لملفي المرفق عن طريق الفورم فاعتقد ان هذا الليست بوكس لن ينازعه فورم آخر وستبقى المشكلة الاساسية وهى اذا كانت ورقة العمل تحتوى على معادلات تحتسب على اساس المدخلات الجديدة التي يؤثر فورا ً في خلايا ورقة العمل فهل ستظهر قيمة الخلية التي بها معادلة بمجرج التاثير في اى من الخلايا وانا على الفورم الاجابة نعم ولا !!!!!!! نعم لاني لو كنت اقف في الخلية الاولى من الصف الثاني وغيرت مابها من رقم ستتغير قيمة الخلية الاخيرة من نفس الصف التي يوجد بها معادلة ولا لاني لو دخلت على الخلية التي تليها من نفس الصف وغيرت مابها من ارقام فستظل الخلية الاخيرة التي تحوي المعادلة بنفس قيمتها بعد التعديل الاول . لماذا هذا لان من خصائص الليست بوكس المعروض التاثير الفوري المتبادل بين الفورم و ورقة العمل فالسؤال هو هل يمكن عرض كل البيانات والتاثير فيها من خلال الفورم باستثناء التاثير في عامود او اكثر حسب تواجد المعادلات. اعتذر على الاطالة ولكن اعلم جيداً مدى حرص الجميع على التطوير واستغلال كل ماهو متاح من اساليب برمجية لجعل المستخدم غير مرهق في تسجيل بياناته واستدعائها والتعديل فيها بل وحذفها واستخراج تقارير عنها حسب المتغيرات المختلفة. وتجدر الاشارة باني قد تغلبت على هذه المشكلة بعمل كود يشبه الامر Refresh or F9 ولكنه فعلا مرهق في ان اخرج من مود التسجيل الى مود Recalculate كلما اضفت معلومة داخل الليست بوكس تقبلوا تحياتي وهذا رابط للموضوع او مرفق الملف المطلوب http://www.officena....showtopic=41617 Test5.rar

الملف بعد تعديل بسيط في تنسيقات الخلايا Test5.rar

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

العنوان اكثر من رائع والفكرة ايضاً تستحق الاشادة فهى تعد شيئ مكمل لموضوع القدير استاذنا خبور في موضوع هل تعلم وفقك الله ووفق جميع رواد واساتذة المنتدى العظيم

بسم الله الرحمن الرحيم ولتوضيح الفكرة اكثر سارسل لك ملف من تنفيذ المكرم استاذ خبور اكتب في كلمة البحث مدير الموقع وانظر شكل العرض داخل الليست بوكس سيكون التنسيق بامر Wrap Text وليس Merge & Center Listbox Form6.rar

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

بسم الله الرحمن الرحيم اعتذر هذا هو المرفق Test Income.rar

بسم الله الرحمن الرحيم الشكر واجب لك استاذنا الفاضل محمد صالح ولكن ماقصدته هو التكست بوكس في الفورم تقبل تحياتي ومشكور على مجهودك المحمود Test Income.rar

بسم الله الرحمن الرحيم كيف اجعل التيكست بوكس يتغير حجمه ليلائم البيانات التي بداخله بحيث تصبح كما الخلية عندما نختار لها تنسيق Wrap Text وتقبلوا التحية

السلام عليكم ورحمة الله وبركاته تم اضافة سطر للكود لمسح البيانات قبل النسخ حيث ان البيانات متغيرة في الصفحة Range("AL11:BK50000").ClearContents Range("AL9:BK9").Copy Range("AL11:AL" & [A50000].End(xlUp).Row).PasteSpecial Paste:=xlPasteFormulas Application.CutCopyMode = False تقبل كل الشكر والتحية لك ولك اساتذة وأعضاء المنتدى الكرام اخوك هاني بدر

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

اعرف انه طلب بسيط وارجو المساعدة بعمل الكود المطلوب لانه مهم جدا عندي

للرفع

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

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