Ошибка в макросе 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 **[ТС]**

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

Новые блоги и статьи
Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .	Использование GraphQL в Go (Golang) InfoMaster 08.01.2025 Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор? Alexander-7 08.01.2025 Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .	Как работать с GraphQL на TypeScript InfoMaster 08.01.2025 Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .	Счётчик на базе сумматоров + регистров и генератора сигналов согласования. Hrethgir 07.01.2025 Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .	Как перейти с Options API на Composition API в Vue.js BasicMan 06.01.2025 Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .	Архитектура современных процессоров inter-admin 06.01.2025 Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .	История создания реляционной модели баз данных, правила Кодда Programming 06.01.2025 Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .

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

@Казанский 15153 / 6426 / 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

Решение