Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » sunnyb
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 След.
Подсчёт количества записей за месяц формулой
 
#
06.09.2022 22:17:33
Добрый вечер,
в отдельном столбике проставлены рандомные даты в формате dd.mm.yyyy
Предполагаю что можно применить COUNTIF.
Как в одной ячейке сосчитать число записей (количество ячеек) августа 2022 года
 
Перейти    
Удаление битых формул с ссылкам на несуществующие значения, после действия удаления строки
 
#
27.12.2021 10:54:09
Всё в порядке решил через:
Код
  Worksheets("Sheet1").Range("G:G").Copy

  Worksheets("Sheet1").Range("G:G").PasteSpecial Paste:=xlPasteValues
 
Перейти    
Удаление битых формул с ссылкам на несуществующие значения, после действия удаления строки
 
#
26.12.2021 23:57:39
Добрый день,
Помогите оптимизировать или написать заново код VBA
В файлике примере - соединил две формулы, который почерпнул на форуме, для того чтобы выполнять
1. действие удаление строчек, если значение в диапазоне ниже чем G5 - пусто
2. действие удаление строчек, если значение в стобце G - ноль

работает и выполняет фунцию, только если в ячейке была задана формула, остаются ссылки на битые формулы.
 
Перейти    
Округление чисел в большую сторону, если после запятой >0.2
 
#
12.06.2020 17:27:46
Добрый день,
помогите, пожалуйста, с задачей.
Как результат в ячейке С3 хотел огруглить цифру до целых 2, а значение в С4 до целого одного.
Условие округления - если после запятой будет 0, 1 или 2 - округляем в сторону целого меньшего числа, а если после запятой 3, 4, 5, 6, 7, 8 или 9 десятых - округляем в сторону целого числа в большую сторону.
 
Перейти    
Сохранение целостности данных исходного файла расположенного на сетевом диске при многопользовательском доступе
 
#
26.02.2020 17:39:17
Дмитрий(The_Prist) Щербаков, спасибо! Буду эксперементировать с максросом!

PooHkrd, спасибо! Попробую как вариант!
 
Перейти    
Сохранение целостности данных исходного файла расположенного на сетевом диске при многопользовательском доступе
 
#
26.02.2020 15:10:07
Цитата
Дмитрий(The_Prist) Щербаков написал:
тогда при открытии такого файла вторым пользователем он получит сообщение, что файл уже открыт и может быть открыть сейчас только на чтение. Что само по себе запретит вносить изменения в оригинал и сохранить можно будет только его копию.
Все действительно так, просто опережая события, понимаю, что второй пользователь увидит что файл открыт, досупен для чтения, но может проигнорировать это событие, введет данные, пересохранит или не сохранит данные в копии и оригинал останется нетронутым, потеряв часть вводимых данных и приобретет ненужный клон.
 
Перейти    
Сохранение целостности данных исходного файла расположенного на сетевом диске при многопользовательском доступе
 
#
26.02.2020 14:39:00
Цитата
БМВ написал:
но не под тем же именем, пока открыт файл другим.
да, сохраняется только с новым именем, но будет нарушена целостность ввода данных для оригинала

Цитата
БМВ написал:
sunnyb  написал:Можно ли использую настройки Excel приложения или настройки операционной системы оповещать, что файл используется другим пользователем
Цитата
БМВ написал:
можно и это по умолчанию так.
Смущает, и это основной барьер, что проигнорировав предупреждение о уже открытом файле, новый пользователь внесет изменения которые не отразяться в оригинале, не будет ждать пока первый пользователь закроет файл.
Макрос для принудительного закрытия звучит как фантастика и магия, как такое возможно? Но, также, не совсем то, поскольку первый пользователь, возможно не закончил ввод данных и основной файл у него закроется?
Поэтому, может быть, Excel может просто информировать о том, что файл используется и не будет открываться? В том случае если к нему обращается более чем один пользователь?
 
Перейти    
Сохранение целостности данных исходного файла расположенного на сетевом диске при многопользовательском доступе
 
#
26.02.2020 12:52:49
В приложении нет файла с примером, вопрос, если кто-то знает и сталкивался.
По умолчанию, если Excel файл располагается на сетевом диске и открыт у одного из пользователей, следующий кто открывает этот файл может также внести изменения и пересохранить файл в директорию.
Можно ли использую настройки Excel приложения или настройки операционной системы оповещать, что файл используется другим пользователем и не позволять его открывать вовсе, до тех пор, пока первый пользователь не закроет файл.
 
