Mi a hiba az alábbi VBA kódban?
Figyelt kérdés
Bekért szám négyzetét szeretném msgbox-ban visszakapni.
Private Sub CommandButton1_Click()
Dim szam As String
Dim adat As Integer
szam = InputBox("Add meg a számot!", "Szám megadása")
adat = CInt(szam)
End Sub
Private Sub CommandButton2_Click()
Dim negyzet As Integer
negyzet = adat ^ 2
MsgBox ("A szám négyzete: " & CStr(negyzet))
End Sub
2015. okt. 6. 16:17
1/2 coopper 
válasza:
válasza:Szia.
Csak tipp : "Dim adat As Integer" ezt globális változóként kellene deklarálni és nem a Sub CommandButton1_Click() lokális változójaként (szerintem).
Sok sikert.
üdv.
2/2 A kérdező kommentje:
Igen, kivittem a változókat a sub-on kívül, most már működik. Köszi.
2015. okt. 6. 22:21
Kapcsolódó kérdések:
Minden jog fenntartva © 2025, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu
A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!