Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Text function
Is there a function in Excel 2003 that is like "Search"/"Find", but start
from the right? Thanks |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Text function
Only VBA has such a function (InStrRev). You can create an UDF like this:
Public Function FindRev(StrtoSearch As String, StrSearchedFor As String) As Long FindRev = 0 On Error Resume Next FindRev = InStrRev(StrtoSearch, StrSearchedFor) End Function Regards, Stefi nc ezt *rta: Is there a function in Excel 2003 that is like "Search"/"Find", but start from the right? Thanks |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Text function
Dear Stefi
What sbout if I just want to reverse a text in a cell. Thanks. NC "Stefi" wrote: Only VBA has such a function (InStrRev). You can create an UDF like this: Public Function FindRev(StrtoSearch As String, StrSearchedFor As String) As Long FindRev = 0 On Error Resume Next FindRev = InStrRev(StrtoSearch, StrSearchedFor) End Function Regards, Stefi nc ezt *rta: Is there a function in Excel 2003 that is like "Search"/"Find", but start from the right? Thanks |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
Text function
Sorry, I misread your request! This is the function you want:
Function ByteReverse(InputString As String) As String Dim i As Long Dim ByteStr, ResultStr As String ResultStr = "" For i = Len(InputString) To 1 Step -1 ByteStr = Mid(InputString, i, 1) ResultStr = ResultStr & ByteStr Next i ByteReverse = ResultStr End Function Regards, Stefi nc ezt *rta: Dear Stefi What sbout if I just want to reverse a text in a cell. Thanks. NC "Stefi" wrote: Only VBA has such a function (InStrRev). You can create an UDF like this: Public Function FindRev(StrtoSearch As String, StrSearchedFor As String) As Long FindRev = 0 On Error Resume Next FindRev = InStrRev(StrtoSearch, StrSearchedFor) End Function Regards, Stefi nc ezt *rta: Is there a function in Excel 2003 that is like "Search"/"Find", but start from the right? Thanks |
#5
Posted to microsoft.public.excel.misc
|
|||
|
|||
Text function
Another one:
Option Explicit Function ByteReverse2(InputString As String) As String ByteReverse2 = StrReverse(InputString) End Function nc wrote: Dear Stefi What sbout if I just want to reverse a text in a cell. Thanks. NC "Stefi" wrote: Only VBA has such a function (InStrRev). You can create an UDF like this: Public Function FindRev(StrtoSearch As String, StrSearchedFor As String) As Long FindRev = 0 On Error Resume Next FindRev = InStrRev(StrtoSearch, StrSearchedFor) End Function Regards, Stefi nc ezt *rta: Is there a function in Excel 2003 that is like "Search"/"Find", but start from the right? Thanks -- Dave Peterson |
#6
Posted to microsoft.public.excel.misc
|
|||
|
|||
Text function
Dear Dave
I tried your solution below and got this error message, "Compile error: Expected variable or procedure, not module". Please advise. Thanks. "Dave Peterson" wrote: Another one: Option Explicit Function ByteReverse2(InputString As String) As String ByteReverse2 = StrReverse(InputString) End Function nc wrote: Dear Stefi What sbout if I just want to reverse a text in a cell. Thanks. NC "Stefi" wrote: Only VBA has such a function (InStrRev). You can create an UDF like this: Public Function FindRev(StrtoSearch As String, StrSearchedFor As String) As Long FindRev = 0 On Error Resume Next FindRev = InStrRev(StrtoSearch, StrSearchedFor) End Function Regards, Stefi âžncâ ezt Ã*rta: Is there a function in Excel 2003 that is like "Search"/"Find", but start from the right? Thanks -- Dave Peterson |
#7
Posted to microsoft.public.excel.misc
|
|||
|
|||
Text function
It's annoying to realize that there is a much simpler solution than the one
you used up to now! It's also annoying that XL doesn't includes such useful functions as built-in functions! Stefi Dave Peterson ezt *rta: Another one: Option Explicit Function ByteReverse2(InputString As String) As String ByteReverse2 = StrReverse(InputString) End Function nc wrote: Dear Stefi What sbout if I just want to reverse a text in a cell. Thanks. NC "Stefi" wrote: Only VBA has such a function (InStrRev). You can create an UDF like this: Public Function FindRev(StrtoSearch As String, StrSearchedFor As String) As Long FindRev = 0 On Error Resume Next FindRev = InStrRev(StrtoSearch, StrSearchedFor) End Function Regards, Stefi âžncâ ezt Ã*rta: Is there a function in Excel 2003 that is like "Search"/"Find", but start from the right? Thanks -- Dave Peterson |
#8
Posted to microsoft.public.excel.misc
|
|||
|
|||
Text function
What did you name your module?
Don't use the same name for functions/subs as the name of a module. Try going into the VBE hit ctrl-r (to see the project explorer) select your project Show all the modules If you have one named ByteReverse (or ByteReverse2), rename it to: Mod_ByteReverse (or anything that is unique). By the way, if I recall correctly, strreverse was added in xl2k. If you're using xl97, you'll want to use Stefi's code. (I'm sure someone will correct me if my memory is failing me on StrReverse.) nc wrote: Dear Dave I tried your solution below and got this error message, "Compile error: Expected variable or procedure, not module". Please advise. Thanks. "Dave Peterson" wrote: Another one: Option Explicit Function ByteReverse2(InputString As String) As String ByteReverse2 = StrReverse(InputString) End Function nc wrote: Dear Stefi What sbout if I just want to reverse a text in a cell. Thanks. NC "Stefi" wrote: Only VBA has such a function (InStrRev). You can create an UDF like this: Public Function FindRev(StrtoSearch As String, StrSearchedFor As String) As Long FindRev = 0 On Error Resume Next FindRev = InStrRev(StrtoSearch, StrSearchedFor) End Function Regards, Stefi âžncâ ezt Ã*rta: Is there a function in Excel 2003 that is like "Search"/"Find", but start from the right? Thanks -- Dave Peterson -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Bug with Text function? | Excel Worksheet Functions | |||
Using Concatenate function to generate text in Text Box | Charts and Charting in Excel | |||
If Then Function with text | Excel Discussion (Misc queries) | |||
Text Function | Excel Worksheet Functions | |||
Macro or Function to make text size to suite text Length? | Excel Discussion (Misc queries) |