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

Страницы: 1
Формат отражения градусов, Формат отражения градусов
 
#
28.12.2023 11:57:21
Добрый день!
Помогите плиз, как сделать так, чтобы Поискпоз воспринимал 107°43´, как градусы, а не как число 4,4881?
 
Перейти    
Преобразование времени в число, Преобразовать время в число
 
#
22.12.2023 14:01:22
Добрый день!
Помогите плиз, выделить минуты из формата времени __ч __мин __сек?
С часами и секундами разобрался вроде, с минутами не получается.
 
Перейти    
Подсветка дат в календаре ексель, Подсветка дат в календаре ексель
 
#
15.01.2023 20:16:45
Всем, привет! Помогите, пожалуйста, нужно:
Чтобы, все праздничные даты "День народного единства" подсвечивались зеленым цветов в календаре. Заливка для остальных праздничных дат должна остаться той же - красной.
Список праздничных дат на втором листе "данные" столбец H.
 
Перейти    
Адрес активной ячейки, Адрес активной ячейки
 
#
15.11.2022 15:07:25
Всем, привет! Подскажите, плиз, как получить значение из активной ячейки?

Нужно, чтобы при выборе даты в ячейки календаря, в ячейку АВ4 выводилась дата, которая выбрана в календаре.
+ чтобы на эту дату, выводилось наименование праздника в столбце АА6.
 
Перейти    
Подсветка текста и вывод даты в календаре, Подсветка текста и вывод даты в календаре
 
#
14.11.2022 11:48:01
Всем, привет! Помогите, пожалуйста, нужно:
1) Чтобы все праздничные даты подсвечивались красным цветов в календаре. Список праздничных дат на втором листе "данные" столбец H;
2) При выборе даты в ячейки календаря нужно, чтобы текст праздника выводился в окошке "Праздник на выбранную дату" на первом листе в столбце АА(6-11). + чтобы в ячейку АВ4(выделил желтым) выводилась дата, которая выбрана в календаре.
Изменено: bandin - 14.11.2022 11:49:17
 
Перейти    
Добавление и удаление выделенной строки vba, Добавление и удаление выделенной строки vba
 
#
03.08.2022 18:24:17
Всем, привет, помогите, пожалуйста, с макросом
Нужно,
1) В "таблицу 1" добавить "+"/"-" для вставки новой строки в конец таблицы/удаления выделенной строки.
2) В "рабочая таблица" добавить "+"/"-" для вставки новой строки после выделенной/удаления выделенной. И, чтобы эта возможность была при добавлении новых "рабочих таблиц" по существующему макросу через "+".
 
Перейти    
Вставка строки в конец именованного диапозона, Вставка строки в конец именованного диапозона
 
#
02.08.2022 17:27:26
Всем привет, помогите плиз
1) Нужно вставить новую строку в конец именованного диапазона.
2) При этом копировать все форматы, объединения строк и выпадающие списки с предыдущей строки.

Тут почему-то копирование форматов не срабатывает.

Код
With Range("table1")
     intersect(rows(.Row + Rows.Count), . EntireColumn). Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Union(Range("table1"),  .Offset(1)).Name = "table1"
End With
 
Перейти    
Поиск последней заполненной ячейки, Поиск последней заполненной ячейки vba
 
#
01.08.2022 14:32:37
Всем, привет! Подскажите, плиз,
как через макрос найти последнюю ячейку заполненную определённым текстом?
Например, слово "договор" встречается в тексте в разных ячейках, мне нужно найти, последнюю ячейку, где оно встречается.
Изменено: bandin - 01.08.2022 14:48:25
 
Перейти    
Вставка данных в таблицы через VBA, Вставка данных в таблицы через VBA
 
#
28.07.2022 16:18:18
Добрый день, помогите, пожалуйста, с макросом.
При каждом нажатии на "+" рабочая таблица должна вставляться ниже последней вставленной таблицы.
Данные для каждой вставленной таблицы должны браться из "Таблица 1" из соответствующей ее № строки.
При нажатии на "-"  выделенная таблица должна удаляться.

Записал макроредактором, что нужно.
Со вставкой таблицы вроде все ок, макроредактор справился.
Нужно как-то сделать, чтобы в таблицы отражались нужные данные и удалялись выделенные таблицы..  
 
Перейти    
Уникальное значение в автофильтре
 
