Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

Hirdetés

100 000 érv a ReGalaxy mellett: Vásárolj Galaxy Z Fold7 I Z Flip7 vagy Galaxy S25 szériás készüléket, és régi mobilod felújítását 100 000 Ft-ig mi álljuk!

Új hozzászólás Aktív témák

  • #436 matekmatika tag
    Új Válasz #436
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    matekmatika

    tag

    Hogyan tudom megvizsgálni a változóba írt éték az szám-e, azaz numerikus-e. Nem kérdeznék ilyen egyszerűnek tűnő dolgot, de már két napja kínlódok vele. Egy csomó példát találtam a neten, próbálgattam, de egyik sem működik. Makrorögzítővel ha készítek egy egyszerű példát:
    Sub Rögzítés1()
    '
    ' Rögzítés1 Makro
    ' Rögzítette: karbantartás, dátum: 2006.05.12.
    '
    ' Billentyűparancs: Ctrl+m
    '
    Range(''C8'').Select
    ActiveCell.FormulaR1C1 = ''=ISNUMBER(12)''
    End Sub
    Ez még a Ctrl+m-mel működik is.Sőt parancsgomb alá berakva is.
    Private Sub CommandButton1_Click()
    Range(''C8'').Select
    ActiveCell.FormulaR1C1 = ''=ISNUMBER(12)''
    End Sub

    De amint elkezdem átalakítani az igényeimnek megfelelően, már kiakad.
    Private Sub CommandButton1_Click()
    szam = InputBox(''Add meg a számot'', ''Szám megadása'', '''', 5000, 1000)
    If IsNumber(szam) Then
    MsgBox (''ez egy szám'')
    Else
    MsgBox (''ez nem szám'')
    End If
    End Sub

    Üzenet: Compile error:Sub or Function not defined
    Nem értem mi lehet a hiba, próbélkoztam hasonlóan az IsNumeric függvénnyel is, de ugyanez. Segítsetek légyszíves, köszi.

Új hozzászólás Aktív témák