Queries
fayeg 11
Hi, I am working on excel and need to know any site which would give me extensive data on us of excel.
7th June 2006 From United Arab Emirates, Dubai

PARTICIPATING IN DISCUSSION:
RAJACSN
Softskills Trainer
Fayeg
Human Resources Officer
Shailgiri
Consultant - Human Resource
Divya_hr1
Hr Professional
Ureachmike
Sr Exe - Hr/ It Recruitments
Shirish
Experiential Educator

Hello
If you are expecting formulas of excel, you can always click help.
If you are looking for excel templates like forms and formats relating to different process, then you can dowload variety of these at: http://office.microsoft.com/en-us/te...356681033.aspx
All the best!
Regards
ShailGiri
8th June 2006 From Nepal, Kathmandu

Hi,
I teach MS-Excel at a B-school. If there's a specific issue you have and can't find a solution to, you may write to me.
As for websites, one of my favourites is:
http://www.mvps.org/dmcritchie/excel/excel.htm
It may appear chaotic (its not very well structured), but gives you help in various ways (step-by-step tutorials, as well as searching by the type of problem you face).
Hope that helps,
Shirish
8th June 2006 From India, Pune

I am enclosing a 60 pages Guide to use Excel . Hope this will help you.
10th June 2006 From India, Mumbai

Attached Files
File Type: pdf excel_book1_137.pdf (478.7 KB, 1978 views)


Hi all, I have sent it to you via email. Also you can download the attachment by ( left click, save target as ) Divya
13th June 2006 From India, Mumbai

RAJACSN 33
Hi,
Excel is an ocean. I have developed a few excel files for training. I have just attached two worksheets here. (They are read only. Macros should be enabled) If they are useful, send me a mail. Let me try to send a few more, which can be useful to other members of this sites also.
Regards,
RAJACSN
25th June 2006 From India, Madras

Attached Files
File Type: xls 33_what_day_is_today_488.xls (42.5 KB, 246 views)
File Type: xls 31using_index_and_match_to_fetch_info_157.xls (44.5 KB, 206 views)


Greetings Divya,
Please mail me a copy of this Excel pdf at . Have not been able to download it from the site.
Looking forward to your earliest response.
Wish you a wonderful day Ahead !
Thanks & Regards,
Mike [Mukesh Sharma] |
Dy. Resource Manger - Oracle, Siebel & SQA Technologies @ FCS Software Solutions Inc. |
30th June 2006

Ranjan.JPG

Try the following
Type =RANJAN(A1.....)

'****************
' Main Function *
'****************

Function RANJAN(ByVal MyNumber)
Dim Dollars, Cents, Temp, Temp1, Dollars1, Temp2
Dim DecimalPlace, Count

ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Million "
Place(4) = " Billion "
Place(5) = " Trillion "

' String representation of amount.
MyNumber = Trim(Str(MyNumber))

' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert cents and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If

Count = 1
Temp2 = ""
If Len(MyNumber) > 7 Then
Temp2 = GetHundreds(Left(MyNumber, Len(MyNumber) - 7)) & " Cores "
MyNumber = Right(MyNumber, 7)

End If

Temp1 = ""
If Len(MyNumber) > 5 Then
Temp1 = GetHundreds(Left(MyNumber, Len(MyNumber) - 5)) & " Lakhs "
MyNumber = Right(MyNumber, 5)

End If

Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars1 = Temp & Place(Count) & Dollars1
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Dollars = Temp2 & Temp1 & Dollars1
Select Case Dollars
Case ""
Dollars = "(No Value found)-Formula developed by: RANJAN MAJUMDAR, Jolaibari, Mob: 9862800600, Email:ezee_airtel@rediffmail.com"
Case "One"
Dollars = "One Rupee "
Case Else
Dollars = " Rupees (" & Dollars & ") Only "
End Select

Select Case Cents
Case ""
Cents = " "
Case "One"
Cents = " "
Case Else
Cents = " And " & Cents & " Paisa"
End Select

RANJAN = Dollars & Cents
End Function

'*******************************************
' Converts a number from 100-999 into text *
'*******************************************

Private Function GetHundreds(ByVal MyNumber)
Dim Result As String

If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)

' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetNumber(Mid(MyNumber, 1, 1)) & " Hundred "
End If

' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetNumber(Mid(MyNumber, 3))
End If

GetHundreds = Result
End Function

'*********************************************
' Converts a number from 10 to 99 into text. *
'*********************************************

Private Function GetTens(TensText)
Dim Result As String

Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetNumber _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function

'*******************************************
' Converts a number from 1 to 9 into text. *
'*******************************************

Private Function GetNumber(Digit)
Select Case Val(Digit)
Case 1: GetNumber = "One"
Case 2: GetNumber = "Two"
Case 3: GetNumber = "Three"
Case 4: GetNumber = "Four"
Case 5: GetNumber = "Five"
Case 6: GetNumber = "Six"
Case 7: GetNumber = "Seven"
Case 8: GetNumber = "Eight"
Case 9: GetNumber = "Nine"
Case Else: GetNumber = ""
End Select
End Function

'*********************************************
' Formula developed by '
' RANJAN Majumdar '
' Jolaibari '
' South Tripura '
' +919862800600 '
' +919436926624 '
' +913823263024 '
' ezee_airtel@ rediffmail.com '
'*********************************************
13th March 2009 From India, Aizawl



Please login to participate in this discussion or start your own. Create Account



About Us - Advertise - Contact Us - RSS   On Google+  
Privacy Policy | Disclaimer | Terms Of Service
Facebook Page | Follow Us On Twitter | Linkedin Network

All rights reserved @ 2017 Cite.Community™