سلام به همه دوستان
تو این تاپیک میخوایم یه تابع بنویسیم که بتونیم خیلی راحت محتوای یک سلول رو معکوس کنیم. مثلا اگر تو سلول نوشتیم "اکسل ایران" برامون بنویسه "ناریا لسکا" یا مثلا "12345" رو بنویسه "54321"
خب. اولین کاری که میکنیم اینه که کدهای زیر رو تو محیط ویژوال بیسیک اضافه میکنیم.
کد:Function ReverseCell(Rcell As Range) Dim i As Integer, StrNewNum As String, strOld As String Application.Volatile True strOld = Trim(Rcell) For i = 1 To Len(strOld) StrNewNum = Mid(strOld, i, 1) & StrNewNum Next i ReverseCell = StrNewNum End Function
حالا کافیه هر سلول رو که میخوایم معکوس کنیم از فرمول زیر استفاده کنیم. مثلا برای بدست آوردن معکوس سلول A1:
کد:=ReverseCell(A1)
اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
علاقه مندی ها (Bookmarks)