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

Страницы: 1
Нужна гугл-таблица с обновляемыми курсами P2P с разных криптобирж, Сформировать в табличном виде импорт данных
 
#
01.07.2022 11:42:00
Нужна гугл-таблица с обновляемыми курсами P2P с разных криптобирж. Прошу указать примерную стоимость работы.
Изменено: gmb - 01.07.2022 11:42:28
 
Перейти    
Регистрация входящих писем из mail.ru или outlook
 
#
21.03.2022 15:18:39
Добрый день! Нужен макрос или надстройка которая могла бы выгружать письма в папку, создавая новую папку для файлов из каждого письма, одновременно регистрируя их в реестре.
 
Перейти    
Регистрация входящих писем из mail.ru или outlook
 
#
21.03.2022 14:09:01
Добрый! Подскажите, существуют ли какие-то макросы, которые могли бы выгружать письма в папку, создавая новую папку для файлов из письма и регистрируя их в реестре?
 
Перейти    
Поиск (как ВПР) и сцепление нескольких значений в одну ячейку (Часть 2)
 
#
22.02.2022 16:26:54
Добрый день! Силами Бахтиёр в предыдущей теме получился данный макрос:
Код
 Sub ВПР5()
Set dic = CreateObject("Scripting.Dictionary")
mas = Range("A2:B17").Value
For i = 1 To UBound(mas)
    dic(--mas(i, 1)) = mas(i, 2)
Next
sp = Split(Range("D2").Value, ",")
For Each x In sp
    y = y & dic(--x) & ", "
Next
Range("E2").Value = Left(y, Len(y) - 2)
End Sub
Прошу помочь, как подредактировать макрос - увеличить диапазоны, сослаться на стороннюю книгу и создать условие начала работы макроса при вводе в ячейку.
Подробнее написал в книге.
 
Перейти    
Макрос защиты скрытого листа
 
#
22.02.2022 13:03:48
Добрый день! Подскажите пожалуйста, как защитить скрытый лист, при его раскрытии, чтобы сторонний пользователь не видел содержимого скрытого листа, пока не введет пароль.
 
Перейти    
Поиск (как ВПР) и сцепление нескольких значений в одну ячейку
 
#
18.02.2022 12:34:28
Добрый день! Подскажите пожалуйста, можно ли формулой (например через ВПР) найти несколько результатов через запятую, в соответствии с последовательностью, указанной в ячейке D2?
 
Перейти    
Как поменять формат даты на дату с кавычками
 
#
22.09.2021 10:11:03
Добрый день! Подскажите пожалуйста как дату формата 30 сентября 2021 г. (ДД ММММ ГГГГ) преобразовать в дату «30» сентября 2021 г. Возможно ли форматом? Либо через функцию "ТЕКСТ".
Изменено: vikttur - 22.09.2021 11:06:25
 
Перейти    
Как сделать, чтобы ссылка на ячейку сохранялась при удалении строки?
 
#
18.05.2021 09:54:42
При удалении строк с фамилией Авраменко номер ведомости должен меняться на соответствующий Айтуганову, но появляется ссылка.
Пытался через индекс, двссыл, не получилось. Данную тему прочел.https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=65840&MID=s
 
Перейти    
Как собрать дублирующуюся строки в одну и суммировать значения рядом с ячейкой?
 
#
19.04.2021 10:20:26
Добрый день! Подскажите пожалуйста, может есть макрос который соберет дублирующуеся ячейки в столбце А в одну, а справа от ячейки суммирует количество, которое было указано напротив каждой строки?
 
Перейти    
Скрыть строки имеющих количество выполненных работ равных 0, увеличить скорость работы макроса
 
#
19.10.2020 12:15:15
Добрый день! Подскажите как можно увеличить скорость работы данного макроса?  Задача макроса скрывать строки с нулевыми значениями, но при этом оставляя заголовки перед позициями. Он обрабатывает по 5000-6000 строк. Это занимает примерно час времени. Возможно ли увеличить скорость работы?
Код
Dim Pos As String
Dim flag As Boolean


Sub Скрыть_только_ноль()
Application.ScreenUpdating = False
Rows.EntireRow.Hidden = False

For i = 31 To Cells(Rows.Count, 1).End(xlUp).Row

j = 1
flag = 0
'If (ActiveSheet.Cells(i, 21).Value = 0) And (ActiveSheet.CheckBoxes(1).Value = 1) Then Rows(i).EntireRow.Hidden = True     ' пробую сразу скрывать
If ActiveSheet.Cells(i, 21).Value = 0 Then Rows(i).EntireRow.Hidden = True     ' пробую сразу скрывать
If ActiveSheet.Cells(i, 21).Value = "" Then
'Pos = ActiveSheet.Cells(i, 3).Value
   Do While InStr(1, CStr(Cells(i + j, 3)), CStr(Cells(i, 3))) = "1"
  
    If Cells(i + j, 21) > 0 Then
    flag = 1
    Exit Do
    
       End If
    j = j + 1
    
 Loop
 
    If flag Then
    Rows(i).EntireRow.Hidden = False
    Else
    Rows(i).EntireRow.Hidden = True
    End If
End If


Next i
 
Перейти    
Макрос автоматического подбора высоты строки (двойной клик)
 
