bosikan (Все сообщения пользователя)

Функция "СМЕЩ" + любой макрос = постоянный вопрос о сохранении книги, Excel постоянно спрашивает о сохранении, даже если в файле изменений не происходило

bosikan

Пользователь

Сообщений: 11 Регистрация: 11.10.2018

23.12.2021 14:08:52

Вот это помогло!!! Спасибо огромное! Я боялся, что подобный макрос будет всегда не спрашивать о сохранении и выходить, но он работает как надо: при отсутствии изменений - выходит без вопросов, а при любом изменении - спрашивает! Еще раз спасибо!

Перейти

bosikan Пользователь Сообщений: 11 Регистрация: 11.10.2018	# 23.12.2021 13:45:13 Попробовал только что на 2016 Экселе. В нем файл "смещ.xlsx" задает вопрос о сохранении. Так же попробовал в файл "смещ.xlsx" добавить пустой макрос на кнопку или флажок - теперь и в 2021 Экселе просит о сохранении.
	Перейти

bosikan Пользователь Сообщений: 11 Регистрация: 11.10.2018	# 23.12.2021 13:37:40 Этот файл "смещ.xlsx" закрывается без проблем и каких-то вопросов. Даже потыкал по другим ячейкам перед закрытием. Просто крестик = просто выход))
	Перейти

bosikan Пользователь Сообщений: 11 Регистрация: 11.10.2018	# 23.12.2021 13:19:10 Спасибо за ответ! Похоже придется смириться. Но все же (верите или нет) каким-то чудом если в книге нет макросов, то все закрывается корректно, без постоянных вопросов о сохранении.
	Перейти

bosikan Пользователь Сообщений: 11 Регистрация: 11.10.2018	# 23.12.2021 09:37:52 РПД - диапазон, да. Я из книги поудалял все диапазоны, когда искал проблему. Суть не в нем (даже если создать этот диапазон и починить формулу). Excel 2021 (но и в 2016 проблема была аналогичной)
	Перейти

bosikan

Пользователь

Сообщений: 11 Регистрация: 11.10.2018

22.12.2021 20:54:12

Добрый день! Подскажите как избавиться от постоянного вопроса от Эксель при закрытии файла "Вы хотите сохранить изменения в файле ...?". Если даже изменения не происходили, просто тыкнуть на другую ячейку и закрыть файл. Я понимаю, что "СМЕЩ" относится к "летучим" функциям, но если удалить макрос, то о сохранении не спрашивает. Действовал методом исключения и удалял из своей книги все, что могло привести к данной проблеме, поэтому оставил в книге всего два листа с пустым макросом, привязанном к флажку и упрощенную формулу с функцией "СМЕЩ" на втором листе.
При удалении либо макроса, либо "смещ" проблема пропадает. Быть может в сам макрос какую-нибудь хитрую строчку вписать?
PS Отключать автовычисление формул и отдельный макрос на сохранение книги не предлагать. Может кто сталкивался с данной проблемой, подскажите, пожалуйста, что делать. Файл прилагаю

Изменено: bosikan - 22.12.2021 20:58:41

Перейти

Ранее скрытые строки одним макросом открываются другим

bosikan Пользователь Сообщений: 11 Регистрация: 11.10.2018	# 09.08.2021 15:45:41 Вопрос решен. Изменено: bosikan - 09.08.2021 20:08:23 (Вопрос решен)
	Перейти

Макрос на скрытие определенных строк по условию в ячейке

bosikan Пользователь Сообщений: 11 Регистрация: 11.10.2018	# 11.10.2018 16:08:04 Разобрался, еще раз спасибо!
	Перейти

Макрос на скрытие определенных строк по условию в ячейке

bosikan

Пользователь

Сообщений: 11 Регистрация: 11.10.2018

11.10.2018 15:40:37

И еще подсказали на другом форуме

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c4]) Is Nothing And Target.Count = 1 Then
        Dim a As Range: Set a = Rows("10:15")
        Dim b As Range: Set b = Rows("16:21")
        Dim c As Range: Set c = Rows("22:27")
        Dim d As Range: Set d = Rows("28:33")
        Select Case (Target)
            Case "A": a.EntireRow.Hidden = False: b.EntireRow.Hidden = True: c.EntireRow.Hidden = True: d.EntireRow.Hidden = True
            Case "B": a.EntireRow.Hidden = True: b.EntireRow.Hidden = False: c.EntireRow.Hidden = True: d.EntireRow.Hidden = True
            Case "C": a.EntireRow.Hidden = True: b.EntireRow.Hidden = True: c.EntireRow.Hidden = False: d.EntireRow.Hidden = True
            Case "D": a.EntireRow.Hidden = True: b.EntireRow.Hidden = True: c.EntireRow.Hidden = True: d.EntireRow.Hidden = False
            
        End Select
    End If
End Sub

Только здесь при изменении других любых ячеек скрытие строк "слетает". Как исправить?

Изменено: bosikan - 11.10.2018 16:00:06

Перейти

Макрос на скрытие определенных строк по условию в ячейке

bosikan

Пользователь

Сообщений: 11 Регистрация: 11.10.2018

11.10.2018 15:31:15

Вчера весь день и всю ночь искал, все рядом да около. Но только сейчас сам написал. Осенило:

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$4" Then
    Rows("10:33").EntireRow.Hidden = False
    If Target.Value = "A" Then
    Rows("16:33").EntireRow.Hidden = True
    End If
    If Target.Value = "B" Then
    Range("A22:A33,A10:A15").EntireRow.Hidden = True
    End If
    If Target.Value = "C" Then
    Range("A28:A33,A10:A21").EntireRow.Hidden = True
    End If
    If Target.Value = "D" Then
    Range("A10:A27").EntireRow.Hidden = True
    End If
End If
End Sub

Изменено: bosikan - 11.10.2018 15:50:50

Перейти

Макрос на скрытие определенных строк по условию в ячейке

bosikan

Пользователь

Сообщений: 11 Регистрация: 11.10.2018

11.10.2018 13:54:43

Добрый день форумчане! Просьба помочь с написанием несложного макроса. Суть в чём: есть диапазон скрытия строк (10:33), нужно чтобы при изменении в ячейке "C4" значений от A до D (сделал выпадающий список) скрывались строки по следующему принципу: Если стоит значение "A" - то скрыть все строки не относящиеся к этому диапазону (16:33), для "B" - скрыть строки 10:15 и 22:33, для "С" - 10:21 и 28:33, для D - 10:27.
Проще говоря для каждого значения ячейки "C4" должны быть ОТКРЫТЫ только соответствующие ему строки.

Для наглядности в файле раскрасил диапазоны разными цветами. Итого при значении "A" -должен остаться только зеленый диапазон, для значения "B" только желтый и так далее по списку. (PS скрытие строк не по условию цвета а по значению в ячейке "C4")

Перейти