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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 95 След.
Как сделать отображение всегда определенного количества столбцов на листе?, Вопрос
 
Выделите на листе нужную область и выберите на ленте: Вид ► Масштаб по выделенному.
Если это записать макрорекордером, то при открытии файла можно будет запускать получившийся макрос.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
как в найти значение в таблице, если 1 условие по строке, и 2 условия по столбцам:одно равно, другое меньше или равно
 
Вообще-то у Вас там не 0,01 а 0,005
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
как написать название дня недели по номеру дня в неделе?, Нужна помощь в VBA
 
Бог в помощь!
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
PowerShell через VBA и Excel, проверка доступности устройств по списку
 
Цитата
написал:
Проблема в том, что результат выполнения команды TNC вполне себе TRUE
а как Вы определили, что TRUE ? (Добрый день)

PS

Выполнение кода
Код
Sub проба()
Dim a, b
Set a = CreateObject("WScript.Shell")

b = a.Run("PowerShell TNC MyHost CommonTCPPort RDP -InformationLevel Quiet", 0, True)
End Sub
у меня на ПК вернуло b=1
Сделайте
Код
dim b as boolean
вернет TRUE/FALSE
Изменено: Михаил Лебедев - 10.08.2022 14:00:01
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
VBA- запуск кода в указанной дате
 
Код можно запускать на событие "Открытие файла".
При открытии файла будет проведена проверка текущей даты и запуск процедуры, если проверка дала положительный результат.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Поиск значения в диапазоне таблицы
 
Добрый день.
PS
Только уберите пробелы в своей таблице. Чтобы числа стали числами, а не текстом
Изменено: Михаил Лебедев - 10.08.2022 13:44:46
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сводная таблица с подзадачами, Создание многоуровневой таблицы с расчетом общего процента
 
Нужно подробнее описать задачу.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Как увеличить кол-во загружаемых записей за шаг цикла при загрузке в PQ, PQ стал работать медленнее в 5 + раз после установки нового офиса (2021) из-за снижения кол-ва записей в шаге цикла
 
New, Спасибо за отклик. Да, я всё это посмотрел. В том числе - у меня стоит вместо 4096 ограничение в 16384 МБ. Это всё не помогло.

Но я разобрался, где мне надо копать.
Запрос содержал 30 полей. Когда я взял на пробу не все 30 полей, а просто первые 3, то загрузка пошла блоками по 10000+ записей. Так что всё упирается в объем загружаемой информации. А вот что дальше делать - еще не решил.
Дело в том, что у коллег этот запрос грузит блоки по 10000+ записей даже когда грузятся все 30 полей таблицы. Поэтому это связано либо с особенностями офиса 21 (у коллег пока стоит офис 19), либо с какими-то неочевидными особенностями моего ПК, т.к. изначально ПК у всех - по требованиям к ПК - должны быть одинаковые (оперативка, там, процессоры...).
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Как увеличить кол-во загружаемых записей за шаг цикла при загрузке в PQ, PQ стал работать медленнее в 5 + раз после установки нового офиса (2021) из-за снижения кол-ва записей в шаге цикла
 
Раньше, в офисе 2019 при загрузке данных из БД было видно, что загрузка идет блоками по 10000+ записей. После установки нового офиса (2021) размер блока уменьшился больше, чем в 5 раз. С чем это связано?
Файл нет смысла прикладывать, т.к. это проблема не какого-то конкретного файла.
Загружаются данные с БД в модель данных. Процесс загрузки виден, если открыть (она слева) панель "Запросы и подключения", там в процессе загрузки видно, как отсчитываются счетчиком загруженные записи. Раньше было по 10000 (приблизительно) записей, а сейчас - всего по 2000 (прибл.). И непонятно, где и как это произошло.
М.б. кто с этим сталкивался?
Изменено: Михаил Лебедев - 02.08.2022 08:24:03 (приложил скрин, где видно место счетчика загружаемых записей)
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Свой формат сокращения дней недели.
 
Цитата
написал:
=ВЫБОР(ДЕНЬНЕД(A2);"Вс";"Пн";"Вт";"Сре";"Чт";"Пт";"Суб")*ТЕКСТ(A2;"ДД.ММ")
замените на
=ТЕКСТ(A2;"ДД.ММ ")&ВЫБОР(ДЕНЬНЕД(A2);"Вс";"Пн";"Вт";"Сре";"Чт";"Пт";"Суб")
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
TextBox - запись / Combobox - чтение - одна форма, Запись данных и считывание в одной форме
 