#
22.06.2021 10:03:05
Всем, привет! Подскажите пожалуйста, как сделать проверку для автофильтра, что в первом столбце, по которому осуществляется поиск, существует всего 1 уникальное значение.
Т.е. под автофильтом может быть любое количество уникальных значений(Вася, Петя).
Нужно вывести через vba проверку, что в автофильтре(т.е. при нажатии этой стрелки со значением автофильтра(Имя), оно всего одно причем не важно какое(допустим Вася, или допустим Петя, но одно)
Код
    ActiveSheet.Range("$A$1:$B$2").AutoFilter Field:=1
Изменено: bandin - 22.06.2021 22:16:04
 
Перейти    
Выделение в скрытых строках только заполненных ячеек VBA, Выделение в скрытых строках только заполненных ячеек без раскрытия их VBA
 
#
27.04.2020 09:40:41
Всем привет!

Подскажите плиз, возможно ли в скрытых строках выделить диапазон ячеек только с заполненными значениями, не раскрывая их.
Сейчас в этот диапазон попадают все строки, в т.ч. пустые, вплоть до первой видимой строки.
Когда раскрываю ячейки, то диапазон определяется верно, и пустые строки в ListBox не попадают.

Это нужно, чтобы в диапазон значений ListBox(ListFillRange) не попадали пустые наименования.
Код
Sub Макрос1()

Names.Add Name:="qqqq", RefersToR1C1:=Range([a1], Range("a" & Rows.Count).End(xlUp))
 
End Sub
 
Перейти    
Не могу выбрать значение в ListBox после его создания макросом
 
#
22.04.2020 18:45:52
Всем привет!

Не могу выбрать значение в ListBox после его создания макросом, помогает только переоткрытие книги.
Пробовал с 2013 и 2019 екселя.  
 
Перейти    
Автозаполнение ListFillRange и MultiSelect при сознании ListBox
 
#
21.04.2020 11:33:23
Всем привет!

Подскажите плиз, возможно ли сразу заполнять ListFillRange и MultiSelect при создании ListBox?  
Изменено: bandin - 21.04.2020 13:25:37 (Модераторы, поменяйте плиз название темы на "автозаполнение ListFillRange и MultiSelect при сознании ListBox")
 
Перейти    
Поиск по диапазону значений в ячейке, Поиск по диапазону значений в ячейке
 
#
20.04.2020 14:15:06
Друзья, всем привет!

Помогите плиз, нужно чтобы поиск осуществлялся не по ListBox как сейчас, а по диапазону [А1 до последней заполненной ячейки столбца А]
Код
   'поиск по Listbox
For z = 0 To .ListBox1.ListCount - 1

    On Error Resume Next
ActiveSheet.ShowAllData

If .ListBox1.Selected(z) Then
       Range("$A$360:$C" & Cells(Rows.Count, 1).End(xlUp).Row).AutoFilter Field:=1, Criteria1:="<>" & .ListBox1.List(z)
    .Copy
    Application.DisplayAlerts = False
    Sheets("Лист1").Range("$A$360:$C" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(xlVisible).Delete
    Application.DisplayAlerts = True
   
    ActiveSheet.ShowAllData
   
    On Error Resume Next
    Sheets("Лист1").Shapes.Range(Array("ListBox1")).Delete
   
   'формируем путь к папке
    BackupsPath = FilePath & "\"
    MkDir BackupsPath '
    ' формируем путь для файла Excel
    FileNameXls = BackupsPath & .ListBox1.List(z) & PROJECT_NAME & ".xlsx"
    ActiveWorkbook.SaveCopyAs FileNameXls & ".xlsx"   ' создаем копию книги
 
    Application.DisplayAlerts = False
    ActiveWindow.Close
    Application.DisplayAlerts = True
 
End If

    Next
    Application.ScreenUpdating = True
   
    End With
Изменено: bandin - 20.04.2020 14:54:59 (неточность)
 
Перейти    
Выделить в отдельную ячейку часть текста по маске
 
#
26.01.2020 12:25:26
Друзья, всем привет!

Помогите пожалуйста, выделить из текста в отдельную ячейку № продукта по маске "____-_-_-_"  например (0001-а-1-4-к).
Т.е. если в ячейке мы находим такую маску, то переносим ее в отдельную ячейку. Если находим ее больше 1 раза, то ничего не делаем.  
Изменено: bandin - 26.01.2020 14:38:26 (неточность)
 
Перейти    
Копирование значения при выборе в ComboBox, Копирование значения при выборе в ComboBox
 
#
27.05.2019 10:31:54
Всем привет!

Подскажите плиз, как сделать, чтобы в момент выбора из выпадающего списка в ComboBox1, выбранное значение копировалось в ComboBox2.

Ниже код копирует, но только если после выбора значения, выделить любую ячейку.
Код
Private Sub ComboBox1_lostFocus()

ComboBox2.Value = ComboBox1.Value

End Sub

пс _Change() почему-то не срабатывает..  
 
Перейти    
Автофильтр по массиву VBA, Скрывать все значения, выбранные в Listbox
 
#
12.03.2019 11:19:24
Всем, привет!

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

Идея, чтобы цикл работал только с видимыми ячейками.
Для этого я прописал SpecialCells(xlCellTypeVisible), но он почему-то не срабатывает, как я хочу.
Сейчас при выборе нескольких значений в Listbox он скрывает только последнее.
Код
Sub fff()
Dim z As Integer
With Sheets("Лист1")

For z = 0 To .ListBox1.ListCount - 1
    If .ListBox1.Selected(z) Then
    .ListObjects("tMon").Range.SpecialCells(xlCellTypeVisible).AutoFilter Field:=3, Criteria1:=("<>" & .ListBox1.List(z)) 'скрываем выбранное в Listbox1
    End If
Next
End With
End Sub
 
Перейти    
Переход к поиску значения по фильтру во втором столбце, при отсутствии значения в первом
 
#
28.01.2019 17:11:28
Всем привет!

Подскажите плиз, можно ли сделать так, когда цикл не находит совпадения значения выбранного из ListBox1 (If .ListBox1.List(z) = "" ) в одном столбце, переходил к поиску значения по другому столбцу?

Код
With Sheets("Лист1")
 
For z = 0 To .ListBox1.ListCount - 1

' цикл по Listbox
If .ListBox1.Selected(z) Then
        .ListObjects("таблица_1").Range.AutoFilter Field:=3, Criteria1:=.ListBox1.List(z) ' фильтр по третьему столбцу
 
If .ListBox1.List(z) = "" Then ' ???
    ActiveSheet.ListObjects("таблица_1").Range.AutoFilter Field:=3 ' сброс фильтра с 3 столбца
    .ListObjects("таблица_1").Range.AutoFilter Field:=5, Criteria1:=.ListBox1.List(z) ' фильтр по пятому столбцу

End If
 
Перейти    
Отсутствие выбора в зависимом выпадающем списке
 
#
06.12.2018 17:28:32
Всем привет!

Подскажите плиз, при работе со связанными (зависимыми) выпадающими списками,
как в этом примере https://www.planetaexcel.ru/techniques/1/38/ ,возможно ли создать зависимый список без выбора вариантов значений.

Т.е когда отпуствует выбор в зависимом списке, значение в нем появлялось само.

п.с. сейчас если значение всего одно, то приходится выбирать между пробелом и единственным значением.
 
Перейти    
VBA. Скрыть столбцы в разных диапазонах
 
#
19.10.2018 16:43:10
Всем привет!

Хочу скрыть столбцы через VBA списком.
Так все работает:
Код
ActiveSheet.Range("B:J", "l:l").EntireColumn.Hidden = True

А вот так нет, прошу подсказать почему и как это исправить?
Код
ActiveSheet.Range("B:J", "l:l", "AJ:AK").EntireColumn.Hidden = True
 
Перейти    
Подсчет вхождений заявки по ячейкам
 
#
24.07.2018 17:19:16
Всем привет!
Есть таблица с ячейкой № заявки.
Нужно чтобы если заявка пришла первый раз писалось "1" если второй, третий и тд - "2"

Заранее благодарю за помощь!
 
Перейти    
Скрыть маркер границы в умной таблице
 
#
04.05.2017 16:24:53
Всем добрый день!

Подскажите плиз, как при работе с умной таблицей скрыть маркер границы, который подчеркивает уголок нижней крайней ячейки диапозона.
Выглядит как синее обрамление уголка нижней правой ячейки любого диапозона умной таблицы.

Заранее благодарен.

пс. помню что делается это как-то просто, а нужную кнопку найти не могу.  
Изменено: bandin - 04.05.2017 21:53:19
 
Перейти    
макрос для графика
 
#
25.02.2013 11:13:35
Здравствуйте господа! подскажите пожалуйста! имеются координаты от 0 до 15000 и соответствующие значения к ним, я строю график от 0 до 5000, как мне построить такие же графики от 5000 до 10000, и от 10000 до 15000, с помощью макроса? т.е. не подстраивая последующие графики под первоначальный и не выделяя все нужные значения вручную?
 
Перейти    
Страницы: 1
Наверх