Can any one help me to make an abbreviation in excel file?

This is the example:
"Rear Derailleur" to "RD"
"Front Suspension Fork" to "FSF"

Thanks for your help!

In what way, Sammy? You can just do a Find/Replace or create an Autocorrect
entry (in Word, if it's not available in Excel).
*******************
~Anne Troy

www.OfficeArticles.com
www.MyExpertsOnline.com


"Sammy in Taiwan" <Sammy in wrote in
message ...
Can any one help me to make an abbreviation in excel file?

This is the example:
"Rear Derailleur" to "RD"
"Front Suspension Fork" to "FSF"

Thanks for your help!

Is there any function that I can use on excel for this job? precisely I
should say: make an acronym for it!

Anne, thanks for your response.

"Anne Troy" 來函：

In what way, Sammy? You can just do a Find/Replace or create an Autocorrect
entry (in Word, if it's not available in Excel).
*******************
~Anne Troy

www.OfficeArticles.com
www.MyExpertsOnline.com


"Sammy in Taiwan" <Sammy in wrote in
message ...
Can any one help me to make an abbreviation in excel file?

This is the example:
"Rear Derailleur" to "RD"
"Front Suspension Fork" to "FSF"

Thanks for your help!

I'm sorry if I wasn't clear, Sammy. What do you mean "make an acronym"? What
will happen if we accomplish your goal? You'll type RD and the words Rear
Derailleur will appear? Sorry. :)
*******************
~Anne Troy

www.OfficeArticles.com
www.MyExpertsOnline.com


"Sammy in Taiwan" wrote in message
...
Is there any function that I can use on excel for this job? precisely I
should say: make an acronym for it!

Anne, thanks for your response.

"Anne Troy" ??:

In what way, Sammy? You can just do a Find/Replace or create an
Autocorrect
entry (in Word, if it's not available in Excel).
*******************
~Anne Troy

www.OfficeArticles.com
www.MyExpertsOnline.com


"Sammy in Taiwan" <Sammy in wrote in
message ...
Can any one help me to make an abbreviation in excel file?

This is the example:
"Rear Derailleur" to "RD"
"Front Suspension Fork" to "FSF"

Thanks for your help!

Probably best to write a UDF

Function Acronyms(text)
Dim i As Long
Dim sTemp

If TypeName(text) = "Range" Then
If text.Count 1 Then
Exit Function
End If
End If

For i = 1 To Len(text)
If Mid(text, i, 1) Like "[A-Z]" Then
sTemp = sTemp & Mid(text, i, 1)
End If
Next i
Acronyms = sTemp
End Function


and use like

=Acronyms(A1)

--
HTH

Bob Phillips

"Sammy in Taiwan" <Sammy in wrote in
message ...
Can any one help me to make an abbreviation in excel file?

This is the example:
"Rear Derailleur" to "RD"
"Front Suspension Fork" to "FSF"

Thanks for your help!