Код
Private Sub cbox_HimName1_Enter()
Dim arr
arr = Лист6.ListObjects("utb_Him").DataBodyRange.Cells
cbox_HimName1.List = arr
End Sub
это короче (см. сообщ. 12)
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Формула Если/или
 
Добрый вечер всем! Как же давно я здесь не был!
По теме:
Интересно, а количество сообщений без вложенного файла примера и с непонятной темой достигло кол-ва 100500? Или уже перевалило и стало 100500+ ? :)
Было бы неплохо отметить это событие...

Не по теме:
Уважаемая Снежана! Если бы в названии темы не было написано "Формула Если/или", то я настоятельно порекомендовал бы Вам разобраться с тем, как работает функция №1 по популярности (ну, после =СУММ(), разве что...) - это =ВПР(). А если бы Вы не поленились и предложили какой-н. простенький файлик, то показал бы в нем, как она работает конкретно в Вашем случае, с Ромашками от Вас и баобабами от БМВ. Да что - я. Тут все бы уже накидали Вам этих примеров. Но к сожалению, нет ни того, ни другого.  
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Ввод в ячейку текста "2 24/1" приводит а тому, что в ячейку вводится 26
 
Добрый день, жители планеты! Сто лет сюда не заходил!

Даже и не знаю, что еще добавить к тому, что в Названии темы... Странное поведение ексель (никогда такого не было и вот - опять)
Открываю новую книгу. Ввожу в ячейку текст 2 24/1, нажимаю ентер. Получаю в ячейке 26. Видимо он по какой-то причине складывает 2 и 24/1....не смотря на то, что я НЕ ВВОЖУ ЗНАК МИНУС.
Попросил коллег по работе проделать то же самое у себя. Тот же результат.

Как, зачем и почему ексель это делает?!
М.б. кто-то знает ответы?
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Как избежать повторного обращения к источнику данных в запросе Power query?, использование функции Table.Buffer при работе с большими массивами данных
 
Из книги Павлова Н.:
"...Добавьте ключ при слиянии запросов
Если вы выполняете слияние (merge) запросов а-ля ВПР, то можно ощутимо ускорить обновление, добавив к таблице, из которой подставляются данные, внутренний невидимый уникальный ключ для каждой строки. Скорость обращения по этому ключу будет существенно выше, чем обычный многоразовый поиск каждого значения.
Добавить ключ можно либо напрямую в М-коде функцией Table.AddKey, либо, что гораздо проще, выполнив операцию удаления дубликатов (Главная  Удалить строки  Удалить дубликаты) над тем столбцом таблицы-справочника, по которому идёт поиск и подстановка данных. Даже если у вас не было повторов, выполнение этого действия активирует внутренний механизм Power Query по добавлению невидимого ключа, что весьма позитивно скажется на скорости обновления такого запроса...."
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
адрес полученный методом .address из VBA не воспринимается как ссылка в формулах EXCEL
 
Цитата
Vitalee написал:
p.s. файл загрузил ,
это не факт еще  :)  
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Как считать в код количество копий на печать?
 
Добрый день, жители Планеты!
Я знаю, как задать программно количество копий на печать. ...PrintOut Copies:=[здесь вводим кол-во копий]
А как считать в код колич-во копий, которое пользователь установил вручную?
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
В макрос скрытия строк добавить проверку по ячейкам и печать
 
Код
Sub ToggleHideRows()
Dim c As Range
For Each c In Range("V15:V19")
If Not IsEmpty(c) And c.Value = 0 Then             ' если не empty и =0, то...
c.EntireRow.Hidden = Not c.EntireRow.Hidden ' поменять значение видимости строки на противоположное, т.е. видимую сделать невидимой, а невидимую - видимой.
End If
Next 
End Sub
строка 4: если 0, то уже точно не empty
строка 5: Вам точно это надо? А так?
Код
Sub ToggleHideRows()
Dim c As Range
For Each c In Range("V15:V19")
If c.Value = 0 Then             ' если 0, то...
c.EntireRow.Hidden = true 
else
c.EntireRow.Hidden = false
End If
Next
End Sub
или так?
Код
Sub ToggleHideRows()Dim c As Range
For Each c In Range("V15:V19")
select case c.Value
case 0 
c.EntireRow.Hidden = true 
case 1
c.EntireRow.Hidden = false
End select
Next
End Sub
Изменено: Михаил Лебедев - 23.01.2021 11:21:22
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Копировать-Вставить непустые строки
 
_Igor_61, можно и с одним массивом ☺
Код
Sub Без_пустых()
    Dim r&, nr&, arr
    arr = Range("A1:C" & Cells(Rows.Count, 1).End(xlUp).Row)
