ابو مشاري قام بنشر يونيو 23, 2020 مشاركة قام بنشر يونيو 23, 2020 السلام عليكم ورحمة الله وبركاته لو كان لدي ملف يحتوي على عمودين كمثال الاسم ، الايميل ارسلت فورم عبر جوجل لكتابة الاسم الرباعي والايميل احد منهم ارسل الاسم خماسي واحتاج حذف الاسم الرابع فقط عشان تصميم الشهادة سؤالي في الاسم ( رمزي باسل كريم محمد الخالد ) كمثال اسم خماسي وأنا أحتاج الاسم الرباعي أو اقل ارغب بحذف الاسم الرابع محمد وهكذا للبقية لو كان هاك اسم خماسي اخر . وضحت الفكرة test.xls رابط هذا التعليق شارك More sharing options...
أفضل إجابة عبدالفتاح في بي اكسيل قام بنشر يونيو 24, 2020 أفضل إجابة مشاركة قام بنشر يونيو 24, 2020 جرب هذا الكود Sub RemoveFourthName() Dim R As Long, Temp As Variant, Arr As Variant Arr = Range("B2", Cells(Rows.Count, "B").End(xlUp)) For R = 1 To UBound(Arr) Temp = Split(Arr(R, 1), , 4) If InStr(Temp(3), " ") Then Temp(3) = Mid(Temp(3), InStr(Temp(3), " ") + 1) Arr(R, 1) = Join(Temp) Next Range("B2").Resize(UBound(Arr)) = Arr End Sub رابط هذا التعليق شارك More sharing options...
ابو مشاري قام بنشر يونيو 27, 2020 الكاتب مشاركة قام بنشر يونيو 27, 2020 جاري التجربة يعطيك العافية رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.