Typ dat v buňce, odchycení chyby – Visual Basic – Fórum – Programujte.com

V VB jsem nikde nenašel žádnou možnost, jak zjistit, jaká data jsou v Excelu v buňce zadána, zda-li je to číslo, nebo text.

Snažil jsem se to vyřešit ošetřením chyby podle vzoru takto:

Dim c As Integer

        c = 1

        On Error GoTo fnnn

        i_temp = Cells(i_b, 1) & c

        On Error GoTo 0 'ruší ignoraci chyb

 

fnnn: 'zruší chybu

    Err.Number = 0

    i_temp = -1

    c = c + 1

    'navrat na radek, kde byla chyba

    Resume 

Při spuštění došlo k zaciklení.

Vůbec nechápu, proč je tam ta proměnná  c a co dělá.

VB není moje parketa, takže prosím o pomoc s vyřešením problému.

Tak jsem se snažil to vyřešit tímto způsobem:

  For i_b = 6 To 2000
        On Error GoTo fnnn
        i_temp = Cells(i_b, 1)
        On Error GoTo 0 'ruší ignoraci chyb
        GoTo labelk
fnnn: 'zruší chybu
    Err.Number = 0
    i_temp = -1
    On Error GoTo 0
labelk:
-nějaký další kod
Next i_b

Dojde však k tomu, že při druhém průchodu to vyhodí chybu. Ošetření chyby nefunguje.







#2 natech
A tahle funkce VBA by ti nestačila?

IsNumeric Function 

Returns a Boolean value indicating whether an expression can be evaluated as a number.

Syntax

IsNumeric(expression)

The required expression argument is a Variant containing a numeric expression or string expression.

Remarks

IsNumeric returns True if the entire expression is recognized as a number; otherwise, it returns False.

IsNumeric returns False if expression is a date expression.

Example
This example uses the IsNumeric function to determine if a variable can be evaluated as a number.

Dim MyVar, MyCheck
MyVar = "53"    ' Assign value.
MyCheck = IsNumeric(MyVar)    ' Returns True.

MyVar = "459.95"    ' Assign value.
MyCheck = IsNumeric(MyVar)    ' Returns True.

MyVar = "45 Help"    ' Assign value.
MyCheck = IsNumeric(MyVar)    ' Returns False.
 

Jedinej problem s IsNumeric() v českým Excelu je, že jako číslo bere "158,58" a nebere "158.58".#3 JoDiK

#4 Keny
A co ti brání v českým excelu nejdřív změnit tečku na čárku?

#5 JoDiK
Krom práce navíc nebo možnosti změny čárky tam, kde se měnit nemá nic. Osobně tedy pokud není předem jasné jestli budou mít čísla des. čárku nebo tečku používam fci., které dá šanci Isnumeric() a pokud řetězec není číslo, otestuje jestli to není číslo s des. čárkou.