Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
29.03.2024, 10:06:08

Войти
Добавляйтесь в нашу группу ВКонтакте - будьте в курсе всех новых событий сайта, узнавайте первым обо всех акциях и новых статьях!
33 233 Сообщений в 5 454 Тем от 6 750 Пользователей
Последний пользователь: Alex1210
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
  Просмотр сообщений
Страниц: [1]
1  Прочие форумы / Заказы на написание макросов, работа для специалистов по Excel и VBA и пр. / Re:Макрос. Вставка и удаление ячеек через перезапись со смещением. : 09.05.2021, 02:02:21
Вы правы... так и получилось. С учетом знакомства с литературой от главы об обращении к ячейке, пол дня на сие угробил. Победил, но знания мне эти чувствую никогда больше не пригодятся В замешательстве  И да, конечно всё сделал на уровне камня и топора Строит глазки Но это первый мой опыт.
Код: (vb)

Sub VstavkaAt()
    Dim i As Range
    Set i = Range("O5")
    If i = 0 Then
        MsgBox "Введено недопустимое значение. Укажите ....", vbCritical, "Ошибка!"
    Else
    Dim l As Range
    Set l = Range("D190")
    If MsgBox("Желаете вставить пустую строку в " & l & " ? Данные сместятся на одну строку ниже.", vbQuestion + vbYesNo, "........") = vbNo Then
        Exit Sub
    End If
        Application.ScreenUpdating = False
        Range(Cells(i, 4), Cells(185, 4)).Copy Cells(i + 1, 23)
        Cells(i, 4).Value = ""
        Range(Cells(i + 1, 23), Cells(186, 23)).Copy Cells(i + 1, 4)
        Range("W7:Y186").Value = ""
        Range("D190").Value = ""
    End If
    MsgBox "Готово!", vbInformation, "Вставка пустой строки"
End Sub

Sub DeleteAt()
    Dim i As Range
    Set i = Range("P5")
    If i = 0 Then
        MsgBox "Введено недопустимое значение. Укажите № строки в интервале от ....", vbCritical, "Ошибка! ...."
    Else
    Dim l As Range
    Set l = Range("D192")
    If MsgBox("Желаете удалить данные в " & l & " строке? Данные снизу сместятся на одну строку выше.", vbQuestion + vbYesNo, ".....") = vbNo Then
        Exit Sub
    End If
        Application.ScreenUpdating = False
        Range(Cells(i + 1, 4), Cells(186, 4)).Copy Cells(i, 4)
        Cells(186, 4).Value = ""
         
        Range("D192").Value = ""
    End If
    MsgBox "Готово!", vbInformation, "Удаление строки"
End Sub

2  Прочие форумы / Заказы на написание макросов, работа для специалистов по Excel и VBA и пр. / Re:Макрос. Вставка и удаление ячеек через перезапись со смещением. : 08.05.2021, 19:09:24
Спасибо. Но признаться не рассчитывал на такой бюджет. В общем, сам написал... там и писать то оказывается 3 строчки.
3  Прочие форумы / Заказы на написание макросов, работа для специалистов по Excel и VBA и пр. / Макрос. Вставка и удаление ячеек через перезапись со смещением. : 08.05.2021, 14:46:21
Приветствую!
Напишите пжл для чайника Смеющийся 2 макроса.
1. Вставляет ячейки в нужной строке с перезаписью массива на строку ниже
2. Удаляет ячейки в нужной строке с перезаписью массива на строку выше.
Особенностью является, что данные в ячейках - связи элемента управления формы Поле со списком. Поэтому операции смещения не подходят - только перезапись данных.
В прилагаемом файле думаю все достаточно четко описано.

4  Основные форумы / Вопросы по Excel и VBA / Re:Макрос для присвоения элементe управления Поле со списком нужного значения : 09.03.2021, 15:12:47
Работает. Только ....
Дмитрий, божественно! Смеющийся Только добавил
Application.ScreenUpdating = False
И умирающие звуки сист.блока исчезли). Пошел пополнять копилку "Спасибов" Строит глазки
5  Основные форумы / Вопросы по Excel и VBA / Re:Макрос для присвоения элементe управления Поле со списком нужного значения : 09.03.2021, 14:26:08
К сожалению, не работает... Плачущий Вернее не так - работает, но по прежнему только на активном листе. При этом, системный блок издает такие звуки, как будто это последние секунды его жизни))

Комментарий администратора Не цитируйте сообщения полностью - достаточно выделить нужную фразу и нажать ЦИТИРОВАТЬ. п.п. 4.18 Правил форума
6  Основные форумы / Вопросы по Excel и VBA / Re:Макрос для присвоения элементe управления Поле со списком нужного значения : 07.03.2021, 22:23:21

Дмитрий, за еще одно "спасибо" в Ваш пункт приема Спасибов, можете ли доработать код?
Сейчас очистка Полей со списком выполняется на активном листе.
Необходимо чтобы очистка выполнялась на нескольких неактивных листах: (Ввод1, Ввод2, Ввод3)
7  Основные форумы / Вопросы по Excel и VBA / Re:Макрос для присвоения элементe управления Поле со списком нужного значения : 27.02.2021, 17:43:42
В стандартный модуль помещаете код:
Дмитрий, громадное Вам спасибо! С моим уровнем знаний я бы еще неделю возился.... Как я могу Вас отблагодарить?

P.S. Пункты приемов спасибо увидел. Улыбка Вопрос снят
8  Основные форумы / Вопросы по Excel и VBA / Макрос для присвоения элементe управления Поле со списком нужного значения : 27.02.2021, 12:52:38
Здравствуйте! Пожалуйста помогите старому вояке с exel одолеть проблему.
Лист содержит 2 столбца элементов управления поле со списком, в которых выбираются данные из 2-ух диапазонов. Каждый диапазон содержит данные и пустую ячейку.
Элементов поле со списком на листе более 300. В определенный момент, необходимо сбросить все поля со списком в пустую ячейку соответствующих диапазонов. В ручную делать - большая трата времени. Кроме того, очень желательно, чтобы при нажатии на кнопку, к которой привязан макрос, появлялось окошко с запросом подтверждения операции.
Страниц: [1]
Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru