Question about Microsoft Business & Productivity Software

Function countblank won't work in the column, if the data is in the data format. I tried 3 to 4 times. Is there any way to get the result if it is the date format in the column.

gopalakrishnarao1@indiatimes.com

Check the format of the cell with countblank formula - it shouldn't be in date format.

Posted on Nov 25, 2008

Using a time format for the data cells and data that looks like 12:00:10 AM the result you want is displayed no matter which formula is used. If the date portion of the data cell is not deleted then the result is 00:00:00. Delete the date portion of your data cells to get the result you want. (For example: When I enter 10 into a cell that is formated for time xx:xx:xx it shows 1/11/1904 12:00:00 AM in the formula bar and 00:00:00 in the cell. When I delete 1/11/1904 in the formula bar and show only the 12:00:10 the cell shows 00:00:10. Then it makes no difference which formula you use.)

Sep 19, 2009 | Microsoft OFFICE 2003 BASIC OEM ENGLISH MS...

Here is a solution that might work for you. Please be mindful that there are several different solutions that will achieve the same thing in Excel (I am assuming Excel is your software).

1) Make sure each column in your spreadsheet has a heading.

2) Highlight (select) the column of birthdays.

3) Choose Format from the menu bar.

4) Choose Cells... from the drop-down menu.

5) For the "category", choose Custom.

6) In the "type" box, type yyyy

7) Click OK and when you return to your spreadsheet, you will see only the years displayed. However, when you try to edit a cell, you will see that the entire birth date is stored and preserved.

8) Now, highlight the entire table

9) Then, choose Data from the menu bar

10) Choose Subtotals... from the drop-down menu

11) In the "At each change in" box, choose the name of the column with the birth dates

12) In the "Use function" box, choose Count

13) Leave all other choices at their defaults

14) Click OK, and you are done.

Using this method, you can continue to enter the data as you always have. In that way, the birth date info is never actually destroyed or converted. What you are doing is simply deciding what is displayed.

I hope this helps.

1) Make sure each column in your spreadsheet has a heading.

2) Highlight (select) the column of birthdays.

3) Choose Format from the menu bar.

4) Choose Cells... from the drop-down menu.

5) For the "category", choose Custom.

6) In the "type" box, type yyyy

7) Click OK and when you return to your spreadsheet, you will see only the years displayed. However, when you try to edit a cell, you will see that the entire birth date is stored and preserved.

8) Now, highlight the entire table

9) Then, choose Data from the menu bar

10) Choose Subtotals... from the drop-down menu

11) In the "At each change in" box, choose the name of the column with the birth dates

12) In the "Use function" box, choose Count

13) Leave all other choices at their defaults

14) Click OK, and you are done.

Using this method, you can continue to enter the data as you always have. In that way, the birth date info is never actually destroyed or converted. What you are doing is simply deciding what is displayed.

I hope this helps.

Aug 02, 2009 | Microsoft Office Excel 2007

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

you've use macro to this.

it will open Microsoft Vsual Basic Editor.

Click on

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

Select Case Paise

Case ""

Paise = " Only"

Case "One"

Paise = " and One Paisa"

Case Else

Paise = " and " & Paise & " Paise"

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

now, you'll have to activate this AddIns:

in your Excel Worksheet select:

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:

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 Business & Productivity Software

Add another colum, say D with result of B*C

Do a list of the different cat, and use sumif

For cat 0101 (in cell F1)

formula to put in G1

=sumif($A$1:$A$7000;F1;$D$1:$D$7000) where F1 contain 0101

expand the formula for other cat. (G2, G3, etc)

You can use a assistant to extract the distinct cat from A1:A7000, sorting them and copy the result in F (Menu Data-> Filter -> elaborate filter)

Do a list of the different cat, and use sumif

For cat 0101 (in cell F1)

formula to put in G1

=sumif($A$1:$A$7000;F1;$D$1:$D$7000) where F1 contain 0101

expand the formula for other cat. (G2, G3, etc)

You can use a assistant to extract the distinct cat from A1:A7000, sorting them and copy the result in F (Menu Data-> Filter -> elaborate filter)

Feb 16, 2009 | Microsoft Excel for PC

Can you do this using a pivot table where columns B & C are Row Fields and Count of B&C is data fields.

Jan 17, 2009 | Microsoft Excel for PC

Jul 15, 2008 | Microsoft Excel for PC

an2net21,

The simplest solution is to use the if function.

In your example you coudl use:

=IF(A1="girl",1,0)

IF "girl" is in a1 then b2 would show as 1.

If anything else but "girl" is in a1 then b2 would show as 0.

The simplest solution is to use the if function.

In your example you coudl use:

=IF(A1="girl",1,0)

IF "girl" is in a1 then b2 would show as 1.

If anything else but "girl" is in a1 then b2 would show as 0.

Feb 25, 2008 | Microsoft Office Professional 2007 Full...

If you can move your name column (C) to the first column, you could leverage the VLOOKUP formula pretty easily.

To do this, do the following:

1) Move the C Column to be the A Column, shifting all other columns to the right.

2) (optional) Insert a new row at the top of the sheet (to hold the formula & seach value)

3) Use A1 as your search field.

4) In A2, enter the following formula:

=VLOOKUP($A$1,$A$2:$C$6,3,)

Describing above parameters, in the formula:

$A$1 -> the search field (name your looking for).

$A$2:$C$6 -> The table/grid you wish to search and return values from. The left most column (A) must contain the values to be searched.

3 -> is the column number (A=1,B=2,C=3, etc) within the table/grid to return.

If you cannot make the name column your first (A) column, there are more complex ways to do this. For instance, create a new sheet which redisplays the info in the structure easier for this method, and perform the VLOOKUP on that data. Other options might exist in creating a complex formula that would get you what you want.

Also, if you can sort column A (names) it would find results faster, if your data set is large.

To do this, do the following:

1) Move the C Column to be the A Column, shifting all other columns to the right.

2) (optional) Insert a new row at the top of the sheet (to hold the formula & seach value)

3) Use A1 as your search field.

4) In A2, enter the following formula:

=VLOOKUP($A$1,$A$2:$C$6,3,)

Describing above parameters, in the formula:

$A$1 -> the search field (name your looking for).

$A$2:$C$6 -> The table/grid you wish to search and return values from. The left most column (A) must contain the values to be searched.

3 -> is the column number (A=1,B=2,C=3, etc) within the table/grid to return.

If you cannot make the name column your first (A) column, there are more complex ways to do this. For instance, create a new sheet which redisplays the info in the structure easier for this method, and perform the VLOOKUP on that data. Other options might exist in creating a complex formula that would get you what you want.

Also, if you can sort column A (names) it would find results faster, if your data set is large.

Feb 03, 2008 | Microsoft Excel for PC

column d = column c divided by column b. result can be formatted to 3 decimal places or anything you prefer.

Sep 09, 2007 | Microsoft Office Standard for PC

45 people viewed this question

Usually answered in minutes!

×