ام عبدالرحمن عوف قام بنشر يونيو 30, 2017 مشاركة قام بنشر يونيو 30, 2017 السلام عليكم فصل الاسم عن باقي النص وكما مبين بالمثال المرفق مثال.rar رابط هذا التعليق شارك More sharing options...
أفضل إجابة ياسر خليل أبو البراء قام بنشر يونيو 30, 2017 أفضل إجابة مشاركة قام بنشر يونيو 30, 2017 وعليكم السلام أخي الكريم عبد الرحمن جرب الكود التالي عله يفي الغرض Sub Test() Dim arr As Variant Dim str As String Dim i As Long arr = Sheet1.Range("A1:A" & Sheet1.Cells(Rows.Count, 1).End(xlUp).Row).Value For i = LBound(arr, 1) To UBound(arr, 1) str = arr(i, 1) arr(i, 1) = Trim(Split(Mid(str, InStrRev(str, "\") + 1), ".")(0)) Next i Sheet1.Range("B1").Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr End Sub رابط هذا التعليق شارك More sharing options...
ام عبدالرحمن عوف قام بنشر يونيو 30, 2017 الكاتب مشاركة قام بنشر يونيو 30, 2017 تم وضع الكود في موديل وظهور هذه الرسالة رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 30, 2017 مشاركة قام بنشر يونيو 30, 2017 احذف كلمة Sheet1 من هذا السطر (ستجدها مرتين) ..ومعها النقطة التي تليها أيضاً وكذلك احذفها من آخر سطر بالنقطة التي تليها أو ... استبدل كلمة Sheet1 بكلمة ورقة1 رابط هذا التعليق شارك More sharing options...
ام عبدالرحمن عوف قام بنشر يونيو 30, 2017 الكاتب مشاركة قام بنشر يونيو 30, 2017 تم استبدالها بـ ورقة1 تمام اشتغل الكود شكرأ وجزيت خيرا 1 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر يونيو 30, 2017 مشاركة قام بنشر يونيو 30, 2017 وجزيت خيراً بمثل ما دعوت لي أخي الكريم تقبل تحياتي رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان