Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 След.
Двухуровневая блокировка ячеек, Блокировка определённых ячеек уже на защищённом листе
 
Нашёл похожую тему на форуме: Установка пароля и снятие при активации Checkbox
Там нет решения по конкретно вашей задаче, но, возможно, в купе с вышеперечисленными сообщениями вам удастся справиться с дилеммой :)
Изменено: Alexander - 16.11.2023 17:29:41
Выпадающие списки с нюансами, Как можно сделать динамические (расширяемые) зависимые выпадающие списки с поиском и событиями по условиям
 
Здесь только с помощью VBA
Попробуйте поискать информацию на форуме. Может уже были подобные темы
Скрытие ленты (и не только) + событие при закрытии файла, Как с помощью VBA-скрипта скрывать ленту, строчку формул и т.д. + вызывать событие при закрытие файла
 
Sanja, да, заработало
спасибо большое!
Скрытие ленты (и не только) + событие при закрытии файла, Как с помощью VBA-скрипта скрывать ленту, строчку формул и т.д. + вызывать событие при закрытие файла
 
Добрый день!

Подскажите, пожалуйста, кто знает..
Ситуация:
Запускаю файл с макрасом (файл во вложении + код ниже) всё хорошо, всё работает.
Но потом, когда открываю обычный файл excel без макросов, то строка формул (formula bar) остаётся скрытой, хотя в файле с макросами в коде ниже стоит "Application.DisplayFormulaBar = True". В итоге всё отображается, кроме строки формул.

Код
Private Sub Workbook_Open()

    ' Hide the Horizontal Scroll Bar
    ActiveWindow.DisplayHorizontalScrollBar = False
    
    ' Hide the Vertical Scroll Bar
    ActiveWindow.DisplayVerticalScrollBar = False
    
    ' Hide the Row/Column Headings
    ActiveWindow.DisplayHeadings = False
    
    ' Hide the Worksheet Tabs
    ActiveWindow.DisplayWorkbookTabs = False
    
    ' Hide the Status Bar (bottom of the window)
    Application.DisplayStatusBar = False
    
    ' Hide the Formula Bar
    Application.DisplayFormulaBar = False
    
    ' Hide the Ribbon Menu and Quick Access Toolbar
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
    
    ' Display Full Screen
    'Application.DisplayFullScreen = True
    
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
 Dim answ
    answ = MsgBox("Закрыть файл? Все несохранённые данные будут утеряны.", vbYesNo)
    If answ = vbYes Then
        ThisWorkbook.Saved = True
    Else
        Cancel = True
    End If

End Sub

Private Sub Workbook_BeforeClose2(Cancel As Boolean)

    ' Show the Horizontal Scroll Bar
    ActiveWindow.DisplayHorizontalScrollBar = True
    
    ' Show the Vertical Scroll Bar
    ActiveWindow.DisplayVerticalScrollBar = True
    
    ' Show the Row/Column Headings
    ActiveWindow.DisplayHeadings = True
    
    ' Show the Worksheet Tabs
    ActiveWindow.DisplayWorkbookTabs = True
    
    ' Show the Status Bar (bottom of the window)
    Application.DisplayStatusBar = True
    
    ' Show the Formula Bar
    Application.DisplayFormulaBar = True
    
    ' Show the Ribbon Menu and Quick Access Toolbar
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"

End Sub

Изменено: Alexander - 15.09.2023 22:40:01
Скрытие ленты (и не только) + событие при закрытии файла, Как с помощью VBA-скрипта скрывать ленту, строчку формул и т.д. + вызывать событие при закрытие файла
 
Обнаружил, что после того, как закрываю файл с vba-скриптом и открываю другой excel-файл (без макросов), не появляется строка формул (formula bar).
И приходится включать её на вкладке "Вид" вручную.

