bachiri401 قام بنشر مارس 23, 2019 مشاركة قام بنشر مارس 23, 2019 المثال في النموذج المرفق وبارك الله فيكم Microsoft Office Excel Worksheet جديد .xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر مارس 23, 2019 مشاركة قام بنشر مارس 23, 2019 اذا كانت لا توجد يمكن اختراعها Function Salim_First_Letter(st As String) Dim i% Dim my_text$: my_text = Left(st, 1) Dim arr: arr = Split(st) For i = 1 To UBound(arr) my_text = my_text & " " & Left(arr(i), 1) Next Salim_First_Letter = my_text End Function First_Letters.xlsm 2 1 رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر مارس 23, 2019 مشاركة قام بنشر مارس 23, 2019 أحسنت استاذ سليم بارك الله فيك عمل رائع 1 رابط هذا التعليق شارك More sharing options...
وجيه شرف الدين قام بنشر مارس 24, 2019 مشاركة قام بنشر مارس 24, 2019 الله عليك استاذ سليم بارك الله فيكم وجعله فى ميزان حسناتك 1 رابط هذا التعليق شارك More sharing options...
bachiri401 قام بنشر مارس 24, 2019 الكاتب مشاركة قام بنشر مارس 24, 2019 قمة الروعة بارك الله فيك والله استفدت كثيرا من ردود الاعضاء ربي يجعلها في ميزان حسناتكم جميعا 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان