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

• #8050 Fire/SOUL/CD félisten zsotesz81 #8049

  Új Válasz 2010-09-03 13:42:53 #8050

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz zsotesz81 #8049 üzenetére

  Hali!

  Hozz létre a munkafüzetben egy listbox1 nevű munkalapot. A kód ide fogja kimásolni minden módosításnál a ListBox1 elemeit.

  Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  
  If KeyCode = 13 And TextBox1.Text <> "" Then
  UserForm1.ListBox1.AddItem (TextBox1.Text)
  Sheets("listbox1").Select
  Sheets("listbox1").UsedRange.Delete
  For i = 0 To UserForm1.ListBox1.ListCount - 1
  Sheets("listbox1").Cells(i + 1, 1) = UserForm1.ListBox1.List(i)
  Next i
  Unload Me
  End If
  
  End Sub

  Fire.

  UI: Házi feladat (egy kicsit meditálj rajta), hogy ez alapján hogy lehet visszaolvasni az adatokat a munkafüzet megnyitásakor. Ha nem megy, akkor persze írj nyugodtan, de egy kicsit azért törd a buksid...

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