#
10.09.2020 09:00:02
Так как в лист 7778 вставляется текст из таблицы т.1 с помощью формулы ВПР приходится постоянно подбирать высоту руками (двойным кликом) в двух выделенных строках. Подскажите пожалуйста, какой макрос можно использовать, чтобы эти две строки подбирали автоматически.
 
Перейти    
Определение количества при частичном совпадении номенклатур.
 
#
20.05.2020 17:29:45
Добрый день! Подскажите пожалуйста, какую формулу или макрос можно использовать на подобии ВПР, только с условием, чтобы при поиске функция совмещала две таблицы не с точностью до знаков, а при совпадении с любым словом из строки? Для примера прикрепил файл.
 
Перейти    
Ошибка в макросе, изменяющем имя листа на указанное в ячейке
 
#
07.05.2020 11:55:36
Добрый день! Есть такой макрос
Код
Private Sub Worksheet_Calculate()
  If Range("BB2").Value <> "" Then
       Me.Name = Range("BB2").Value
    End If
End Sub
Он меняет названия листа в в соответствии с изменяющейся ячейкой BB2, которая меняется через окно списка. Когда в книги есть и другие листы несколько раз изменив выбор месяца через окно списка Excel дико зависает, выдает ошибку out of stack space (error 28). Подскажите пожалуйста как решить данную проблему. Вот файл

пример см. ниже
Изменено: gmb - 07.05.2020 13:51:41
 
Перейти    
Не получается убрать защиту рецензирования (запрос пароля), Рецензирование
 
#
27.03.2020 10:04:22
Добрый день! Подскажите пожалуйста, как можно убрать запрос пароля. Лист защищен, пароль "123".  
 
Перейти    
Как скрыть нулевые строки, не скрывая заголовков?, Как поправить макрос на скрытие нулевых строк
 
#
13.12.2019 16:07:05
Добрый день! Подскажите пожалуйста, есть документ КС-2. И вот такой макрос. Из месяца в месяц некоторые строки появляются с нулевыми объемами. Этим макросом не получается скрыть нулевые но оставить нужные заголовки, подскажите пожалуйста, что изменить?
Код
Dim Pos As String
Dim flag As Boolean

Sub Скрыть_только_ноль()
Application.ScreenUpdating = False
Rows.EntireRow.Hidden = False

For i = 31 To Cells(Rows.Count, 1).End(xlUp).Row

j = 1
flag = 0
'If (ActiveSheet.Cells(i, 21).Value = 0) And (ActiveSheet.CheckBoxes(1).Value = 1) Then Rows(i).EntireRow.Hidden = True     ' пробую сразу скрывать
If ActiveSheet.Cells(i, 21).Value = 0 Then Rows(i).EntireRow.Hidden = True     ' пробую сразу скрывать
If ActiveSheet.Cells(i, 21).Value = "" Then
'Pos = ActiveSheet.Cells(i, 3).Value
   Do While InStr(1, CStr(Cells(i + j, 3)), CStr(Cells(i, 3))) = "1"
  
    If Cells(i + j, 21) > 0 Then
    flag = 1
    Exit Do
    
       End If
    j = j + 1
    
 Loop
 
    If flag Then
    Rows(i).EntireRow.Hidden = False
    Else
    Rows(i).EntireRow.Hidden = True
    End If
End If

Next i
Application.ScreenUpdating = True
End Sub
Изменено: gmb - 14.12.2019 12:52:45
 
Перейти    
Заполнение ячеек формулой
 
#
21.05.2019 15:23:15
Добрый день! Имеется =ДВССЫЛ("'КС6а'!"&ВПР($AK$2;Месяца;2;ЛОЖЬ)&1955) данная формула, в первой части находит номер столбца буквенный, во второй после & соединяет букву с цифрой и выводит ссылку на ячейку с другого листа. Подскажите пожалуйста, как можно ее протягивать? Цифра после & не меняется. Я попробовал, замудрил и добавил еще один ВПР после амперсанда ссылающийся на цифровой диапазон, но коллега ее протягивает, а как, не делится информацией)
 
Перейти    
Формат ячейки, Перенос формата ячейки только по начертанию шрифта
 
#
16.05.2019 12:52:10
Добрый день! Есть два листа, на первом список позиций (с жирным начертанием и без него), на втором листе этот список расположен в объедененных ячейках (без заданного формата). Подскажите как быстро перенести формат (именно стиль начертания) ячеек с первого листа на второй, чтобы позиции так же остались в объеденных ячейках. Есть ли возможность переносить только стиль начертания? Спасибо.
 
Перейти    
Унифицированная форма для проверки
 
#
15.04.2019 08:51:09
Добрый день, уважаемые форумчане! Постоянно приходится работать с формами КС-6, КС-2, КС-3 (строительные), приходится проверять наличие и корректность формул в ячейках, потому что подрядчики сами их заполняют и очень часто где-то что-то удалят или неправильно введут формулу (без округления допустим). Есть ли в теории такая возможность - создать унифицированную форму-шаблон и делать автоматического наложение на присланные формы для выявления огрехов? Даже если придется заплатить за чью-то интеллектуальную разработку)  
 
Перейти    
Страницы: 1
Наверх