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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 179 След.
Изменить заливку ячейки на листах книги или книг папки
 
мУрси. На досуге погрызу.
Изменить заливку ячейки на листах книги или книг папки
 
Что такое FileSystemObject, и где про это почитать, я знаю.
А подо что, и с какой закуской потреблять Namespace и иже с ним?
Изменить заливку ячейки на листах книги или книг папки
 
Тёзка, Мяв!
А ссылочкой, где по русски расшифрован ColorizeA1OfBook не поделишься?
Как получить номера строк выделенных ячеек с учетом фильтра для использования в макросе VBA?
 
Цитата
uv22 написал:
Можно ли считывать значения по названию столбца таблицы, а не по номеру (таблица "умная"
Не только можно, но и нужно.
Цитата
uv22 написал:
то автоматически выделяется еще и строка 2).
Да хоть 100. Вашему макросу это по барабану, т.к. количество ActiveCell не может быть отличным от 1.
Код
x = Cells(ActiveCell.Row, ActiveCell.ListObject.ListColumns("Name").Range.Column).Value
Исключить из цикла Листы не соответствующие определенным условиям
 
Код
Sub Мяу()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        If sh.Name Like "*[a-zA-Zа-яА-ЯёЁ]*" Then
        Else
            Set cel = sh.Cells.Find(Sheets("Поиск").Range("A2").Value)
            If Not cel Is Nothing Then
                sh.Select
                cel.Select
                Exit Sub
            End If
        End If
    Next
End Sub
Макрос в EXCEL 2019 сохранить как, Excel 2019
 
У меня и в 2010 ваш код не работает
Зато этот работает
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    If SaveAsUI Then
        s$ = Join(Array("1ПИ-" & [B2] & "_" & Format([B3], "YYYY_MM_DD") & "_" & Replace([B4], "/", "~")), "") & "_" & Replace([B5], "/", "~") & "_" & Replace([B6], "/", "~")
        Cancel = True
        With Application.FileDialog(msoFileDialogSaveAs)
            .InitialFileName = s
            If .Show Then .Execute
        End With
    End If
End Sub
Удалить первое слово в тексте, где формулой удаляется фрагмент
 
А их точно нужно объединять?
=ЗАМЕНИТЬ(ЗАМЕНИТЬ(A12;ПОИСК("?/";A12);2;);1;ПОИСК(" ";A12);)
Макрос: сделать ссылку на последнюю ячейку
 
Код
Range("C2").Formula = "постоянная часть" & переменная & "постоянная часть"
Range("C2").Formula = "=COUNTIF(D2:D" & cells(rows.count, 4).end(xlup).row) & ",D2)"
как вставить дату через textbox как дату
 
Привет, тезка.
А как с этим быть?
Код
x = IsDate("30.02.20")
xx = CDate("30.02.20")
xxx = IsDate("10.02.20")
xxxx = CDate("10.02.20")
xxxxx = IsDate("30.02.30")
Макрос удаления сток неправильно работает
 
Цитата
buchlotnik написал:
Каждому For свой Next
Немного поправим для вашего случая
Каждому If свой End if :)
Как создать дубликат Control в UserForm через VBA ?
 
Считать все параметры этого контрола, добавить новый, и задать ему считанные параметры.
При слиянии с вордом дата "ломается", а график не меняется после повторного открытия файла Ворд
 
Не поленился, сделал пример
Изменено: RAN - 16 Июн 2019 19:53:08
При слиянии с вордом дата "ломается", а график не меняется после повторного открытия файла Ворд
 
По ссылке gling, №5 - тема на кибере.
При слиянии с вордом дата "ломается", а график не меняется после повторного открытия файла Ворд
 
Со слиянием дала не имею, но, с большой долей вероятности, могу предположить, что в поле слияния имеется возможность задать нужный формат, или преобразовать дату в текст нужного формата.
компиляторы кода VBA на рынке
 
Вить, рекламу с такими отзывами удалять грешно!
Вызвать макросом функцию или процедуру
 
Цитата
somebox написал:
попадаются одинаковые куски, хотелось бы это дело оптимизировать
Тут, собственно, сложностей никаких.
Цитата
somebox написал:
можно ли в VBA писать "внешние" функции на подобии, например,
Откройте краткий курс С++??, и растолкуйте, что все нижеследующее означает
Форма с выпадающими списками, Форма с выпадающими списками
 
?????
Код
ActiveCell.Value = ComboBox1.Value
   ActiveCell.Offset(1).Value = ComboBox2.Value
При прокрутке листа UserForm должна оставаться прикрепленной к строке
 
Форма (если это Userform), привязана не к листу, а к монитору. Поэтому, она может передвигаться либо самостоятельно, в пределах монитора, либо вместе с ним.
Комбинаторика. Раскрой арматуры, Как оптимально разрезать хлысты арматуры заданного размера на заданное количество кусков заданной длины
 
ExcelWorld, готовые решения, МСН
Синхронизация меню юзера, для всех книг
 
Зайти в VBA проект надстройки, и исправить код.
Навешивание макросов - на разные слова в тексте ячейки
 
Цитата
Андрей VG написал:
У вас есть реальные решения, когда при щелчке на гиперссылке в браузере выполнялись VBA макросы? Можете поделиться таким решением или примером?
Цитата
Красноглазый Пиркаф написал:
Андрей VG , так вы дальше тему почитайте.
Так кто не читатель?
[ Закрыто] Самоудаление книги через установленное время
 
Цитата
dtg написал:
Может я упустил что-то.
Почему что-то? Абсолютно все.
Макросом найти точки и заменить их на "/"
 
Через слэш отображается мерикосовая дата (месяц, день). И если Excel может преобразовать выражение к такой дате, он это делает. Лекарство отсутствует. По крайней мере для Replace.
Преобразование текста в дату
 
Да.
03.09.2019
03.09.2019
01.10.2015
01.10.2015
04.09.2019
04.09.2019
01.10.2014
01.10.2014
01.12.2014
Найти крайнюю ячейку относительно границы рамки
 
Опираться на границу ячейки - плохая идея.
Угадайте с 2 раз, какая ячейка отвечает вашим условиям?
Поиск значения в таблице и возврат всей строки с найденным значением
 
Виталий, спасибо!
Значит, все-же
Цитата
Ігор Гончаренко написал:
ладно спишем на разницу версий (у меня 2019)
Навешивание макросов - на разные слова в тексте ячейки
 
Цитата
Красноглазый Пиркаф написал:
А потом решили как-то использовать для этой цели веб-браузер.
А почему во множественном числе? Мы, Пиркаф Первый?
Ускорение работы фильтров в эксель
 
Цитата
DopplerEffect написал:
озможно ли ускорить эту работу с помощью макросов?
Цитата
DopplerEffect написал:
хотелось бы классическим фильтром.
Вам шашечки, или ехать?
Если второе, то поглядите Оптимизация быстродействия макроса по удалению строк
Может что и пригодится.
Поиск значения в таблице и возврат всей строки с найденным значением
 
Как процедура работает, а как формула листа - нет
Код
Sub test()
[b25].Resize(, 8) = FindDataRow([a25], [a2:i20])
End Sub
Поиск значения в таблице и возврат всей строки с найденным значением
 
кинописи нет
так и делаю
Цитата
Ігор Гончаренко написал:
скопировали формулу в ЛЮБУЮ ячейку (только не в данные), Enter (видите URL)
НЕТ
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 179 След.
Наверх