Может быть кто знает в чём может быть причина?
Код
Private Sub Workbook_Open()

    ' Hide the Horizontal Scroll Bar
    ActiveWindow.DisplayHorizontalScrollBar = False
    
    ' Hide the Vertical Scroll Bar
    ActiveWindow.DisplayVerticalScrollBar = False
    
    ' Hide the Row/Column Headings
    ActiveWindow.DisplayHeadings = False
    
    ' Hide the Worksheet Tabs
    ActiveWindow.DisplayWorkbookTabs = False
    
    ' Hide the Status Bar (bottom of the window)
    Application.DisplayStatusBar = False
    
    ' Hide the Formula Bar
    Application.DisplayFormulaBar = False
    
    ' Hide the Ribbon Menu and Quick Access Toolbar
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
   
    
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)

    ' Show the Horizontal Scroll Bar
    ActiveWindow.DisplayHorizontalScrollBar = True
    
    ' Show the Vertical Scroll Bar
    ActiveWindow.DisplayVerticalScrollBar = True
    
    ' Show the Row/Column Headings
    ActiveWindow.DisplayHeadings = True
    
    ' Show the Worksheet Tabs
    ActiveWindow.DisplayWorkbookTabs = True
    
    ' Show the Status Bar (bottom of the window)
    Application.DisplayStatusBar = True
    
    ' Show the Formula Bar
    Application.DisplayFormulaBar = True
    
    ' Show the Ribbon Menu and Quick Access Toolbar
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"

End Sub
"Файл уже используется" - изменить событие, Как изменить событие, когда с файлом уже работает другой пользователь?
 
Jack Famous, спасибо!

Исполнил так, но почему то не работает :(
Код
Sub Check_Open_Book()

    If IsBookOpen("\\00.00.00.0\Share\файл.xlsm") Then
        MsgBox "Файл уже занят другим пользователем", vbInformation, "Сообщение"
    Else
       ActiveWorkbook.Close SaveChanges:=FalseEnd If

End Sub

С уважением,
Александр
"Файл уже используется" - изменить событие, Как изменить событие, когда с файлом уже работает другой пользователь?
 
Добрый день.

Подскажите, пожалуйста, как можно изменить событие при открытии файла, с которым уже работает другой пользователь?

Есть файл на локальном сервере, с которым могут работать несколько пользователей.
Сейчас, если файл уже открыт кем-то, то появляются 3 опции: "Только чтение", "Уведомить" и "Отмена".
Как можно сделать так, чтобы в таком случае просто выдавал сообщение "Файл уже занят другим пользователем" и была одна кнопка -  "Ок", при нажатии которой  файл просто закрывался?


С уважением,
Александр
Скрытие ленты (и не только) + событие при закрытии файла, Как с помощью VBA-скрипта скрывать ленту, строчку формул и т.д. + вызывать событие при закрытие файла
 
Пардон
нашёл)

Должно быть Private Sub Workbook_BeforeClose2(Cancel As Boolean)
Скрытие ленты (и не только) + событие при закрытии файла, Как с помощью VBA-скрипта скрывать ленту, строчку формул и т.д. + вызывать событие при закрытие файла
 
Всем большое спасибо за помощь!

Вроде исправил ошибку и всё работает, но если после закрытия файла открыть другой excel-файл, то в нём по-прежнему будет скрыта лента, строка формул и т.д. После нажатия "esc" - всё появляется. Но хотелось бы избежать этого. Подозреваю, что кусок Private Sub Workbook_BeforeClose2() не работает.
Подскажите, пожалуйса, кто знает, в чём именно ошибка?
Код
Private Sub Workbook_Open()

    ' Hide the Horizontal Scroll Bar
    ActiveWindow.DisplayHorizontalScrollBar = False
    
    ' Hide the Vertical Scroll Bar
    ActiveWindow.DisplayVerticalScrollBar = False
    
    ' Hide the Row/Column Headings
    ActiveWindow.DisplayHeadings = False
    
    ' Hide the Worksheet Tabs
    ActiveWindow.DisplayWorkbookTabs = False
    
    ' Hide the Status Bar (bottom of the window)
    Application.DisplayStatusBar = False
    
    ' Hide the Formula Bar
    Application.DisplayFormulaBar = False
    
    ' Hide the Ribbon Menu and Quick Access Toolbar
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
    
    ' Display Full Screen
    'Application.DisplayFullScreen = True

