Hej, jag är ny på Macros, VBA och Kutools.

Jag kör ett makro för att extrahera text och sedan siffror i separata celler. Kutools fungerar bra när jag kör det, men när jag följer samma process för att skapa ett makro får jag ett felmeddelande:

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

Det verkar vara där felet uppstår i felsökningen.

Jag har lagt till Kutoolsforexcel i Verktyg/Referens


Sub ConvetYardsToMiles()
'
' ConvetYardsToMiles Makro
'

'
Kolumner("I:I"). Välj
Selection.Copy
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlToRight
Kolumner("J:J"). Välj
Windows("KutoolsHelper.xlam").Visible = Sant
ActiveWindow.Visible = Falskt
Kolumner("K:K"). Välj
Windows("KutoolsHelper.xlam").Visible = Sant
ActiveWindow.Visible = Falskt
ActiveWindow.SmallScroll ToRight:=1
Range("L2"). Välj
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Range("L2"). Välj
Selection.AutoFill Destination:=Range("L2:L832")
Range("L2:L832"). Välj
Kolumner("L:L"). Välj
Selection.NumberFormat = "0.00 Miles"
Kolumner("L:L"). Välj
Columns("L:L").EntireColumn.AutoFit
Selection.ColumnWidth = 14.91
Range("L1"). Välj
ActiveCell.FormulaR1C1 = "Kört mil"
Range("L2"). Välj
ActiveWindow.SmallScroll To Right:=-1
Kolumner("H:K"). Välj
Selection.EntireColumn.Hidden = Sant
ActiveWindow.SmallScroll To Right:=-4
Kolumner("L:L"). Välj
Med urval
.HorizontalAlignment = xlAllmänt
.VerticalAlignment = xlCenter
.Orientering = 0
.AddIndent = Falskt
.IndentLevel = 0
.ShrinkToFit = Falskt
.ReadingOrder = xlContext
.MergeCells = Falskt
Sluta med
Med urval
. HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Orientering = 0
.AddIndent = Falskt
.IndentLevel = 0
.ShrinkToFit = Falskt
.ReadingOrder = xlContext
.MergeCells = Falskt
Sluta med
Rows("1:1"). Välj
Range("C1").Aktivera
Selection.Font.Bold = False
Selection.Font.Bold = Sant
Med Selection.Font
.Name = "Arial"
.Strikethrough = Falskt
.Överskrift = Falskt
.Subscript = Falskt
.OutlineFont = Falskt
.Shadow = Falskt
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontInget
Sluta med
Med Selection.Font
.Name = "Arial"
.Storlek = 12
.Strikethrough = Falskt
.Överskrift = Falskt
.Subscript = Falskt
.OutlineFont = Falskt
.Shadow = Falskt
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontInget
Sluta med
Med urval
. HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = Falskt
.Orientering = 0
.AddIndent = Falskt
.IndentLevel = 0
.ShrinkToFit = Falskt
.ReadingOrder = xlContext
.MergeCells = Falskt
Sluta med
End Sub