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

• -Gábor- csendes tag

  #438

  #436 matekmatika

  2006-05-12 16:48:04

  Új Válasz

  Ú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

  

  -Gábor-

  csendes tag

  #436 matekmatika

  #436 matekmatika

  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.

  Hiányzik a deklaráció:
  
  Dim szam as string
  
  [Szerkesztve]

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