ابن الملك

سلام الله عليكم ورحمته وبركاته مرفق لاساتذتى وزملائى بعض التحديثات على ملف التحصيلات . كل ما عليك هو فك الضغط ثم الضغط على ملف اللى اسمة Open وشكرا Tahselat.rar

أنا هجهز نفسى وأنزل دمياط للتأكد مما نسمعه أنا بهزر .. هو فى سؤال ؟ الملف تضخم اصبح 4 ميجا لية ؟؟؟؟ أمال لو علية بيانات السجل المدنى كان بقى كام ميجا ثم انا بفكر بعد ما ننتهى من التعديلات اننا نخلية ملف تنفيذى Exe اية رأيكم ؟ منتظر الافكار والاراء .......

تحديثات جديده على الملف التحصيلات.rar

أ / ياسر خليل أ/ احمد الفلاحجى مرفق أصدار تانى من الملف بعد اجراء بعض التعديلات عليه فى أنتظار النقاط السلبية للبرنامج لتلافيها . التحصيلات.rar معلش يا أ/ احمد لو مافيهاش رخامه هو طبيعه المحل الخاص بحضرتك اية ؟ بتمنى لحضرتك التوفيق فى برنامج حضرتك .

بالعكس أنا فى قمة سعادتى لانى الهدف الاساسى المساعده للى ينفع معاه الملف بالعكس انا فى أنتظار الحاجات التانية .

أعتذر عن الخطأ وتم تصليحه وفى أنتظار المزيد من الاخطاء التى لا يكتشفها الا المدققون . تم إرفاق الملف مرة أخرى في المشاركة الأولى

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

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

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

برجاء المساعدة فى المرفق أريد تطبيق البحث على الملف وشكرا التحصيلات.rar

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

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

السؤال الاول : أجب عن الاتى : أ/ ياسر خليل معلش كان فى المشاركة الاولى السطر ده بس عدى بسرعه بدون شرح ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 وكمان بالنسبه للمتغير ii مش Boolean وعلى الرغم مكتوب معاه If ii then ده متغير integer ما معنى Instr) وفيما تستخدم وبالنسبه لموضوع المصفوفات فده طلع عالم أنا بحاول أذاكر الرابط اللى حضرتك ذكرته فى المشاركة الخاصه بحضرتك ومعلش كمان كان فى نسخه المنتدى القديمة انا ممكن أحط رابط مشاركه ولتكن مشاركة رقم 7 فى الموضوع الفلانى بعد التحديث مش عارف اختار رابط المشاركة هما كذا سؤال مع بعض معلش ولكن أنا معايا تصريح أسال زى مانا عاوز

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

أستاذى الكبير / أ/ محمد حسن شكرا جدا لمرور حضرتك على الموضوع المتواضع تقبل تحياتى . أخى ابو عبد الرحمن لعلى أكون قد وفقت فى طلب حضرتك . أخويا الغالى سامحنى أنا ضعيف شويه فى البرمجه ولكن بحاول أخبط لو تحب حضرتك تحاول تنسخ الفورم وترسل لعمالقه المنتدى يساعدونا ماشى لو تحب حضرتك ترف الملف وتشرح لنا حضرتك محتاج ايه بالظبط يبقى برضه ماشى أنا فى الحالتين اللى هقدر أعمله انا تحت امر حضرتك تقبل تحياتى واعتذارى

استاذ عبد الرحمن كما طلبت حضرتك تم تحوبله للعربى أتمنى أن أكون قد وفقت فى عملى هذا لعله ما تطلب وشكرا New-Userform-Arabic.rar نتشارك كلنا بمساعدتكم معنا . شكرا لمرور حضرتك الاستاذ / أبو أنس الحمد لله أنه نال اعجاب حضرتك ان شاء الله واحيانا هدور تانى ولو لقيت حاجه تانية ان شاء الله هرفعها للمنتدى أسعدنى وشرفنى مرورك الكريم

أ / ياسر خليل أحلى حاجه فى شخص حضرتك الكريم روح الدعابه اللى حضرتك بتنشرها فى المنتدى . أنا بتمنى فعلا أتعلم من حضرتك الكثير .

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

أساتذتى الكبار أخوتى وأخواتى فى منتدى أوفيسنا أنا فخور انى أحد أعضاء المنتدى الكريم ده دائما ما نجد ضالتنا فيه لقيت الملف ده على موقع أجنبى وبصراحه عجبنى وحبيت أشارك بيه أحلى طاقم عمل فى المنتدى الى أن يتم شرحه وتفكيكه من عباقرة المنتدى مرفق ومنتظر اراءكم يارب يعجبكم New-Userform-.rar

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

جزاك الله كل خير لقد فهمت حضرتك وهو بالفعل متغير من نوع Boolean متشكر لحضرتك ودلوقتى الجزء الثانى sColmn = sColmn & R & " " ii = ii + 1 ReDim Preserve MyAr(1 To ContColmn, 1 To ii) For i = 1 To ContColmn If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) _ Else MyValue = .Cells(R, i).Value2 MyAr(i, ii) = MyValue Next End If End Select Next End With If ii Then يرجى العلم أن المتغير ii ليس Boolean ولكنه Integer ايه الجزء بتاع Myar مش لاقى متغير بالاسم ده هل دى داله داخلية ؟؟ مش عارف معلش أنا عارف أنا تاعبك معايا

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

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

With sRng.Worksheet LastRow = .Range("A65536").End(xlUp).Row If IsDate(Me.TextDate1) Then dt1 = DateValue(Me.TextDate1) Else dt1 = WorksheetFunction.Min(.Range("C2").Resize(LastRow)): Me.TextDate1 = Format(dt1, DateFormt) If IsDate(Me.TextDate2) Then dt2 = DateValue(Me.TextDate2) Else dt2 = WorksheetFunction.Max(.Range("C2").Resize(LastRow)): Me.TextDate2 = Format(dt2, DateFormt) End With '------------------------- sColmn = "" With sRng For R = 2 To LastRow Select Case .Cells(R, 3).Value2: Case dt1 To dt2 ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 If ib Then sColmn = sColmn & R & " " ii = ii + 1 ReDim Preserve MyAr(1 To ContColmn, 1 To ii) For i = 1 To ContColmn If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) _ Else MyValue = .Cells(R, i).Value2 MyAr(i, ii) = MyValue Next End If End Select Next End With If ii Then أحبائى فى الله لنبدأ بهذا الجزء ...... اللى فوق انا فاهم معناه محتاج افهم السطر ده Select Case .Cells(R, 3).Value2: Case dt1 To dt2 ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 If ib Then Select case أعتقد دى معناها أننا لازم نتحقق من شرطين Case & Case السطر ده مش فاهمه ib = InStr(1, .Cells(R, MyColmnFind), Me.TextFind, vbTextCompare) = 1 If ib Then هو مش المفروض بعد كلمه Then يبقى فى حاجه مش فاهم يعنى ايه If ib Then منتظر ردودكم من سيادتكم

عندى طلب وهو بدايه شرح كيفيه تصميم يوزر فورم بحث كالمرفق أو شرح الكود جزء جزء لمن استطاع جعلها الله فى ميزان حسناتكم ... أمين وشكرا ملف بحث بفورم ممتاز++SORT A (1).rar