1004 Ячейки не найдены - Обработка ошибок
Я сделал некоторые поиски по этой теме, наконец, получил некоторые пользовательские изменения
Для Workbench MySQL 6.3.7 Версия доступна графическая межфазная
- Запустите Workbench и выберите соединение .
- Перейдите в «Управление» или «Экземпляр» и выберите «Файл параметров».
- Если Workbench запросит разрешение на чтение файла конфигурации, а затем разрешите его, дважды нажав OK.
- На центральном месте появится окно с файлами параметров администратора.
- Перейдите на вкладку InnoDB и проверьте файл innodb_large_prefix, если он не отмечен в разделе «Общие».
- установить значение параметра innodb_default_row_format в значение DYNAMIC.
Для версий ниже 6.3.7 прямые параметры недоступны, поэтому вам нужно перейти с командной строкой
- Запустить CMD в качестве администратора.
- Перейти Директору, в котором установлен сервер mysql. Большинство случаев его в «C: \ Program Files \ MySQL \ MySQL Server 5.7 \ bin», поэтому команда «cd \» «cd Program Files \ MySQL \ MySQL Server 5.7 \ bin».
- Теперь Запустить команду mysql -u userName - p databasescheema Теперь он запросил пароль соответствующего пользователя. Предоставьте пароль и войдите в подсказку mysql.
- Мы должны установить некоторые глобальные настройки, чтобы ввести приведенные ниже команды один за другим set global innodb_large_prefix = on; установить глобальный innodb_file_format = barracuda; set global innodb_file_per_table = true;
- Теперь, в конце, мы должны изменить ROW_FORMAT требуемой таблицы по умолчанию своим COMPACT, мы должны установить его в DYNAMIC.
- использовать следующую команду alter table table_name ROW_FORMAT = DYNAMIC;
- Выполнено
3 ответа
Что бы я сделал:
Dim RowsWithFormulas As Long
On Error Resume Next
RowsWithFormulas = Range("Q:Q").SpecialCells(xlCellTypeFormulas, 16).Rows.Count
On Error GoTo 0
If RowsWithFormulas > 0 Then
Range("Q:Q").SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
End If
Пожалуйста, проверьте ссылку ниже. его уже ответили на этом форуме. Также, пожалуйста, ознакомьтесь с правилами для этого форума ..:)
Вы также можете установить это в качестве диапазона:
Sub t()
Dim cellsWithErroringFormulas As Range
On Error Resume Next
Set cellsWithErroringFormulas = Range("Q:Q").SpecialCells(xlCellTypeFormulas, 16)
On Error GoTo 0
If cellsWithErroringFormulas Is Nothing Then
' Do whatever
MsgBox ("No formulas result in an error!")
Exit Sub
ElseIf cellsWithErroringFormulas.Rows.Count > 0 Then
cellsWithErroringFormulas.SpecialCells(xlCellTypeFormulas, 16).EntireRow.Delete
' Now, if you call `cellsWithErroringFormulas` again, it will error since you removed all those references.
' So to be explicit, let's clear that variable.
Set cellsWithErroringFormulas = Nothing
End If
End Sub
Я настроил имя переменной, просто потому, что вы технически не ищете строки с формулами, а скорее ячейки с формулами, которые приводят к ошибке , Здесь немного неуклюже, поэтому переименовывайте по желанию. Просто хотел указать на это.
Кроме того, поскольку я не знаю, что вы планируете делать дальше, я добавил Set cellsWithErroringFormulas = Nothing, поскольку мы не можем использовать эту ссылку после того, как вы удалите ошибочные строки. Возможно, вам это и не нужно, но я просто хотел бы указать на это.