Amir Ghasemiyan
2017/08/17, 12:26
سلام به همه دوستان
تو این تاپیک میخوایم یه تابع بنویسیم که بتونیم خیلی راحت محتوای یک سلول رو معکوس کنیم. مثلا اگر تو سلول نوشتیم "اکسل ایران" برامون بنویسه "ناریا لسکا" یا مثلا "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)
تو این تاپیک میخوایم یه تابع بنویسیم که بتونیم خیلی راحت محتوای یک سلول رو معکوس کنیم. مثلا اگر تو سلول نوشتیم "اکسل ایران" برامون بنویسه "ناریا لسکا" یا مثلا "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)