Перейти    
Использование формулы, которая обращается к вновь созданному листу
 
#
25.02.2020 22:52:25
Большое спасибо!! Михаил Лебедев, vikttur
Все работает, просто идеально
Код
Private Sub NewOrder(ByRef Caller As Range)
Set sh = ActiveSheet
Set Order = Caller.Offset(, -3)
If Order <> "" Then
    If Evaluate("isref('" & Order & "'!A1)") = False Then
        Application.ScreenUpdating = False
        Order.Offset(, 4) = 1
        Sheets("образец").Copy After:=Sheets(Sheets.Count)
        With ActiveSheet
            .Name = Order
            .Range("a1") = Order
        End With
    End If
End If
sh.Activate
Order.Offset(, 14).Formula = "=COUNTA('" & Order & "'!G19:G57)"
Application.ScreenUpdating = True
End Sub
Изменено: sunnyb - 25.02.2020 22:52:51
 
Перейти    
Использование формулы, которая обращается к вновь созданному листу
 
#
25.02.2020 15:21:34
Прошу прощения за некоректно написанную тему топика.
Цитата
Михаил Лебедев написал:
...и куда результат записать?
Рабочий лист "Список заказов" - основной.
После запуска макроса, создается новый рабочий лист, название которого - это данные ячейки B3 в "Списке заказов".
Результат формулы COUNTA(G19:G57) из области нового, созданного рабочего листа пишется в P3 рабочего листа "Список заказов".
 
Перейти    
Использование формулы, которая обращается к вновь созданному листу
 
#
24.02.2020 22:54:55
Может быть есть возможность применить что-то наподобие VLOOKUP, для поиска рабочего листа соответствующего названию заказа из столбика "B"?
 
Перейти    
Использование формулы, которая обращается к вновь созданному листу
 
#
24.02.2020 16:13:50
Ігор Гончаренко, Vikttur, все так и есть. Необходимо сосчитать кол-во записей в G19:G57, поскольку там после срабатывания макроса будут добавляться данные
Просто не знаю синтаксис vba настолько хорошо, чтобы добавить оператор Formula самостоятельно.
Код
Private Sub NewOrder(ByRef Caller As Range)
Set sh = ActiveSheet
Set Order = Caller.Offset(, -3)
If Order <> "" Then
    If Evaluate("isref('" & Order & "'!A1)") = False Then
        Application.ScreenUpdating = False
        Order.Offset(, 4) = 1
=>
        Sheets("образец").Copy After:=Sheets(Sheets.Count)
        With ActiveSheet
            .Name = Order
            .Range("a1") = Order
        End With
    End If
End If
sh.Activate
Application.ScreenUpdating = True
End Sub

Интуитивно я понимаю, что в оригинале кода (выше), там где символ "=>" можно добавить что-то, чтобы для текущей страницы в P3 появилась формула, COUNT, которая брала бы данные из созданного рабочего листа.
Изменено: sunnyb - 24.02.2020 16:14:41
 
Перейти    
Использование формулы, которая обращается к вновь созданному листу
 
#
24.02.2020 15:06:31
Добрый день уважаемые форумчане!
В таблице Excel в первом рабочем листе, который выполняет роль заглавной страницы существует макрос (за который огромное спасибо проекту planetaexcel.ru и отдельно - пользователю БМВ)
При нажатии на командную кнопку (CommandButton1) создается новый рабочий лист, название которого берется из колонки B заглавной страницы
Существует ли возможность применять функцию, в частности COUNTA(), чтобы считать кол-во записей во вновь созданном рабочем листе из диапазона G19:G57?
 
Перейти    
Использовать Командную кнопку для ввода значения
 
#
19.02.2020 23:36:49
БМВ, большое Спасибо!
Тестирую и все работает!
Код1 работает, очень помогло

Личный вопрос не связанный с темой, как овладеть (с чего начать) синтаксисом ВБА? Периодически крайне необходимо и, всегда поражаюсь, как на форуме Вам удается решать любые задачи в excel
 
Перейти    
Использовать Командную кнопку для ввода значения
 
