ام عبدالرحمن عوف قام بنشر يونيو 30, 2017 قام بنشر يونيو 30, 2017 السلام عليكم فصل الاسم عن باقي النص وكما مبين بالمثال المرفق مثال.rar
أفضل إجابة ياسر خليل أبو البراء قام بنشر يونيو 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
ام عبدالرحمن عوف قام بنشر يونيو 30, 2017 الكاتب قام بنشر يونيو 30, 2017 تم وضع الكود في موديل وظهور هذه الرسالة
ياسر خليل أبو البراء قام بنشر يونيو 30, 2017 قام بنشر يونيو 30, 2017 احذف كلمة Sheet1 من هذا السطر (ستجدها مرتين) ..ومعها النقطة التي تليها أيضاً وكذلك احذفها من آخر سطر بالنقطة التي تليها أو ... استبدل كلمة Sheet1 بكلمة ورقة1
ام عبدالرحمن عوف قام بنشر يونيو 30, 2017 الكاتب قام بنشر يونيو 30, 2017 تم استبدالها بـ ورقة1 تمام اشتغل الكود شكرأ وجزيت خيرا 1
ياسر خليل أبو البراء قام بنشر يونيو 30, 2017 قام بنشر يونيو 30, 2017 وجزيت خيراً بمثل ما دعوت لي أخي الكريم تقبل تحياتي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.