End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
 Dim answ
    answ = MsgBox("Закрыть файл? Все несохранённые данные будут утеряны.", vbYesNo)
    If answ = vbYes Then
        ThisWorkbook.Saved = True
    Else
        Cancel = True
    End If

End Sub


Private Sub Workbook_BeforeClose2()

    ' Show the Horizontal Scroll Bar
    ActiveWindow.DisplayHorizontalScrollBar = True
    
    ' Show the Vertical Scroll Bar
    ActiveWindow.DisplayVerticalScrollBar = True
    
    ' Show the Row/Column Headings
    ActiveWindow.DisplayHeadings = True
    
    ' Show the Worksheet Tabs
    ActiveWindow.DisplayWorkbookTabs = True
    
    ' Show the Status Bar (bottom of the window)
    Application.DisplayStatusBar = True
    
    ' Show the Formula Bar
    Application.DisplayFormulaBar = True
    
    ' Show the Ribbon Menu and Quick Access Toolbar
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"

End Sub
Скрытие ленты (и не только) + событие при закрытии файла, Как с помощью VBA-скрипта скрывать ленту, строчку формул и т.д. + вызывать событие при закрытие файла
 
sokol92, вы имеете Cancel As Boolean?

Подскажите, пожалуйста, а как тогда нужно сделать для
Private Sub Workbook_OpenHide()
и
Private Sub Workbook_BeforeCloseShow()
Скрытие ленты (и не только) + событие при закрытии файла, Как с помощью VBA-скрипта скрывать ленту, строчку формул и т.д. + вызывать событие при закрытие файла
 
Добрый день.

Помогите, пожалуйста, починить VBA-скрипт.

Нужно, чтобы:
1. при открытии excel-файла не показывались лента, строка формул, панель быстрого доступа...
2. при нажатии на крестик (в правом верхнем углу) excel не предлагал сохранить файл, а выводил другое сообщение с кнопками:
  "Да" - файл закрывается без сохранения
  "Нет" - файл остаётся открытым

Необходимо, чтобы это работало только для конкретного excel-файла.

Ниже скрипт, но почему-то у меня не скрывается лента и т.д., а только выводит сообщении при закрытии файла (т.е. работает только 2-ой пункт моей задачи).
Код
Private Sub Workbook_OpenHide()
    ' Hide the Horizontal Scroll Bar
    ActiveWindow.DisplayHorizontalScrollBar = False
    
    ' Hide the Vertical Scroll Bar
    ActiveWindow.DisplayVerticalScrollBar = False
    
    ' Hide the Row/Column Headings
    ActiveWindow.DisplayHeadings = False
    
    ' Hide the Worksheet Tabs
    ActiveWindow.DisplayWorkbookTabs = False
    
    ' Hide the Status Bar (bottom of the window)
    Application.DisplayStatusBar = False
    
    ' Hide the Formula Bar
    Application.DisplayFormulaBar = False
    
    ' Hide the Ribbon Menu and Quick Access Toolbar
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",False)"
    
    ' Display Full Screen
    'Application.DisplayFullScreen = True
End Sub
 
Private Sub Workbook_BeforeCloseShow()
    ' Show the Horizontal Scroll Bar
    ActiveWindow.DisplayHorizontalScrollBar = True
    
    ' Show the Vertical Scroll Bar
    ActiveWindow.DisplayVerticalScrollBar = True
    
    ' Show the Row/Column Headings
    ActiveWindow.DisplayHeadings = True
    
    ' Show the Worksheet Tabs
    ActiveWindow.DisplayWorkbookTabs = True
    
    ' Show the Status Bar (bottom of the window)
    Application.DisplayStatusBar = True
    
    ' Show the Formula Bar
    Application.DisplayFormulaBar = True
    
    ' Show the Ribbon Menu and Quick Access Toolbar
    Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
 Dim answ
    answ = MsgBox("Закрыть файл? Все несохранённые данные будут утеряны.", vbYesNo)
    If answ = vbYes Then
        ThisWorkbook.Saved = True
    Else
        Cancel = True
    End If

End Sub

Помогите, пожалуйста, кто знает решение.


