إستخراخ الأرقام Function LetterOut(rng As Range) Dim i As Integer For i = 1 To Len(rng) Select Case Asc (Mid(rng.Value, i, 1)) Case 0 To 64, 123 To 197 LetterOut = LetterOut & Mid(rng.Value, i, 1) End Select Next i End Function
لو النص والرقم في خلية واحدة والنص متكون من كلمتين بينهم مسافة كيف أفصل بين االنص والرقم بدون ما تختفي المسافة لأنه لما جربت طريقة الفيديو كان في نص مكتوب في الخلية النص هو (حاتم رضا) وكان بعد النص أرقام فلما فصلت النص عن الرقم طلع النص بهذا الشكل(حاتمرضا) هل هناك حل للمشكلة هذه أرجو الإفادة وشكرا ملاحضة: لا أستطيع استخدام الفلاش فيل لأني الإكسل حقي قديم
محمد حلمي مشكور استاذنا ولكن هناك مشكلة اخريأن الخلية مكتوبة هكذا 200,000,000 كيف افصل علامة الالاف من هذا الرقم مع ملاحظة ان هذا ليس من خصائص الفورمات للارقام ومكتوب يدويا
هذه دالة معرفة تحتاج أن تكتب الكود في محرر الأكواد ثم بعد ذلك ستجدها تعمل ثم 2013 به ميزة Flash Fill وستوصلك لنفس النتيجة ua-cam.com/video/MOIJFsSLPAQ/v-deo.html
إستخراج الحروف Function NumberOut(rng As Range) Dim i As Integer For i = 1 To Len(rng) Select Case Asc (Mid(rng.Value, i, 1)) Case 0 To 64, 123 To 197 Case Else NumberOut = NumberOut & _ Mid(rng.Value, i, 1) End Select Next i End Function
ا محمد حلمى جزاكم الله خير هل انا اضيف الدالة على اكسل 2007 مرة واحدة وهى اصبحت موجود ولا كل شيت بعمل فيه نفس الخطوات ..... انا عملتها لكن لما قفلت الشيت وفتحت شيت تانى لقيتها مش موجودة هل المفروض انى بضيفها فى كل مرة ...... شكرا
هنا تجد الطريقه حفظ الأكواد في مصنف الماكرو الشخصي viaexcel.com/ar/%D9%85%D8%B5%D9%86%D9%81-%D8%A7%D9%84%D9%85%D8%A7%D9%83%D8%B1%D9%88-%D8%A7%D9%84%D8%B4%D8%AE%D8%B5%D9%8A/
في ظل تطور أدوات أكسل أصبح لديك أدوات أخرى ايضا سهلة في هذا الموضوع فمثلا من أول إصدار 2013 ظهرت أداة Flash Fill ايضا Power Query به دالة تمكن من هذا الأمر وعموما الكود يمكن تطويره لاستخراج ماتريده إن شاء الله وهذا الكود مصدره الأصلي كتاب سأذكر اسمه في تعليق تالي
جزاكم الله خير .... الكود شغال للغة الانجليزية فقط لكن العربي لاء ...... وكمان لازم النص الانجليزي يكون متصل بدون مساقات فاصله بين الكلمات وبعضها وبين الكلمات والاحرف ؟!!! هل من تعديل وشكرا جزيلا على مجهود حضرتك
هل المشكلة وجود مسافات زائدة أم أشياء لا تقبل الطابعة لو الأولى فالحل في دالة TRIM ولو الثانية فالحل في دالة CLEAN ولو لم تحل المشكلة فأرسل لي الملف على هذه الصفحة facebook.com/MohamedHelmyoffical/?modal=admin_todo_tour
نسخ العامود بالكامل يمكنك بأكثر من طريقة منها تحديد العامود بالكامل ثم النسخ علما بأن البيانات إذ لم تكن في كافة العامود فلا تنسخ العامود بالكامل حتى لايكون هذا الإجراء ثقيل على الحاسب يمكنك نسخ كل البيانات من خلال الوقوف على أول بيان ثم الضغط على Ctrl+Shift+سهم لأسفل ثم النسخ
لربنا يحفظك و يزيدك من فضله و علمه. احبك فى الله
أحبك الذي أحببتني فيه
الله يابرك في عمرك وصحتك يا م / محمد
اسم الكتاب المنقول منه الكود :
Microsoft Excel
Functions & Formulas
Bernd Held
جزاكم الله خيرا و بارك الله فيكم علمنا الله واياكم ما ينفعنا و نفعنا الله واياكم بما علمنا .
بس انا مش فاهم الجزء الخاص باضافة الحروف في المعادلة حضرتك حددته داخل الخلية ولاكتبته يدوي
شكراً جزيلا وقضى الله حوائجكم وشكراً على إدراج الدالة
رائع جدا . درس مميز و مفيد و إحترافي بارك الله فيك
شكرا جزيلا
علما بأن الكود أن ناقل له فقط
مشكور أستاذ محمد. كيف يمكن فصل تاريخ مع توقيت عن بعضهما مثلا (29/10/2018 9:26)
يمكن من خلال دالة
mod
و
int
أ الفاضل دزاك الله خيرا، انا عايز أستدعي الداله فى أى ملف، أى تكون فعاله عند استدعائها فى أى ملف آخر تماما مثل الدوال الأساسيه. ماذا أفعل
إستخراخ الأرقام
Function LetterOut(rng As Range)
Dim i As Integer
For i = 1 To Len(rng)
Select Case Asc (Mid(rng.Value, i, 1))
Case 0 To 64, 123 To 197
LetterOut = LetterOut & Mid(rng.Value, i, 1)
End Select
Next i
End Function
الدالة تثبتت بشكل صحيح لكن لا تعمل لدي اكسيل2016
مظبططش معايا
@@haithamghazaly172 ممكن عينة من البيانات لديك
بارك الله فيك وفي مجهودك
شكراً جزيلا ربنا يبارك لــــــــــــــــــــك🙏
شكرا ليك جدا يا فندم والله ربنا يجازيك خير يارب
بارك الله فيك وزادك علما
شكرا جزيلا على المعلومة الرائعة
وأشكرا أيضا على إدراج الدالة
وإياكم
علما بأني ناقل لها فقط
لو النص والرقم في خلية واحدة والنص متكون من كلمتين بينهم مسافة كيف أفصل بين االنص والرقم بدون ما تختفي المسافة لأنه لما جربت طريقة الفيديو كان في نص مكتوب في الخلية النص هو (حاتم رضا) وكان بعد النص أرقام فلما فصلت النص عن الرقم طلع النص بهذا الشكل(حاتمرضا) هل هناك حل للمشكلة هذه أرجو الإفادة وشكرا
ملاحضة: لا أستطيع استخدام الفلاش فيل لأني الإكسل حقي قديم
جميل جدا اجربها بكرة ان شاء الله
متشكر يا اخي والله اني دائم التعب بسبب هذا الموضوع
افادتني وشكرا
Karam Desouqi الحمد لله
محمد حلمي مشكور استاذنا ولكن هناك مشكلة اخريأن الخلية مكتوبة هكذا
200,000,000
كيف افصل علامة الالاف من هذا الرقم
مع ملاحظة ان هذا ليس من خصائص الفورمات للارقام ومكتوب يدويا
+Karam Desouqi غير تنسيق الرقم إلى عام
أستاذ محمد بارك الله فيك
هل يوجد دالة لاستخراج الاحداثيات فقط
ممكن توضيح أكثر
بارك الله فيك وجزاك خيراً شرح ممتاز ومجهود رائع
وإياك أخي إسلام
السلام عليكم اخ محمد
هل توجد طريقة لجمع الخلايا التي تحتوي على رقم ونص من غير فصل بعضهم يعني يكون الناتج في نهاية الخلايا جمع الرقم والنص مثلا لتر
+od ai وعليكم السلام ورحمة الله وبركاته تعم أخي الكريم موجودة وإن شاء الله نعمل لها مقطع وسأرسل لك رابط ملف موجود فيه الفكرة
شكـــــــــــــــــــــــــرا جزيلا
مشكور حبيبنا الدالة عملت زي الفل
روعه الشرح تسلم اخي محمد
طب لو سمحت يااستاذنا انا شغال على اكسيل ٢٠١٣وعايز افصل الارقام عن الحروف بس المعادله دي مش شغاله
هذه دالة معرفة تحتاج أن تكتب الكود في محرر الأكواد ثم بعد ذلك ستجدها تعمل
ثم 2013 به ميزة Flash Fill وستوصلك لنفس النتيجة
ua-cam.com/video/MOIJFsSLPAQ/v-deo.html
شاكر لكم يا سيدي
العفو
هل بالامكان فصل الارقام عن بعض مثلا الارقام الذين في الجهة اليمنى تنفصل عن الارقام التي في الجهة اليسرى وشكرا
ممكن وإن شاء الله بالتعليق التالي الصيغة
إستخراج الحروف
Function NumberOut(rng As Range)
Dim i As Integer
For i = 1 To Len(rng)
Select Case Asc (Mid(rng.Value, i, 1))
Case 0 To 64, 123 To 197
Case Else
NumberOut = NumberOut & _
Mid(rng.Value, i, 1)
End Select
Next i
End Function
محمد حلمي
🌹
كيف انسخ المعادلة
ا محمد حلمى
جزاكم الله خير
هل انا اضيف الدالة على اكسل 2007 مرة واحدة وهى اصبحت موجود ولا كل شيت بعمل فيه نفس الخطوات ..... انا عملتها لكن لما قفلت الشيت وفتحت شيت تانى لقيتها مش موجودة هل المفروض انى بضيفها فى كل مرة ...... شكرا
وإياك أخي محمود
الدالة المعرفة تعمل معك في إي صفحة من صفحات الملف ولاتحتاج لتكرار مع كل صفحة
ما شاء الله كود ولا أروع - نعم أخي لابد من وضع الكود في كل ملف مختلف وليس شيت .
هنا تجد الطريقه
حفظ الأكواد في مصنف الماكرو الشخصي
viaexcel.com/ar/%D9%85%D8%B5%D9%86%D9%81-%D8%A7%D9%84%D9%85%D8%A7%D9%83%D8%B1%D9%88-%D8%A7%D9%84%D8%B4%D8%AE%D8%B5%D9%8A/
لو سمحت محتاج احفظ الدالات علي الكمبيوتر وتكون موجوده دايما لما اخرج من الملف وادخل في اي ملف تاني لا توجد الداله وشكرا
كيفيه تجميع الارقام بعد الفصل
الارقام ما تجمع تلقائي
الاداه حلوه جدا الله يديك العافيه بس مش بتشتغل علي نصوص عربي
في ظل تطور أدوات أكسل أصبح لديك أدوات أخرى ايضا سهلة في هذا الموضوع
فمثلا من أول إصدار 2013 ظهرت أداة
Flash Fill
ايضا
Power Query
به دالة تمكن من هذا الأمر
وعموما الكود يمكن تطويره لاستخراج ماتريده إن شاء الله
وهذا الكود مصدره الأصلي كتاب سأذكر اسمه في تعليق تالي
جزاك الله خير ومشكوووووووووووور
وإياك مع العلم أن الكود منقول
جزاكم الله خير .... الكود شغال للغة الانجليزية فقط لكن العربي لاء ...... وكمان لازم النص الانجليزي يكون متصل بدون مساقات فاصله بين الكلمات وبعضها وبين الكلمات والاحرف ؟!!! هل من تعديل وشكرا جزيلا على مجهود حضرتك
اذا احتوت الخلية على اسم ثلاثي مع رقم او اي ثلاث كلمات تستخرج ملتصقة الحروف اي بدون مسافة تفصلهم ، هل من تعديل ؟؟؟؟
ممكن نسمع هذا المقطع
ua-cam.com/video/MOIJFsSLPAQ/v-deo.html
مشكور على الفيديو أخي عندي مشكل في تنسيق مع حروف بالأجنبية حيث تبتعد عن بعضهه مث ( 1,80م 0,80Xم 0,75Xم)
هل المشكلة وجود مسافات زائدة أم أشياء لا تقبل الطابعة
لو الأولى فالحل في دالة TRIM
ولو الثانية فالحل في دالة CLEAN
ولو لم تحل المشكلة فأرسل لي الملف على هذه الصفحة
facebook.com/MohamedHelmyoffical/?modal=admin_todo_tour
لما عملتها عملت على الشيت فقط الى انا شغال عليه باقى الشيتت لا
ضع الكود في مديول وليس في صفحة
كيف يمكن معرفة الكود الرقمي داخل الحاسب المقابل للحروف والأرقام والرموز؟
باستخدام دالة code
كل الشكر والتقدير
جزاك الله خيرا
جزاك الله خيرا.
عاشت ايدك شرح رائع استفدت منه
اخي الكريم اختيار نسخ العامود بالكامل ليس موجود عندي في نسخة 2007 فكيف الحل؟؟ كيف استطبع نسخ كامل العامود
نسخ العامود بالكامل يمكنك بأكثر من طريقة منها تحديد العامود بالكامل ثم النسخ
علما بأن البيانات إذ لم تكن في كافة العامود فلا تنسخ العامود بالكامل حتى لايكون هذا الإجراء ثقيل على الحاسب
يمكنك نسخ كل البيانات من خلال الوقوف على أول بيان ثم الضغط على
Ctrl+Shift+سهم لأسفل
ثم النسخ
شكرا بارك الله فيك
شرح رائع اخي محمد ... ولكن واجهتني مشكلة في الرمز & يتم تعريفة على انه رقم و يفترض ان يكون من ضمن الحروف
و شكرا
باللغة العربية لم تنفع معي فيستبدل الكلمات العربية بالصفر...هل من تعديل وجزاكم الله
مش شغاله علي الحروف العربي بتنزل الخليه هي هي
الله يفتح عليك
Kon Khaled جزاك الله خيرا وأهلا وسهلا بحضرتك
بارك الله فيك
أمين يارب
وين الكود عشان نكتبه
موجود بالتعليقات
ملاحظة .. تتعامل مع العلامات @$& على انها ارقام .. لك جزيل الشكر
جزاك الله خيرا على الملحوظة
يا ريت رابط صفحتك ع الفيس يا غالي
facebook.com/MohamedHelmySaad
ممتاز
جزاك الله خيرا علما بأن اكود منقول
الموضوع شيق وبارك الله فيك لكن هناك مشكلة في علامة(:) حيث انه يعتبرها رقم
مثال :
East: 73229561.23 =====> : 73229561.23
حل سريع اعملها استبدال بلاشيء
اضرب في 1 او اجمع علي 0 هتتحل المشكله ان شاء الله
نفس الفكرة مجملا لكن من خلال Flash Fill والدوال
ua-cam.com/video/MOIJFsSLPAQ/v-deo.html
الحروف العربي ملصقة في بعض
نعم دون مسافة وإلا كان الفصل أسهل بناءا على المسافة
Hgh