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

• Mutt senior tag

  #39634

  #39633 Laciahegyrol

  2018-11-21 12:11:01

  Ú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

  

  Mutt

  senior tag

  #39633 Laciahegyrol

  Szia,

  2 megoldási javaslat:

  1. A formon az OK gomb Tag tulajdonságának a használata.
  2. Globális változó, amelyet a form is elér.

  A példában van 3 gombom (Összeadás, Kivonás és Szorzás) mindegyikhez a "Kattintas" makró van társítva.
  

  Sub Kattintas()

'1-es változat - ahol Sajat a form neve, amelyen bOK a gomb
Sajat.bOK.Tag = ActiveSheet.Shapes(Application.Caller).AlternativeText

'2-es változat - ahol a muvelet egy globális változó
muvelet = ActiveSheet.Shapes(Application.Caller).AlternativeText

Sajat.Show

End Sub

  Van egy form "Sajat" név alatt, amin van egy OK és egy Mégsem gomb (bOK és bCancel).
  Az OK gomb eseménye ennyi:

  Private Sub bOK_Click()
Dim a As Long, b As Long

Randomize 3

a = Int(Rnd() * 100) + 1
b = Int(Rnd() * 100) + 1

Select Case bOK.Tag '1-es változat
'Select Case muvelet '2-es változat
Case "Összeadás"
MsgBox a & " + " & b & " = " & a + b
Case "Kivonás"
MsgBox a & " - " & b & " = " & a - b
Case "Szorzás"
MsgBox a & " * " & b & " = " & a * b
End Select

End Sub

  Remélem ezen el tudsz indulni.

  üdv

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