'    ReDim b(1 To UBound(arr), 1 To 3)
For r = 1 To UBound(arr)
    If arr(r, 1) <> "" Then
       nr = nr + 1
       arr(nr, 1) = arr(r, 1)
       arr(nr, 2) = arr(r, 2)
       arr(nr, 3) = arr(r, 3)
    End If
Next r
    Range("F1:H1").Resize(nr) = arr
End Sub
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Написание макроса для автоматической нумерации и сравнения коммерческих предложений, Макрос необходим для автоматической нумерации и сравнения коммерческих предложений
 
Замануха для наивных :(
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Добавление данных в таблицу по условию
 
Цитата
Гульнара С написал:
Соль в том, что через обычный ВПР подкачиваются лишь первые строки из первой таблицы((А одинаковых идентификаторов для объектов в обоих таблицах по несколько штук
Соль в том, что ...Если дата отбора приходится на промежуток между датой начала и датой конца, то...одинаковых идентификаторов для объектов в обоих таблицах по несколько штук, ПОЭТОМУ ВОПРОС:
Как Вы предполагаете заносить несколько штук в одну строку итоговой таблицы?
Изменено: Михаил Лебедев - 08.01.2021 18:34:08
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Power Query. разложить столбцы с данными участников на соответствующие строки.
 
Добрый...
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Написание макроса: замещение ячеек на диапазон ячеек, вставить ячейки из одного диапазона в другой с замещением повторной строки и сдвигом вниз остальных
 
Либо крысы, либо задача не такая уж и срочная :D  
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сбой инициализации источника данных
 
Цитата
aset224 написал:
Автор работы не отвечает
Вы не спешите паниковать,автор работы не всё время проводит за ПК на этой планете, иногда я выхожу погулять и по другой планете :)
Вы лучше пришлите, как тогда, пару исходных файлов.
Адрес почты - вышлю Вам на email.
Изменено: Михаил Лебедев - 04.12.2020 18:44:53
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сбой инициализации источника данных
 
У Вас на листе Путь к файлам указан путь C:\ыф он существует?  
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Автоматическая нумерация в таблице с буквами ПЭ по порядку
 
Цитата
Наталья Димант написал:
Добрый день! Имею
И я имею добрый день! :)
Ваш случай - несложный, но лучше бы Вы прикладывали файл-пример. Просто из уважения ко времени жителей Планеты Ексель. Это и в правилах форума написано очень четко.

Как вариант. Можно просто задать для ячеек столбца свой формат.
Формат ячеек ►Число ► Числовые форматы ► (все форматы) ... Ввести в поле Тип: такой формат 0"ПЭ"

В ячейках будет содержаться просто число, но видеть вы будете как раз то, что хотите.
Изменено: Михаил Лебедев - 04.12.2020 11:42:49
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Требуется сделать автоматический анализ у какого поставщика выгоднее купить с учетом всех затрат.
 
1. Какие критерии, согласно которым условия будут признаны наилучшими?
2. Логику можно выстроить только в том случае. если понятно, какой нужен конечный результат.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Вакансия VBA-разработчик, актуально до 31.12.2020
 
Цитата
Oleg Boyaroff написал:
Откликнулся, проверьте.
▲Прочитал, не понял.

PS
Я тоже откликнулся на вакансию. "...А в ответ - тишина..."
А, нет! Позвонили и предложили пройти тестовые задания.
Задания - вполне выполнимые, но больше похоже на то, что им просто нужно получить готовые макросы и на этом -- всё.
Уж больно задания приближены к реальным заказам, которые периодически бывают здесь, в "Работа". ("...дую на воду..."  :cry: )
Изменено: Михаил Лебедев - 03.12.2020 19:31:51
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Нужно написать макрос, Макрос по автоматическому переносу строк из одного листа в другой
 
Цитата
vikttur написал:
Видимо, крыс кормит.
Крысы есть там, где есть возможность безопасно прокормиться. Раздел работа подходит им по этим параметрам полностью.
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Сортировка трех значений по формуле
 
Так - короче: =НАИМЕНЬШИЙ($A1:$C1;СТОЛБЕЦ())
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Активировать крайний левый Лист активной Книги средствами VBA
 
Цитата

Jack Famous : "Видимых листов нет"
vikttur написал: "Это сильно"
Цитата
БМВ написал:
Jack Famous ,  1 Попробуй скрыть все листы  
- это элементарно :)
Изменено: Михаил Лебедев - 27.11.2020 14:53:53
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 95 След.
Наверх