[حل شده] سوال در مورد شمارش روی متن

[tarfandenter]

به نام خدا

فرضا ما یک متنی داریم به این صورت
"سلام خوبی " هر کاراکتر در یک سلول هست
میخواهیم اکسل از ما یک عدد بخواهد ما وارد میکنیم 2 سپس اکسل به ما ل را میدهد چون اگر از سمت راست بشماریم 2 میشود ل حالا دوباره عدد میخواهد میدهیم 4 دوباره از ادامه بعد از ل میشمارد و ب همین صورت و اگر تمام شد جملات از سمت راست ادامه را میشمارد در اکسل چطور باید این را پیاده سازی کرد؟

[iranweld]

با سلام

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

=tarkib(2,6,4) 

که دستور مورد نظر tarkib و 2 بمعنی سطر مورد نظر که دیتا در آن سطر قرار دارد و 6 از ستون چندم و 4 هم تعداد کارکتر مورد نظر برای ترکیب میباشد.

Function tarkib(yy As Integer, t As Integer, k As Integer)

For i = t To t + k

If Cells(yy, i) = "" Then

xx = xx & " "

Else

xx = xx & Cells(yy, i)

End If

Next

tarkib = xx

End Function