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

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 185 След.
Макрос: Почему при нажатии на кнопку "Отмена" выскакивает ошибка, а не отменяется макрос?
 
Здесь вообще много стремного в работе с InputBox.
Но, самое главное, что при нажатии кнопки отмена, в данном случае условие
Код
If VarType(y) = vbBoolean

не выполнится никогда, ибо в VarType(y) = vbBoolean может быть преобразован 0, а не пустая строка. Для Z аналогично.
Малой кровью
Код
If y = ""
Сумма прописью. Исправить ошибки в словах
 
Кросс с ответом
Выборка из массива с копированием части данных в новую книгу
 
Как только в названии темы попадается "нетривиальная задача", это означает, что задача яйца выеденного не стоит.
Ваша задача неоднократно решена на форуме в объеме 99%. 1% на то, что у вас свой диапазон ячеек.
Не работает Макрос после обновления системы, подсказать где в объекте ошибка
 
У вас нет 8 уровня
измените уровень 7 как сейчас 8, а 8 удалите
     
Код
   If Range("B" & cur_row).IndentLevel = 7 Then
            cur_material_code = Range("B" & cur_row).Value
        End If
  
        If Range("B" & cur_row).IndentLevel = 8 Then
            If first_row = 0 Then
              first_row = cur_row
            End If
Макрос скрывающий строки не работает после защиты листа (формул)
 
Руками не пробовали?
Объект RegExp. Использовать один или два? Плюсы и минусы.
 
Тёзка, вот то, что Pattern можно тоже только один раз задать - ступил.
Почему получился такой вариант. Сначала был нужен один RegExp. По ходу пьянки понадобился второй. Не долго думая, скопировал функцию, сменил Pattern. А задумался уже существенно позже.

Владимир, тоже любопытный вариант.
Цитата
vikttur написал:
Предлагай
Объект RegExp. Использовать один или два? Плюсы и минусы.
Объект RegExp. Использовать один или два? Плюсы и минусы.
 
Цитата
Андрей VG написал:
P. S. А собственно в чём вопрос?
Тёзка, привет.
Да вопрос собственно в том, стоит ли менять два (или более) объекта RegExp, болтающиеся в памяти до закрытия файла, на один, убиваемый по окончанию работы кода?
Или сия овчинка выделки не стоит?
Это все Мелкий виноват - обозвал тему так.
Разница в 0,3 сек (вероятно, на создание второго RegExp) погоды не делает.
Четвёртая версия не канает, виду возможой не совместимости библиотек. (Ну, и вообще, мне просто не нравится раннее связывание)
Третья версия не канает, поскольку функции все же сложнее, и вызываются в 4 циклах по разным массивам и разному набору условий.
Объект RegExp. Использовать один или два? Плюсы и минусы.
 
Мяв.
Не запариваясь, сочинил код
Код
Sub test1()
txt = "text123"
k1 = r1(txt)
k2 = r2(txt)
End Sub
Function r1$(txt)
Static objRegExp As Object
If objRegExp Is Nothing Then Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = "[a-z]+"
r1 = objRegExp.Execute(txt)(0)
End Function
Function r2$(txt)
Static objRegExp As Object
If objRegExp Is Nothing Then Set objRegExp = CreateObject("VBScript.RegExp")
objRegExp.Pattern = "\d+"
r2 = objRegExp.Execute(txt)(0)
End Function

где каждая функция использует свой RegExp.
После задумался, есть ли смысл переделать на код с одним RegExp?
Код
Sub test2()
Dim objRegExp As Object
txt = "text123"
Set objRegExp = CreateObject("VBScript.RegExp")
k1 = r11(objRegExp, txt)
k2 = r21(objRegExp, txt)
End Sub
Function r11$(objRegExp As Object, txt)
objRegExp.Pattern = "[a-z]+"
r11 = objRegExp.Execute(txt)(0)
End Function
Function r21$(objRegExp As Object, txt)
objRegExp.Pattern = "\d+"
r21 = objRegExp.Execute(txt)(0)
End Function

Что скажете?
Изменено: RAN - 19 Окт 2019 19:52:41
Обращение к ячейкам Access в цикле VBA
 
Ведмедь, чего пристал? Я сам всего третий или четвертый раз макрос для Recordset написал.  :)
Обращение к ячейкам Access в цикле VBA
 
