Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
create function with passing parameters
i want to create my own function with passing parameters. Here's the case :
Cell A1 = 5 Cell B1 = 0 and I want cell C1 = 00005 i have this function but i don't know how to insert in macro : Function TextInfix(CurrChar As String, CharInfix As String, TextLong As Integer) As String Dim CharLong As Integer, TmpInfix$ CharLong = Len(CurrChar) TmpInfix = String(TextLong - CharLong, CharInfix) & CurrChar TextInfix = TmpInfix End Function |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
create function with passing parameters
Is this what you want
Function TextInfix(CurrChar As String, CharInfix As String, _ TextLong As Integer) As String TextInfix = Application.Rept(CharInfix, TextLong) & CurrChar End Function -- HTH Bob Phillips (remove nothere from email address if mailing direct) "DASmania Cool" <DASmania wrote in message ... i want to create my own function with passing parameters. Here's the case : Cell A1 = 5 Cell B1 = 0 and I want cell C1 = 00005 i have this function but i don't know how to insert in macro : Function TextInfix(CurrChar As String, CharInfix As String, TextLong As Integer) As String Dim CharLong As Integer, TmpInfix$ CharLong = Len(CurrChar) TmpInfix = String(TextLong - CharLong, CharInfix) & CurrChar TextInfix = TmpInfix End Function |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
create function with passing parameters
In Cell C1, enter
=textinfix(A1,B1,5) -- Kind regards, Niek Otten "DASmania Cool" <DASmania wrote in message ... i want to create my own function with passing parameters. Here's the case : Cell A1 = 5 Cell B1 = 0 and I want cell C1 = 00005 i have this function but i don't know how to insert in macro : Function TextInfix(CurrChar As String, CharInfix As String, TextLong As Integer) As String Dim CharLong As Integer, TmpInfix$ CharLong = Len(CurrChar) TmpInfix = String(TextLong - CharLong, CharInfix) & CurrChar TextInfix = TmpInfix End Function |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
create function with passing parameters
Thank you Bob Phillips
Yes, your code makes it so simple. And now there are another problem, I create this function at PERSONAL.XLS and I'm able to run the function in PERSONAL.XLS but i can't run it at another workbook. Do you know why this things happened ? "Bob Phillips" wrote: Is this what you want Function TextInfix(CurrChar As String, CharInfix As String, _ TextLong As Integer) As String TextInfix = Application.Rept(CharInfix, TextLong) & CurrChar End Function -- HTH Bob Phillips (remove nothere from email address if mailing direct) "DASmania Cool" <DASmania wrote in message ... i want to create my own function with passing parameters. Here's the case : Cell A1 = 5 Cell B1 = 0 and I want cell C1 = 00005 i have this function but i don't know how to insert in macro : Function TextInfix(CurrChar As String, CharInfix As String, TextLong As Integer) As String Dim CharLong As Integer, TmpInfix$ CharLong = Len(CurrChar) TmpInfix = String(TextLong - CharLong, CharInfix) & CurrChar TextInfix = TmpInfix End Function |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
create function with passing parameters
Thank you Niek Otten
I create the function at PERSONAL.XLS & run perfectly on PERSONAL.XLS but i cannot run it in another workbook, do you know why ? "Niek Otten" wrote: In Cell C1, enter =textinfix(A1,B1,5) -- Kind regards, Niek Otten "DASmania Cool" <DASmania wrote in message ... i want to create my own function with passing parameters. Here's the case : Cell A1 = 5 Cell B1 = 0 and I want cell C1 = 00005 i have this function but i don't know how to insert in macro : Function TextInfix(CurrChar As String, CharInfix As String, TextLong As Integer) As String Dim CharLong As Integer, TmpInfix$ CharLong = Len(CurrChar) TmpInfix = String(TextLong - CharLong, CharInfix) & CurrChar TextInfix = TmpInfix End Function |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
create function with passing parameters
You can do it with
=Personal.xls!TextInfix(char1,char2,len) -- HTH Bob Phillips (remove nothere from email address if mailing direct) "DASmania Cool" wrote in message ... Thank you Bob Phillips Yes, your code makes it so simple. And now there are another problem, I create this function at PERSONAL.XLS and I'm able to run the function in PERSONAL.XLS but i can't run it at another workbook. Do you know why this things happened ? "Bob Phillips" wrote: Is this what you want Function TextInfix(CurrChar As String, CharInfix As String, _ TextLong As Integer) As String TextInfix = Application.Rept(CharInfix, TextLong) & CurrChar End Function -- HTH Bob Phillips (remove nothere from email address if mailing direct) "DASmania Cool" <DASmania wrote in message ... i want to create my own function with passing parameters. Here's the case : Cell A1 = 5 Cell B1 = 0 and I want cell C1 = 00005 i have this function but i don't know how to insert in macro : Function TextInfix(CurrChar As String, CharInfix As String, TextLong As Integer) As String Dim CharLong As Integer, TmpInfix$ CharLong = Len(CurrChar) TmpInfix = String(TextLong - CharLong, CharInfix) & CurrChar TextInfix = TmpInfix End Function |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
create function with passing parameters
Try:
=personal.xls!testinfix(a1,b1,5) ==== Another option is to save your personal.xls file as an addin (personal.xla). Then you won't need that syntax. But you won't see any macros in personal.xla in the tools|macro|macros dialog, either. DASmania Cool wrote: Thank you Niek Otten I create the function at PERSONAL.XLS & run perfectly on PERSONAL.XLS but i cannot run it in another workbook, do you know why ? "Niek Otten" wrote: In Cell C1, enter =textinfix(A1,B1,5) -- Kind regards, Niek Otten "DASmania Cool" <DASmania wrote in message ... i want to create my own function with passing parameters. Here's the case : Cell A1 = 5 Cell B1 = 0 and I want cell C1 = 00005 i have this function but i don't know how to insert in macro : Function TextInfix(CurrChar As String, CharInfix As String, TextLong As Integer) As String Dim CharLong As Integer, TmpInfix$ CharLong = Len(CurrChar) TmpInfix = String(TextLong - CharLong, CharInfix) & CurrChar TextInfix = TmpInfix End Function -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Passing parameters Cel Ref) to Sum function | Excel Discussion (Misc queries) | |||
Passing parameters to a called add-in... | Excel Programming | |||
Passing parameters | Excel Programming | |||
Passing parameters | Excel Programming | |||
Passing parameters to UDF | Excel Programming |