Γεια, είμαι νέος στα Macros, VBA και Kutools.

Εκτελώ μια μακροεντολή για εξαγωγή κειμένου και στη συνέχεια αριθμούς σε ξεχωριστά κελιά. Το Kutools λειτουργεί καλά όταν το εκτελώ, ωστόσο όταν ακολουθώ την ίδια διαδικασία για να δημιουργήσω μια μακροεντολή, λαμβάνω ένα μήνυμα σφάλματος:

Windows("KutoolsHelper.xlam").Ορατό = Αληθινό

Εδώ φαίνεται να παρουσιάζεται το σφάλμα κατά τον εντοπισμό σφαλμάτων.

Έχω προσθέσει το Kutoolsforexcel στα Εργαλεία/Αναφορά


Sub ConvetYardsToMiles()
'
Μακροεντολή ConvetYardsToMiles
'

'
Στήλες("I:I").Επιλέξτε
Selection.Copy
Επιλογή.Εισαγωγή Shift:=xlToRight
Application.CutCopyMode = Λάθος
Selection.Copy
Επιλογή.Εισαγωγή Shift:=xlToRight
Στήλες("J:J").Επιλέξτε
Windows("KutoolsHelper.xlam").Ορατό = Αληθινό
ActiveWindow.Visible = False
Στήλες("K:K").Επιλέξτε
Windows("KutoolsHelper.xlam").Ορατό = Αληθινό
ActiveWindow.Visible = False
ActiveWindow.SmallScroll To Right:=1
Εύρος ("L2"). Επιλέξτε
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Εύρος ("L2"). Επιλέξτε
Selection.AutoFill Destination:=Range("L2:L832")
Εύρος ("L2:L832"). Επιλέξτε
Στήλες("L:L").Επιλέξτε
Selection.NumberFormat = "0.00 Miles"
Στήλες("L:L").Επιλέξτε
Columns("L:L").EntireColumn.AutoFit
Επιλογή.Πλάτος στήλης = 14.91
Εύρος ("L1"). Επιλέξτε
ActiveCell.FormulaR1C1 = "Miles Driven"
Εύρος ("L2"). Επιλέξτε
ActiveWindow.SmallScroll To Right:=-1
Στήλες("H:K").Επιλέξτε
Selection.EntireColumn.Hidden = True
ActiveWindow.SmallScroll To Right:=-4
Στήλες("L:L").Επιλέξτε
Με Επιλογή
.HorizontalAlignment = xlΓενικά
.Κάθετη στοίχιση = xlCenter
.Προσανατολισμός = 0
.AddIndent = Λάθος
.Επίπεδο εσοχής = 0
.ShrinkToFit = Λάθος
.ReadingOrder = xlContext
.MergeCells = Λάθος
Τέλος με
Με Επιλογή
.HorizontalAlignment = xlCenter
.Κάθετη στοίχιση = xlCenter
.Προσανατολισμός = 0
.AddIndent = Λάθος
.Επίπεδο εσοχής = 0
.ShrinkToFit = Λάθος
.ReadingOrder = xlContext
.MergeCells = Λάθος
Τέλος με
Γραμμές ("1:1"). Επιλέξτε
Εύρος ("C1"). Ενεργοποίηση
Selection.Font.Bold = False
Selection.Font.Bold = True
Με Selection.Font
.Όνομα = "Arial"
.Strikethrough = Λάθος
.Υπεργράφημα = Λάθος
.Subscript = Λάθος
.OutlineFont = Λάθος
.Σκιά = Ψεύτικος
.Υπογράμμιση = xlUnderlineStyleΚαμία
.TintAndShade = 0
.ThemeFont = xlThemeFontΚαμία
Τέλος με
Με Selection.Font
.Όνομα = "Arial"
.Μέγεθος = 12
.Strikethrough = Λάθος
.Υπεργράφημα = Λάθος
.Subscript = Λάθος
.OutlineFont = Λάθος
.Σκιά = Ψεύτικος
.Υπογράμμιση = xlUnderlineStyleΚαμία
.TintAndShade = 0
.ThemeFont = xlThemeFontΚαμία
Τέλος με
Με Επιλογή
.HorizontalAlignment = xlCenter
.Κάθετη στοίχιση = xlCenter
.WrapText = Λάθος
.Προσανατολισμός = 0
.AddIndent = Λάθος
.Επίπεδο εσοχής = 0
.ShrinkToFit = Λάθος
.ReadingOrder = xlContext
.MergeCells = Λάθος
Τέλος με
Sub End