Код
Sub qq()
    Set rs = Db.OpenRecordset("q_promoexcel", dbOpenDynaset)
    rs.MoveNext: rs.MoveNext: rs.MoveNext
    x = rs(1): xx = rs(2)
    rs.MoveNext
    Do While Not rs.EOF
        If rs(1) = x Then
            rs.Edit
            rs(3) = xx + rs(2)       
            rs.Update
        End If
        x = rs(1): xx = rs(2)
        rs.MoveNext
    Loop
        rs.Close
End Sub
Изменено: RAN - 16 Окт 2019 13:49:53
В смешанных ячейках (буквы и цифры) -в строке формул только цифры, При просмотре листа отображается полностью вся информация, но в строке формул содержится только цифры
 
Андрей, а это зачем?
Код
.Formula = .Value


этонияэтооносамо?
Изменено: RAN - 14 Окт 2019 09:10:22
Поместить все согласные буквы в одну ячейку
 
Цитата
Настя_Nastya написал:
просто немножко подумать...
Зачем думать? Проще трясти форум с воплями "вы же тут сидите, чтобы мне задачки решать".
Изменено: RAN - 13 Окт 2019 18:18:42
Макрос: Заливка ячеек при определенных параметрах
 
Код
 With Union(cell.Offset(0, 1), cell.Offset(0, 2)).Interior
Поместить все согласные буквы в одну ячейку
 
Я не согласная, вот Й - та да.  :D
формула в иксель, опять завсегдатаи резвятся )
 
Мелкий титьку потерял. Сердитый.  :D
формула в иксель, опять завсегдатаи резвятся )
 
Кот добрый, когда рыбину новую сцапает, мелкий - когда титьку найдет.  :D
Изменено: RAN - 11 Окт 2019 18:31:22
Менять заливку выходных дней, на каждый месяц
 
Цитата
Юрий М написал:
27 Мар 2016 12:15:27
Цитата
Студент написал:
23 Фев 2019 21:06:09
Цитата
Ігор Гончаренко написал:
11 Окт 2019 14:58:33
Парад долгодумов  :D
Необходимо в двух таблицах найти расхождение по данным
 
Вы плохо читаете.
Цитата
Пытливый написал:
от такую формулу массива:
Как с помощью VBA добавить в ячейку текст с сохранением существуещего форматирования текста внутри ячейки?
 
Почему нельзя?
Считываете из ячейки параметры каждого символа (Font, Bold, Italic и пр.), добавляете новый текст, затем к старому тексту применяете считанные ранее параметры символов.
Изменение данных в одной и той же ячейке, с разных листов книги
 
Логика  :)
С любого листа запускается макрос, изменяющий значение нужной ячейки на нужном листе.
Информация из ячейки на панель ribbon
 
Для самых ленивых
Изменение данных в одной и той же ячейке, с разных листов книги
 
Минусы любого из решений существенно перевесят плюсы от его применения.
Варианты - макрос, итеративные вычисления.
Набор функций ИНДЕКС перестали работать только на некоторых ячейках без видимых причин, Набор функций вида: =СУММ(ИНДЕКС($AR6:$AQT6;ПРОСМОТР(1;1/($AR6:$AQT6="тр");СТОЛБЕЦ($A$1:$AQT$1))+1):AQT6), перестали работать только на некоторых ячейках без видимых причин
 
Как же без видимых? Причины прекрасно видны в столбцах AFG-AGF
Нет ввода по двум параметрам, если включать макросы.
 
Птица "скрыть формулы" + защита листа.
Нет ввода по двум параметрам, если включать макросы.
 
Цитата
Юрий_Нд написал:
что там макросы делают?
Живут.  :D
Нет ввода по двум параметрам, если включать макросы.
 
Цитата
Юрий_Нд написал:
но ещё и считает значение, при отключенных макросах.
А с каких пор для работы формул стало необходимо включать макросы?
Нет ввода по двум параметрам, если включать макросы.
 
Как вы лодку назовете, так она и поплывет.
Как макрос написан, так он и работает.
А разбираться в этой куче, как оно должно быть - дело не благодарное.
Ищем специалиста на постоянную удаленную работу, Ищем специалиста на постоянную удаленную работу
 
.
Изменено: RAN - 8 Окт 2019 16:36:17
Excel вылетает при выполнении макроса, когда экран заблокирован, но не вылетает при разблокированном экране
 
Пару лет назад или здесь, или на excelworld обсуждался код, препятствующий включению блокировки. Поищите.
Программно снять пароль с VBAProject
 
Цитата
Kontugenyi написал:
но проект остается открытым до тех пор, пока книга не будет открыта заново
Не так давно, кто-то сильно проедал плешь именно с этим вопросом. Длинная была тема.
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 185 След.
Наверх