Ошибка в макросе run-time error '13' type mismatch

@Liverser · Регистрация: 09.10.2013

Author24 — интернет-сервис помощи студентам

Выдаётся ошибка при запуске макроса

Visual Basic

Sub fonts()
 Dim obj As Font, i As Integer
 i = 1
 If Sheets(2).Name = "Øðèôòû" Then
 Sheets("Øðèôòû").Activate
 Else
 Sheets.Add Type:=xlWorksheet, Count:=1, before:=Sheets("Ëèñò2")
 Sheets(2).Activate
 Sheets(2).Name = "Øðèôòû"
 End If
 
 For Each Font In FontNames
 Cells(i, 1) = i
 With Cells(i, 3)
 .Value = "Fakult"
 .Font.Name = FontNames(i)
 .Font.Size = 12
 End With
 
 With Cells(i, 4)
 .Value = "Kafedra"
 .Font.Name = FontNames(i)
 .Font.Size = 12
 End With
 
 Cells(i, 2) = FontNames(i)
 i = i + 1
 Next
 Columns("A:D").AutoFit
 End Sub

toiai · 14.05.2014, 20:32

В какой строке то ошибка? Непонятно как определен массив FontNames(i)?

@Liverser · 14.05.2014, 20:54 **[ТС]**

Сообщение от Liverser

For Each Font In FontNames

здесь ошибка

FontNames это же как бы коллекция

@Казанский · 14.05.2014, 21:06

Сообщение от Liverser

FontNames это же как бы коллекция

В Ворде - да. А в Excel нет такой коллекции. Приходится идти обходными путями, например: http://www.j-walk.com/ss/excel/tips/tip79.htm

@Liverser · 14.05.2014, 21:57 **[ТС]**

Спасибо всё работает, Смешал свою программу с вашим примером и всё отлично)))

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,087
	14.05.2014, 20:32	2
	В какой строке то ошибка? Непонятно как определен массив FontNames(i)? 0

@Liverser 0 / 0 / 0 Регистрация: 09.10.2013 Сообщений: 13
	14.05.2014, 20:54 [ТС]	3
	Сообщение от Liverser For Each Font In FontNames здесь ошибка FontNames это же как бы коллекция 0

@Казанский 15151 / 6424 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	14.05.2014, 21:06	4
	Сообщение было отмечено Liverser как решение Решение Сообщение от Liverser FontNames это же как бы коллекция В Ворде - да. А в Excel нет такой коллекции. Приходится идти обходными путями, например: http://www.j-walk.com/ss/excel/tips/tip79.htm 1

@Liverser 0 / 0 / 0 Регистрация: 09.10.2013 Сообщений: 13
	14.05.2014, 21:57 [ТС]	5
	Спасибо всё работает, Смешал свою программу с вашим примером и всё отлично))) 0

Ошибка в макросе run-time error '13' type mismatch

Решение