Hallo, ik ben nieuw bij Macro's, VBA en Kutools.

Ik voer een macro uit om tekst en vervolgens getallen in afzonderlijke cellen te extraheren. Kutools werkt prima als ik het uitvoer, maar als ik hetzelfde proces volg om een ​​macro te maken, krijg ik een foutmelding:

Windows ("KutoolsHelper.xlam"). Zichtbaar = Waar

Dit lijkt te zijn waar de fout optreedt bij het debuggen.

Ik heb Kutoolsforexcel toegevoegd in Tools/Referentie


Sub ConvetYardsToMiles()
'
' ConvetYardsToMiles Macro
'

'
Kolommen("I:I").Selecteer
Selection.Copy
Selectie.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Selectie.Insert Shift:=xlToRight
Kolommen("J:J").Selecteer
Windows ("KutoolsHelper.xlam"). Zichtbaar = Waar
ActiveWindow.Visible = Onwaar
Kolommen("K:K").Selecteer
Windows ("KutoolsHelper.xlam"). Zichtbaar = Waar
ActiveWindow.Visible = Onwaar
ActiveWindow.SmallScroll naar rechts:=1
Bereik("L2").Selecteer
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Bereik("L2").Selecteer
Selectie.AutoFill Bestemming:=Bereik("L2:L832")
Bereik("L2:L832").Selecteer
Kolommen("L:L").Selecteer
Selection.NumberFormat = "0.00 mijlen"
Kolommen("L:L").Selecteer
Kolommen("L:L").EntireColumn.AutoFit
Selectie.Kolombreedte = 14.91
Bereik("L1").Selecteer
ActiveCell.FormulaR1C1 = "Miles gereden"
Bereik("L2").Selecteer
ActiveWindow.SmallScroll naar rechts:=-1
Kolommen("H:K").Selecteer
Selection.EntireColumn.Hidden = Waar
ActiveWindow.SmallScroll naar rechts:=-4
Kolommen("L:L").Selecteer
Met selectie
.HorizontaleUitlijning = xlAlgemeen
.VerticalAlignment = xlCenter
.Oriëntatie = 0
.AddIndent = Onwaar
.IndentLevel = 0
.ShrinkToFit = Onwaar
.Leesvolgorde = xlContext
.Cellen samenvoegen = Onwaar
Eindigt met
Met selectie
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Oriëntatie = 0
.AddIndent = Onwaar
.IndentLevel = 0
.ShrinkToFit = Onwaar
.Leesvolgorde = xlContext
.Cellen samenvoegen = Onwaar
Eindigt met
Rijen ("1:1"). Selecteer
Bereik ("C1"). Activeren
Selectie.Font.Bold = False
Selectie.Font.Bold = Waar
Met Selectie.Lettertype
.Naam = "Arial"
.Doorstrepen = False
.Superscript = Onwaar
.Subscript = Onwaar
.OutlineFont = Onwaar
.Schaduw = Onwaar
.Onderstrepen = xlOnderstrepenStyleGeen
.TintAndSchaduw = 0
.ThemeFont = xlThemeFontNone
Eindigt met
Met Selectie.Lettertype
.Naam = "Arial"
Maat = 12
.Doorstrepen = False
.Superscript = Onwaar
.Subscript = Onwaar
.OutlineFont = Onwaar
.Schaduw = Onwaar
.Onderstrepen = xlOnderstrepenStyleGeen
.TintAndSchaduw = 0
.ThemeFont = xlThemeFontNone
Eindigt met
Met selectie
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = Onwaar
.Oriëntatie = 0
.AddIndent = Onwaar
.IndentLevel = 0
.ShrinkToFit = Onwaar
.Leesvolgorde = xlContext
.Cellen samenvoegen = Onwaar
Eindigt met
End Sub