ياسر خليل أبو البراء قام بنشر فبراير 17, 2016 قام بنشر فبراير 17, 2016 السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم اليوم موضوع خفيف جداً .. والموضوع هو كيفية جعل النص في أداة العنوان Label يظهر بشكل رأسي (كنوع من الترفيه ليس أكثر) إليكم الكود المستخدم في الملف المرفق مع الشرح المبسط لأسطر الكود .. ليتسنى لكم التعرف على الأكواد بشكل أفضل Private Sub UserForm_Initialize() 'تعريف المتغير من النوع النصي Dim Word As String 'تعريف متغير من النوع عدد صحيح Dim I As Integer '[Label] تعيين عنوان لأداة الـ Label1.Caption = "YasserKhalil" 'حلقة تكرارية من الرقم 1 إلى طول السلسلة النصية للأداة For I = 1 To Len(Label1) 'يساوي قيمة المتغير نفسه زائد [Word] المتغير النصي المسمى 'حيث يتم استخراج حروف الكلمة [Mid] الحرف الذي يتم استخراجه باستخدام الدالة 'مع كل حلقة تكرارية يتم التعامل مع حرف واحد فقط في كل مرة 'بمثابة الضغط على إنتر للانتقال لسطر جديد [Chr(13)] زائد الدالة '[Vertical] بالتالي يتحقق الهدف من الكود وهو جعل النص يظهر بشكل رأسي Word = Word & Mid(Label1, I, 1) & Chr(13) 'الانتقال للحرف التالي Next I 'ليكون العنوان الجديد للأداة [Word] تعيين المتغير المسمى Label1 = Word End Sub يوضع الكود في حدث الفورم ...ويعمل عند بدء تشغيل الفورم وإليكم الملف المرفق التالي فيه تطبيق للكود حمل الملف من هنا ولا تنسونا بصالح الدعاء تقبلوا وافر تقديري واحترامي 6
سليم حاصبيا قام بنشر فبراير 17, 2016 قام بنشر فبراير 17, 2016 اكثر من رائع و لكن كيف التعامل معه باللغة العربية اعنقد انه يجب استعمال Text Direction لهذا الغرض 1
ياسر خليل أبو البراء قام بنشر فبراير 17, 2016 الكاتب قام بنشر فبراير 17, 2016 الأروع هو مرورك العطر بالموضوع أخي الغالي سليم الملف يمكن التعامل معه باللغة العربية بدون مشاكل .. قم باستبدال كلمة YasserKhalil بالاسم باللغة العربية "سليم حاصبيا" وشوف النتيجة بنفسك تقبل تحياتي
عبد العزيز البسكري قام بنشر فبراير 17, 2016 قام بنشر فبراير 17, 2016 السّلام عليكم و رحمة الله و بركاته بارك الله فيك أستاذنا القدير ياسر خليل أبو البراء على الهديّة الرّائعة جزاك الله خيرًا وزادها بميزان حسناتك 1
ياسر العربى قام بنشر فبراير 17, 2016 قام بنشر فبراير 17, 2016 الرخم وصل عمل جميل بس احط التاتش الترفيهي وانا اتعب نفسي ليه بص للمرفق من غير كود Label Vertical Text YasserKhalil.rar 4
ياسر خليل أبو البراء قام بنشر فبراير 17, 2016 الكاتب قام بنشر فبراير 17, 2016 أخي الحبيب عبد العزيز جزيت خيراً على مرورك العطر بالموضوع وبارك الله فيك على كلماتك الطيبة والمشجعة أخي الغالي ياسر العربي جزيت خيراً على مرورك الرخم والعطر بالموضوع .. وبسم الله ما شاء الله بدون أكواد (حسستني إنك اخترعت الذرة) . رخامة برخامة هقول الناس إنت عملت ايه عشان يظهر بالشكل دا بدون كود ..كتبت حرف وبعدين Shift + Enter وبعدين حرف وبعديها Shift + Enter و بعدين حرف ...إلخ إلخ بس بصراحة عجبني التاتش .. هل التاتش له علاقة بالماتش اللي اتفرجت عليه؟ تقبل وافر تقديري واحترامي 2
أبوبسمله قام بنشر فبراير 17, 2016 قام بنشر فبراير 17, 2016 تاكش رائع جزاكم الله خيرا ضحكتونى قبل ما انا تصبحوا على خير اراكم غدا ان شاء الله بصحه وسلام من الله عز وجل 2
ياسر العربى قام بنشر فبراير 17, 2016 قام بنشر فبراير 17, 2016 11 دقائق مضت, ياسر خليل أبو البراء said: هل التاتش له علاقة بالماتش اللي اتفرجت عليه؟ اسكت بقي متفكرنيش ابو صلاح كان عامل شوية شغل عاليين وجاب راموس ومارسيلو الارض بس النصيب بقي 1
سليم حاصبيا قام بنشر فبراير 18, 2016 قام بنشر فبراير 18, 2016 نفس الشيء لكن بالمعادلة التالية: =IF(ROWS($A$1:A1)>LEN($A$1),"",MID($A$1,ROWS($A$1:A1),1)) بالنسبة للكود ما رأيك اخي ياسر ان نجعل المستخدم يختار الكلمة بذاته من خلال هذا السطر مثلاً Label1.Caption = cells(1,1).value
ياسر خليل أبو البراء قام بنشر فبراير 18, 2016 الكاتب قام بنشر فبراير 18, 2016 أخي الكريم سليم لم أفهم دور المعادلة في الموضوع .. بالنسبة لسطر الكود إضافة جيدة حتى يكون هناك مرونة ..عموماً اللعب بالأكواد متاح للجميع ، يمكنك الإضافة والتعديل والابتكار والإبداع (كل يدلي بدلوه .. ما عدا ياسر العربي عشان دلوه فاضي ) 1
أبوبسمله قام بنشر فبراير 18, 2016 قام بنشر فبراير 18, 2016 2 ساعات مضت, سليم حاصبيا said: نفس الشيء لكن بالمعادلة التالية: =IF(ROWS($A$1:A1)>LEN($A$1),"",MID($A$1,ROWS($A$1:A1),1)) بالنسبة للكود ما رأيك اخي ياسر ان نجعل المستخدم يختار الكلمة بذاته من خلال هذا السطر مثلاً Label1.Caption = cells(1,1).value اخى سليم ممكن مثال للتوضيح لكى نفهم المعادله وزياده من كرمك اضافة تعديل الكود وشرح ما تم تعديله لكى افهم واعرف كيف يتم التعديل ونحاول بعد كده وجزاكم الله خيرا
سليم حاصبيا قام بنشر فبراير 18, 2016 قام بنشر فبراير 18, 2016 (معدل) نفضل اخي هذا مثال مرفق اما بالنسبة للكود يصبح هكذا (يجب ةضغ الكلمة المطلوبة في الخلية A1) Private Sub UserForm_Initialize() 'تعريف المتغير من النوع النصي Dim Word As String 'تعريف متغير من النوع عدد صحيح Dim I As Integer '[Label] تعيين عنوان لأداة الـ Label1.Caption = Cells(1, 1).Value 'حلقة تكرارية من الرقم 1 إلى طول السلسلة النصية للأداة For I = 1 To Len(Label1) 'يساوي قيمة المتغير نفسه زائد [Word] المتغير النصي المسمى 'حيث يتم استخراج حروف الكلمة [Mid] الحرف الذي يتم استخراجه باستخدام الدالة 'مع كل حلقة تكرارية يتم التعامل مع حرف واحد فقط في كل مرة 'بمثابة الضغط على إنتر للانتقال لسطر جديد [Chr(13)] زائد الدالة '[Vertical] بالتالي يتحقق الهدف من الكود وهو جعل النص يظهر بشكل رأسي Word = Word & Mid(Label1, I, 1) & Chr(13) 'الانتقال للحرف التالي Next I 'ليكون العنوان الجديد للأداة [Word] تعيين المتغير المسمى Label1 = Word End Sub Book1.rar تم تعديل فبراير 18, 2016 بواسطه سليم حاصبيا 1
ياسر خليل أبو البراء قام بنشر فبراير 18, 2016 الكاتب قام بنشر فبراير 18, 2016 بارك الله فيك أخي الحبيب سليم على الإضافة الرائعة تقبل فائق تقديري واحترامي
أبوبسمله قام بنشر فبراير 18, 2016 قام بنشر فبراير 18, 2016 جزاك الله خيرا اخى سليم بالتوفيق اخوانى الافاضل بارككم الله
ياسر خليل أبو البراء قام بنشر مارس 12, 2016 الكاتب قام بنشر مارس 12, 2016 وجزيت خيراً أخي الحبيب أحمد .. مشكور على دعائك الطيب ومتابعتك المستمرة للموضوعات المختلفة
محمد علي الطيب قام بنشر مارس 12, 2016 قام بنشر مارس 12, 2016 الاخ والاستاذ ياسر خليل أبو البراء تحية طيبة عمل رائع من استاذ
ياسر خليل أبو البراء قام بنشر مارس 12, 2016 الكاتب قام بنشر مارس 12, 2016 مشكور على مرورك الطيب والعطر أخي الطيب محمد علي الطيب
arsalanamin2 قام بنشر ديسمبر 24, 2017 قام بنشر ديسمبر 24, 2017 في 2/18/2016 at 13:29, سليم حاصبيا said: نفضل اخي هذا مثال مرفق اما بالنسبة للكود يصبح هكذا (يجب ةضغ الكلمة المطلوبة في الخلية A1) Private Sub UserForm_Initialize() 'تعريف المتغير من النوع النصي Dim Word As String 'تعريف متغير من النوع عدد صحيح Dim I As Integer '[Label] تعيين عنوان لأداة الـ Label1.Caption = Cells(1, 1).Value 'حلقة تكرارية من الرقم 1 إلى طول السلسلة النصية للأداة For I = 1 To Len(Label1) 'يساوي قيمة المتغير نفسه زائد [Word] المتغير النصي المسمى 'حيث يتم استخراج حروف الكلمة [Mid] الحرف الذي يتم استخراجه باستخدام الدالة 'مع كل حلقة تكرارية يتم التعامل مع حرف واحد فقط في كل مرة 'بمثابة الضغط على إنتر للانتقال لسطر جديد [Chr(13)] زائد الدالة '[Vertical] بالتالي يتحقق الهدف من الكود وهو جعل النص يظهر بشكل رأسي Word = Word & Mid(Label1, I, 1) & Chr(13) 'الانتقال للحرف التالي Next I 'ليكون العنوان الجديد للأداة [Word] تعيين المتغير المسمى Label1 = Word End Sub Book1.rar
أ / محمد صالح قام بنشر ديسمبر 24, 2017 قام بنشر ديسمبر 24, 2017 ما شاء الله ربنا يبارك فيكم جميعا أحبتي في الله رغم إن مشاركتي متأخرة لكن أبا البراء يعرف مكانته في قلبي هدية رائعة وخفيفة الدم مثل مبتكرها والآن هذا دور دلوي أحول الحوار لمسابقة لعكس اتجاه الكتابة من أسفل إلى أعلى ورونا ابداعاتكم
سليم حاصبيا قام بنشر ديسمبر 24, 2017 قام بنشر ديسمبر 24, 2017 49 دقائق مضت, أ / محمد صالح said: ما شاء الله ربنا يبارك فيكم جميعا أحبتي في الله رغم إن مشاركتي متأخرة لكن أبا البراء يعرف مكانته في قلبي هدية رائعة وخفيفة الدم مثل مبتكرها والآن هذا دور دلوي أحول الحوار لمسابقة لعكس اتجاه الكتابة من أسفل إلى أعلى ورونا ابداعاتكم استاذ محمد لك ما تريد لكن بالمعادلات في الصفحة وليس اليوزر فورم بالنسبة لليوزر فورم يكفي ان تعكس الحلقة التكرايرة لتصبح هكذا For I = Len(Label1) To 1 Step -1 reverse text.rar
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.