Привет, я новичок в макросах, VBA и Kutools.
Я запускаю макрос для извлечения текста, а затем чисел в отдельные ячейки. Kutools отлично работает, когда я запускаю его, однако, когда я выполняю тот же процесс для создания макроса, я получаю сообщение об ошибке:
Windows ("KutoolsHelper.xlam"). Видимый = Истина
Похоже, здесь возникает ошибка при отладке.
Я добавил Kutoolsforexcel в Инструменты/Справочник
Подпрограмма ConvetYardsToMiles()
'
' Макрос ConvetYardsToMiles
'
'
Столбцы("I:I").Выбрать
Selection.Copy
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlToRight
Столбцы("J:J").Выбрать
Windows ("KutoolsHelper.xlam"). Видимый = Истина
ActiveWindow.Visible = Ложь
Столбцы("K:K").Выбрать
Windows ("KutoolsHelper.xlam"). Видимый = Истина
ActiveWindow.Visible = Ложь
ActiveWindow.SmallScroll ToRight:=1
Range ( "L2"). Выберите
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Range ( "L2"). Выберите
Selection.AutoFill Destination:=Range("L2:L832")
Диапазон("L2:L832").Выбрать
Столбцы("L:L").Выбрать
Selection.NumberFormat = "0.00 миль"
Столбцы("L:L").Выбрать
Столбцы("L:L").EntireColumn.AutoFit
Выбор.Ширина Колонки = 14.91
Range ( "L1"). Выберите
ActiveCell.FormulaR1C1 = "Пройдено миль"
Range ( "L2"). Выберите
ActiveWindow.SmallScroll ToRight:=-1
Столбцы("H:K").Выбрать
Selection.EntireColumn.Hidden = Истина
ActiveWindow.SmallScroll ToRight:=-4
Столбцы("L:L").Выбрать
С выбором
.Горизонтальное выравнивание = xlGeneral
.VerticalAlignment = кслцентр
.Ориентация = 0
.AddIndent = Ложь
.Индентлевел = 0
.ShrinkToFit = Ложь
.ReadingOrder = кслконтекст
.MergeCells = Ложь
Конец с
С выбором
.HorizontalAlignment = xlCenter
.VerticalAlignment = кслцентр
.Ориентация = 0
.AddIndent = Ложь
.Индентлевел = 0
.ShrinkToFit = Ложь
.ReadingOrder = кслконтекст
.MergeCells = Ложь
Конец с
Строки("1:1").Выбрать
Диапазон ("C1"). Активировать
Selection.Font.Bold = Ложь
Selection.Font.Bold = True
С Selection.Font
.Имя = "Ариал"
.Зачеркнутый = Ложь
. Надстрочный индекс = Ложь
.Подстрочный индекс = Ложь
.OutlineFont = Ложь
.Тень = Ложь
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = кслтемефонтноне
Конец с
С Selection.Font
.Имя = "Ариал"
.Размер = 12
.Зачеркнутый = Ложь
. Надстрочный индекс = Ложь
.Подстрочный индекс = Ложь
.OutlineFont = Ложь
.Тень = Ложь
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = кслтемефонтноне
Конец с
С выбором
.HorizontalAlignment = xlCenter
.VerticalAlignment = кслцентр
.WrapText = Ложь
.Ориентация = 0
.AddIndent = Ложь
.Индентлевел = 0
.ShrinkToFit = Ложь
.ReadingOrder = кслконтекст
.MergeCells = Ложь
Конец с
End Sub
Я запускаю макрос для извлечения текста, а затем чисел в отдельные ячейки. Kutools отлично работает, когда я запускаю его, однако, когда я выполняю тот же процесс для создания макроса, я получаю сообщение об ошибке:
Windows ("KutoolsHelper.xlam"). Видимый = Истина
Похоже, здесь возникает ошибка при отладке.
Я добавил Kutoolsforexcel в Инструменты/Справочник
Подпрограмма ConvetYardsToMiles()
'
' Макрос ConvetYardsToMiles
'
'
Столбцы("I:I").Выбрать
Selection.Copy
Selection.Insert Shift:=xlToRight
Application.CutCopyMode = False
Selection.Copy
Selection.Insert Shift:=xlToRight
Столбцы("J:J").Выбрать
Windows ("KutoolsHelper.xlam"). Видимый = Истина
ActiveWindow.Visible = Ложь
Столбцы("K:K").Выбрать
Windows ("KutoolsHelper.xlam"). Видимый = Истина
ActiveWindow.Visible = Ложь
ActiveWindow.SmallScroll ToRight:=1
Range ( "L2"). Выберите
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Range ( "L2"). Выберите
Selection.AutoFill Destination:=Range("L2:L832")
Диапазон("L2:L832").Выбрать
Столбцы("L:L").Выбрать
Selection.NumberFormat = "0.00 миль"
Столбцы("L:L").Выбрать
Столбцы("L:L").EntireColumn.AutoFit
Выбор.Ширина Колонки = 14.91
Range ( "L1"). Выберите
ActiveCell.FormulaR1C1 = "Пройдено миль"
Range ( "L2"). Выберите
ActiveWindow.SmallScroll ToRight:=-1
Столбцы("H:K").Выбрать
Selection.EntireColumn.Hidden = Истина
ActiveWindow.SmallScroll ToRight:=-4
Столбцы("L:L").Выбрать
С выбором
.Горизонтальное выравнивание = xlGeneral
.VerticalAlignment = кслцентр
.Ориентация = 0
.AddIndent = Ложь
.Индентлевел = 0
.ShrinkToFit = Ложь
.ReadingOrder = кслконтекст
.MergeCells = Ложь
Конец с
С выбором
.HorizontalAlignment = xlCenter
.VerticalAlignment = кслцентр
.Ориентация = 0
.AddIndent = Ложь
.Индентлевел = 0
.ShrinkToFit = Ложь
.ReadingOrder = кслконтекст
.MergeCells = Ложь
Конец с
Строки("1:1").Выбрать
Диапазон ("C1"). Активировать
Selection.Font.Bold = Ложь
Selection.Font.Bold = True
С Selection.Font
.Имя = "Ариал"
.Зачеркнутый = Ложь
. Надстрочный индекс = Ложь
.Подстрочный индекс = Ложь
.OutlineFont = Ложь
.Тень = Ложь
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = кслтемефонтноне
Конец с
С Selection.Font
.Имя = "Ариал"
.Размер = 12
.Зачеркнутый = Ложь
. Надстрочный индекс = Ложь
.Подстрочный индекс = Ложь
.OutlineFont = Ложь
.Тень = Ложь
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = кслтемефонтноне
Конец с
С выбором
.HorizontalAlignment = xlCenter
.VerticalAlignment = кслцентр
.WrapText = Ложь
.Ориентация = 0
.AddIndent = Ложь
.Индентлевел = 0
.ShrinkToFit = Ложь
.ReadingOrder = кслконтекст
.MergeCells = Ложь
Конец с
End Sub