VBA Makro hozzáadása makróval
2020-12-09T14:45:36+01:00
2020-12-09T19:51:41+01:00
2022-08-11T23:30:31+02:00
LOKI'ds
Sziasztok!

Makró segítségével létrehozok egy új Excel munkafüzetet, amibe szükségem lenne beilleszteni egy makró kódot, hogy ott fusson.

Szines cellákat állítja fehérre módoítás esetén:

Private Sub Worksheet_Change (ByVal Target As Range) Target.Interior.ColorIndex = 0 End Sub
Azt akarom, hogy ezt a másik Excel fájlban elindított kód rakja bele valahogy.
Mutasd a teljes hozzászólást!
Szia!
Próbáld ki ezt:

Public Sub InsertProgram() On Error Resume Next Dim newSheet As Worksheet Dim codeString As String Dim vbMod As Object Set newSheet = Sheets(ActiveSheet.Name) Set vbMod = ActiveWorkbook.VBProject.VBComponents(newSheet.CodeName) With vbMod.CodeModule .DeleteLines 1, .CountOfLines End With codeString = " Target.Interior.ColorIndex = 0" With ActiveWorkbook.VBProject.VBComponents(newSheet.CodeName).CodeModule .CreateEventProc "Change", "Worksheet" .InsertLines .ProcBodyLine("Worksheet_Change", 0) + 1, codeString End With End Sub

Tettem mellé egy példa fájlt is, a többi a Te dolgod.

üdv: m
Mutasd a teljes hozzászólást!
Csatolt állomány

Tetszett amit olvastál? Szeretnél a jövőben is értesülni a hasonló érdekességekről?
abcd