С уважением,
Александр
Скрыть Ленту и Панель вкладок, Как скрыть Ленту и Панель вкладок только в конкретном excel-файле?
 
Prosvetov, спасибо!
Скрыть Ленту и Панель вкладок, Как скрыть Ленту и Панель вкладок только в конкретном excel-файле?
 
Добрый день.

Подскажите, пожалуйста, а как можно сделать чтобы этот скрипт выполнялся сразу при открытии файла?


С уважением,
Александр
Другое событие при закрытии файла, Выывести другое сообщение (другое событие) при нажатии на правый верхний крестик в файле
 
Супер!
Большое спасибо!
Другое событие при закрытии файла, Выывести другое сообщение (другое событие) при нажатии на правый верхний крестик в файле
 
Добрый день.

Подскажите, пожалуйста, возможно ли как-то с помощью VBA вызывать другое событие при закрытии файла excel (когда нажимаешь на правый верхний крестик в углу)? Так чтобы при нажатии спрашивало "Уверены что хотите закрыть файл?".."Да" - файл закрывается без сохранения, "Нет" - закрывается текущее сообщение и файл остаётся открытым.
Ошибка в запросе Power Query, Expression Error в запросе Power Query
 
Alien Sphinx, да, всем сказал, чтобы обновили. Проверить лично пока не могу (у нас многие удалённо работают).

