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
Acknowledge(0)
Amend(0)
11From United Arab Emirates, Dubai
Acknowledge(0)Amend(0)
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 favorites is: http://www.mvps.org/dmcritchie/excel/excel.htm. It may appear chaotic (it's not very well-structured), but it provides 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
Acknowledge(0)Amend(0)
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 favorites is: http://www.mvps.org/dmcritchie/excel/excel.htm. It may appear chaotic (it's not very well-structured), but it provides 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
Acknowledge(0)Amend(0)
I am enclosing a 60 pages Guide to use Excel . Hope this will help you.
From India, Mumbai
Acknowledge(0)Amend(0)
From India, Mumbai
Acknowledge(0)Amend(0)
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 an email. Let me try to send a few more, which can be useful to other members of this site as well.
Regards,
RAJACSN
From India, Madras
Acknowledge(1)
Amend(0)
Regards,
RAJACSN
From India, Madras
Acknowledge(1)Amend(0)
Greetings Divya,
Please email me a copy of this Excel PDF at ureachmike@gmail.com. I have not been able to download it from the site. Looking forward to your earliest response.
Wishing you a wonderful day ahead!
Thanks & Regards,
Mike [Mukesh Sharma]
Dy. Resource Manager - Oracle, Siebel & SQA Technologies
FCS Software Solutions Inc.
Acknowledge(0)Amend(0)
Please email me a copy of this Excel PDF at ureachmike@gmail.com. I have not been able to download it from the site. Looking forward to your earliest response.
Wishing you a wonderful day ahead!
Thanks & Regards,
Mike [Mukesh Sharma]
Dy. Resource Manager - Oracle, Siebel & SQA Technologies
FCS Software Solutions Inc.
Acknowledge(0)Amend(0)
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 the amount.
MyNumber = Trim(Str(MyNumber))
'Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
'Convert cents and set MyNumber to the 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
Acknowledge(0)Amend(0)
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 the amount.
MyNumber = Trim(Str(MyNumber))
'Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
'Convert cents and set MyNumber to the 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
Acknowledge(0)Amend(0)CiteHR is an AI-augmented HR knowledge and collaboration platform, enabling HR professionals to solve real-world challenges, validate decisions, and stay ahead through collective intelligence and machine-enhanced guidance. Join Our Platform.
Excel tips.pps
(ebook PC) 300 excel tips.pdf