[mso] Re: Excel 2000 Personal.xls
- From: "Steve Moghaddam" <m.steve@xxxxxxxxxxx>
- To: <mso@xxxxxxxxxxxxx>
- Date: Wed, 20 Dec 2006 20:11:09 -0700
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-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).
//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
*************************************************************
*************************************************************
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).
//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:
