اذهب الي المحتوي
أوفيسنا

مساعدة: طريقة كتابة الحروف اتوماتيكياً


الردود الموصى بها

السلام عليكم

اخواني

http://www.up07.com/up7/download.php?filename=06040c101f.jpg

في الصورة أعلاه

عند إدخال العدد (رقماً) اريد ان تكتب في خانة الحروف اتوماتيكيا دون الحاجة للكتابة

وشكرا لكم

ومع تمنياتي لكم بالتوفيق

اخوكم ابو محمد

post-26605-1196625112_thumb.jpg

رابط هذا التعليق
شارك

السلام عليكم

عمل رائع ومميز أخ أبو عبد الله

بارك الله فيك

كنت أقوم بذلك عن طريق الدالة اللوك آب ولكن الكود أميز

حياك الله

رابط هذا التعليق
شارك

أخي العزيز H63

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

تقبل تحياتي

أبو عبدالله

رابط هذا التعليق
شارك

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

وشكرا

تقبل تحياتي

تم تعديل بواسطه أبو محمد 2008
رابط هذا التعليق
شارك

اخي العزيز / masrawy_online

أشكرك جزيل الشكر على مرورك الكريم .

أخي العزيز / أبو محمد

هذا النوع من المعادلات لايعمل إلا بأحدى طريقتين إما أن يكون كود المعادلة موجود بنفس الملف المراد التطبيق عليه أو توسيع مجال الاستفادة والتطبيق من الكود بعمل ملف خاص به من نوع ملفات إكسيل بامتداد add-in ثم وضع الملف في مجلد add-in والذي يكون الوصول إليه من خلال مساره بالشكل التالي C:\Documents and Settings\User\Application Data\Microsoft\AddIns وطبعاً فيما يتعلق بمجلد user فإنه يختلف من جهاز لآخر حسب إسم المستخدم للجهاز إن كان هناك إسم معين للدخول على الجهاز .

والملف المرفق هو الملف الخاص بالمعادلة WriteNo2 والتي استخدمت في الملف الذي أرفقته لك سابقاً وكل ما عليك أن تقوم بفك ضغط الملف المرفق ووضعه في مجلد Addins كما شرحت لك وبذلك ستكون المعادلة متوفرة لك في أي ملف إكسيل وستجدها موجودة ضمن قائمة المعادلة بالإكسيل في مجموعة User Defined وبنفس الإسم WriteNo2 وبذل تستطيع تطبيقها واستخدامها بأي ملف دون الحاجة لوضع الكود الخاص بها بالملف ، وعند تطبيق المعادلة ستجد حقلين في نافذة فتح تطبيق المعادلة الأولى بعنوان No وتضع بها عنوان الخلية التي سيكون بها الرقم المراد تحويله إلأى رقم بالحروف ، والحقل الثاني وعنوانه Sex ويعني صفة الرقم عند كتابته بالحروف من حيث التذكير والتأنيث في اللغة العربية وببساطة لجعل صيغة الرقم مؤنثة كأن تقول على ال 10 عشرة اكتب في حقل Sex الرقم صفر 0 ‘ وإذا رغبت بتذكير صيغة الرقم أي يكون عشر بدل عشرة أكتب في حقل Sex الرقم 1 .

أرجو أن أكون نجحت في توضيح الفكرة .

وتقبل تحياتي

أبو عبدالله

WriteNo2.rar

  • Thanks 1
رابط هذا التعليق
شارك

هذا النوع من المعادلات لايعمل إلا بأحدى طريقتين إما أن يكون كود المعادلة موجود بنفس الملف المراد التطبيق عليه أو توسيع مجال الاستفادة والتطبيق من الكود بعمل ملف خاص به من نوع ملفات إكسيل بامتداد add-in ثم وضع الملف في مجلد add-in والذي يكون الوصول إليه من خلال مساره بالشكل التالي C:\Documents and Settings\User\Application Data\Microsoft\AddIns وطبعاً فيما يتعلق بمجلد user فإنه يختلف من جهاز لآخر حسب إسم المستخدم للجهاز إن كان هناك إسم معين للدخول على الجهاز .

الأخ الكريم أبو عبدالله

السلام عليكم ورحمة الله وبركاته،

فعلاً ملف ومعادلة ممتازة- جزاك الله خيراً.

لقد وضعت الملف في المسار الذي أشرت إليه وفتحت إكسل لم أجد المعادلة كما ذكرت فهل هناك خطأ ما؟

أخيكم محمد عبد الحليم

رابط هذا التعليق
شارك

أخي العزيز محمد عبد الحليم

عفواً فقد فاتني التنبيه على خطوة أخيرة لتفعيل المعادلة بشكل عام بالإكسيل وهي أن تتمم عملية التفعيل من خلال قائمة الوظائف الإضافية بقائمة أدوات قم بتفعيل المعادلة التي سيظهر إسمها بقائمة الوظائف الإضافية بالضغط على صندوق الاختيار وظهور علامة صح ثم موافق هذا إذا كنت تعمل على إكسيل 2003 أما إذا كان 2007 فلابد من إضافة أيقونة ADD-INS لشريط الأدوات QUIICK ACCESS TOOLBAR ومنها تقوم بتفعيل المعادلة بنفس الطريقة حيث ا، قائمة ADD-INS في 2007 هي البديل عن الوظائف الإضافية في 2003 .

