Ahoj, jsem nový v Macros, VBA a Kutools.

Spouštím makro pro extrakci textu a poté čísel v samostatných buňkách. Kutools funguje dobře, když jej spustím, ale když postupuji podle stejného procesu k vytvoření makra, zobrazí se chybová zpráva:

Windows("KutoolsHelper.xlam").Visible = Pravda

Zdá se, že zde dochází k chybě při ladění.

Přidal jsem Kutoolsforexcel do Tools/Reference


Sub ConvetYardsToMiles()
'
Makro ConvetYardsToMiles
'

'
Columns("I:I").Vyberte
Selection.Copy
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlToRight
Columns("J:J").Vyberte
Windows("KutoolsHelper.xlam").Visible = Pravda
ActiveWindow.Visible = False
Columns("K:K").Vyberte
Windows("KutoolsHelper.xlam").Visible = Pravda
ActiveWindow.Visible = False
ActiveWindow.SmallScroll ToRight:=1
Rozsah ("L2")
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Rozsah ("L2")
Selection.AutoFill Destination:=Range("L2:L832")
Rozsah("L2:L832").Vyberte
Columns("L:L").Vyberte
Selection.NumberFormat = "0.00 mil"
Columns("L:L").Vyberte
Columns("L:L").CelýColumn.AutoFit
Selection.ColumnWidth = 14.91
Rozsah ("L1")
ActiveCell.FormulaR1C1 = "Ujeté míle"
Rozsah ("L2")
ActiveWindow.SmallScroll ToRight:=-1
Columns("H:K").Vyberte
Selection.EntireColumn.Hidden = Pravda
ActiveWindow.SmallScroll ToRight:=-4
Columns("L:L").Vyberte
S výběrem
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlCenter
.Orientace = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Konec s
S výběrem
HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientace = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Konec s
Řádky("1:1").Vyberte
Rozsah("C1").Aktivovat
Selection.Font.Tučné = False
Selection.Font.Bold = True
S Selection.Font
.Name = "Arial"
.Přeškrtnutí = False
.Horní index = nepravda
.Dolní index = False
.OutlineFont = False
.Stín = Falešný
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Konec s
S Selection.Font
.Name = "Arial"
.Velikost = 12
.Přeškrtnutí = False
.Horní index = nepravda
.Dolní index = False
.OutlineFont = False
.Stín = Falešný
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Konec s
S výběrem
HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientace = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Konec s
End Sub