ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Incorrect UDF call (https://www.excelbanter.com/excel-programming/424245-incorrect-udf-call.html)

GSerjo

Incorrect UDF call
 
Hi All,

Ive created com automation add-in for Excel 2007 in Visual Studio 2008(I
use com automation add-in because Ive to create UDFs)

All works fine, but udf function is called before user is pressed Ok in
€śFunction Arguments€ť window, i.e. the function is called when all function
arguments are entered. How I can change this, i.e. the function should be
called ONCE and ONLY after €śOk€ť button is pressed.

Here is the code


[ComVisible(true)]
public interface IUDFs

{

void Test(object value1, object value2);

}



[ClassInterface(ClassInterfaceType.None)]
[ComVisible(true)]
[Guid("6D3442CB-5DCB-44d1-8AFD-2693A8ACF465")]
[ProgId("AutomationAddin.UDFs")]
public class UDFs : IUDFs
{
public UDFs()
{

Thread.CurrentThread.CurrentCulture = new CultureInfo("en-US");

}

#region Implementation of IUDFs

public void Test(object value1, object value2)
{
if (value1 is Missing || value2 is Missing)
return;
//Do Work
}

#endregion

#region Register UnRegister Add-in

[ComRegisterFunction]
public static void RegisterFunction(Type type)
{

Registry.ClassesRoot.CreateSubKey(GetSubKeyName(ty pe,
"Programmable"));

RegistryKey key =
Registry.ClassesRoot.OpenSubKey(GetSubKeyName(type , "InprocServer32"), true);

key.SetValue(string.Empty, Environment.SystemDirectory +
@"\mscoree.dll", RegistryValueKind.String);

}



[ComUnregisterFunction]
public static void UnregisterFunction(Type type)

{

Registry.ClassesRoot.DeleteSubKey(GetSubKeyName(ty pe,
"Programmable"), false);

}



private static string GetSubKeyName(Type type, string subKeyName)
{

var subKey = new StringBuilder();
subKey.Append(@"CLSID\{");
subKey.Append(type.GUID.ToString().ToUpper());
subKey.Append(@"}\");
subKey.Append(subKeyName);
return subKey.ToString();

}
#endregion Register UnRegister Add-in

}

Thanks in advance for any help!

Thanks,
GSerjo


Charles Williams

Incorrect UDF call
 
See http://www.decisionmodels.com/calcsecretsj.htm#FuncWiz for a VBA
solution you may be able to adapt : I think this still works in Excel 2007.

Charles
___________________________________
The Excel Calculation Site
http://www.decisionmodels.com

"GSerjo" wrote in message
...
Hi All,

I've created com automation add-in for Excel 2007 in Visual Studio 2008(I
use com automation add-in because I've to create UDFs)

All works fine, but udf function is called before user is pressed Ok in
"Function Arguments" window, i.e. the function is called when all function
arguments are entered. How I can change this, i.e. the function should be
called ONCE and ONLY after "Ok" button is pressed.

Here is the code


[ComVisible(true)]
public interface IUDFs

{

void Test(object value1, object value2);

}



[ClassInterface(ClassInterfaceType.None)]
[ComVisible(true)]
[Guid("6D3442CB-5DCB-44d1-8AFD-2693A8ACF465")]
[ProgId("AutomationAddin.UDFs")]
public class UDFs : IUDFs
{
public UDFs()
{

Thread.CurrentThread.CurrentCulture = new CultureInfo("en-US");

}

#region Implementation of IUDFs

public void Test(object value1, object value2)
{
if (value1 is Missing || value2 is Missing)
return;
//Do Work
}

#endregion

#region Register UnRegister Add-in

[ComRegisterFunction]
public static void RegisterFunction(Type type)
{

Registry.ClassesRoot.CreateSubKey(GetSubKeyName(ty pe,
"Programmable"));

RegistryKey key =
Registry.ClassesRoot.OpenSubKey(GetSubKeyName(type , "InprocServer32"),
true);

key.SetValue(string.Empty, Environment.SystemDirectory +
@"\mscoree.dll", RegistryValueKind.String);

}



[ComUnregisterFunction]
public static void UnregisterFunction(Type type)

{

Registry.ClassesRoot.DeleteSubKey(GetSubKeyName(ty pe,
"Programmable"), false);

}



private static string GetSubKeyName(Type type, string subKeyName)
{

var subKey = new StringBuilder();
subKey.Append(@"CLSID\{");
subKey.Append(type.GUID.ToString().ToUpper());
subKey.Append(@"}\");
subKey.Append(subKeyName);
return subKey.ToString();

}
#endregion Register UnRegister Add-in

}

Thanks in advance for any help!

Thanks,
GSerjo





GSerjo

Incorrect UDF call
 
Hi Charles,

Thanks a lot for the answer, but the article does not contain answer :(

"Charles Williams" wrote:

See http://www.decisionmodels.com/calcsecretsj.htm#FuncWiz for a VBA
solution you may be able to adapt : I think this still works in Excel 2007.

Charles
___________________________________
The Excel Calculation Site
http://www.decisionmodels.com

"GSerjo" wrote in message
...
Hi All,

I've created com automation add-in for Excel 2007 in Visual Studio 2008(I
use com automation add-in because I've to create UDFs)

All works fine, but udf function is called before user is pressed Ok in
"Function Arguments" window, i.e. the function is called when all function
arguments are entered. How I can change this, i.e. the function should be
called ONCE and ONLY after "Ok" button is pressed.

Here is the code


[ComVisible(true)]
public interface IUDFs

{

void Test(object value1, object value2);

}



[ClassInterface(ClassInterfaceType.None)]
[ComVisible(true)]
[Guid("6D3442CB-5DCB-44d1-8AFD-2693A8ACF465")]
[ProgId("AutomationAddin.UDFs")]
public class UDFs : IUDFs
{
public UDFs()
{

Thread.CurrentThread.CurrentCulture = new CultureInfo("en-US");

}

#region Implementation of IUDFs

public void Test(object value1, object value2)
{
if (value1 is Missing || value2 is Missing)
return;
//Do Work
}

#endregion

#region Register UnRegister Add-in

[ComRegisterFunction]
public static void RegisterFunction(Type type)
{

Registry.ClassesRoot.CreateSubKey(GetSubKeyName(ty pe,
"Programmable"));

RegistryKey key =
Registry.ClassesRoot.OpenSubKey(GetSubKeyName(type , "InprocServer32"),
true);

key.SetValue(string.Empty, Environment.SystemDirectory +
@"\mscoree.dll", RegistryValueKind.String);

}



[ComUnregisterFunction]
public static void UnregisterFunction(Type type)

{

Registry.ClassesRoot.DeleteSubKey(GetSubKeyName(ty pe,
"Programmable"), false);

}



private static string GetSubKeyName(Type type, string subKeyName)
{

var subKey = new StringBuilder();
subKey.Append(@"CLSID\{");
subKey.Append(type.GUID.ToString().ToUpper());
subKey.Append(@"}\");
subKey.Append(subKeyName);
return subKey.ToString();

}
#endregion Register UnRegister Add-in

}

Thanks in advance for any help!

Thanks,
GSerjo







All times are GMT +1. The time now is 09:26 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com