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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 20 След.
Замена СУММПРОИЗВ на VBA или PQ при сборке/подсчёте данных с множественными условиями
 
Количество значений "Шифр1", "Шифр2" и критериев ограничено? Или со временем могут добавится D3, N8 и т.д.?
Не стреляйте в тапера - он играет как может.
Макрос для подстановки и суммирования в зависимости от значения строк и столбцов в шаблоне, Макрос для подбора, подстановки и суммирования данных из одного листа на лист с шаблоном в зависимости от значения полей шаблона
 
Извините, но если Вы ставите ТЗ и хотите получить макрос, То лучше будет если Вы словами опишите что вам нужно. Я могу написать вам макрос, но если Вы объясните что именно этот макрос должен делать. Поймите, что компьютеру абсолютно нет разницы что учитывать: диагнозы (я ещё в 1987 написал программку для морга где сравнивались результат вскрытия и диагноз лечащего врача. В дополнительную награду мне разрешили полежать на разделочном столе, а потом на том же столе накрыли поляну) или производство гвоздей.
Но по правилам Вы должны поместить это задание в раздел "Работа" и оплатить выполнение задания.  
Не стреляйте в тапера - он играет как может.
Подстановка данных из нескольких листов excel, помогите, пожалуйста, что можно сделать...
 
Извините, но Вам нужно прежде всего определиться с данными. В таблице "ОВ БЦ. КОД" одинаков для всех позиций. Разница в цветах. Наименования не совпадают.
Вот если Вы пошагово опишите простыми словами что Вы делаете при ручном выполнении этой операции, по каким признакам определяете что и куда писать, то тогда написать нужный макрос проблем не составит.
Вы должны именно задать алгоритм действий, а так ничего не понятно. Напишите, что беру значение из ячейки такой-о и вставляю туда, смотри значение в соседней ячейке и на его основании формирую новое название и т.д.
Не стреляйте в тапера - он играет как может.
Макрос сравнения двух списков с последующим удалением дублей
 
Василька, вот ещё забыл написать. Перед
Код
Exit For
поставьте
Код
iListCount = iListCount - 1
количество строк на листе "Новые уменьшится и незачем молотить уже пустые строки
Не стреляйте в тапера - он играет как может.
Сгруппировать и посчитать количество строк по столбцу дата и столбцу время, Группировка одинаковых строк по двум столбцам дата и время с подсчетом количества повторов.
 
Можете попробовать простой макрос:
Код
Sub DelDuplicates()
    EndRow = Cells(Rows.Count, 1).End(xlUp).Row
    Dupl = 1
    For i = EndRow To 2 Step -1
        If Cells(i, 1).Value = Cells(i - 1, 1).Value And Cells(i, 2).Value = Cells(i - 1, 2).Value Then
                Rows(i & ":" & i).Delete Shift:=xlUp
                Dupl = Dupl + 1
            Else
                Cells(i, 3).Value = Dupl
                Dupl = 1
        End If
    Next i
End Sub
Не стреляйте в тапера - он играет как может.
Макрос сравнения двух списков с последующим удалением дублей
 
Если у вас на листе "Новые" нет дубликатов, то после удаления строки вставьте команду
Код
Exit For
зачем молотить ячейки, если уже удалена необходимая.
Если же дубликаты там возможны, то сначала удалите дубликаты:
Код
Sheets("Новые").Range("A1:A" & iListCount).RemoveDuplicates Columns:=1, Header:=xlNo
а уже потом гоняйте цикл

Так же непонятно зачем вы используете конструкцию цикла
Код
For Each x In Sheets("Реестр").Range("U7:U" & Sheets("Реестр").Cells(Rows.Count, "U").End(xlUp).Row)
попробуйте сначала вычислить последнюю строку
Код
iReestrCount = Sheets("Реестр").Cells(Rows.Count, "U").End(xlUp).Row
а потом запускайте обычный For
Код
For i = 7 To iReestrCount
ну и сравнение сделайте так
Код
If Sheets("Реестр").Cells(i, 21).Value = Sheets("Новые").Cells(iCtr, 1).Value Then
Не стреляйте в тапера - он играет как может.
Сохранение данных расчета в другую ячейку
 
