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

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Excel » Cell Value 




Determining a cell's data type
 
Function CellType(Rng)
    Application.Volatile
    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
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.