Hej, jeg er ny til makroer, VBA og Kutools.

Jeg kører en makro for at udtrække tekst og derefter tal i separate celler. Kutools fungerer fint, når jeg kører det, men når jeg følger den samme proces for at oprette en makro, får jeg en fejlmeddelelse:

Windows("KutoolsHelper.xlam").Synlig = Sand

Det ser ud til at det er her fejlen opstår i fejlfindingen.

Jeg har tilføjet Kutoolsforexcel i Værktøjer/Reference


Sub ConvetYardsToMiles()
'
' ConvetYardsToMiles Makro
'

'
Columns("I:I").Vælg
Selection.Copy
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlToRight
Columns("J:J").Vælg
Windows("KutoolsHelper.xlam").Synlig = Sand
ActiveWindow.Visible = Falsk
Kolonner("K:K"). Vælg
Windows("KutoolsHelper.xlam").Synlig = Sand
ActiveWindow.Visible = Falsk
ActiveWindow.SmallScroll To Right:=1
Range("L2"). Vælg
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Range("L2"). Vælg
Selection.AutoFill Destination:=Range("L2:L832")
Range("L2:L832"). Vælg
Kolonner("L:L"). Vælg
Selection.NumberFormat = "0.00 Miles"
Kolonner("L:L"). Vælg
Columns("L:L").EntireColumn.AutoFit
Selection.ColumnWidth = 14.91
Range("L1"). Vælg
ActiveCell.FormulaR1C1 = "Kørt kilometer"
Range("L2"). Vælg
ActiveWindow.SmallScroll Til Højre:=-1
Kolonner("H:K"). Vælg
Selection.EntireColumn.Hidden = Sand
ActiveWindow.SmallScroll Til Højre:=-4
Kolonner("L:L"). Vælg
Med Udvalg
.Horizontal Alignment = xlGenerelt
.VerticalAlignment = xlCenter
.Orientering = 0
.AddIndent = Falsk
.IndentLevel = 0
.ShrinkToFit = Falsk
.ReadingOrder = xlContext
.MergeCells = Falsk
Slut med
Med Udvalg
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientering = 0
.AddIndent = Falsk
.IndentLevel = 0
.ShrinkToFit = Falsk
.ReadingOrder = xlContext
.MergeCells = Falsk
Slut med
Rows("1:1"). Vælg
Range("C1"). Aktiver
Selection.Font.Fed = Falsk
Selection.Font.Bold = Sand
Med Selection.Font
.Name = "Arial"
.Strikethrough = Falsk
.Overskrift = Falsk
.Subscript = Falsk
.OutlineFont = Falsk
.Shadow = Falsk
.Underline = xlUnderlineStyleIngen
.TintAndShade = 0
.ThemeFont = xlThemeFontIngen
Slut med
Med Selection.Font
.Name = "Arial"
.Størrelse = 12
.Strikethrough = Falsk
.Overskrift = Falsk
.Subscript = Falsk
.OutlineFont = Falsk
.Shadow = Falsk
.Underline = xlUnderlineStyleIngen
.TintAndShade = 0
.ThemeFont = xlThemeFontIngen
Slut med
Med Udvalg
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = Falsk
.Orientering = 0
.AddIndent = Falsk
.IndentLevel = 0
.ShrinkToFit = Falsk
.ReadingOrder = xlContext
.MergeCells = Falsk
Slut med
End Sub