Question about Microsoft Office Excel 2007

3 Answers

We have two column which name is age and option, want to result that if age is >= 20 and <= 30 and option is 1 or yes how can we sum or count this coulmn in exel

Posted by on

3 Answers

  • Level 2:

    An expert who has achieved level 2 by getting 100 points

    MVP:

    An expert that got 5 achievements.

    Governor:

    An expert whose answer got voted for 20 times.

    Hot-Shot:

    An expert who has answered 20 questions.

  • Expert
  • 67 Answers

Hello :)
You don't need to use "and" function actually...
If A1 is your age column type the following formula in B1:
=(if(b1>=20,(if(b1<=30,1,"")),"")

It checks if b1 is bigger or equal to 20, if yes checks again if b1 is smaller or equal then 30, if yes, B1 will be 1, otherwise nothing.

Posted on May 22, 2009

  • Level 2:

    An expert who has achieved level 2 by getting 100 points

    Hot-Shot:

    An expert who has answered 20 questions.

    Corporal:

    An expert that has over 10 points.

    Mayor:

    An expert whose answer got voted for 2 times.

  • Expert
  • 52 Answers

First of all thanks for question, 
use this formula in option column
=IF(AND(A2>=20,A2<=30),1,"yes")
ok once aagain thanks 
beee

Posted on May 14, 2009

  • Level 2:

    An expert who has achieved level 2 by getting 100 points

    MVP:

    An expert that got 5 achievements.

    Vice President:

    An expert whose answer got voted for 100 times.

    Governor:

    An expert whose answer got voted for 20 times.

  • Expert
  • 114 Answers

You have to use an If statement for the same. Use multiple conditions in If statement like this.

http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=242

See the part where it explains the AND

Posted on May 14, 2009

1 Suggested Answer

6ya6ya
  • 2 Answers

SOURCE: I have freestanding Series 8 dishwasher. Lately during the filling cycle water hammer is occurring. How can this be resolved

Hi,
a 6ya expert can help you resolve that issue over the phone in a minute or two.
best thing about this new service is that you are never placed on hold and get to talk to real repairmen in the US.
the service is completely free and covers almost anything you can think of (from cars to computers, handyman, and even drones).
click here to download the app (for users in the US for now) and get all the help you need.
goodluck!

Posted on Jan 02, 2017

Add Your Answer

Uploading: 0%

my-video-file.mp4

Complete. Click "Add" to insert your video. Add

×

Loading...
Loading...

Related Questions:

1 Answer

Sum numbers in a column down until you come to a blank, then start again


Sounds like your issue can be solved readily with a pivot table.
If you give the columns of names a title like "NAME" and the number columns a name like "VALUE". All other columns should contain a unique name.

Then select the entire table, including the labels at the top ensuring that the range extends entirely over the column you need to sum the values of.

In Excel 2013, choose the INSERT menu and select the PIVOT TABLE command.
Insert the Pivot table into a new worksheet.
A new sheet will open with a strange-looking control panel on the right of the window.
Make sure that the box for NAME and VALUE (only) are checked

You will notice that Excel assumes that you want the SUM of the values for each NAME summed. The results are in the leftmost area of the worksheet.

If this works for you, please vote my answer as "helpful".

Sep 03, 2014 | Microsoft Excel for PC

1 Answer

Netgear cli


NETGEAR FVS338 Comand Line Interface (CLI)

FVS338: />
bin/ config/ stats/

FVS338: /bin>
ls - lists available commands
cd - changes current working directory
help - Used to list directory or help for a specific command
version - Get the Product/ModSets Version history of the image. Usage : version -all
logout - Closes the Current Session
shell - Run a unix shell
linux-version - Prints the Linux-Mod-Set Version
ping - ping <ipaddress/host> [-c count] [-f] [-s packetsize]
ICMP ECHO REQUEST Check statistics

FVS338: /config>
sys/ sntpc/ ip/ ether/ polgrp/
userdb/ ldsv/ snet/ ad/ iapd/
firewall/ relay/ upn/ algs/ tcpreasm/
diag/ trace/ ike/ spd/ sad/
ipsec/ dnsrd/ ddns/ dhcpc/ ipreasm/
dhcpd/ dhcpr/ rtrid/ macdatabase/ cmgr/
scep/ ldap/ syslog/ mesgthrt/
ocsp/ domain/ wan/ snmp/
lxos/ interfaces/ webproxy/ http/

FVS338: /config/sys>
setzone - sets system time zone. Usage: setzone +/-hh:mm abbrivation <-dst [set/reset]>
settime - sets system time. Usage: settime mm-dd-yyyy hh:mm:ss
time - displays system time. Usage: time
reboot - Reboots the system. Usage: reboot
facdefault - Sets factory defaults. Needs reboot
boxtype - Displays the box configuration type(SOHO(SME)/MTU). Syntax: boxtype
syslist - Displays all the system variables USAGE: SysList
syscontact - sets the system contact person info :USAGE SysContact <CONTACT ADDRESS>
sysname - sets the name of this node :USAGE SysName <name string>
syslocation - sets the physical Location of this node :USAGE SysLocation <name string>
domainname - sets the domain name:USAGE domainname <domain name string>
startcap - Starts packet capture :USAGE startcap <IfaceName> [-c NoOfPackets] :Ex startcap ixp0 -c 20
stopcap - Stops the packet capture :USAGE stopcap

FVS338: /config/sntpc>
sntpenable - USAGE: sntpenable [-i <timezone Index>]
1 - UK,GreenWich,Casablanca,Monrovia (GMT).
2 - Eniwetok,Kwajalein (GMT-12:00).
3 - Midway I., Samoa (GMT-11:00).
4 - Hawaii (GMT-10:00).
5 - Marqesas Is. (GMT-9:30).
6 - Alaska (GMT-9:00).
7 - Pitciarn Is. (GMT-8:30).
8 - Pacific Time ..US and Canada (GMT-8:00).
9 - Arizona (GMT-07:00).
10 - MountainTime(USA)(GMT-7:00).
11 - CentralTime(USA),Mexico City,Tequciqalpa (GMT-6:00).
12 - Indiana East (GMT-05:00).
13 - EasternTime(USA),Bogota,Lima,Quito (GMT-5:00).
14 - AtlanticTime,Caracas,La Paz (GMT-4:00).
15 - Newfoundland (GMT-03:30).
16 - Brasilia,Beunos Aires,Georgetown (GMT-3:00).
17 - Mid-Atlantic (GMT-2:00).
18 - Azores,Cape Verde Is. (GMT-1:00).
19 - Europe (GMT+1:00).
20 - Egypt,Finland,Romania,Turkey,Greece,Jordan(GMT+2:0 0).
21 - Israel(GMT+02:00).
22 - Mascow,St.Petersburg,Iraq,Syria(GMT+03:00).
23 - Iran (GMT+3:30).
24 - Armenia, Azerbaijan (GMT+4:00).
25 - Afghanistan (GMT+4:30).
26 - Pakistan,Russia (GMT+5:00).
27 - India (GMT+5:30).
28 - Bangladesh,Russia (GMT+6:00).
29 - Burma (GMT+6:30).
30 - Thailand, Combodia, Laos (GMT+07:00).
31 - China,kuala Lumpur,Singapore,Philippines,Perth(GMT+08:00).
32 - Japan,Korea,Russia (GMT+09:00).
33 - Adelaide (GMT+9:30).
34 - Brisbane,Gaum,Papua New Guinea,Tasmania (GMT+10:00).
35 - Sydney,Melbourne,canberra (GMT+10:00).
36 - Lord Howe I. (GMT+10:30)
37 - Solomon Is., Magadan,Russia (GMT+11:00).
38 - Norfolk I. (GMT+11:30)
39 - New Zealand,Fiji,Kamchatka,Marshall Is.(GMT+12:00).
40 - Tonga (GMT+13:00).
41 - Kiribati,Western Samoa (GMT+14:00).
addservers - USAGE: addservers <Primary Server Domain Name/IP Address> [-pp <Primary Server Port>]
[[-s <Secondary Server Domain Name/IP Address>] [-sp <Secondary Server Port>]]
Public SNTP Servers list:
louie.udel.edu ntp-0.cso.uiuc.edu ntp.ourconcord.net
ntp-1.mcs.anl.gov ntp-2.mcs.anl.gov time-a.nist.gov
time-b.nist.gov time-a.timefreq.bldrdoc.gov utcnist.colorado.edu
time.nist.gov time-nw.nist.gov nist1.datum.com
nist1.aol-ca.truetime.com
listservers - list servers ....
Syntax:listservers
sntpdisable - Disables the sntp client....
Syntax:sntpdisable
show - Displays the Sntp Client Parameters...
Syntax:show
delservers - Delete servers...
Usage : delservers <prim/sec/all> (primary server/secondary servers /both )

FVS338: /config/ip>
route/ rip/
address - address <ifname> <static/dynamic>[if static only:-><-ip <ipaddr>/<mask'bits>>]
[-rip <enable/disable>] [if dynamic only:-><-dfrt enable/disable>,
we need to tell whether DHCP client should add default route corresponding to
the gateway it got from DHCP server]
alias - alias <interface> <ipaddress> [-m mask] [-b broadcast]
up - USAGE : Up <interface>
down - down <interface>
list - list [-i interface] lists all the statistics
stats - USAGE : stats

FVS338: /config/ip/route>
add - add <ipaddr'default> <gw> <mask> <iface> <metric>
Ex: add 172.16.5.0 172.16.1.5 255.255.255.0 eth0 15
del - del <ipaddr'default> <gw> <mask> <iface> <metric>
list - lists all the routing table entries

FVS338: /config/ip/rip>
showrec - To show records: showrec [-name <record name>]
delrec - To delete a rip record: delrec <rip record name>
addrec - To add a rip record: addrec <record name>
<version: 1[for RIPv1] or 2[for RIPv2] or
3[for RIPv2(RIPv1 compatible)]>
<direction control: Tx or Rx or TxRx>
[-auth <authtype: 0(AUTHNONE), 2(SIMPLE) or 3(MD5)>]
[-id1 <authid1>] [-key1 <authkey1>]
[-starttime1 <starttime1>] [-stoptime1 <stoptime1>]
[-id2 <authid2>] [-key2 <authkey2>]
[-starttime2 <starttime2>] [-stoptime2 <stoptime2>]

Note: For Simple authentication use opt parameter [-key1 <authkey1>]
to enter Password
For starttimes and stoptimes:: Time format: <mm/dd/yyyy'hr:min:sec>
Example: -starttime1 6/6/2001'5:30:00
modrec - To modify a rip record: modrec <record name>
<version: 1[for RIPv1] or 2[for RIPv2] or
3[for RIPv2(RIPv1 compatible)]>
<direction control: Tx or Rx or TxRx>
[-auth <authtype: 0(AUTHNONE), 2(SIMPLE) or 3(MD5)>]
[-id1 <authid1>] [-key1 <authkey1>]
[-starttime1 <starttime1>] [-stoptime1 <stoptime1>]
[-id2 <authid2>] [-key2 <authkey2>]
[-starttime2 <starttime2>] [-stoptime2 <stoptime2>]

Note: For Simple authentication use opt parameter [-key1 <authkey1>]
to enter Password

For starttimes and stoptimes:: Time format: <mm/dd/yyyy'hr:min:sec>
Example: -starttime1 6/6/2001'5:30:00
list - List RIP list : list [-name <ifname>]
merge - Set Merge on or off : merge on'off
senddefault - Set SendDefault on or off : senddefault on'off
subnets - Enable/Disable subnets : subnets on'of

Feb 27, 2012 | NetGear Computers & Internet

1 Answer

Write a program to sum of all even integer numbers


#include <iostream>
using namespace std;
int main ()
{
int num = 0, i = 1, sum = 0;
cout << "Enter a positive integer: ";
cin >> num;
while (i <= num)
{
sum += i;
i++;
}
cout << "The sum is " << sum << endl;
return 0;
}

Oct 30, 2010 | Compaq Visual Fortran Professional Edition...

1 Answer

Convert numbers to text in excell


  1. Start Microsoft Excel.
  2. Press ALT+F11 to start the Visual Basic Editor.
  3. On the Insert menu, click Module.
  4. Type the following code into the module sheet. Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp 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 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function ' Converts a number from 100-999 into text 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 = GetDigit(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 & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function ' Converts a number from 10 to 99 into text. 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 & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function ' Converts a number from 1 to 9 into text. Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End Select End Function
uparrow.gifBack to the top How to use the SpellNumber sample function loadTOCNode(2, 'moreinformation'); To use the sample functions to change a number to written text, use one of the methods demonstrated in the following examples: uparrow.gifBack to the top Method 1: Direct Entry loadTOCNode(2, 'moreinformation'); You can change 32.50 into "Thirty Two Dollars and Fifty Cents" by entering the following formula into a cell: =SpellNumber(32.50) uparrow.gifBack to the top Method 2: Cell reference loadTOCNode(2, 'moreinformation'); You can refer to other cells in the workbook. For example, enter the number 32.50 into cell A1, and type the following formula into another cell: =SpellNumber(A1) uparrow.gifBack to the top Method 3: Paste Function or Insert Function loadTOCNode(2, 'moreinformation'); To enter a custom function into a worksheet, you can use Paste Function in Excel 2000, or you can use Insert Function in Excel 2002 and in Excel 2003. Excel 2000 loadTOCNode(3, 'moreinformation'); To use Paste Function, follow these steps:
  1. Select the cell that you want.
  2. Click Paste Function on the Standard toolbar.
  3. Under Function category, click User Defined.
  4. Under Function name, click SpellNumber, and then click OK.
  5. Enter the number or cell reference that you want, and then click OK.
Excel 2002 and Excel 2003 loadTOCNode(3, 'moreinformation'); To use Insert Function, follow these steps:
  1. Select the cell that you want.
  2. Click Insert Function on the Standard toolbar.
  3. Under Or select a category, click User Defined.
  4. In the Select a function list, click SpellNumber, and then click OK.
  5. Enter the number or cell reference that you want, and then click OK.

Apr 01, 2010 | Microsoft Windows XP Professional

1 Answer

Sum of the greatest run of negitive numbers


Hi, Not sure if this is what you have tried:
1: Assuming each run is on a different column
Run1 Run2 Run3 Run4, etc...and the maxium lenght of each column is 9 values, but each colum has a different lenght of numbers..
Then you can use:
=MAX(COUNTIF(A2:A10,"<>0"),COUNTIF(B2:B10,"<>0"), {keep adding countif for each colum).

If all runs are on the same colum, then using Pivot tables is easier. If you have a copy of your data, please post it so that I can give you the exact formula ;)

Oct 21, 2009 | Microsoft Excel for PC

1 Answer

Suppose 1011 amt convert in words like 'One


Hiii

  1. Start Microsoft Excel.
  2. Press ALT+F11 to start the Visual Basic Editor.
  3. On the Insert menu, click Module.
  4. Type the following code into the module sheet. Option Explicit
    'Main Function
    Function SpellNumber(ByVal MyNumber)
    Dim Dollars, Cents, Temp
    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
    Do While MyNumber <> ""
    Temp = GetHundreds(Right(MyNumber, 3))
    If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
    If Len(MyNumber) > 3 Then
    MyNumber = Left(MyNumber, Len(MyNumber) - 3)
    Else
    MyNumber = ""
    End If
    Count = Count + 1
    Loop
    Select Case Dollars
    Case ""
    Dollars = "No Dollars"
    Case "One"
    Dollars = "One Dollar"
    Case Else
    Dollars = Dollars & " Dollars"
    End Select
    Select Case Cents
    Case ""
    Cents = " and No Cents"
    Case "One"
    Cents = " and One Cent"
    Case Else
    Cents = " and " & Cents & " Cents"
    End Select
    SpellNumber = Dollars & Cents
    End Function

    ' Converts a number from 100-999 into text
    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 = GetDigit(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 & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
    End Function

    ' Converts a number from 10 to 99 into text.
    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 & GetDigit _
    (Right(TensText, 1)) ' Retrieve ones place.
    End If
    GetTens = Result
    End Function

    ' Converts a number from 1 to 9 into text.
    Function GetDigit(Digit)
    Select Case Val(Digit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
    End Select
    End Function
Hope this will solve ur problem

Regards.
G'Day

Sep 10, 2009 | Microsoft Office Professional 2007 Full...

1 Answer

I WANT THE WHOLE CODE FOR THIS


This whole code for above we can not give.

Aug 06, 2009 | Shopnovell iFolder 1.0 Software Media Kit...

1 Answer

In MS Excel, convert a Number in Text formate


Dear,

you've use macro to this.

Press Alt+F11
it will open Microsoft Vsual Basic Editor.

Click on Module in Insert Menu and paste the following codings:

Function ConvRs(ByVal MyNumber)
Dim Rupees, Paise, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Thousand "
Place(3) = " Lac "
Place(4) = " Crore "
Place(5) = " Arab " ' String representation of amount
MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none
DecimalPlace = InStr(MyNumber, ".")
' Convert Paise and set MyNumber to Rupee amount
If DecimalPlace > 0 Then
Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
If Count = 1 Then Temp = GetHundreds(Right(MyNumber, 3))
If Count > 1 Then Temp = GetHundreds(Right(MyNumber, 2))
If Temp <> "" Then Rupees = Temp & Place(Count) & Rupees
If Count = 1 And Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
If Count > 1 And Len(MyNumber) > 2 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 2)
Else
MyNumber = ""
End If
End If
Count = Count + 1
Loop
Select Case Rupees
Case ""
Rupees = "No Rupees"
Case "One"
Rupees = "One Rupee"
Case Else

'Rupees = Rupees & " Rupees"
Rupees = "Rupees " & Rupees

End Select
Select Case Paise
Case ""

'Paise = ""
Paise = " Only"
Case "One"
Paise = " and One Paisa"
Case Else
Paise = " and " & Paise & " Paise"

End Select
ConvRs = Rupees & Paise
End Function
'***************************************...
' Converts a number from 100-999 into text *
'***************************************...
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 = GetDigit(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 & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
'***************************************...
' Converts a number from 10 to 99 into text. *
'***************************************...
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 & GetDigit _
(Right(TensText, 1)) 'Retrieve ones place
End If
GetTens = Result
End Function
'***************************************...
' Converts a number from 1 to 9 into text. *
'***************************************...
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function



save this as as ConvertRs.xla in Microsoft\AddIns folder

now, you'll have to activate this AddIns:
in your Excel Worksheet select:
Tools\Add.Ins...
Check the ConvertRs option
now this will be used as User Defined Function.
you can insert it from the Function Options or just enter the following command in the desired cell where you want the result:

=ConvertRs(Cell Reference)

Cell Reference means where the number is available, you want to convert.

Try this and then tell me the responce.

Bhasker Kumar

Jul 09, 2009 | Microsoft Computers & Internet

2 Answers

HOW TO PROGRAM ARITHMETIC ALGORITHM( ADDITION)IN C++


above int main () you will want "using namespace std;" without quotes. Under that, "int main ()" without quotes, then a [ bracket to start the main function.
Please rate, thanks!

Mar 16, 2009 | Computers & Internet

2 Answers

Should I use countif or if or what ??


hi this my id :dadu_mf@rediff.com plz send excel material

Mar 25, 2008 | Microsoft Excel for PC

Not finding what you are looking for?
Microsoft Office Excel 2007 Logo

75 people viewed this question

Ask a Question

Usually answered in minutes!

Top Microsoft Computers & Internet Experts

micky dee

Level 3 Expert

2727 Answers

Piyal Perera
Piyal Perera

Level 3 Expert

528 Answers

Les Dickinson
Les Dickinson

Level 3 Expert

18392 Answers

Are you a Microsoft Computer and Internet Expert? Answer questions, earn points and help others

Answer questions

Manuals & User Guides

Loading...