سوف تلاحظ فتح نافذة جديدة في برنامج الاكسيل وهي (Microsoft Visual Basic)، وعليك أن تقوم بالضغط على الماوس كليم يمين، على اسم المشروع المراد البدء فيه. ومنها سوف تظهر لك قائمة مختصرة ومنها تقوم بالاختيار إلى كلمة (Insert) والضغط عليها. ثم تقوم من خلال القائمة الفرعية على الضغط أيضًا على كلمة (Module)، وذلك من أجل إضافة وحدة برمجية جديدة في برنامج الاكسيل. وهنا سوف يتم الحصول على وحدة برمجية جديدة باسم (Module1) ويمكنك فيها أن تقوم بتحويل الأرقام التي تنتمي لنفس الخانة إلى حروف وكتابة. ومن هنا يمكنكم الاطلاع على: كيفية كتابة مقترح مشروع للجهات المانحة وخطوات إنشاء مقترح مشروع للجهات المانحة تحميل أفضل برنامج تحويل الأرقام إلى حروف باللغة العربية توجد الكثير من البرامج والتطبيقات التي تساعد في تحويل الأرقام إلى حروف باللغة العربية excel والتي تسمح بتحويل الأرقام إلى حروف بشكل تلقائي، وبدون تدل أو الحاجة إلى القيام بالعمليات الصعبة في أنشاء خانات جديدة على الاكسيل. تحويل الأرقام الى حروف في برنامج إكسل (التفقيط في برنامج اكسل) - YouTube. برنامج موبي زووم لتفقيط الأرقام هو أفضل تطبيق للاندرويد، يمكنك تحميله من خلال جوجل بلاي. يتميز البرنامج بأنه يدعم تحويل الأرقام إلى حروف بالعربية والإنجليزية ويمكنك اختيار هذا.
ذكرنا العديد من الطرق المتعددة لمعرفة تحويل الأرقام إلى حروف. تعرفنا على أفضل برامج الأندرويد التي توفر هذه العملية بشكل سهل وبسيط. ذكرنا معلومات عن برنامج ماكرو لتحويل الأرقام إلى حروف.
تحويل الأرقام إلى حروف باللغة الانجليزية في برنامج مايكروسفت Excel في هذه التدوينة سنتعلم كيفية تحويل الأرقام إلى حروف أو ما يسميها البعض تفقيط الأرقام باللغة الانجليزية وذالك بإستعمال VBA في الاكسيل. لا يوجد د وال في برنامج مايكروسفت Excel تقوم بتحويل الأرقام إلى حروف, في هذه التدوين سنقوم ببرمجة دالة بشكل خاص من خلال لغة VBA في الاكسيل. نقوم بملف جديد, ثم نذهب إلى التبويب Developer واضغط على Visual Basic. تحويل الارقام الى حروف. في حالة لم نجد علامة التبويب Developer ظاهرة عندنا كل ما علينا فعله هو توجيه سهم الماوس الى علامات التبويب في الاعلى ثم الضغط على الزر الأيمن في الماوس بعد ذالك نضغط على customize ribbon ونقوم بوضع علامة على Developer. سيتم فتح نافذة Microsoft Visual Basic for Applications ومن القائمة المختصرة نضغط على Insert ثم Module تم اضافة وحدة ماكرو أو برمجية جديدة اسمها Module1 يمكنك تغيير اسمها إذا أردت, للمزيد من دروس البرمجة في الاكسيل, اضغط هنا. في الوحدة البرمجية الجديدة Module1 نقوم بنسخ ولصق الكود التالي داخلها. Function NumberToTextEN(ByVal MyNumber, MainCurrency As String, SubCurrency As String) Dim Number1, Number2, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " MyNumber = Trim(Str(MyNumber)) DecimalPlace = InStr(MyNumber, ". ")
عملية تحويل الأرقام إلى حروف أو ما يسميها البعض عملية التفقيط نحتاجها فى عملنا فى الكثير من المواقف مثل: - عند عمل فاتورة وكتابة اجمالى مبلغ الفاتورة بالأرقام والحروف. تحويل الأرقام إلى حروف بالفرنسية. - عند عمل شيك وكتابة مبلغ الشيك بالأرقام والحروف. برنامج Excel يحتوى على الكثير من الدوال التى تسهل عليك العمل, مثلا دالة SUM لحساب المجموع, و دالة COUNT لحساب عدد الخلايا التى تحتوى على أرقام, و دالة MAX لحساب أكبر قيمة.... وهكذا لكن للأسف لا يوجد دالة جاهزة فى برنامج Excel تقوم بتحويل الأرقام إلى حروف, لذا عليك بعمل هذه الدالة بنفسك, ولعمل دالة مخصصة لابد من كتابة كود VBA وهذا ما سنقوم بتعلمه فى هذا الدرس. افتح ملف Excel جديد ثم اذهب إلى التبويب Developer واضغط على Visual Basic سيتم فتح نافذة Microsoft Visual Basic قم الأن بالضغط بزر الماوس الأيمن على اسم المشروع, ستظهر قائمة مختصرة قم بالوقوف على الاختيار Insert ومن القائمة الفرعية قم بالضغط على Module لاضافة وحدة برمجية جديدة.
مثال 1 مثال 2 مثال 3 مثال 4 مثال 5 ملحوظة: قم بحفظ الملف على صيغة Excel Macro-Enabled Workbook لأنه يحتوى على كود VBA
في الشكل التالي استخدمنا دالة ConvertNumberToWords2 في الشكل التالي استخدمنا دالة ConvertNumberToWords3 ملحوظة هامة: قم بحفظ الملف على صيغة Excel Macro-Enabled Workbook لأنه يحتوى على كود مكتوب بلغة VBA
GetTens = Result ' Converts a number from 1 to 9 into text. Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" قم بلصق أسطر التعليمات البرمجية إلى المربع الوحدة النمطية 1 (تعليمة برمجية). اضغط علي Alt + Q ل# العوده الي Excel. الداله سبيلنومبير جاهز الان ل# استخدام. ملاحظة: تعمل هذه الداله ل# المصنف الحالي فقط. ل# استخدام هذه الداله في مصنف اخر، يجب تكرار الخطوات الخاصه ب# نسخ و# لصق التعليمه البرمجيه في هذا المصنف. أعلى الصفحة استخدام الدالة SpellNumber في خلايا فردية اكتب الصيغه = سبيلنومبير ( A1) في الخليه حيث تريد عرض رقم مكتوبه، حيث يتم A1 الخليه التي تحتوي علي الرقم الذي تريد تحويله. تحويل الأرقام إلى حروف باللغة العربية excel. يمكنك ايضا يدويا كتابه القيمه مثل = SpellNumber(22. 50). اضغط علي Enter ل# تاكيد الصيغه. حفظ مصنف الدالة SpellNumber لا يستطيع Excel حفظ مصنف ب# استخدام دالات الماكرو في تنسيق المصنف ماكرو قياسيه ().
هكذا هي الحياة يا لها من مكتبة عظيمة النفع ونتمنى استمرارها أدعمنا بالتبرع بمبلغ بسيط لنتمكن من تغطية التكاليف والاستمرار أضف مراجعة على "هكذا هي الحياة" أضف اقتباس من "هكذا هي الحياة" المؤلف: محمد عبدالمعين غنوم الأقتباس هو النقل الحرفي من المصدر ولا يزيد عن عشرة أسطر قيِّم "هكذا هي الحياة" بلّغ عن الكتاب البلاغ تفاصيل البلاغ جاري الإعداد...
المنسي الاعضاء #1 السلام عليكم ورحمة الله وبركاته مسائكم / صباحكم رآقي كقلوبكم / \ / في هذي الحياة مررنا بظروف جعلتنا شئ وتعلمنا اشياء رغم قسوتهااا وهكذا الحياة دروس و تجارب! صادفنا في حياتنا اشخاص اعتقدنا انهم افضل الاشخاص وانهم لن يتخلو عنا في اصعب الظروف و لكن اخطأنااا ولم نصب في اختيارنا وهكذا هي الحياة وقليل من هم الأوفياء! صادفنا اشخاص يحملون قلوبنا حقاده رغم ان الشخص اذا وضع مكانه في مكان هذا المحسود الذي حسده لما كان هناك حقد وهكذا هي الحياة وقليل من هم الاوفياء! صادفنا في حايتنا اشخاص اوفياء بحق لكن البعد اوالرحيل حال بيننا وبينهم وهكذا هي الحياة وقليل من هم الاوفياء! صادفنا ابناء رمو بـ ابائهم في الشارع وتركوهم بلا عنايه وهكذا هي الحياة وقليل من هم الاوفياء! صادفنا من قطع الارحام وتخلى عن الاهل والخلان وهكذا هي الحياة وقليل هم الاوفياء! صادفنا الكثير من التغيرات وراينا اشخاص خانو الامانه التي وكلو بها وباعو ضمائرهم وقبضو الثمن والنتيجه كانت على حساب الكثير من الاروح والممتلكات وهكذا هي الحياة وقليل من هم الاوفياء! واخيرا راينا احاطة الاعداء من كل حدب للأمه العربيه والسبب تفكك الامه العربيه وضعفها بسبب قلة الدين والبعد عن حكم الشرعيه الاسلاميه وهكذا هي الحياة وقليل من هم الاوفياء!
أما البعض الآخر سيتعامل مع المشاكل بسلبية حيث سيُعزي أسباب المتاعب إلى الآخرين ويلعن حَظه ألف مرة وسَيبقى بَرِماً في الحياة حتى في لحظات الفرح لن تجده سعيداً لأنه اتخذ الحزن لِباساً له. يبقى هذا الصنف في خصام دائم مع نفسه وكذلك مع الآخرين. هذا النوع لماماً ما يفرح لذلك تشعر أن هنالك ُنفورٌ منه. نحن لا ندري ما تخبئه الأقدار لنا، لذلك يجب أن تغتنم كل لحظات الفرح ونعززها حتى تكون دعامة لنا في العسرة.
كشف الرئيس الأوكراني فولوديمير زيلينسكي أنه كان على وشك الوقوع في قبضة القوات الروسية، في الساعات الأولى من الهجوم الذي شنته على بلاده في 24 فبراير الماضي. وقال زيلينسكي في مقابلة مع مجلة "تايم" الأميركية، إن القوات الروسية الغازية اقتربت من القبض عليه أو حتى اغتياله هو وعائلته، أثناء محاولة السيطرة على الحي الحكومي في كييف باليوم الأول من الحرب. وكان الرئيس الأوكراني وقتها في المجمع الرئاسي في كييف مع عائلته، وفقا لروايته. وقال في حديثه للمجلة، إنه بعد أن بدأ الهجوم ذهب هو وزوجته ليخبرا ابنتهما (17 عاما) وابنهما (9 أعوام) بالاستعداد للفرار من منزلهم. وتابع: "أيقظناهما. الأصوات كانت عالية. كانت هناك انفجارات" في كييف فجر 24 فبراير. وفي مقابلة أخرى مع "تايم"، قال رئيس الأركان في الجيش الأوكراني أندري يرماك، إن زيلينسكي تلقى بلاغا من الجيش مفاده أن فرقة روسية قفزت بالمظلات في كييف لقتله هو وعائلته أو القبض عليهم. وتابع يرماك: "قبل هذه الليلة، لم نشاهد مثل هذه الأحداث إلا في الأفلام". وقالت المجلة إن معارك بالأسلحة النارية اندلعت قرب الحي الحكومي مع حلول ليل اليوم الأول من الحرب، وأغلق الحراس أنوار المجمع الرئاسي في الحي، وجلبوا سترات واقية من الرصاص وبنادق هجومية لزيلينسكي و12 من مساعديه.