Как исправить ошибку "Type mismatch"?

@tashka16 · Регистрация: 19.12.2017

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

Добрый день, уважаемые пользователи!
Прошу Вашей помощи!
Понимаю, что все должно быть элементарно, но что-то не получается...
У меня на листе "Rank" есть некие результаты расчетов среднего бала студента. Но не у всех он есть и программа, вместо бала, указывает "#ДЕЛ/0!". Мне необходимо скопировать на лист "Zag" только те строки, где есть средний бал.
При запуске макроса выдает ошибку на строке "If Sheets("Rank").Cells(a, 3).Value <> "#ДЕЛ/0!" Then". Я понимаю, что здесь вопрос в типах данных, но как исправить не знаю.
Заранее спасибо за помощь!

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Ñêðóãëåííûéïðÿìîóãîëüíèê2_Ùåë÷îê()
        
Dim a As Integer
For a = 3 To a + 800
   If Sheets("Rank").Cells(a, 3).Value <> "#ДЕЛ/0!" Then
           Sheets("Zag").Cells(a, 2) = Sheets("Rank").Cells(a, 2)
           Sheets("Zag").Cells(a, 3) = Sheets("Rank").Cells(a, 3)
      End If
 Next a
Sheets("Zag").Select
   
 
End Sub

@snipe · 08.12.2018, 05:28

в ячейке в столбце С листа Rank формулу запишите по другому
устройте проверку на 0
например сейчас у вас прописано = A1/B1
пишем =если(B1=0;"";A1/B1)
или
=(a1+b1)/(d1-f1)
пишем
=если((d1-f1)=0;"";(a1+b1)/(d1-f1))
соответственно проверка в коде на деление на 0 отпадает сама по себе

еще маленький момент
по моему мнению
из-за вот этого

Visual Basic
1
For a = 3 To a + 800

вы рискуете отправить цикл в нирвану - в бесконечность

@CRIDEL · 08.12.2018, 13:11

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

If Sheets("Rank").Cells(a, 3).Value <> "#ДЕЛ/0!" Then

Visual Basic
1
If Cstr(Sheets("Rank").Cells(a, 3).Value) <> "#ДЕЛ/0!" Then

@tashka16 · 08.12.2018, 15:26 **[ТС]**

Благодарю за помощь!
Вопрос решен )))

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@tashka16 0 / 0 / 0 Регистрация: 19.12.2017 Сообщений: 2
	08.12.2018, 15:26 [ТС]
	Благодарю за помощь! Вопрос решен ))) 0

Как исправить ошибку "Type mismatch"?

Решение