Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 21 След.
Макрос на поиск по первым буквам
 
Можно не показывать список
А текстбокс показывать
А список показать если в текстбоксе больше 2 символов
Вставить формулу массива через vba
 
Цитата
таких формул порядка 500 в отчете, что очень тормозит работу когда работаю
Ну раз уж решили сделать макросом, то можно вообще отказаться от формул? сделать всё макросом
Разделитель для текста и чисел в одной ячейки PQ
 
макрос
Вывод только согласных из ячейки.
 
UDF
Формирование текста и отправка письма из Excel
 
Цитата
но после установки Офиса 2016
Ответ напрашивается сам: верните предыдущую версию
Чем новее версия тем больше в ней глюков
VBA Экспорт в XML из таблицы значений без дублей сравнивая 2 столбца
 
Ничего не понятно. Сделал бы пример вручную, что должно получиться
Перенос данных из одной книги в другую с сохранением формата
 
Копированием макросом
Удаление строк по условию через форму
 
Код
Private Sub UserForm_Initialize()
    Me.Caption = "Списание" & "(" & Format(Now, "dd.mm.yyyy") & ")"
    zapolnit
End Sub


Private Sub zapolnit()
    With Sheets("Склад")
    Dim arr
    arr = .Range("A1", .Cells(Rows.Count, "A").End(xlUp)).value
    If Not IsArray(arr) Then
    ReDim arr(1 To 1)
    arr(1) = .Range("A2", .Cells(Rows.Count, "A").End(xlUp)).value
    End If
        Me.ComboBox1.List = arr
    End With

End Sub


Private Sub CommandButton1_Click()
Dim arr As Range, value, i As Long, i2 As Long
If Me.ComboBox1.ListIndex > 0 Then
    Application.ScreenUpdating = False
    
    With Sheets("Списание")
        i = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        .Cells(i, 1) = Me.ComboBox1
        
        .Range(.Cells(1, 1), .Cells(i, 1)).Borders.LineStyle = xlContinuous
    End With
    
    With Sheets("Склад")
        i2 = Me.ComboBox1.ListIndex + 1
        .Rows(i2).EntireRow.Delete
        MsgBox "Информация внесена", 64, "Сообщение"
        Me.ComboBox1.ListIndex = -1
'        Unload Me
'        или
        zapolnit
        
    End With
    Application.ScreenUpdating = True
End If

End Sub
Меню из макросов
 
Цитата
Меню отдельное, не на панели инструментов или ленте
Хмм... Это как?  И где?
Не в меню и не а панели?
А где? На заборе?
Вам в кабаке приносят отдельное меню?
Хде это отдельное меню должно, по вашему, распологаться в екселе?
Вхождение данных из одной колонки в другой.
 
Третью колонку сначала в массив потом в словарь.
Первую колонку со второй в массив
Потом пробежать один раз по массиву и проверять по словарю
Или наоборот: первую колонку в словарь(ключ) и вторую в словарь (значения)
Сортировка диаграммы по возрастанию или убыванию, не меняя порядок данных в источнике 
 
Можно спрятать под диаграммой таблицу
Поменяй данные в желтых ячейках
Сортировка диаграммы по возрастанию или убыванию, не меняя порядок данных в источнике 
 
Почему никак? макросом считать, отсртировать и задать в качестве исходных значений не ссылку на диапазон, а значения
Макрос печати листов по условию, с помощью цикла
 
Такое может быть, если присутствуют 2 макроса с одинаковым именем.
(один - ваш макрос, другой - из какой-либо надстройки или файла)
Макрос печати листов по условию, с помощью цикла
 
С картинками  - к экстрасенсам.
Могу предположить, что нет данных. И проверки нет. Попробуй так
Код
If Len(s) > 1 Then s = Split(Left(s, Len(s) - 1), ",")
И на какой строку ошибка? может с принтером что?
Изменено: Александр Моторин - 7 Фев 2019 08:56:17
Как обозначить дату в VBA от завтрашнего дня в фильтре
 
