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

• #45547 Pakliman tag Lokids #45540

  Új Válasz 2020-12-10 09:49:01 #45547

  Ú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

  

  Pakliman

  tag

  válasz Lokids #45540 üzenetére

  Szia!

  Private Sub Kód_írása_programból()
Dim c As Long

'Új munkafüzet létrehozása
Workbooks.Add

c = Application.VBE.ActiveVBProject.VBComponents("ThisWorkbook").CodeModule.CountOfLines

'Az új munkafüzetbe beírunk egy kódot!!!
With Application.VBE.ActiveVBProject.VBComponents("ThisWorkbook").CodeModule
.InsertLines c + 1, "'Ezeket a sorokat programból hoztuk létre!!"
.InsertLines c + 2, "Private Sub Workbook_BeforeClose(Cancel As Boolean)"
.InsertLines c + 4, "End Sub"
End With

End Sub

  Itt egy részletes és "teljesen érthető" leírás.
  Én is ebből (is) tanulgattam.

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