moodyfy2 قام بنشر سبتمبر 16 مشاركة قام بنشر سبتمبر 16 السلام عليكم تحياتى لجميع اعضاء الجروب المحترمين * textbox1 الموجود داخل user form8 يقوم بالبحث عن رقم الحساب فى البيانات الموجوده فى شيت home1 ويقوم بترحيل البيانات الى التكست بوكس والكومبو بوكس الموجودة فى userform 8 * اريد اضافة listbox1 يظهر به نتائج البحث فى textbox1 ( الست بوكس عمود واحد يعرض نتائج البحث فى رقم الحساب كما هو موضح بالصورة الموجود فى اللست بوكس او التنقل بالاسهم بين نتائج البحث . يقوم بترحيل البيانات الى جميع اللست بوكس والكومبو بوكس الموجودة فى userform 8 * زر اضافى يقوم بترحيل البيانات داخل جميع التكست بوكس وال كومبو بوكس الى شيت home 1 ) وعند الضغط على نتائج البحث برنامج المعطل ver 20 2024 مثال.xlsm رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر سبتمبر 21 الكاتب مشاركة قام بنشر سبتمبر 21 الأساتذة الكرام هل يوجد حل لمشكلتي وجزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر سبتمبر 22 مشاركة قام بنشر سبتمبر 22 السلام عليكم جرب الملف واخبرنى بالملاحظات لانى عملته بسرعة قبل الذهاب الى العمل ____برنامج المعطل ver 20 2024 مثال.xlsm رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر سبتمبر 24 الكاتب مشاركة قام بنشر سبتمبر 24 الاخ الكريم الاستاذ عبدالله بشير عبدالله شكرا جزيلا لاهتمامك لكن لاتظهر نتائج البحث داخل textbox1 داخل lestbox1 اريد ان تظهر نتائج البحث فى تكست بوكس 1 عن اي رقم فى اللست بوكس . كما فى الفيديو التالى 4.7z رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر سبتمبر 25 مشاركة قام بنشر سبتمبر 25 السلام عليكم / وصلت الفكرة ان شاء الله جرب الملف واخبرنى باي تعديل اظهار نتائج البحث في اللستبوكس.xlsm 1 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر سبتمبر 25 مشاركة قام بنشر سبتمبر 25 (معدل) تعديل للملف اظهار نتائج البحث في اللستبوكس.xlsm تم تعديل سبتمبر 25 بواسطه عبدالله بشير عبدالله 2 1 رابط هذا التعليق شارك More sharing options...
إبراهيم ابوليله قام بنشر سبتمبر 25 مشاركة قام بنشر سبتمبر 25 السلام عليكم استاذنا الفاضل عبدالله مشكورا على الكود الجميل وفققك الله تقبل تحياتى 2 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر سبتمبر 25 مشاركة قام بنشر سبتمبر 25 (معدل) وعليكم السلام ورحمة الله وبركاته معلمى واستاذي ابراهيم ابو ليلة / الجيل الذهبى للمنتدى ربما اشتركنا في المنتدى في نفس الفترة وعاصرنا عبدالله باقشير وملك المعادلات والدغيدى وعبدالله المجرب والشهابي وتعلمنا منهم الكثير وغيرهم الكثير , اشتراكى القديم في 2011 باسم عبدالله الصاري وتم ترقيتي الى الخبراء ومنذ سنتين لم اتمكن من الذخول الى المنتدى بسبب الدخول اصبح بالبريد الالكتروني والذي نسيته فاشتركت مجددا بلسم الحالى على كل حال اسعدنى تعليقك ولك وافر التقدير والاحترام تم تعديل سبتمبر 25 بواسطه عبدالله بشير عبدالله 1 رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر سبتمبر 25 الكاتب مشاركة قام بنشر سبتمبر 25 استاذى الجليل عبدالله بشير عبدالله شكرا جزيلا على التفاعل والاهتمام وجزاك الله خير لكن لى ملاحظات اخجل من طلبها 1- اريد عند مسح محتويات TEXTBOX1 يتم تفريغ التكستبوكس والكومبوبوكس 2-عن اختيار نتائج الللست بوكس تظهر فى التكستبوكس و الكومبوبوكس بياناات لا تخص رقم الحساب المحدد فى اللست بوكس 3- اريد عن كتابة او عند عرض محتويات TextBox17 و TextBox18 تظهر فى تنسيق YYYY/MM/DD 4- اريد عن كتابة او عند عرض محتويات TextBox4تظهر فى تنسيق YYYY/MM وجزاك الله واسف على الاطالة 1 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر سبتمبر 26 مشاركة قام بنشر سبتمبر 26 (معدل) السلام عليكم تم تعديل النقطتين الاولى والثانية والثانية كان سببها اكثر من رقم حساب مكرر النقطتان 3 4 ان شاء بعد العودة من العمل جرب المرفق ولاحرج في اي ملاحظة تقبل تحياتي اظهار نتائج البحث في اللستبوكس1.xlsm تم تعديل سبتمبر 26 بواسطه عبدالله بشير عبدالله 2 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر سبتمبر 26 مشاركة قام بنشر سبتمبر 26 بالنسبة تكست 18 و19 اذهب الى لوحة التحكم - الساعة والمنطقة - المنطقة - ثم كما بالصورة الملف اظهار نتائج البحث في اللستبوكس1.xlsm 1 رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر سبتمبر 26 الكاتب مشاركة قام بنشر سبتمبر 26 استاذ عبدالله بشير عبدالله بارك الله فيك مجهود عظيم جعل الله فى ميزان حسناتك * تمام كدة لكن في ملاحظة واحدة 1- هى ان عتد اختيار اي نتائج البحث داخل اللست بوكس ولم يسجل لها تاريخ رفع وتاريخ تركيب ( TextBox18 - TextBox17) تكتب تاريخ 30/12/1899 بالرغم ان الخلايا فارغة داخل الشيت ولا يوجد بها تاريخ مسجل كما هو موضح بالصورة ولك جزيل الشكر رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر سبتمبر 27 مشاركة قام بنشر سبتمبر 27 (معدل) وعليكم السلام ورحمة الله تعالى وبركاته لقد قمت بتجربة الملف المرفق من الاخ الفاضل @عبدالله بشير عبدالله يؤدي المطلوب مع عدم ظهور اي تواريخ غير موجودة كما في الصورة لديك على العموم تم اعادة تصحيح الاكواد الخاصة بك واختصارها بطريقة مختلفة مع ظافة بعض اللمسات البسيطة لتتناسب مع طلبك برنامج المعطل 2024.xlsm تم تعديل سبتمبر 27 بواسطه محمد هشام. 2 رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر سبتمبر 27 الكاتب مشاركة قام بنشر سبتمبر 27 الاستاذ محمد هشام ارق تحياتى واحترامى لشخصكم وايضا للاستاذ عبدالله بشير عبدالله مجهود عظيم من حضراتكم اكيد عندى انا مشكلة لانى بضيف الاكواد الى برنامج اكبر مساحته كبيرة يحتوى الى الكثير من user forms والصفحات لا اتمكن من رفعة * عند ملاحظة عن كتابة رقم حساب جديد للاضافة يعطى الرسالة التالية كما هو موضح بالصورة رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر سبتمبر 27 مشاركة قام بنشر سبتمبر 27 (معدل) بما انك تستخدم ملف اخر يجب أولا الضغط على زر "Debug" في الرسالة لتحديد السطر البرمجي الذي يسبب الخطأ لنحاول اصلاحه رغم انه صراحة يصعب التعامل مع الاخطاء بهده الطريقة دون معاينة الملف الاصلي أما بخصوص الملف المرفق كما ترى الكود يقوم باظافة البيانات بدون ادنى مشكلة مع التحقق من وجود رقم الحساب مسبقا الملف بعد اظافة تسطير البيانات الجديدة وتنسيق ورقة العمل اليك الكود التالي لتلوين الصف النشط لان عملية حدف الصفوف من الممكن ان تأثر على التنسيق الشرطي الموجود مسبقا Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim f As Worksheet, Lr As Long Set f = ThisWorkbook.Sheets("home1") Lr = f.Cells(f.Rows.Count, "B").End(xlUp).Row Application.EnableEvents = False f.Range("B2:AX" & Lr).Interior.ColorIndex = xlNone If Not Intersect(Target, f.Range("B2:AX" & Lr)) Is Nothing And Target.Rows.Count = 1 Then f.Range("B" & Target.Row & ":AX" & Target.Row).Interior.Color = RGB(0, 255, 0) End If Application.EnableEvents = True End Sub برنامج المعطل 2024.xlsm تم تعديل سبتمبر 28 بواسطه محمد هشام. 1 رابط هذا التعليق شارك More sharing options...
عبدالله بشير عبدالله قام بنشر سبتمبر 28 مشاركة قام بنشر سبتمبر 28 الاستاذ محمد هشام الفاضل / مبدع بجدارة صاحب الملف الفاضل/ جربت الملف زر الاظافة يعمل بدون اخطاء ا تحياتي لكما 2 رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر سبتمبر 29 الكاتب مشاركة قام بنشر سبتمبر 29 استاذى الكريم محمد هشام. والاستاذ عبدالله بشير عبدالله تعجز الكلمات عن وصف اعتزازى واحترامى لكما الاضافة تعمل والحمد لله المشكلة انى استخدمت TextBox1 بدلا من TextBox21 لادراج رقم الحساب كما كنت استخدمه مسبقا . * لكن المشكلة عن البحث داخل رقم الحساب فى TextBox21 يكود خطا كما هو موضح بالصورة رابط هذا التعليق شارك More sharing options...
AmirMohamed قام بنشر أكتوبر 1 مشاركة قام بنشر أكتوبر 1 تفضل اخي المطلوب ان شاء الله تم اضافه فورم جديد ايضا يسهل عمليات البحث تستدعي الفورم الجديد عند الضغط على دبل كليل في Textbox1 وعند العثور على البحث في الفورم الجديد تضغط ايضا دبل كليل في listview يرحل رقم الحساب ايضا في فورم 2 اتمني تعجبك الفكره ! ملاحظه: اذا لم يعمل معك بشكل جيدا يجب عليك تحميل اداة Microsoft Windows Common Controls 6.0 SP6 حتي تتمكن باستخدام اداة listview تحياتي لحضرتك ____برنامج المعطل ver 20 2024 مثال.xlsm رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر أكتوبر 1 الكاتب مشاركة قام بنشر أكتوبر 1 استاذ AmirMohamed بارك الله فيك بيعطى خطا كما هو موضح وشكرا رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر أكتوبر 1 مشاركة قام بنشر أكتوبر 1 في 29/9/2024 at 21:59, moodyfy2 said: انى استخدمت TextBox1 بدلا من TextBox21 لادراج رقم الحساب كما كنت استخدمه مسبقا . * لكن المشكلة عن البحث داخل رقم الحساب فى TextBox21 يكود خطا كما هو موضح بالصورة صراحة لم افهم طلبك اليوزرفورم يشتغل بشكل جيد ما الغرض من استبدال العناصر مادام تم تنفيد ما طلبته وزيادة رابط هذا التعليق شارك More sharing options...
moodyfy2 قام بنشر الجمعة at 20:20 الكاتب مشاركة قام بنشر الجمعة at 20:20 اخى الكريم محمد هشام. اشكر حضرتك كثير وبعتذر للتاخير فى الرد لظروف طارئة انا مش عاوز استبدل العناصر انا بوضح لحضرك عند كتابة شيئ فى TextBox1 يعطى رسالة خطا وتحياتى لحضرتك رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر الجمعة at 21:20 مشاركة قام بنشر الجمعة at 21:20 (معدل) ادن جرب هدا Private Sub TextBox1_Change() Dim ws As Worksheet, rng As Range Dim cell As Range, results As Collection Dim searchKey As String, i As Long Set ws = ThisWorkbook.Sheets("HOME1") Set rng = ws.Range("C2:C" & ws.Cells(ws.Rows.Count, "C").End(xlUp).Row) Set results = New Collection ListBox1.clear searchKey = Trim(TextBox1.Text) For Each cell In rng If InStr(1, cell.value, searchKey, vbTextCompare) > 0 Then On Error Resume Next results.Add cell.value, CStr(cell.value) On Error GoTo 0 End If Next cell For i = 1 To results.Count ListBox1.AddItem results(i) Next i TextBox19 = ListBox1.ListCount If searchKey = "" Then Dim ctrl As Control For Each ctrl In Me.Controls If TypeName(ctrl) = "TextBox" Or TypeName(ctrl) = "ComboBox" Then ctrl.Text = "" End If Next ctrl TextBox19 = ListBox1.ListCount End If End Sub برنامج المعطل 2024 V5.xlsm تم تعديل الجمعة at 21:48 بواسطه محمد هشام. رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان