Сергей, спокойнее. Если правильно понял, ТС хочет одним махом на всем активном листе убрать маленькие треугольнички в левом верхнем углу ячеек. Я пытался рекордером записать, но не получилось. :( Так что я пас.
Сергей, спокойнее. Если правильно понял, ТС хочет одним махом на всем активном листе убрать маленькие треугольнички в левом верхнем углу ячеек. Я пытался рекордером записать, но не получилось. :( Так что я пас.ShAM
Mark1976, может быть для столбцов I:J сделать так: выделите столбцы I:J - щелкните правой кнопкой мыши по заголовку столбца I или J - Формат ячеек - вкладка Защита - поставьте флажок Защищаемая ячейка.
Или Вам действительно нужно, чтобы не было этого флажка?
Mark1976, может быть для столбцов I:J сделать так: выделите столбцы I:J - щелкните правой кнопкой мыши по заголовку столбца I или J - Формат ячеек - вкладка Защита - поставьте флажок Защищаемая ячейка.
Или Вам действительно нужно, чтобы не было этого флажка?Karataev
Mark1976, можно в настройках экселя посмотреть: Файл-Параметры-формулы. В разделе Правила контроля ошибок убираете нужные галочки. Для Вашего файла достаточно двух: число, записанное как текст и незаблокированные ячейки.
Если хочется макросом, то вот, что выдал макрорекордер: [vba]
Код
With Application.ErrorCheckingOptions .NumberAsText = False .UnlockedFormulaCells = False End With
[/vba] Повесьте этот код на активацию листа.
Mark1976, можно в настройках экселя посмотреть: Файл-Параметры-формулы. В разделе Правила контроля ошибок убираете нужные галочки. Для Вашего файла достаточно двух: число, записанное как текст и незаблокированные ячейки.
Если хочется макросом, то вот, что выдал макрорекордер: [vba]
Код
With Application.ErrorCheckingOptions .NumberAsText = False .UnlockedFormulaCells = False End With
[/vba] Повесьте этот код на активацию листа.Manyasha
Щелкните правой кнопкой мышки по ярлычку листа1 - Исходный текст. Скопируйте код в свой рабочий файл и сохраните с любым расширением, для которого поддерживаются макросы. При активации листа1 отключается контроль ошибок (для 2-х случаев), при деактивации - включается. 2 - лист в файле сделала для примера. На листе 1 нет треугольничков, на листе 2 - есть.
Щелкните правой кнопкой мышки по ярлычку листа1 - Исходный текст. Скопируйте код в свой рабочий файл и сохраните с любым расширением, для которого поддерживаются макросы. При активации листа1 отключается контроль ошибок (для 2-х случаев), при деактивации - включается. 2 - лист в файле сделала для примера. На листе 1 нет треугольничков, на листе 2 - есть.Manyasha
Mark1976, с помощью макроса нажать "Пропустить ошибку" можно так (макрос работает со всеми ячейками, в которых есть данные или оформление): [vba]
Код
Sub jjj() Dim cel As Range, i As Long Application.ScreenUpdating = False For Each cel In ActiveSheet.UsedRange.Cells For i = 1 To 9 cel.Errors.Item(i).Ignore = True Next Next Application.ScreenUpdating = True End Sub
[/vba] P.S. По идее макрос должен медленно работать, если много ячеек заполнены или имеют оформление на листе, т.к. необходимо просматривать каждую ячейку (сразу для всех ячеек нельзя сделать "пропустить ошибку"). Этот макрос, как и "пропустить ошибку", не переводит числа в виде текста в собственно числа.
Mark1976, с помощью макроса нажать "Пропустить ошибку" можно так (макрос работает со всеми ячейками, в которых есть данные или оформление): [vba]
Код
Sub jjj() Dim cel As Range, i As Long Application.ScreenUpdating = False For Each cel In ActiveSheet.UsedRange.Cells For i = 1 To 9 cel.Errors.Item(i).Ignore = True Next Next Application.ScreenUpdating = True End Sub
[/vba] P.S. По идее макрос должен медленно работать, если много ячеек заполнены или имеют оформление на листе, т.к. необходимо просматривать каждую ячейку (сразу для всех ячеек нельзя сделать "пропустить ошибку"). Этот макрос, как и "пропустить ошибку", не переводит числа в виде текста в собственно числа.Karataev