Ну если номер студента - это номер строки на Листе2, то
Код
Row = Sheets("Лист1").Cells(3, 2).Value + 1
позволяет оставить шапку на Листе2.
Но так и не понял какие именно значения нужно отмечать, по какому критерию.
Цитата
написал:
Например данные для Row  берутся из списка значений поочерёдно. Но как это сделать, не понятно.
Номера студентов берутся поочерёдно - просто порядковый номер или у студента есть свой постоянный номер?
Не стреляйте в тапера - он играет как может.
Сохранение данных расчета в другую ячейку
 
А откуда берутся эти строки 3,7,8,11? Из ведомости? Так нужен пример ведомости.
Не стреляйте в тапера - он играет как может.
Поиск по вводимым символам из большого списка
 
Вот посмотрите - может подгоните под ваши задачи
Не стреляйте в тапера - он играет как может.
Поиск по вводимым символам из большого списка
 
Есть решение. Настраивается на нужный столбец. Допускаются объединённые ячейки в пределах столбца. Можно разрешить пользователям добавлять/удалять/изменять значения списка, можно оставить только поиск с выбором.
Принцип работы прост: При выборе ячейки в данном столбце на место этой ячейки появляется КомбоБокс. При вводе в него значений происходит выборка из списка на вхождение, т.е. если в списке много позиций "ООО ......" или "ИП ....", то не нужно набирать "ООО" или "ИП", а сразу "газпром" или "иванов".
Но одна проблема - не нашел этот файл на домашнем компе, хотя точно знаю что был. На работе точно есть - буквально на прошлой неделе его видел, да и знаю кто из сотрудников пользуется таблицей с этим макросом.
Если терпит до завтра - пишите.
Не стреляйте в тапера - он играет как может.
Загрузка данных из таблицы excel в таблицу excel (макрос?), защита ячеек
 
Ігор Гончаренко, ну если Вы не поняли, то даже представить сложно уровень ТЗ...
Не стреляйте в тапера - он играет как может.
получить данные в ячейке вбив процент и в ней же отобразится значение?, можно ли вбить в ячейку процент и в ней же отобразится значение числовое от числа рядом в столбце?
 
Получить результат в той же ячейке вы сможете только макросом.
Запутаться можно что у вас в ячейке: результат или процент только в том случае если макрос запускается отдельно. Если же запуск макроса на изменение в ячейке, то там всегда будет уже готовый результат. Посмотрите мой пример.
Не стреляйте в тапера - он играет как может.
получить данные в ячейке вбив процент и в ней же отобразится значение?, можно ли вбить в ячейку процент и в ней же отобразится значение числовое от числа рядом в столбце?
 
Можно макросом
Не стреляйте в тапера - он играет как может.
Макрос защиты скрытого листа
 
Вот сегодня в теме
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=147762&a...
человек спрашивал о подобном и там я выложил свою старую разработку авторизации
Не стреляйте в тапера - он играет как может.
Защитить разными паролями разные листы таблицы (файла)
 
Вот когда-то для кого-то делал как раз похожий вариант:
Пароль User1 - 111, User2 - 222, User3 - 333, Администратор - 123
Не стреляйте в тапера - он играет как может.
VBS скрипт не выполняет условие запуска Msgbox
 
Цитата
написал:
If NowTime >= time1 Then
Замените NowTime (вроде в VBS нет такой функции) просто на Time - системное время. А Now выдаёт дату и время.
Не стреляйте в тапера - он играет как может.
Сохранение данных расчета в другую ячейку
 
Так?
Не стреляйте в тапера - он играет как может.
Защитить разными паролями разные листы таблицы (файла)
 
Цитата
написал:
Но тут есть важный момент - если у юзера будут выключены макросы, то все это работать не будет.
Это легко решается. Перед закрытием книги макрос скрывает все листы кроме пустого стартового и если пользователь откроет этот файл с выключенными макросами, то увидит только пустой лист. На котором можно написать, что нужно включить макросы.
Не стреляйте в тапера - он играет как может.
Удаление дублей строки по совпадению столбцов
 