أبو عبدالله

رابط هذا التعليق
شارك

أما إذا كان 2007 فلابد من إضافة أيقونة ADD-INS لشريط الأدوات QUIICK ACCESS TOOLBAR ومنها تقوم بتفعيل المعادلة بنفس الطريقة حيث ا، قائمة ADD-INS في 2007 هي البديل عن الوظائف الإضافية في 2003 .

أبو عبدالله

الاخ العزيز اكسيلجي وفقك الله

لم أفهم المقصود في الأقتباس اعلاه ارجو التوضيح بارك الله فيك

وشكرا

تم تعديل بواسطه الصدقي
رابط هذا التعليق
شارك

الأخ الكريم أبو عبدالله

السلام عليكم

أشكرك علي هذه المجهودات العظيمة التي تقوم بها لأجل أرضاء الجميع أتمنى لك التوفيق النجاح دوماً أسأل الله أن يجعل مثواك الجنة

جزاك الله خير

تقبل تحياتي

رابط هذا التعليق
شارك

الأخ الكريم أبو عبدالله

السلام عليكم

أشكرك علي هذه المجهودات العظيمة التي تقوم بها لأجل أرضاء الجميع أتمنى لك التوفيق والنجاح دوماً أسأل الله أن يجعل مثواك الجنة

جزاك الله خير

تقبل تحياتي

تم تعديل بواسطه أبو محمد 2008
رابط هذا التعليق
شارك

أما إذا كان 2007 فلابد من إضافة أيقونة ADD-INS لشريط الأدوات QUIICK ACCESS TOOLBAR ومنها تقوم بتفعيل المعادلة بنفس الطريقة حيث ا، قائمة ADD-INS في 2007 هي البديل عن الوظائف الإضافية في 2003 .

أبو عبدالله

الاخ العزيز اكسيلجي وفقك الله

لم أفهم المقصود في الأقتباس اعلاه ارجو التوضيح بارك الله فيك

وشكرا

للرفع

رابط هذا التعليق
شارك

أخي العزيز

رجاء تحديد نسخة الأوفيس لديك إن كانت 2003 أو 2007 مع تحديد واجهة الإكسيل من حيث كونها إنجليزي أم عربي حتى أستطيع أن أوضح لك الفكرة التي لم تكن واضحة لك بشكل أكثر تفصيلاً .

أبو عبدالله

رابط هذا التعليق
شارك

أخي العزيز

رجاء تحديد نسخة الأوفيس لديك إن كانت 2003 أو 2007 مع تحديد واجهة الإكسيل من حيث كونها إنجليزي أم عربي حتى أستطيع أن أوضح لك الفكرة التي لم تكن واضحة لك بشكل أكثر تفصيلاً .

أبو عبدالله

بارك الله فيك اخي ابو عبدالله

الأوفيس 2007 واجهة عربية

واسأل الله أن يكتب أجرك

تحياتي

الصدقي

رابط هذا التعليق
شارك

أما إذا كان 2007 فلابد من إضافة أيقونة ADD-INS لشريط الأدوات QUIICK ACCESS TOOLBAR ومنها تقوم بتفعيل المعادلة بنفس الطريقة حيث ا، قائمة ADD-INS في 2007 هي البديل عن الوظائف الإضافية في 2003 .

أبو عبدالله

أخي العزيز

على شريط أدوات الوصول السريع وبالضغط على زر الماوس الأيمن تظهر لك قائمة اختر منها تخصيص شريط أدوات الوصول السريع ثم من القائمة المنسدلة اليمنى التي عنوانها اختيار الأوامر من قم باختيار كافة الأوامر - فتسظهر لك بالقائمة أسفلها كافة أوامر الإكسيل ثم إذهب لآخر أوامر بنهاية القائمة واختر الأمر الخامس من أسفل وهو ( وظائف إضافية ) قم بالوقوف عليه ثم قم بالوقوف على الأمر بشرط أدوات الوصول السريع التي تحب إضافة الأمر الجديد بجانبه ثم قم بإضافة الأمر الجديد من زر إضافة الموجود بين القائمتين ثم اضغط موافق .

والآن قد اصبح عندك أمر وظائف إضافية ضمن أوامر شريط أدوات الوصول السريع - إضغط على أيقونة وظائف إضافية فستظهر لك قائمة بكل الوظائف الإضافية المتوفرة قم بتفعيل الوظيفة أو المعادلة WRITENO2 بنقر صندوق التفعيل ( علامة صح ) ثم موافق والمعادلة هي التي قمت سابقاً بإضافة ملفها من نوع ADD-INS كما سبق أن أوضحت وبذلك ستصبح المعادلة موجودة يمكن استخدامها بأي ملف آخر - ولاختيار المعادلة عند الرغبة في استعمالها قم من أيقونة *F ( إدراج دالة ) ومن نافذة تحديد فئة اختر ( معرفة من قبل المستخدم ) فستظهر لك كل المعادلات التي تم تعريفها بأكواد VBA ومنها طبعا ستجد المعادلة WRITENO2 قم باختيارها والباقي سبق شرحه .

أبو عبدالله

تم تعديل بواسطه إكسيلجي
  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information