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

• #37401 ppapp44 újonc Fferi50 #37400

  Új Válasz 2018-02-22 22:03:59 #37401

  Ú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

  

  ppapp44

  újonc

  válasz Fferi50 #37400 üzenetére

  Szia Feri!
  Természetesen már nem (unload).
  Most csináltam egy egy teljesen üres tesztett (1 tábla (2 nyomógomb), 2 modul és 1 userform. A publikus változók szépen mennek a modulok között és "felmennek" a formra, de a form-on megadott akár konstans, akár egy combobox adata már nem tehető publikussá. Ahogy mondtad a formon nem lehet. De a kint (sheet, modul, workbook) definiált public változó nem képes értéket kapni a formon.
  Ez lehetséges?
  Ez a sheet (munka1)

  Public proba As Variant
  Public muszak As Variant
  Private Sub CommandButton1_Click()
  proba = "proba"
  MsgBox proba 'működik
  megjelenit
  End Sub

  Private Sub CommandButton2_Click()
  jelenit2 'ez van a modul2-ben és ez nem működik
  End Sub

  Modul1

  Public proba2 As Variant
  Public muszak As Variant
  Sub megjelenit()
  MsgBox Munka1.proba
  proba2 = Munka1.proba 'működik
  MsgBox proba2
  UserForm1.Show
  End Sub

  userform1
  Public muszak As Variant
  Private Sub CommandButton1_Click()
  MsgBox proba2
  muszak = "muszakszak"
  MsgBox "muszak " & muszak 'működik
  End Sub

  userform1

  Public muszak As Variant
  Private Sub CommandButton1_Click()
  MsgBox proba2
  muszak = "muszakszak"
  MsgBox "muszak " & muszak
  End Sub

  modul2
  Public muszak As Variant
  Sub jelenit2()
  MsgBox "jelenit2 " & muszak 'ez nem működik modul nevekkel együtt sem
  End Sub

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