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

• #39634 Mutt senior tag Laciahegyrol #39633

  Új Válasz 2018-11-21 12:11:01 #39634

  Ú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

  

  Mutt

  senior tag

  válasz Laciahegyrol #39633 üzenetére

  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