Hi, I am working on excel and need to know any site which would give me extensive data on us of excel.
From United Arab Emirates, Dubai
11From United Arab Emirates, Dubai
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
From Nepal, Kathmandu
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
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
From India, Pune
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
From India, Pune
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
From India, Madras
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
From India, Madras
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. |
Please mail me a copy of this Excel pdf at
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. |
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 '
'*********************************************
From India, Aizawl
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 '
'*********************************************
From India, Aizawl
Community Support and Knowledge-base on business, career and organisational prospects and issues - Register and Log In to CiteHR and post your query, download formats and be part of a fostered community of professionals.
Microsoft Excel Shortcut Keys[1].pdf
Microsoft Excel-shortcuts .doc