GET.CELL(4, What is TYPE?

[Excelente]

Below is the information out of the help for the GET.CELL() function bu
I'm looking for the equivalent test in VBA for the type_num =
situation. I see that #4 below is "4 Same as TYPE(reference)." Bu
what does this mean? VBA has test for DataType, but thats good fo
PivotTables. I want to test a cell when it has general formatting t
know if the data in the cell is a "date", or number, or string, o
whatever. What are all of the datatypes that a cell can have whe
formatted in the General Format?

Any thoughts?

================
Here's the first part out of the help. The same help file has NOTHIN
in it for TYPE(reference). ugh!
================

Macro Sheets Only
Returns information about the formatting, location, or contents of
cell.
Use GET.CELL in a macro whose behaviour is determined by the status o
a
particular cell.

Syntax

GET.CELL(type_num, reference)
Type_num is a number that specifies what type of cell information you
want. The following list shows the possible values of type_num and the
corresponding results.

Type_num Returns

1 Absolute reference of the upper-left cell in reference, as text i
the
current workspace reference style.
2 Row number of the top cell in reference.
3 Column number of the leftmost cell in reference.
4 Same as TYPE(reference).
5 Contents of reference.
6 Formula in reference, as text, in either A1 or R1C1 style dependin
on the
workspace setting.
7 Number format of the cell, as text (for example, "m/d/yy" o
"General").
8 Number indicating the cell's horizontal alignment:
1 = General
2 = Left
3 = Center
4 = Right
5 = Fill
6 = Justify
7 = Center across cell

 

[Tom Ogilvy]

The type worksheet function shows:

Number
Text
Logical value
Error Value
Array

A date is just a number that represents the elapsed number of days from a
base date. Excel interprets it as a date to make it a date.

 

[Bob Phillips]

If Range("A1").HasFormula Then
MsgBox "formula"
ElseIf IsDate(Range("A1").Value) Then
MsgBox "date"
ElseIf IsNumeric(Range("A1").Value) Then
MsgBox "number"
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Tom Ogilvy]

Not sure IsDate is going to make it for a cell formatted as General as asked
by the OP:

ActiveCell.Value = DateValue("01/01/2001")
? isdate(activecell.Value)
True
activecell.NumberFormat = "General"
? isdate(activeCell.Value)
False

Of course maybe he only meant started out as being formatted as general;
before the date was entered.
--
Regards,
Tom Ogilvy

If Range("A1").HasFormula Then
MsgBox "formula"
ElseIf IsDate(Range("A1").Value) Then
MsgBox "date"
ElseIf IsNumeric(Range("A1").Value) Then
MsgBox "number"
End If


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Excelente]

Many thanks Tom! This was just what I needed. I appreciate you
thoroughness as well. :