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

• #7749 adam_ senior tag

  Új Válasz 2014-02-10 18:45:43 #7749

  Ú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

  

  adam_

  senior tag

  Sziasztok, a program itt áll le szintaktikai hibával Elself intValasz = -4 Then. Tipp, hogy mi lehet a baja? A feladat pedig egy könyvben van leírva példaként, ez alapján csináltam meg ezt is, de valamiért nem fut le, és nem tudom, hogy miért. A -4-es hibakód pedig elvileg jó, amit az elself ágba írok.

  Köszönöm szépen előre is.

  Option Explicit
  
  Sub Racsok()
  Dim blnCellaRacs As Balloon
  Dim intValasz As Integer
  Const STR_CIME As String = "Cellarácsok"
  Const STR_KERDES As String = "Láthatóak legyenek a cellarácsok?"
  Set blnCellaRacs = Assistant.NewBalloon
  'Az üzenetballon elýkészítése
  With blnCellaRacs
  .Mode = msoModeModal
  .Heading = STR_CIME
  .Text = STR_KERDES
  .Button = msoButtonSetYesNo
  .Animation = msoAnimationGestureUp
  'A válasz eredmény megýrzése
  intValasz = .Show
  End With
  'A válasz kiértékelése
  If intValasz = -3 Then
  ActiveWindow.DisplayGridlines = True
  Elself intValasz = -4 Then
  ActiveWindow.DisplayGridlines = False
  End If
  End If
  'A pihený animáció beálliása
  Assistant.Animation = msoAnimationldle
  End Sub

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