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

• #436 matekmatika tag

  Új Válasz 2006-05-12 16:25:57 #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