#
19.02.2020 23:11:09
Добрый день,
пробовал писать макро-рекордером, но так и не смог достичь желаемого результата.
Подскажите, пожалуйста, в прикрепленном файле, или любом другом вновь созданном, как можно для командной кнопки в зависимости от того в какую ячейку она помещена, назначить действие чтобы в соседнюю ячейку (справа) вводилось число "1"?
Изменено: sunnyb - 19.02.2020 23:23:26
 
Перейти    
Назначить область печати с условием
 
#
15.02.2020 14:09:46
Спасибо!
Получается.
С небольшим отклонением от задуманного результата.
После выполнения макрос-команды все равно остаюсь в окне предварительного просмотра перед печатью.
Код
Private Sub CommandButton1_Click()
    Range("AJ15:BT47").Select
    With ActiveSheet.PageSetup
        .Orientation = xlLandscape
    End With
    ExecuteExcel4Macro "PRINT(1,,,1,,TRUE,,,,,,1,,,TRUE,,FALSE)"
End Sub
Изменено: sunnyb - 15.02.2020 14:40:57
 
Перейти    
Назначить область печати с условием
 
#
13.02.2020 23:43:13
Добрый день!
Помогите, пожалуйста, решить задачу в excel, если необходимо, для текущего рабочего листа - CommandButton1, распечатать область (AJ15:BT47) отмеченную желтым цветом, в горизонтальном ориентации без предварительного просмотра и CommandButton2, распечатать область (AJ51:BH100) отмеченную зеленым цветом, в примере, в вертикальной ориентации без предварительного просмотра.
Буду очень благодарен, тому кто знает решение.
 
Перейти    
Копирование данных в ячейки через VBA и выбор области печати
 
#
09.02.2020 21:36:38
Mershik, огромное-огромное спасибо, бегу тестировать команды макрос и разбирать по строчкам, чтобы назначить похожие действия на др. ком. кнопки!
Прошу прощения, если выглядит подобно ТЗ, просто старался максимально подробно описать конечный результат.
Еще раз - спасибо!!  
 
Перейти    
Копирование данных в ячейки через VBA и выбор области печати
 
#
09.02.2020 16:40:18
Добрый день, подскажите, пожалуйста, как реализовать в приложенном файле порядок действий через код VBA.
После выбора из выпадающего списка в J7 (в том случае, если значение J7 не равно первоначальному значению "- - -", тогда происходит - ничего) при нажатии на CommandButton1, данные из J7 копируются в первую свободную ячейку начиная с G19, и последовательно в следующую свободную (G20, G21..). В N19 появляется время и дата, когда G19 перестало быть свободной ячейкой. Порядковый номер записи из F19 копируется в AQ44, Описание из J7, либо из G19 копируется в AQ45. Значение в J7 выпадающего списка возвращается к первоначальному "- - -". Последнее действие для CommandButton1, печатается область от AJ15:BT47 в гаризонтальном ориентировании без предварительного просмотра.
Изменено: sunnyb - 09.02.2020 17:51:20
 
Перейти    
Генерирование составного уникального номера записи при помощи формулы
 
#
04.02.2020 23:44:59
Благодарю за формулу! Попробую использовать составляя номер не отталкиваясь от текущего дня, без првязки к =сегодня()
 
Перейти    
Генерирование составного уникального номера записи при помощи формулы
 
#
04.02.2020 23:18:45
Добрый день!
Помогите с составлением уникального составного номера для заказа.
В формуле через IF (или иным образом) необходимо написать, что если С5 не является пустой (заказ существует), то B5 является "1/П04022020", где 1 - это порядковый номер строки из А5, / - это постоянный текстовой разделитель, П - это первая буква из название заказа в C5, а 04022020 - это дата из F3, при условии что если Книга открывается в любой другой последующий день, номер записи сохранится в виде "1/П04022020", а не поменяется в зависимости от текущей даты из-за привязки к F3.
Можно ли написать подобную формулу? Или потребуется написание макроса?
Спасибо за ответ!
 
Перейти    
Проверять уже добавленные данные при вводе данных в таблицу с формы
 
#
03.02.2020 22:12:48
Цитата
_Igor_61 написал:
Есть
Огромное спасибо!
Все получается, спасибо за макрос!
 
