أبو حوده قام بنشر يونيو 18, 2022 قام بنشر يونيو 18, 2022 السلام عليكم ورحمة الله وبركاتة محتاج افصل بين التاريخ وبين النص الغير منظم كل قطعة فى حقل بالترتيب الواضح بالمثال علشان اقدر افصل بين ترقيات الموظفين بالشركة واطبقة فى الملف الاصلى New Microsoft Excel Worksheet.xlsx
أ / محمد صالح قام بنشر يونيو 20, 2022 قام بنشر يونيو 20, 2022 يفضل أن ترسل ملفا به كمية من السطور لدراسة حالات عدم انتظام الكتابة ومعرفة اسماء الدرجات جميعها وما الذي يستعمل كفاصل بين كل بيان وما بعده غير الشرطة بالتوفيق 1
أبو حوده قام بنشر يونيو 20, 2022 الكاتب قام بنشر يونيو 20, 2022 استاذى الفاضل @أ / محمد صالح اشكر حضرتك جدا لمرورك العطر على المشاركة وارفقت لحضرتك ملف به كمية من السطور تنفيذا لما اشرت به سابقا لعله يكون اوسع واشمل فى فهم الموضوع New Microsoft Excel Worksheet.xlsx
تمت الإجابة أ / محمد صالح قام بنشر يونيو 20, 2022 تمت الإجابة قام بنشر يونيو 20, 2022 جرب استعمال هذا الكود كمحاولة لضبط المدخلات في الخلايا عن طريق الاستبدال ثم بعدها يتم تقسيم النص إلى أعمدة عن طريق الشرطة يدويا ويمكنك إضافة أي عدد من العناصر التي يمكن استبدالها في المصفوفتين Sub mrmas() OldArr = Array("مهندس", "معاون", "درجة", "سادسة", "خامسة", "رابعة", "ثالثة", "ثانية", "اولى", "كبير", "استثنائى", "كبير-ثان", "كبير -ثان", " ", "--") newarr = Array("-مهندس", "-معاون", "-درجة", "سادسة-", "خامسة-", "رابعة-", "ثالثة-", "ثانية-", "اولى-", "كبير-", "-استثنائى-", "كبير ثان", "كبير ثان", " ", "-") For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row For i = 0 To UBound(OldArr) Range("a" & r).Value = Trim(Replace(Range("a" & r).Value, OldArr(i), newarr(i))) Next i Next r MsgBox "Done by mr-mas.com" End Sub وهذا الملف وبه الكود لأنه في بعض الحالات لا يعرف صاحب الاستفسار طريقة إضافة الكود ..بالتوفيق تقسيم النص إلى معلومات.xlsb 2
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.