Ciao, sono nuovo di Macro, VBA e Kutools.
Sto eseguendo una macro per estrarre il testo e quindi i numeri in celle separate. Kutools funziona bene quando lo eseguo, tuttavia quando seguo lo stesso processo per creare una macro, ricevo un messaggio di errore:
Windows("KutoolsHelper.xlam").Visibile = Vero
Questo sembra essere il punto in cui si verifica l'errore nel debug.
Ho aggiunto Kutoolsforexcel in Strumenti/Riferimento
Sub ConvetYardsToMiles()
'
' Macro ConvetYardsToMiles
'
'
Colonne("I:I").Seleziona
Selection.Copy
Selezione.Inserisci Maiusc:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Selezione.Inserisci Maiusc:=xlToRight
Colonne("J:J").Seleziona
Windows("KutoolsHelper.xlam").Visibile = Vero
ActiveWindow.Visible = Falso
Colonne("K:K").Seleziona
Windows("KutoolsHelper.xlam").Visibile = Vero
ActiveWindow.Visible = Falso
ActiveWindow.SmallScroll ToRight:=1
Intervallo("L2").Seleziona
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Intervallo("L2").Seleziona
Selection.AutoFill Destinazione:=Intervallo("L2:L832")
Intervallo("L2:L832").Seleziona
Colonne("L:L").Seleziona
Selection.NumberFormat = "0.00 Miglia"
Colonne("L:L").Seleziona
Columns("L:L").EntireColumn.AutoFit
Selection.ColumnWidth = 14.91
Intervallo("L1").Seleziona
ActiveCell.FormulaR1C1 = "Miglia percorse"
Intervallo("L2").Seleziona
ActiveWindow.SmallScroll ToRight:=-1
Colonne("H:K").Seleziona
Selection.EntireColumn.Hidden = Vero
ActiveWindow.SmallScroll ToRight:=-4
Colonne("L:L").Seleziona
Con la selezione
.HorizontalAlignment = xlGeneral
.AllineamentoVerticale = xlCenter
.Orientation = 0
.AddIndent = Falso
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Fine Con
Con la selezione
.HorizontalAlignment = xlCenter
.AllineamentoVerticale = xlCenter
.Orientation = 0
.AddIndent = Falso
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Fine Con
Righe ("1:1").Seleziona
Intervallo("C1").Attiva
Selection.Font.Bold = Falso
Selection.Font.Bold = Vero
Con Selezione.Font
.Nome = "Arial"
.Barrato = Falso
.Apice = Falso
.Pedice = Falso
.OutlineFont = Falso
.Ombra = Falso
.Underline = xlUnderlineStyleNone
.TintaE Ombra = 0
.ThemeFont = xlThemeFontNessuno
Fine Con
Con Selezione.Font
.Nome = "Arial"
.Dimensione = 12
.Barrato = Falso
.Apice = Falso
.Pedice = Falso
.OutlineFont = Falso
.Ombra = Falso
.Underline = xlUnderlineStyleNone
.TintaE Ombra = 0
.ThemeFont = xlThemeFontNessuno
Fine Con
Con la selezione
.HorizontalAlignment = xlCenter
.AllineamentoVerticale = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = Falso
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
Fine Con
End Sub