[حل شده] اعمال تغییرات در متن با توجه به حروف بزرگ انگلیسی

[ACTION_GAMER]

با سلام
آیا تابعی هست که بتونه با توجه به حروف کوچیک و بزرگ انگلیسی اعمال تغییرات انجام بده؟

برای مثال
NewSiteForYou => New Site For You

تابعی رو لازم دارم که بین حروف بزرگ یک فاصله ایجاد کند

اگر ممکنه در فایل اکسل انجام دهید
ممنون

[M_ExceL]

با سلام
آیا تابعی هست که بتونه با توجه به حروف کوچیک و بزرگ انگلیسی اعمال تغییرات انجام بده؟

برای مثال
NewSiteForYou => New Site For You

تابعی رو لازم دارم که بین حروف بزرگ یک فاصله ایجاد کند

اگر ممکنه در فایل اکسل انجام دهید
ممنون

سلام
داخل اکسل کلید های ترکیبی ALT + F11 را فشار دهید سپس یک ماژول ایجاد کنید و این کد را داخل آن پیست کنید

Function AddSpaces(pValue As String) As String
Dim xOut As String
xOut = VBA.Left(pValue, 1)
For i = 2 To VBA.Len(pValue)
   xAsc = VBA.Asc(VBA.Mid(pValue, i, 1))
   If xAsc >= 65 And xAsc <= 90 Then
      xOut = xOut & " " & VBA.Mid(pValue, i, 1)
   Else
      xOut = xOut & VBA.Mid(pValue, i, 1)
   End If
Next
AddSpaces = xOut
End Function

تابعی به نام addspaces ایجاد می شود
موفق باشید ...