Determining a cell's data type : Cell Value « Excel « VBA / Excel / Access / Word

Determining a cell's data type

Function CellType(Rng)
    Set Rng = Rng.Range("A1")
    Select Case True
        Case IsEmpty(Rng)
            CellType = "Blank"
        Case WorksheetFunction.IsText(Rng)
            CellType = "Text"
        Case WorksheetFunction.IsLogical(Rng)
            CellType = "Logical"
        Case WorksheetFunction.IsErr(Rng)
            CellType = "Error"
        Case IsDate(Rng)
            CellType = "Date"
        Case InStr(1, Rng.Text, ":") <> 0
            CellType = "Time"
        Case IsNumeric(Rng)
            CellType = "Value"
    End Select
End Function


Related examples in the same category

1.Define a string type variable and set to Cell(1,D)
2.StrConv("ALL LOWERCASE ", vbLowerCase)
3.Format("ALL LOWERCASE ", "<")
4.Checks values in a range 10 rows by 5 columns
5.Checks values in a range 10 rows by 5 columns with nested for loop
6.Place the value (result) of a formula into a cell rather than the formula.
7.Validation with a Spreadsheet Cell
8.Assing value in Cells to array, do the bubble sort and assign them back
9.transposes the values of a group of cells in a worksheet
10.Calculate cell