خطأ وقت التشغيل '9': الرمز المنخفض خارج النطاق

مرحبًا ، أنا جديد على وحدات الماكرو و VBA و Kutools.

أقوم بتشغيل ماكرو لاستخراج النص ثم الأرقام في خلايا منفصلة. يعمل Kutools بشكل جيد عند تشغيله ، ولكن عندما أتبع نفس العملية لإنشاء ماكرو ، أتلقى رسالة خطأ:

Windows ("KutoolsHelper.xlam"). مرئي = صحيح

يبدو أن هذا هو مكان حدوث الخطأ في التصحيح.

لقد أضفت Kutoolsforexcel في الأدوات / المراجع


Sub ConvetYardsToMiles ()
'
ماكرو ConvetYardsToMiles
'

'
الأعمدة ("I: I"). حدد
الاختيار
Selection.Insert Shift: = xlToRight
Application.CutCopyMode = خطأ
الاختيار
Selection.Insert Shift: = xlToRight
الأعمدة ("J: J"). حدد
Windows ("KutoolsHelper.xlam"). مرئي = صحيح
ActiveWindow.Visible = خطأ
الأعمدة ("K: K"). حدد
Windows ("KutoolsHelper.xlam"). مرئي = صحيح
ActiveWindow.Visible = خطأ
ActiveWindow.SmallScroll ToRight: = 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 ميل"
الأعمدة ("L: L"). حدد
الأعمدة ("L: L"). EntireColumn.AutoFit
التحديد. عرض العمود = 14.91
النطاق ("L1"). حدد
ActiveCell.FormulaR1C1 = "أميال مدفوعة"
النطاق ("L2"). حدد
ActiveWindow.SmallScroll ToRight: = - 1
الأعمدة ("H: K"). حدد
Selection.EntireColumn.Hidden = صحيح
ActiveWindow.SmallScroll ToRight: = - 4
الأعمدة ("L: L"). حدد
مع التحديد
.HorizontalAlignment = xlجنرال
.VerticalAlignment = xlCenter
. الاتجاه = 0
.AddIndent = خطأ
مستوى المسافة البادئة = 0
.ShrinkToFit = خطأ
.ReadingOrder = xlContext
.MergeCells = خطأ
انتهت ب
مع التحديد
.HorizontalAlignment = زلسنتر
.VerticalAlignment = xlCenter
. الاتجاه = 0
.AddIndent = خطأ
مستوى المسافة البادئة = 0
.ShrinkToFit = خطأ
.ReadingOrder = xlContext
.MergeCells = خطأ
انتهت ب
صفوف ("1: 1"). حدد
نطاق ("C1"). تنشيط
Selection.Font.Bold = خطأ
Selection.Font.Bold = صحيح
مع التحديد
.Name = "Arial"
.Strikethrough = خطأ
. مرتفع = خطأ
.Subscript = خطأ
.OutlineFont = خطأ
الظل = خطأ
. underline = xlUnderlineStyleNone
.تينتاندشيد = 0
.ThemeFont = xlThemeFontNone
انتهت ب
مع التحديد
.Name = "Arial"
. الحجم = 12
.Strikethrough = خطأ
. مرتفع = خطأ
.Subscript = خطأ
.OutlineFont = خطأ
الظل = خطأ
. underline = xlUnderlineStyleNone
.تينتاندشيد = 0
.ThemeFont = xlThemeFontNone
انتهت ب
مع التحديد
.HorizontalAlignment = زلسنتر
.VerticalAlignment = xlCenter
.WrapText = خطأ
. الاتجاه = 0
.AddIndent = خطأ
مستوى المسافة البادئة = 0
.ShrinkToFit = خطأ
.ReadingOrder = xlContext
.MergeCells = خطأ
انتهت ب
نهاية الفرعية