Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Показать формулы (DisplayFormulas) в выделенном диапазоне - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Показать формулы (DisplayFormulas) в выделенном диапазоне (Макросы/Sub)
Показать формулы (DisplayFormulas) в выделенном диапазоне
китин Дата: Среда, 18.03.2020, 12:10 | Сообщение № 1
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Всем доброго дня уважаемые.
Собственно в названии и вопрос: есть ли возможность показать формулу типа
Код
= 6+6

ну или любую другую в отдельно взятом диапазоне. Пробовал что то типа этого
[vba]
Код
Worksheets("Лист3").Range("A1:A100").Activate
ActiveWindow.DisplayFormulas = True
[/vba]
но она все равно показывает формулы на всем листе
К сообщению приложен файл: 5702413.xlsm (21.1 Kb)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеВсем доброго дня уважаемые.
Собственно в названии и вопрос: есть ли возможность показать формулу типа
Код
= 6+6

ну или любую другую в отдельно взятом диапазоне. Пробовал что то типа этого
[vba]
Код
Worksheets("Лист3").Range("A1:A100").Activate
ActiveWindow.DisplayFormulas = True
[/vba]
но она все равно показывает формулы на всем листе
Автор - китин
Дата добавления - 18.03.2020 в 12:10
Pelena Дата: Среда, 18.03.2020, 12:44 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19176
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
Добрый день.
Выделить столбец -- Данные -- Текст по столбцам -- Далее -- Далее -- Текст -- Готово
Обратно: Данные -- текст по столбцам -- Готово
Не?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеДобрый день.
Выделить столбец -- Данные -- Текст по столбцам -- Далее -- Далее -- Текст -- Готово
Обратно: Данные -- текст по столбцам -- Готово
Не?
Автор - Pelena
Дата добавления - 18.03.2020 в 12:44
китин Дата: Среда, 18.03.2020, 12:57 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
НЕ. В том то и дело, что от этих ячеек дальше идут формулы. поэтому текстовый формат не подходит. Шэф хочет, что бы видна была формула именно в этом столбце, но что бы расчеты не нарушались %)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеНЕ. В том то и дело, что от этих ячеек дальше идут формулы. поэтому текстовый формат не подходит. Шэф хочет, что бы видна была формула именно в этом столбце, но что бы расчеты не нарушались %)
Автор - китин
Дата добавления - 18.03.2020 в 12:57
Nic70y Дата: Среда, 18.03.2020, 20:46 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
Цитата китин, 18.03.2020 в 12:57, в сообщении № 3 ()
Шэф хочет
не повезло с шефом :(
мой шеф сначала спрашивает:
"Возможно сделать такое...?"

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата китин, 18.03.2020 в 12:57, в сообщении № 3 ()
Шэф хочет
не повезло с шефом :(
мой шеф сначала спрашивает:
"Возможно сделать такое...?"
Автор - Nic70y
Дата добавления - 18.03.2020 в 20:46
krosav4ig Дата: Среда, 18.03.2020, 23:36 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация: 989 ±
Замечаний: 0% ±

Excel 2007,2010,2013
как вариант, закрепленный столбец
К сообщению приложен файл: 1258182.xlsm (16.0 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекак вариант, закрепленный столбец
Автор - krosav4ig
Дата добавления - 18.03.2020 в 23:36
китин Дата: Пятница, 20.03.2020, 08:21 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата Nic70y, 18.03.2020 в 20:46, в сообщении № 4 ()
мой шеф сначала спрашивает:

шэфов не выбирают :(
Цитата krosav4ig, 18.03.2020 в 23:36, в сообщении № 5 ()
закрепленный столбец

спасибо, но ниизя. таблица утверждена приказом

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата Nic70y, 18.03.2020 в 20:46, в сообщении № 4 ()
мой шеф сначала спрашивает:

шэфов не выбирают :(
Цитата krosav4ig, 18.03.2020 в 23:36, в сообщении № 5 ()
закрепленный столбец

спасибо, но ниизя. таблица утверждена приказом
Автор - китин
Дата добавления - 20.03.2020 в 08:21
Pelena Дата: Пятница, 20.03.2020, 08:56 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19176
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
А такой вариант?
К сообщению приложен файл: 5702413_1.xlsm (24.4 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеА такой вариант?
Автор - Pelena
Дата добавления - 20.03.2020 в 08:56
bmv98rus Дата: Пятница, 20.03.2020, 23:58 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4106
Репутация: 768 ±
Замечаний: 0% ±

Excel 2013/2016
А если просто так
[vba]
Код
Private Sub ToggleButton1_Click()
With Application
    .EnableEvents = False
    .ScreenUpdating = False
    With Worksheets("Лист3")
        If ToggleButton1.Caption = "Show Formulas" Then
            .EnableCalculation = False
            ToggleButton1.Caption = "Hide Formulas"
            For Each cell In .Range("A1:A100")
                If cell <> "" Then cell.FormulaLocal = "'" & cell.FormulaLocal
            Next
        Else
           ToggleButton1.Caption = "Show Formulas"
            For Each cell In .Range("A1:A100")
            If cell <> "" Then cell.FormulaLocal = cell.FormulaLocal
            Next
            .EnableCalculation = True
        End If
    End With
    .EnableEvents = True
    .ScreenUpdating = True
End With
End Sub
[/vba]
ну и еще вариант, c привлечением EVALUATE.
К сообщению приложен файл: example1608.xlsm (26.3 Kb)

Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Суббота, 21.03.2020, 09:21
 
Ответить
СообщениеА если просто так
[vba]
Код
Private Sub ToggleButton1_Click()
With Application
    .EnableEvents = False
    .ScreenUpdating = False
    With Worksheets("Лист3")
        If ToggleButton1.Caption = "Show Formulas" Then
            .EnableCalculation = False
            ToggleButton1.Caption = "Hide Formulas"
            For Each cell In .Range("A1:A100")
                If cell <> "" Then cell.FormulaLocal = "'" & cell.FormulaLocal
            Next
        Else
           ToggleButton1.Caption = "Show Formulas"
            For Each cell In .Range("A1:A100")
            If cell <> "" Then cell.FormulaLocal = cell.FormulaLocal
            Next
            .EnableCalculation = True
        End If
    End With
    .EnableEvents = True
    .ScreenUpdating = True
End With
End Sub
[/vba]
ну и еще вариант, c привлечением EVALUATE.
Автор - bmv98rus
Дата добавления - 20.03.2020 в 23:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Показать формулы (DisplayFormulas) в выделенном диапазоне (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!