Сравнение содержимого ячеек. Непонятный результат

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сравнение содержимого ячеек. Непонятный результат (Макросы/Sub)

Raid

Дата: Воскресенье, 06.01.2019, 17:04 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 365

Простите уважаемые знатоки, скорее всего ошибка очень банальная, но я не могу понять в чем проблема...
Задача очень простая: сравнить две ячейки. Если ячейки одинаковые - вывести сообщение. Если разные - сообщение не выводить (я уже упростил задачу до минимума)

[vba]

Код

Sub dddd()
If Cells(1, 3) = Cells(26, 3) Then MsgBox “Бинго”
End Sub

[/vba]

Как это выглядит в таблице http://prntscr.com/m3pazb
Файл (Лист1)

Ну никак цифра 3 не может равнятся цифре 4...

Что я делаю не так???

К сообщению приложен файл: 0039711.xlsm (23.4 Kb)

Сообщение отредактировал Raid - Воскресенье, 06.01.2019, 22:51

Ответить

sasha1982161082

Дата: Воскресенье, 06.01.2019, 17:34 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 1 ±

Замечаний: 0% ±

Excel 2016

Добрый день, попробуйте так

Sub dd()
If Cells(1, 3).Value = Cells(26, 3) Then
MsgBox "Бинго"
Else
MsgBox "Не бинго"
End If
End Sub

Ответить

sasha1982161082

Дата: Воскресенье, 06.01.2019, 17:36 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 14

Репутация: 1 ±

Замечаний: 0% ±

Excel 2016

И кстати говоря, в вашей таблице обе ячейки (cells(1,3) и cells(26,3)) равны, там стоит цифра 2

Ответить

Raid

Дата: Воскресенье, 06.01.2019, 18:21 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 365

Спасибо большое, так работает.

Цитата sasha1982161082, 06.01.2019 в 17:36, в сообщении № 3 ()

И кстати говоря, в вашей таблице обе ячейки (cells(1,3) и cells(26,3)) равны, там стоит цифра 2

Спасибо большое... какое-то помутнение нашло...

Еще раз огромное спасибо, что откликнулись

Ответить

Raid

Дата: Воскресенье, 06.01.2019, 18:35 | Сообщение № 5

Группа: Пользователи

Ранг: Новичок

Сообщений: 31

Репутация: 0 ±

Замечаний: 0% ±

Excel 365

Но, к сожалению, не понимая, почему не получилось у меня, а получилось у вас я не могу решить основную задачу. Это чуть более сложная задача по принципу первой.
Задача: если в верхней таблице есть столбцы, первая ячейка которых не встречается среди первых ячеек нижней таблицы, необходимо скопировать весь столбец в лист 1111, а на первом листе удалить этот столбец с смещением влево.
Проблема та же - программа считает, что все столбцы одинаковы.... И блок удаления не срабатывает...

[vba]

Код

Sub ssss()

For B = 2 To 8
Cells(1, B).Interior.Color = RGB(255, 255, 0)
For L = 2 To 8
Cells(26, L).Interior.Color = RGB(0, 255, 0)
If Cells(1, B).Value = Cells(1, L).Value Then GoTo Mark

Next

MsgBox “111”
Range(Cells(1, B), Cells(24, B)).Select
Selection.Copy
Sheets("1111").Select
Cells(1, B).Select
ActiveSheet.Paste
Sheets("Ëèñò1").Select
Application.CutCopyMode = False
Selection.EntireColumn.Delete
Mark:

Next

End Sub

[/vba]
Посмотрите, пожалуйста, что я делаю не то...