met قام بنشر يناير 3, 2007 قام بنشر يناير 3, 2007 السلام عليكم نرى في الفواتير او الشيكات المبلغ مكتوب بالارقام بالاضافة الى كتابة المبلغ مره اخرى بالكلمات وهذا ما اريده كيف يستطيع برنامج الاكسيس ان يحول الارقام الى كلمات 1 = one 2 = Two 3 = three وقد ارفقت مثالا اوضح فيه طلبي اتمنى ان اجد كل الاهتمام وهو موضوع جميل وشيق وسيتسفيد منه الجميع وأتمنى من كل خبراء الاكسيس في المنتدى المشاركة والسلام عليكم ورحمة الله وبركاته db14.rar
فتى الوادي قام بنشر يناير 3, 2007 قام بنشر يناير 3, 2007 أخي الكريم .. السلام عليكم ... ما تطلبه يسمى ( تفقيط الأرقام ) ... مثال 510 = خمسائة وعشرة ريال .. أتعب نفسك قليللاً وتحمل وابحث في المنتدى وستجد الأمثلة كثيرة إن شاء الله .
met قام بنشر يناير 4, 2007 الكاتب قام بنشر يناير 4, 2007 السلام عليكم ورحمة الله وبركاته اشكرك اخي العزيز على هالمعلومة الجديده صراحة اول مره ادري او اسمع بالاسم الغريب تفقيط الأرقام بحثت كثيرا وطول اليوم بالانترنت ولقيت مواضيع كثيرة واغلبها قديمة وروابط الملفات ملغية وحصلت كودات بس ما ادري شلون استخدمها لو تساعدني في الموضوع او اي حد من الاخوان يساعدني يمكن عنده مثال جيد ومستخدم وانه يكون التحويل باللغة الانجليزية اكون شاكر له اللي انا احتاجة باختصار هو التعديل على الملف المرفق بدون مايكون في حاجة لحفظ التحويل بس يطلع لي في الطباعة على الاقل وعرفت من خلال البحث ان اسم التحويل بالانجليزي nototxt ارفق لكم الملف اللي حصلته للافاده ويمكن حد يقدر يساعدني من خلاله مرفق ملف عربي وملف انجليزي والسلام عليكم ورحمة الله وبركاته code_1_English.txt code2_Arabic.txt
tariq16 قام بنشر يناير 6, 2007 قام بنشر يناير 6, 2007 ياجماعة نفس المشكلة عندى ومن فترة وعند وجود الحل نجد انه لاينطلق على العملة الكويتية والمطلوب احد يعطينا شيك للتفقيط بالعملة الكويتية واكون شاكر له
الدكتور خضر الرجبي قام بنشر يناير 7, 2007 قام بنشر يناير 7, 2007 السلام عليكم اقتران التحويل الذي ارفقته هو مفتاح الحل . الطريقة : يتم وضع الاقتران في وحدة نمطية ، ويتم طلبه من النموذج بالطريقة التالية : Private Sub convert_Click() Dim answer As String answer = NoToTxt(r, "دينار", "فلس") MsgBox answer End Sub ويمكن استعماله لأي عملة سواء كويتية أو غيرها بتغيير الرموز فقط (دينار ، فلس) واليكم المثال التطبيقي : Example_NO_TO_Text_ARABIC_.rar مع الاحترام والتقدير
عادل جلال قام بنشر يناير 7, 2007 قام بنشر يناير 7, 2007 أخوانى السلام عليكم ورحمة الله وبركاته هل من دالة أو كود يعمل العكس بمعنى إذا كتبت الحرف ( غ ) مثلاَ.. فى خلية يظهر رقم فى الخلية المجاورة لها تحياتى
tariq16 قام بنشر يناير 7, 2007 قام بنشر يناير 7, 2007 اخ خضر مشكور على المساعدة واعتقد ان الموضوع بحاجة للتعديل لان المبالغ بالافلاس تصل الى ثلاثة ارقام مثال 100.591 فقط مائة دينار كويتى وخمسمائة و واحد وتسعون فلسا لاغير فقد قام بالتقريب للرقم ولك الشكر
الدكتور خضر الرجبي قام بنشر يناير 7, 2007 قام بنشر يناير 7, 2007 السلام عليكم صدقت أخي طارق ، قمت بالتعديل على الوحدة النمطية ليشمل المطلوب كما يلي : المثال بعد التعديل : Example_NO_TO_Text_ARABIC__update1.rar مع الاحترام والتقدير
tariq16 قام بنشر يناير 7, 2007 قام بنشر يناير 7, 2007 مشكور على اهتمامك وحقيقة انا وجدت التفقيط فى برنامج xls والى الان لااجد له مشابه فى الوورد ، لانى ارغب بطباعة الملفات من الوورد لاحتوائها على بداية ونهاية بالتاريخ . وكذلك رقم وتفقيطه واسم لمورد و عدد الايام من البداية الى النهاية . والحل السحرى الذى ابحث عنه هو فى الوورد او فى الاكسس . واذا تقدر تفيدننى كيفية نقل الكود الخاص بالتفقيط الى الوورد اكون شاكر لك وانا تصفحت المنتدى يمكن ما وجدت المطلوب بسبب قلة المعرفة بالكود او غيره من الاسباب
أبو هادي قام بنشر يناير 7, 2007 قام بنشر يناير 7, 2007 السلام عليكم سعدنا بعودتك أخي خضر والعود أحمد وسررنا برؤية إسمك من جديد وبعد غياب طويل فحمدا لله على السلامة . وكل عام وأنت بخير وأيامك سعيدة . تحياتي .
met قام بنشر يناير 7, 2007 الكاتب قام بنشر يناير 7, 2007 السلام عليكم ورحمة الله وبركاته أ شكر جميع الاخوان اللي تفاعلوا معانا في هذا الموضوع الشيق انا صراحة احتاج النسخة الانجليزية وقمت مسحت النسخة العربية من الموديل بالكامل وحطيت بدالها الانجليزية بس ماضبط الحال عطاني خطا Dim answer As String answer = NoToTxt(r, "دينار", "فلس") MsgBox answer End Sub خطأ تحت كلمة NoToTxt اتمنى من الاخوان انهم يقدمون لنا نسخة انجليزية بالريال بس البرنامج بالشكل هذا ماراح نستفيد منه في نظام الفواتير ولو فيه طريقة ثانية ان القراءة تطلع بشكل تلقائي بدون حاجة للضغط على زر معين من خلال قيام البرنامج بقراءة الرقم وتحويلة الى كلمات حتى على الاقل لو في التقارير لطباعة الفواتير والسلام عليكم ورحمة الله وبركاته
الدكتور خضر الرجبي قام بنشر يناير 8, 2007 قام بنشر يناير 8, 2007 السلام عليكم تحياتي لأخي الكبير أبا هادي وكل عام وانت بخير ، اخي طارق واخي met ، أشكركما وسأحاول بإذن الله تلبية طلبكما قريبا. أخي عادل جلال ، أرجو منك فضلا توضيح طلبك بمثال أكثر وضوحا. مع الاحترام والتقدير
tariq16 قام بنشر يناير 8, 2007 قام بنشر يناير 8, 2007 الله يجزيك الخير ومشكور وماقصرت وانا على احر من الجمر ، بالانتظار
عادل جلال قام بنشر يناير 8, 2007 قام بنشر يناير 8, 2007 الأخ/خضر السلام عليكم ورحمة الله وبركاته علمت من قسم الأكسيل أن الدالة Draw Oval خاصة برسم دائرة فى الخلية إذا كانت للخلية قيمة معينة فإذا كانت الخلية بها حرف ( غ ) فكيف يتم خداع الدالة ورسم دائرة فى هذه الخلية فى هذه الحالة ( ملحوظة حرف غ ثابت لا نستخدم حرف غيره) تحياتى
الدكتور خضر الرجبي قام بنشر يناير 8, 2007 قام بنشر يناير 8, 2007 السلام عليكم الأخ met ، 1. تم في المثال التالي استخدام الوحدة النمطية الخاصة بالتفقيط باللغة العربية وكذلك الانجليزية. 2. في المثال قمت ببناء جدول الموظفين (Employees) المؤلف من اسم الموظف وراتبه والراتب بالكلمات. 3. حقل الراتب بالكلمات لا يتم الادخال فيه من خلال نماذج الادخال لأن التحويل سيتم تقائيا. 4. عملت مثال يقوم بطباعة تقرير الرواتب شاملا اسم الموظف ومرتبه بالأرقام والكلمات طبعا التحويل للكلمات يم تلقائيا من خلال الاقتران (transfer) الذي يمكن وضعه في أي نموذج نحتاج فيه للتحويل. Private Sub Transfer() Me.RecordSource = "Employees" Set rs = Me.Recordset.Clone rs.MoveFirst Do While Not rs.EOF rs.Edit rs.inwords = ConvertCurrencyToEnglish(rs.salary) rs.Update rs.MoveNext Loop rs.Close End Sub 5. لاحظ أن هذا الاقتران يقوم بفتح جدول الموظفين والدوران به لغاية النهاية وحساب الكلمات المقابلة لكل راتب وتخزينها في الجدول. 6. من الطبيعي جدا أن نقوم بطلب هذا الاقتران قبل عملية الطباعة مباشرة وهو ما فعلته في المثال. المثال العملي : Example_NO_TO_Text_English.rar الأخ عادل جلال ، سأحاول إن شاء الله العمل في مطلبك قريبا. مع الاحترام والتقدير
الدكتور خضر الرجبي قام بنشر يناير 9, 2007 قام بنشر يناير 9, 2007 السلام عليكم الأخ طارق ، قمت بتلبية طلبك في المثال التالي وهو تعريف دالة التحويل إلى كلمات في مصنف إكسيل (Excel) والطريقة ليست صعبة . الطريقة : 1. وأنت داخل مصنف الإكسيل تضغط مفتاح Alt+F11 للدخول إلى محرر Visual Basic 2. تظهر مستعرض المشروع (Project Browser) وذلك بضغط Ctrl+R 3. عند الورقة التي يراد تعريف الدالة بها نضغط زر الخيارات للماوس (اليمين) ونختار اضافة Module كما في الرسم الأتي: 4. ندخل إلى الوحدة النمطية المنشئة ونضيف الكود تماما كم هو في أكسيس 5. نرجع إلى ورقة العمل وذلك بالضغط على Alt+Q 6. في المكان المطلوب به التحويل ندرج دالة fx 7. نختار الفئة (معرفة بواسطة المستخدم) وهنا سيظهر لنا الاقتران الذي تم تعريفه وهو NoToTxt كما في الرسم الأتي : 8. نحدد معلمات الاقتران ونضغ موافق كما في الرسم الأتي : وهذا المثال التطبيقي في أكسيل : NoToTxt_ARABIC.rar مع الاحترام والتقدير
الدكتور خضر الرجبي قام بنشر يناير 9, 2007 قام بنشر يناير 9, 2007 أخوانى السلام عليكم ورحمة الله وبركاته هل من دالة أو كود يعمل العكس بمعنى إذا كتبت الحرف ( غ ) مثلاَ.. فى خلية يظهر رقم فى الخلية المجاورة لها تحياتى الأخ/خضرالسلام عليكم ورحمة الله وبركاته علمت من قسم الأكسيل أن الدالة Draw Oval خاصة برسم دائرة فى الخلية إذا كانت للخلية قيمة معينة فإذا كانت الخلية بها حرف ( غ ) فكيف يتم خداع الدالة ورسم دائرة فى هذه الخلية فى هذه الحالة ( ملحوظة حرف غ ثابت لا نستخدم حرف غيره) تحياتى السلام عليكم أخي عادل ارجو التوضيح بشأن هذه الاسئلة ما يأني : 1. هل كل سؤال منفصل عن الأخر أما تقصد بها نفس المسألة ؟ 2. هل الحديث في هذه المسألة في أكسيس أم إكسيل ؟ 3. هل الحديث عن تحويل رقم ( يمثل عملة نقدية معينة) إلى كلمات وهو محور الحديث في هذا الموضوع ويطلق عليه التفقيط أم أنك تود الحديث عن تلوين خلية أو مربع نص إذا انطبقت شروط معينة ؟ مع الاحترام والتقدير
tariq16 قام بنشر يناير 11, 2007 قام بنشر يناير 11, 2007 مشكور ياطويل العمر وبارك الله فيك و راح احاول انقل الفكرة الى الاكسس
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.