Цитата
что бы макрос понимал, что сегодня 04.02.2019
Код
   MsgBox Date
То, что в кавычках в Criteria2 Сформировать до назначения фильтра
Не работают события листа (Excel 2019)
 
заменить 2019 на 2010 ексел
У меня правило такое: Не ставить никогда новые версии программ пока не выйдет хотя бы СП1.
По крайней мере не раньше чем через 3 года
Помогите с макросами и поиском
 
как-то так
Сломался Универсальный календарь, все месяцы ММММ
 
Цитата
1.JPG (121.1 КБ)
Так по картинкам только экстрасенсы "лечат"!
Найти текстовые значения по условию и вставить найденные значения на другой лист
 
Цитата
На листе "Заполнить" в файле вложения первый столбец озаглавлен "vo: Напряжение:"
Нее! Не озаглавлен! Озаглавлен:  am: Сила тока
Выбор и суммирование значений в ячейках по условию
 
Цитата
посредством эксель и vba по-отдельности?
Цитата
если в ячейке значение
В смысле? Ячейка не в ексель? или VBA в блокноте?
Power Query: Создание нескольких листов c одинаковой загрузкой таблиц с разных страниц сайта.
 
макросом, как вариант...
Изменено: Александр Моторин - 5 Янв 2019 15:11:28
Выделение нужных значение в таблице цветом и скрытие остальных
 
К чему вообще разкраски?
простой фильтр чем не устраивает?  
Выделение нужных значение в таблице цветом и скрытие остальных
 
Цитата
а остальные просто скрывал бы и рядом считалась бы сумма
Хмм... что значит скрывал? Строку? И тогда рядом, в скрытой строке .... сумма?
Макрос-склонение по падежам
 
где-то попадались UDF
Там и автор указан
Выбрать значение из двух столбцов в зависимости от указанного статуса
 
Цитата
=ЕСЛИ(F2="Истец";ИНДЕКС(B2:B7;ПОИСКПОЗ(G2;A2:A7;0));ЕСЛИ(F2="Ответчик";ИНДЕКС(C2:C7;ПОИСКПОЗ(G2;A2:A7;0))))
Скобки не там
Изменено: Александр Моторин - 4 Янв 2019 11:57:27 (добавил файл)
По значению одной буквы фильтровать все варианты, например "a": ab,ba,ca,ad,da,af
 
фильтр - текстовые фильтры - содержит а   не помогает?
Изменение макроса для указания рядом с числами месяца содержимого ячеек с красным шрифтом, из столбцов первой таблицы
 
даже не открывал файл.
Цитата
Таблица содержит 10
т.е. с 1 по 10 число
Не вызывает ни каких мыслей?
Цитата
т.е. с 1 по 31
Код
arrOut(1 To 10,
lngJ = 1 To 10
.Resize(10, 2)
Объединение строк по 5 подряд в одну
 
как-то так
В выделенной области все пустые ячейки заменить на число "0" макросом.
 
Цитата
необходимы две вещи
необходимы? кому? поступила учиться - учись!
Цитата
а на область нету(
область = Selection. А остальное всё так же
1.
Код
For Each c In Selection: If Len(c) = 0 Then c = 0
Next
2
Код
For Each c In Selection: If Len(c) = 0 Then ss = IIf(Len(ss) = 0, c.Address(0, 0), ss & "," & c.Address(0, 0))
Next
 Range(ss).Select
Изменение списка Listbox с удалением строк таблицы-источника
 
Для удаления строк из листбокса необходимо отказаться от ссылки на список и заполнить значениями
Код
        .List = rng.Value
'        .RowSource = rng.Address
тогда удалять можно, например, по дубльклику
Код
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    ListBox1.RemoveItem (ListBox1.ListIndex)
End Sub
догадайся с трёх раз что надо поменять что бы брал с другого листа
Код
Set rng = ActiveSheet.UsedRange
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 21 След.
Наверх