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

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

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
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 am enclosing a 60 pages Guide to use Excel . Hope this will help you.
From India, Mumbai

Attached Files
Membership is required for download. Create An Account First
File Type: pdf excel_book1_137.pdf (478.7 KB, 1984 views)

Hi all, I have sent it to you via email. Also you can download the attachment by ( left click, save target as ) Divya
From India, Mumbai
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

Attached Files
Membership is required for download. Create An Account First
File Type: xls 33_what_day_is_today_488.xls (42.5 KB, 248 views)
File Type: xls 31using_index_and_match_to_fetch_info_157.xls (44.5 KB, 211 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. |

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


Reply (Add What You Know) Start New Discussion






About Us Advertise Contact Us
Privacy Policy Disclaimer Terms Of Service



All rights reserved @ 2017 Cite.Co™