كود تعويض الفراغ بشرطة

[أبو عبد الملك السوفي]

السلام عليكم

الاساتذة الكرام

هل يوجد كود يعوض الفراغ بين الارقام بشرطة م

مثلا لوكان عندنا في خانة ارقام مكتوبة بالشكل 10 12 45 87 25       14

فالكود يحولها بالشكل التالي 10-12-45-87-25-14

أملي كبير في ان تصممو لي هذا الكود خاصة من قبل العلامة باقشير أو العلامة حمادة باشا

[عبدالله باقشير]

السلام عليكم

 

هذه معادلة بالكود تقوم بذلك

Function kh_Replace(Txt As String)
Dim t As String
t = WorksheetFunction.Trim(Txt)
t = Replace(t, " ", "-")
kh_Replace = t
End Function

لنفرض ان الخلية C3 فيها النص الذي تريد تحويله

=kh_Replace(C3)

تحياتي

[عبدالله باقشير]

السلام عليكم

 

وهذه معادلة

=SUBSTITUTE(TRIM(C3);" ";"-")

[أبو عبد الملك السوفي]

السلام عليكم

بارك الله فيك أستاذنا القدير هذا هو المطلوب