عبد الفتاح كيرة

شكرا لك أستاذ معتصم ممتاز و منظم عملت انضمام لقناتك كل عام أنتم بخير

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

أشكرك أستاذ أشرف بارك الله فيك

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

من غير ما أجرب يكفى نصاعة الفكرة وجمالها هذه هى خبرات و حيل المبرمجين التى نحتاجها جارى التجربة و هذه هى النتائج و إن كانت بالأرقام العربية ( المتعارف عليها أنها إنجليزية ) لكن التاريخ مرتب جزاك الله خيرا و هذه حيلت لتعريب الأرقام أى جعل الأرقام هندية Me.Controls("Textbox3").Value = "الحمد لله" Me.Controls("Textbox3").Value = Format(Worksheets("all").Cells(k + 3, 3).Offset(1, 0), "yyyy/mm/dd") يعنى جعلت النص فى المربع حروفا عربية قبل جملة تغيير الفورمات انظر النتائج مازلنا نتعلم منك الكثير بارك الله فيك أرجو من كل شخص يمر على الموضوع و لا يكتب ردا أن يدعو لك

أشكرك أخى AHMADHAMOOR بارك الله فيكم

السلام عليكم نواصل العمل ---- هناك مشكلة فى ظهور التاريخ فى مربع نص حيث يظهر بترتيب التاريخ الأميركي من اليمين سنة - يوم - شهر مع أن الحروف عربية يمكننا استخدام الأمر format قبل ملء مربع النص بقيمة التاريخ الموجود بخلية فى الشيت لكن المشكلة أن مربع النص هذا يملأ عن طريق حلقة مع أكثر من عشرين مربع نص فلا نستطيع استخدام أمر format داخل الحلقة لأن مربعات النصوص ليست كلها تواريخ كيف نعدل مربع النص هذا وحده بحيث تكون صيغة التاريخ فيه من اليمين يوم - شهر - سنة ==== جزاك الله خيرا أستاذنا خبور و هذه هى الحلقة التى تملأ مربعات النصوص Me.Controls("Textbox" & j).Value = Worksheets("all").Cells(k + 3, j).Offset(1, 0).Value

عليكم السلام و رحمة الله أستاذنا خبور بارك الله فيك

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

أهلا و سهلا أخانا بارك الله فيك

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

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

لا مشكلة فى التحويل لكن لو بالملف دوال جديدة موجودة فى 2007 فقط فلن تعمل على 2003 هذا للتنبيه

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

أخى المحترم ezzarqtouni أسأل الله أن يعطيك مثل ما قلت بارك الله فيك و كل عام أنتم بخير

وعليكم السلام ورحمة الله تعالى و بركاته أخى ولد طيبة أشكرك شكرا جزيلا على تشجيعك و كلماتك الطيبة

السلام عليكم أنا ليس لى فى الوظائف لكن هذه عملت بكفاءة Function dodo(hhh As String) If Left(hhh, 3) = "012" Or Left(hhh, 3) = "018" Or Left(hhh, 3) = "017" Then dodo = "موبينيل" ElseIf Left(hhh, 3) = "011" Or Left(hhh, 3) = "014" Then dodo = "اتصالات" ElseIf Left(hhh, 3) = "010" Or Left(hhh, 3) = "016" Or Left(hhh, 3) = "019" Then dodo = "فودافون" End If End Function و على أساس العمود المجاور يمكن الترحيل Test2003-kemas.zip

ممتاز وشكرا للمبدعين ممكن سطر النسخ و اللصق يكون cel.Copy cel.Offset(0, 1)

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

ما شاء الله أستاذنا لقد تحول هذا الموضوع لما يشبه المدرسة معلمها قدير غزير العلم و على فكرة أكثر الناس ليس لديهم صبر على تعلم مثل هذا حتى أننى وجدت متخصصين من خريجى كليات الحاسب لا يعرفون معنى فجوال بيسك للتطبيقات و هذا أمر عجيب لك أن تتخيل النقلة الكبيرة التى سننتقل إليها فى عالم البرمجة بفضل الله ثم بفضلك بعد كل غامضة تزيل غموضها و نفهمها بعد أن كانت طلاسم وأنا أكتب هذه السطور 4 أعضاء يشاهدون الموضوع و13 زائرا ( هؤلاء الذين أخبرتك عنهم) لك أن تحتسب الأجر عند الله ولك منا الدعاء -- نرجع للعمل --- قد فهمت كل ما تفضلت به إذن then else = if not تمام لو أحببنا زيادة ارتفاع الكنترولات عن 18 لازم نرفع mytop و نساوى كل ارتفاعات الكنترولات صحيح وقد جربت ذلك و فهمته و الحمد لله جارى مشاهدة الفديو وجزاك الله خيرا

السلام عليكم -- أولا : هذا السطر هناك مشكلة لدى فى فهم الجملة الشرطية If Frame1.ScrollHeight > Frame1.Height Then Else Frame1.SpecialEffect = 0 أقصد هذا الجزء بالتحديد Then Else تعودنا - أو أنا تعودت على الأصح - أن يأتى بعد then جواب الشرط و ليس else فما ترجمة هذا ؟ يعنى متى يكون SpecialEffect = 0 ؟ ---- ثانيا : سؤال عن ارتفاع اللافتة و مربع النص هل هى افتراضية = 20 يعنى لما نطلب بالكود إدراج لافتة فإن ارتفاعها افتراضيا يكون 20 ؟ لأنى لم أجد أى ذكر لهاهنا فى الكود -----

أستاذنا الفاضل جارى دراسة الملف والله يعين تم فهم جزئية كيف نجعل الحاوية مطاطة بهذا السطر Frame1.ScrollHeight = (lcol * MyTop) + MyFrame_Top فما فائدة هذا السطر If Frame1.ScrollHeight > Frame1.Height Then Else Frame1.SpecialEffect = 0 ثانيا لماذا وضعنا هذه المتغيرات هنا Option Explicit Private lcol As Integer Private k As Integer و جزاك الله خيرا

شكرا لتشجيعكم إخوتى الكرام أخى سعد وأخى أمير بارك الله فيكم

شكرا وبارك الله فيك

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