[mso] Re: Excel 2000 Personal.xls

NB: This email and its contents are subject to the Eskom Holdings Limited EMAIL 
LEGAL NOTICE
which can be viewed at http://www.eskom.co.za/email_legalnotice
------------------------------------------------------------------------
Robert
 
Before you copy your module to other workbooks, try adding the "prefix"
personal.xla! before your function name. In other words, for your
example, open a workbook and type "=personal.xla!Latify".
>>> On 21 December 2006 at 05:11, in message
<!~!UENERkVCMDkAAQACAAAAAAAAAAAAAAAAABgAAAAAAAAAYnsSNLTYwkG6234wPMZUwMKAAAAQAAAAPACsZ8b1C0yR7UoSYGyg4AEAAAAA@xxxxxxxxxxx>,
"Steve Moghaddam" <m.steve@xxxxxxxxxxx> wrote:
Robert:
Functions can be used only on the workbook that they have been created.
To
use them in other workbook either the function code has to be copied in
VBA
module of another workbook or create a workbook called Function library
and
then compile it in add on program.
Thanks

-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On
Behalf
Of Linda F. Johnson
Sent: Wednesday, December 20, 2006 8:07 PM
To: mso@xxxxxxxxxxxxx 
Subject: [mso] Re: Excel 2000 Personal.xls

Sorry, Robert .... That is not a "formula" ... It's VBA, so someone
besides
me will have to help you with that. 


Linda F. Johnson
Linda's Computer Stop
Author, MOS: Excel 2003 Study Guide, published by John Wiley and Sons
http://personal ( http://personal/ )-computer-tutor.com

-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On
Behalf
Of Robert Carneal
Sent: Wednesday, December 20, 2006 9:12 PM
To: mso@xxxxxxxxxxxxx 
Subject: [mso] Re: Excel 2000 Personal.xls

Linda and everyone-

Here is the formula I wrote; not perfect, but shouldn't it work?

Function Latify(Decimal_Deg) As Variant
    With Application
        Degrees = Int(Decimal_Deg)   'Get Integer of Argument
        Port = Decimal_Deg - Degrees 'Get portion of Degrees
        MinutesO = Port * 60          'Get Minutes value
        Minutes = Int(MinutesO)       'Get Integer port Minutes
        Port = MinutesO - Minutes     'Get dec port of Minutes
        SecondsO = Port * 60          'Get Seconds value
        ' Finished calculating, do Formatting....
        Seconds = Format(SecondsO, "00.0000") ' Format Seconds
        Minutes = Format(Minutes, "00")      ' Format Degrees
        Degrees = Format(Degrees, "00")      ' Format Minutes
        'Put it all together...
        Latify = Degrees & Minutes & Seconds
    End With
End Function


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx
or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx 

To Unsubscribe from this group, visit the group's homepage and use the
dropdown menu at the top.  This will allow you to unsubscribe your
email
address or change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso 

If you are using Outlook and you see a lot of unnecessary code in your
email
messages, read these instructions that explain why and how to fix it:
http://personal ( http://personal/
)-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx
or MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx 

To Unsubscribe from this group, visit the group's homepage and use the
dropdown menu at the top.  This will allow you to unsubscribe your email
address or change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso 

If you are using Outlook and you see a lot of unnecessary code in your
email messages, read these instructions that explain why and how to fix
it:
http://personal ( http://personal/
)-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************


*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, visit the group's homepage and use the dropdown 
menu at the top.  This will allow you to unsubscribe your email address or 
change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

If you are using Outlook and you see a lot of unnecessary code in your email 
messages, read these instructions that explain why and how to fix it:
http://personal-computer-tutor.com/abc3/v28/greg28.htm
*************************************************************

Other related posts: