Earráid ama rite '9': Tá an síntiús as raon

Dia duit, tá Macraí, VBA agus Kutools nua agam.

Tá macra á rith agam chun téacs a bhaint as uimhreacha i gcealla ar leith. Oibríonn an Kutools go breá nuair a rithim é, ach nuair a leanann mé an próiseas céanna chun macra a chruthú, faighim teachtaireacht earráide:

Windows("KutoolsHelper.xlam").Visible = Fíor

Is cosúil gurb é seo an áit a dtarlaíonn an earráid sa dífhabhtú.

Chuir mé Kutoolsforexcel leis in Uirlisí / Tagairt


Fo-IonchairdeToMiles()
'
' ConvetYardsToMiles Macra
'

'
Colúin ("I:I").Roghnaigh
Roghnú.Cóip
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = Bréagach
Roghnú.Cóip
Selection.Insert Shift:=xlToRight
Colúin ("J:J").Roghnaigh
Windows("KutoolsHelper.xlam").Visible = Fíor
ActiveWindow.Visible = Bréagach
Colúin("K:K").Roghnaigh
Windows("KutoolsHelper.xlam").Visible = Fíor
ActiveWindow.Visible = Bréagach
ActiveWindow.SmallScroll ToRight:=1
Raon ("L2").Roghnaigh
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Raon ("L2").Roghnaigh
Selection.AutoFill Ceann scríbe:=Raon("L2:L832")
Raon ("L2:L832").Roghnaigh
Colúin ("L:L").Roghnaigh
Selection.NumberFormat = "0.00 Míle"
Colúin ("L:L").Roghnaigh
Colúin ("L:L").EntireColumn.AutoFit
Selection.ColumnWidth = 14.91
Raon ("L1").Roghnaigh
ActiveCell.FormulaR1C1 = "Míle tiomáinte"
Raon ("L2").Roghnaigh
ActiveWindow.SmallScroll ToRight:=-1
Colúin("H:K").Roghnaigh
Selection.EntireColumn.Hidden = Fíor
ActiveWindow.SmallScroll ToRight:=-4
Colúin ("L:L").Roghnaigh
Le Roghnú
.CothrománachAlignment = xlGinearálta
.VerticalAlignment = xlCenter
.Treoshuíomh = 0
.AddIndent = Bréagach
.IndentLevel = 0
.ShrinkToFit = Bréagach
.ReadingOrder = xlContext
.MergeCells = Bréagach
Deireadh Le
Le Roghnú
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Treoshuíomh = 0
.AddIndent = Bréagach
.IndentLevel = 0
.ShrinkToFit = Bréagach
.ReadingOrder = xlContext
.MergeCells = Bréagach
Deireadh Le
Rónna("1:1").Roghnaigh
Raon ("C1"). Gníomhachtaigh
Selection.Font.Bold = Bréagach
Selection.Font.Bold = Fíor
Le Selection.Font
.Name = "Arial"
.Strikethrough = Bréagach
.Superscript = Bréagach
.Subscript = Bréagach
.OutlineFont = Bréagach
.Scáth = Bréagach
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Deireadh Le
Le Selection.Font
.Name = "Arial"
.Méid = 12
.Strikethrough = Bréagach
.Superscript = Bréagach
.Subscript = Bréagach
.OutlineFont = Bréagach
.Scáth = Bréagach
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
Deireadh Le
Le Roghnú
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = Bréagach
.Treoshuíomh = 0
.AddIndent = Bréagach
.IndentLevel = 0
.ShrinkToFit = Bréagach
.ReadingOrder = xlContext
.MergeCells = Bréagach
Deireadh Le
Fo Deireadh