На вкладке данные нажимаете кнопочку "Удалить дубликаты", только снимите флаг со столбца А
Не стреляйте в тапера - он играет как может.
Личный счёт на этом сайте, Возможность завести кошелёк, средства которого можно потратить только на этом сайте.
 
Цитата
написал:
в свете ужесточения контроля со стороны регулятора
Контроль будет отслеживать суммы выше определённого предела и регулярность переводов. Так что в принципе ничего страшного не будет.
Не стреляйте в тапера - он играет как может.
Получение данных курса валют ЦБ РФ на заданную дату
 
Вот этот код загрузит нужную страницу:
Код
Set IE = CreateObject("InternetExplorer.Application")    ' загружаем браузер Internet Explorer
                    
'считываем исходный текст страницы переменную txt_txt
IE.Navigate sURL    ' загружаем сайт, адрес страницы в переменной sURL
While IE.busy Or (IE.readyState <> 4): DoEvents: Wend    ' ждем, пока загрузится страница
txt_txt = IE.Document.body.innerText    ' считываем текст веб-страницы

IE.Quit: Set IE = Nothing    ' закрываем браузер

Дальше просто нужно найти в переменной txt_txt фразу "Центральный банк Российской Федерации установил с", после неё идёт нужная дата.
Изменено: Ts.Soft - 04.02.2022 21:55:00
Не стреляйте в тапера - он играет как может.
Получение данных курса валют ЦБ РФ на заданную дату
 
Когда я писал - ссылки ещё не было.
А так найти на сайте этот блок:
<h2 class="h3">  
 Центральный банк Российской Федерации установил с
 05.02.2022
 следующие курсы иностранных валют к рублю Российской Федерации без обязательств Банка России покупать или продавать указанные валюты по данному курсу  
</h2>
проблем нет.

Вам подсказать как написать парсер или сделать это за вас?
Не стреляйте в тапера - он играет как может.
Получение данных курса валют ЦБ РФ на заданную дату
 
, а написать ссылку на это страницу религия не позволяет? Или вы думаете что сейчас все бросятся в поисковике искать этот сайт?
Не стреляйте в тапера - он играет как может.
Как осуществить перенос строки при вставке в стороннее приложение
 
Цитата
написал:
Может есть какой-то знак, на который можно будет сначала заменить символ(10) и переносы осуществятся в браузере?
Попробуйте заменить Chr(10) на константу vbCrLf - это не только перевод строки Chr(10) но и возврат каретки Chr(13)
Не стреляйте в тапера - он играет как может.
Получение данных курса валют ЦБ РФ на заданную дату
 
Цитата
написал: Вот поэтому и "не всегда"
Поэтому нужен и сайт.
Не стреляйте в тапера - он играет как может.
Получение данных курса валют ЦБ РФ на заданную дату
 
Это называется парсинг сайта.
Всё зависит от сайта с которого нужно тянуть инфу. Я как-то сделал парсер одного сайта, некоторое время он работал, а потом перестал - ошибка авторизации. Просто разработчики сайта сделали кнопку авторизации без имени и не знаю как её нажать.
Не стреляйте в тапера - он играет как может.
Разделение сдвоенных ячеек с копированием текста в каждую.
 
Макросом. Для примера работает в столбце "F".
Код
Sub M_C()
    EndRow = Cells(Rows.Count, 6).End(xlUp).Row
    EndRow = EndRow + Cells(EndRow, 6).MergeArea.Rows.Count - 1
    Range("F2:F" & EndRow).UnMerge
    For i = 2 To EndRow
        If Len(Cells(i, 6).Value) > 0 Then
                wS = Cells(i, 6).Value
            Else
                Cells(i, 6).Value = wS
        End If
    Next i
End Sub
Не стреляйте в тапера - он играет как может.
Макрос выделение ячейки по условию
 
Работа сделана.
Оплата получена.
Не стреляйте в тапера - он играет как может.
Внесение изменений в таблицу только через форму VBA
 
, не понял зачем в цикле вызывать процедуру из одной строки. Почему нельзя устанавливать защиту прямо в цикле?
Не стреляйте в тапера - он играет как может.
Макрос выделение ячейки по условию
 
, смотрите личку
Не стреляйте в тапера - он играет как может.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 20 След.
Наверх