Перейти    
Проверять уже добавленные данные при вводе данных в таблицу с формы
 
#
02.02.2020 16:45:14
Добрый день,
Есть ли возможность вводить данные в таблицу при помощи формы.
При условии, что данные будут добавляться в соответствующий ячейки начиная с Е6 (если она не пустая).
Есть ли возможность проверять уже добавленные данные (наименования заказов) на предмет повтора. В случае если обнаружен дубликат, как в примере, к номеру заказа (в столбце Е ) добавляется символ Посылка2 (1), Посылка2 (2), Посылка2 (3). Количество ячеек с одинаковыми названиями заказов будут не больше, чем 7-8.
Заранее благодарен за ответ!
 
Перейти    
Динамический подбор из заданного масива, Data validation
 
#
29.01.2020 23:09:53
Добрый день!
Есть ли возможность в Excel реализовать динамический подбор значений по аналогии с опцией Data Validation?
Если есть список из наименований (в приложенном файле область F1:F9), а в ячейку B2 необходимо ввести название брэнда.
При вводе буквы "A" предлагаются все возможные варианты из заданного списка с начальной буквой "А".
При вводе букв "AL" список предлагаемых вариантов сокращается до всех значений бренды которых начинались бы на эти две буквы.
При этом можно ли исключить возможность появления дублирующихся названий, т.е., появлялось предупреждение, или иным образом становилось понятно, что бренд Apine уже существует в области B2:B6 и добавлен не будет.
Частично эту функцию выполняет Data Validation, его применение является затруднительным из-за того, что до тех пор, пока полное выражение не будет введено полностью, невозможно понять есть ли такое значение в списке заданных значений. Кроме того, если выражений (названий бренда) в списке более 500, выпадающий список в алфавитном порядке только затрудняет поиск нужного значения.
 
Перейти    
Создание рабочего листа из образца
 
#
27.01.2020 17:58:04
БМВ - большое спасибо, все получается!!
 
Перейти    
Создание рабочего листа из образца
 
#
27.01.2020 12:32:44
Добрый день!
Помогите, пожалуйста, решить задачу в приложении Excel.

В закрепленном файле, возможно ли при нажатии на командную кнопку расположенную в Е3:
(если ячейка В3 не является пустой):
> создается новая вкладка (рабочий лист) скопированный по образцу вкладки с названием "образец". Название вновь созданного рабочего листа берется из ячейки В3 ("Заказ1")
> в ячейке F3 = появляется цифра "1"

Если рабочий лист с названием из В3 уже создавался (кромандная кнопка в Е3 уже нажималась) - ничего не происходит.
> у вновь созданного рабочего листа "Заказ1" в ячейке A1 = это название заказа для которого он был создан - В3 в закладке "Список заказов"
> самое последнее, в закладке "Список заказов" при нажатии на командную кнопку в G3, осуществляется навигация по вкладкам. Нажав кнопку в G3 - переходишь в закладку соответствующую названию заказа из B3.

Заранее сильно благодарен, если есть возможность помочь с подобным вопросом!
Изменено: sunnyb - 27.01.2020 18:02:01
 
Перейти    
Перенос строчек из одной вкладки в другую
 
#
25.11.2016 23:55:28
вопрос канул в лету )
 
Перейти    
Перенос строчек из одной вкладки в другую
 
#
25.11.2016 00:58:27
Готово, в приложении
 
Перейти    
Перенос строчек из одной вкладки в другую
 
#
25.11.2016 00:34:53
Не удается приложить файл, из-за лимита размера (100 кб).
До: http://www.filedropper.com/before
и
после: http://www.filedropper.com/after_1  
 
Перейти    
Перенос строчек из одной вкладки в другую
 
#
24.11.2016 23:02:37
Доброго вечера всем!
Столкнулся с проблемой, решение которой значительно облегчило бы рутинные задачи.
В Excel файле первый столбик служит заголовком для каждой строчки, заголовок или статус для строки всего двух вариантов - латинская буква "u" или "s".
Как написать VBA макрос, чтобы при его активации все строчки имеющие заголовок "s" из вкладки "1" были перенесены в следующую вкладку ("2") начиная с А3 и при этом в первой вкладке остались только строчки с заголовком "u" без пробелов между этими строчками.
 
Перейти    
Страницы: 1 2 След.
Наверх