Merhaba, Makrolar, VBA ve Kutools'ta yeniyim.
Metni ve ardından ayrı hücrelerdeki sayıları çıkarmak için bir makro çalıştırıyorum. Kutools, çalıştırdığımda iyi çalışıyor, ancak bir makro oluşturmak için aynı işlemi izlediğimde bir hata mesajı alıyorum:
Windows("KutoolsHelper.xlam").Visible = True
Bu, hata ayıklamada hatanın oluştuğu yer gibi görünüyor.
Kutoolsforexcel'i Araçlar/Referans'a ekledim
Alt ConvetYardsToMiles()
'
ConvetYardsToMiles Makrosu
'
'
Sütunlar("I:I").Seç
Selection.Copy
Seçim. Shift Ekle:=xlToRight
Application.CutCopyMode = Yanlış
Selection.Copy
Seçim. Shift Ekle:=xlToRight
Sütunlar("J:J").Seç
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = Yanlış
Sütunlar("K:K").Seç
Windows("KutoolsHelper.xlam").Visible = True
ActiveWindow.Visible = Yanlış
ActiveWindow.SmallScroll ToSağ:=1
Range ( "L2"). Seçiniz
ActiveCell.FormulaR1C1 = "=IF(RC[-2]=""mi"",RC[-1],RC[-1]/1760)"
Range ( "L2"). Seçiniz
Seçim.Otomatik Doldurma Hedefi:=Aralık("L2:L832")
Aralık("L2:L832").Seç
Sütunlar("L:L").Seç
Selection.NumberFormat = "0.00 Mil"
Sütunlar("L:L").Seç
Sütunlar("L:L").EntireColumn.AutoFit
Selection.ColumnWidth = 14.91
Range ( "L1"). Seçiniz
ActiveCell.FormulaR1C1 = "Kat Edilen Mil"
Range ( "L2"). Seçiniz
ActiveWindow.SmallSağdan Kaydır:=-1
Sütunlar("H:K").Seç
Selection.EntireColumn.Hidden = Doğru
ActiveWindow.SmallSağdan Kaydır:=-4
Sütunlar("L:L").Seç
Seçim ile
.Yatay Hizalama = xlGenel
.VerticalAlignment = xlCenter
.Oryantasyon = 0
.AddIndent = Yanlış
.Girinti Düzeyi = 0
.ShrinkToFit = Yanlış
.ReadingOrder = xlContext
.MergeCells = Yanlış
İle bitmek
Seçim ile
Yatay Yerleşim = xlCenter
.VerticalAlignment = xlCenter
.Oryantasyon = 0
.AddIndent = Yanlış
.Girinti Düzeyi = 0
.ShrinkToFit = Yanlış
.ReadingOrder = xlContext
.MergeCells = Yanlış
İle bitmek
Satırlar("1:1").Seç
Aralık("C1"). Etkinleştir
Seçim.Font.Bold = Yanlış
Selection.Font.Bold = Doğru
Selection.Font ile
.Ad = "Arial"
.Üzeri çizili = Yanlış
.Üst simge = Yanlış
.Alt simge = Yanlış
.OutlineFont = Yanlış
.Gölge = Yanlış
.Underline = xlUnderlineStyleYok
.TintAndGölge = 0
.ThemeFont = xlThemeFontNone
İle bitmek
Selection.Font ile
.Ad = "Arial"
.Boyut = 12
.Üzeri çizili = Yanlış
.Üst simge = Yanlış
.Alt simge = Yanlış
.OutlineFont = Yanlış
.Gölge = Yanlış
.Underline = xlUnderlineStyleYok
.TintAndGölge = 0
.ThemeFont = xlThemeFontNone
İle bitmek
Seçim ile
Yatay Yerleşim = xlCenter
.VerticalAlignment = xlCenter
.WrapText = Yanlış
.Oryantasyon = 0
.AddIndent = Yanlış
.Girinti Düzeyi = 0
.ShrinkToFit = Yanlış
.ReadingOrder = xlContext
.MergeCells = Yanlış
İle bitmek
End Sub