И проверить на каком шаге у них запрос ломается тоже пока не могу(
Но попробовал ваш совет - не помогло :(
Вместо:
Код
Combiner.CombineTextByDelimiter(";", QuoteStyle.None)
Сделал:
Код
Combiner.CombineTextByDelimiter(";")
...и теперь запрос ломается на шаге #"Другие столбцы с отмененным свертыванием"
Ошибка в запросе Power Query, Expression Error в запросе Power Query
 
Добрый день!

Подскажите, пожалуйста, как можно исправить ошибку, возникающую при обновлении запроса Power Query.
Ошибка: [Expression.Error] Аргументы 2 были переданы функции, которая ожидает 1.

При чём у некоторых коллег на своих ноутбуках этот запрос обновляется без ошибок, а у некоторых - появляется такая ошибка :(
Не понимаю в чём дело. У всех одинаковые версии Excel 2016.
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="РП"]}[Content],
    #"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}, {"Column4", type any}, {"Column5", type any}, {"Column6", type any}, {"Column7", type any}, {"Column8", type any}, {"Column9", type any}, {"Column10", type any}, {"Column11", type any}, {"Column12", type any}, {"Column13", type any}, {"Column14", type any}, {"Column15", type any}, {"Column16", type any}, {"Column17", type any}, {"Column18", type any}, {"Column19", type any}, {"Column20", type any}, {"Column21", type any}, {"Column22", type any}, {"Column23", type any}, {"Column24", type any}, {"Column25", type any}, {"Column26", type any}, {"Column27", type any}}),
    #"Удалены пустые строки" = Table.SelectRows(#"Измененный тип", each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null}))),
    #"Объединенные столбцы" = Table.CombineColumns(#"Удалены пустые строки",{"Column1", "Column2", "Column3"},Combiner.CombineTextByDelimiter(";", QuoteStyle.None),"Сведено"),
    #"Транспонированная таблица" = Table.Transpose(#"Объединенные столбцы"),
    #"Удалены пустые строки1" = Table.SelectRows(#"Транспонированная таблица", each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null}))),
    #"Повышенные заголовки" = Table.PromoteHeaders(#"Удалены пустые строки1"),
    #"Другие столбцы с отмененным свертыванием" = Table.UnpivotOtherColumns(#"Повышенные заголовки", {"Проект;Внутренние ресурсы, #(lf)ФИО или роль;Тип (Сотрудник или Вакансия)"}, "Атрибут", "Значение"),
    #"Разделить столбец по разделителю" = Table.SplitColumn(#"Другие столбцы с отмененным свертыванием", "Атрибут", Splitter.SplitTextByDelimiter(";", QuoteStyle.Csv), {"Атрибут.1", "Атрибут.2", "Атрибут.3"}),
    #"Измененный тип2" = Table.TransformColumnTypes(#"Разделить столбец по разделителю",{{"Атрибут.1", type text}, {"Атрибут.2", type text}, {"Атрибут.3", type text}, {"Проект;Внутренние ресурсы, #(lf)ФИО или роль;Тип (Сотрудник или Вакансия)", type date}}),
    #"Переименованные столбцы" = Table.RenameColumns(#"Измененный тип2",{{"Проект;Внутренние ресурсы, #(lf)ФИО или роль;Тип (Сотрудник или Вакансия)", "Месяц"}, {"Атрибут.1", "Проект"}, {"Атрибут.2", "Сотрудник"}, {"Атрибут.3", "Тип"}, {"Значение", "Загрузка"}}),
    #"Измененный тип1" = Table.TransformColumnTypes(#"Переименованные столбцы",{{"Загрузка", type number}})
in
    #"Измененный тип1"
Скрыть Ленту и Панель вкладок, Как скрыть Ленту и Панель вкладок только в конкретном excel-файле?
 
doober, супер!
Спасибо!
Скрыть Ленту и Панель вкладок, Как скрыть Ленту и Панель вкладок только в конкретном excel-файле?
 
Добрый день!
Подскажите, пожалуйста, возможно ли скрыть Ленту и Панель вкладок ("Файл", "Вставка", ...) только в конкретном файле excel?
Так чтобы Лента и Панель вкладок не были доступны для всех пользователей конкретного excel-файла, а остальные файлы excel открывались в обычном режиме.
Может с помощью VBA как-то возможно реализовать это?

С уважением,
Александр
Ошибка Power Query, Ошибка в PQ-запросе на шаге повышения строки в заголовки
 
Михаил Л, спасибо большое!
Помогло удаление аргумента.

А что это за ошибка такая?
Подскажите, где можно почитать о подобных ошибках и методах их исправления?
Ошибка Power Query, Ошибка в PQ-запросе на шаге повышения строки в заголовки
 
Добрый день!
Подскажите, пожалуйста, знающие люди...
Сделал в excel-файле запрос power query. У меня на ноутбуке и у некоторых коллег всё замечательно работает. Но у остальных - нет :( У всех стоит офис 2016. Но у тех, у кого не работает, при открытии самого запроса выдаёт предупреждение о возможной несовместимости PQ-запроса с текущей версией Excel.
Наш админ уверяет, что у всех сотрудников одинаковые версии эксель и все последние обновления установлены.
Подскажите, в чём может быть причина этой ошибки?

С уваением,
Александр
Создать двусторонний обмен данными межде excel и google sheets, Как можно сделать двустороннюю связь между Excel и Google Sheets
 
Михаил, спасибо за ответ!
К сожалению, нет возможности создать виртуальную машину(
Поэтому появилась идея собирать данные из гугл-таблиц и отдавать определённые урезанные данные обратно в гугл-таблицы.
Изменено: Alexander - 02.02.2023 13:50:23
Создать двусторонний обмен данными межде excel и google sheets, Как можно сделать двустороннюю связь между Excel и Google Sheets
 
Цитата
написал:
в названии темы. Предложите новое - - модераторы поменяют.
Создать двусторонний обмен данными межде excel и google sheets
Создать двусторонний обмен данными межде excel и google sheets, Как можно сделать двустороннюю связь между Excel и Google Sheets
 
Добрый день!

Подскажите, пожалуйста, есть ли возможность наладит двустороннюю связь между файлом-excel на компьтере и Гугл-таблицами?
Я знаю, что можно через Power Query собирать данные из Гугл-таблиц автоматически (так чтобы при обновлении все данные поддягивались в excel-файл).
А можно ли сделать так, чтобы из файла-excel данные также попадали в гугл-таблицы?

Если описать ситуацию в общем, то есть распределённая команда, мне от них переодически нужны данные (цифры, буквы, % и так далее). После того как я получаю от них данные, мне нужно внести свои данные, которые они также должны видеть (я вношу свои данные в общий excel-файл, а они должны видеть их в своих гугл-таблицах только в разрезе своих подразделений). Потом они опять вносят свои данные...и так далее. И такие полные итерации делаются каждый день.

Пересылка файлов по почте не подходит для этой задачи, а собственного FTP-сервера у нас нет.

Поэтому я хочу для каждого сотрудника сделать шаблон гугл-таблицы и собирать данные ото всех сотрудников в один excel-файл.

Почему сразу не делать всё в гугл-таблицах?
Потому что в excel-файле слишком много строк, думаю гугл-таблицы не потянут.


С уважением
Изменено: Юрий М - 02.02.2023 11:16:40
Задача про зависимость значений, Найти значение по условию
 
Jack Famous, супер!!

Спасибо!
Я не знал про эту формулу
Задача про зависимость значений, Найти значение по условию
 
Всем добрый день!

Помогите, пожалуйста, с решением задачи.

Есть зависимость:
Если сумма 100 рублей, то ставка 10%
Если сумма 50 рублей, то ставка 20%

Нужно придумать 2 формулы:
1. Чтобы при вводе необходимой суммы рассчитывалось значение ставки
Например, какая будет ставка при 70 руб. или какая будет ставка при 125 руб. и так далее..
2. Но также и другая формула..какой будет сумма при ставке 15% и так делее

Значения в условии можно изменять

Никак не могу придумать формулы. Помогите, пжалуйста
Защита ячеек "от дурака" без пароля
 
Здравствуйте.
Спасибо, но в таком случае таблица в файле перестаёт быть динамической:(

В этих файлах есть таблицы. Таблицы динамические. Часть полей (столбцов) в них должны заполняться пользователем, а часть оставаться неизменными (заблокированными для изменений), т.к. там прописаны нужные формулы.
Защита ячеек "от дурака" без пароля
 
Добрый день!

Подскажите, пожалуйста, возможно ли защитить диапазон ячеек от изменений (без пароля, внутренними инструментами excel) ?

Есть несколько excel-файлов, распиханных по разным папкам у нас на корпоративном сервере. Эти файлы заполняют ответственные за это сотрудники (представители разных отделов). Данные из них я собираю в один сводный файл с помощью Power Query.
Но вот проблема:
1. сотрудники обязательно периодически нарушают структуру заполняемого файла, ломают формулы внутри и т.д.
2. если защитить диапазоны ячеек и структуру файла с помощью пароля, то Power Query не будет подтягивать данные, т.к. он не работает с защищёнными файлами.
И да, в эти файлы также при помощи Power Query подгружаются определённые отфильтрованные данные из моего сводного файла.

Можно ли каким-нибудь элегантным способом решить эту проблему?

С уважением,
Александр
Перенос значений ячеек из одной книги в другую
 
Если кому интересто, то получилось реализовать вот так:
Код
Sub myTest3()

Dim a, b, t, c As String
Dim itk, iok As String

a = "C:\путь\" 'определяет изначальный путь нужного файла
t = Environ$("TEMP") 'определяет путь в папку TEMP (TEMP - для того, чтобы макрос работал на любом компе)
b = t & Dir(a) 'определяет путь скопированного файла

CreateObject("Scripting.FileSystemObject").GetFile(a).Copy b 'скопировал файл (чтобы избежать ошибки, когда этот файл у тебя вдруг уже открыт)

c = t & "\abc123" & Dir(a) 'определяем новое название скопированному файлу
Name b As c 'переименовываем скопированный файл

itk = ThisWorkbook.Name 'определяем имя текущей книги
iok = Dir(c) 'определяем имя открываемой книги (скопированной и переименованной)

GetObject (c) 'открываем скопированную и переименованную книгу

Workbooks(itk).Worksheets("Лист1").Range("A1:B5") = _
Workbooks(iok).Worksheets("Лист1").Range("A1:B5").Value 'копируем необходимые данные

Workbooks(iok).Close (False)    'закрываем книгу

Kill c  'удаляем книгу

End Sub

Хотя можно было многими другими способами...
Изменено: Alexander - 16.06.2021 11:00:37
Проставить =СУММ() в строки, содержащие ИТОГО
 
New, МатросНаЗебре, ребята, спасибо большое!
Изменено: Alexander - 17.06.2021 18:53:41
Страницы: 1 2 След.
Наверх