ترحيل البيانات بحسب نوع اللغة

[ابوالزوز]

السلام عليكم ..

أخواني الأعزاء لدي طلب يتعلق بترحيل البيانات من الفورم إلى الورقة بحسب نوع اللغة المكتوبة

والملف المرفق يوضح المطلوب بشكل أفضل

فهل يمكن المساعدة في ذلك مع الشكر الجزيل

Abuzzouz.rar

[هشام شلبى]

السلام عليكم

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

تفضل المرفق

وان شاء الله فى الصباح ساحاول التعديل على الكود ثانيا

يوزر فورم ترحيل الى نفس الصفحة1.rar

[ابوالزوز]

السلام عليكم ..

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

مربع نص واحد يتم الترحيل منه إلى أحد خانتين في الورقة بحسب نوع اللغة وهنا بيت القصيد.

شكراً لك مرة أخرى أخي العزيز

[ابوالزوز]

للرفع

[عبدالله باقشير]

السلام عليكم

يمكنك استخدام الكود التالي:

Private Sub Button_Click()

If TextBox = "" Then

    MsgBox "فارغ"

Else

    If Asc(UCase(TextBox)) >= 65 And Asc(UCase(TextBox)) <= 90 Then

        Range("C4") = TextBox.Value

    Else

        Range("B4") = TextBox.Value

    End If

End If

End Sub

Abuzzouz.rar

[هشام شلبى]

السلام عليكم

عالمنا الجليل رائع

لكن ما فهمته من الكود ان ( >= 65 و >= 90 ) هو الدال على الحروف الانجليزية محتاجه توضيح لو وقتك يسمح

تحياتى

تم تعديل فبراير 23, 2010 بواسطه bosh

[ابوالزوز]

السلام عليكم..

لا أدري ماذا أقول أخي وأستاذي العزيز خبور لأعبر لك عن امتناني الشديد لمجهودك وحرصك دائماً

على تقديم كل هو مفيد وجديد للمنتدى بشكل عام ولي بشكل خاص

جزاك الله كل خير ورزقك الجنة بغير حساب

تقبل تحياتي

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل / هشام ------حفظه الله

الكود ان ( >= 65 و >= 90 ) هو الدال على الحروف الانجليزية محتاجه توضيح لو وقتك يسمح

دي ارقام رموز الحروف الكبييرة الانجليزية

شاهد الصورة:

ويتم تحويل جميع الحروف المكتوبة بالانجليزية في التاكست الى حروف كبيرة باستخدام

UCase(TextBox)

ليتعرف عليها الكود

===================================

الاخ الفاضل / abuzzouz------حفظه الله

اكرمك الله واثابك بمثل دعائك اضعاف مضاعفة

تقبلا تحياتي وشكري

[هشام شلبى]

السلام عليكم

اشكرك عالمنا الجليل على حسن خلقك

شكرا الفكرة وصلت

لى طلب اخير ارسلته لك على الخاص اتمنى ان تراه

[أبوعبد الله]

أخي الحبيب / خبور خير

هذا هو شغل المحترفين ، اثابك الله من الجنان أعلاها ورفع قدرك وبارك في علمك ونفعك به والمسلمين .

مع حبي وتقديري

أخوك أبو عبدالله

[عبدالله باقشير]

السلام عليكم

الاخ الحبيب/ ابو عبدالله ------حفظه الله

اكرمك الله في الدارين واثابك بدعائك اضعاف مضاعفة

تقبل تحياتي وشكري

[محمدي عبد السميع]

جزاك الله كل خير

وبارك لك ايها العالم الكبير