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

• #15125 Delila_1 veterán Attas #15124

  Új Válasz 2012-10-05 10:23:03 #15125

  Ú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

  

  Delila_1

  veterán

  válasz Attas #15124 üzenetére

  Például így oldhatod meg.
  A listbox tartománya a Munka1 lap A1:A10.

  Ezzel indítod a userformot.

  Sub start()
  UserForm1.ListBox1.List = Sheets("Munka1").Range("A1:A10").Value
  UserForm1.Show
  End Sub

  A listbox kiválasztott elemén duplaklikkre beírja az elemet a füzet aktuális cellájától egy cellával jobbra.

  Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Dim sor As Integer
  sor = Me.ListBox1.ListIndex + 1
  Selection.Offset(, 1) = Range("A" & sor)
  End Sub

  A +1 azért kell, mert az index nullával kezdődik.

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