Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вставить строчку в определенное место - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Вставить строчку в определенное место
rtv2061 Дата: Вторник, 25.07.2023, 21:14 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2013
Добрый вечер!
Прошу Вашей помощи в решении проблемки.
Есть таблица в которой данные. Необходимо макросом вставитьстрочку ниже последнего выбираемого значения.
К примеру по столбце 2 (столбец В) искать последнее значени "Иванов" и ниже него вставитьь строчку.
Заранее благодарен!
К сообщению приложен файл: 2285054.xlsx (9.6 Kb)
 
Ответить
СообщениеДобрый вечер!
Прошу Вашей помощи в решении проблемки.
Есть таблица в которой данные. Необходимо макросом вставитьстрочку ниже последнего выбираемого значения.
К примеру по столбце 2 (столбец В) искать последнее значени "Иванов" и ниже него вставитьь строчку.
Заранее благодарен!

Автор - rtv2061
Дата добавления - 25.07.2023 в 21:14
Serge_007 Дата: Среда, 26.07.2023, 08:59 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Здравствуйте

вставитьстрочку ниже последнего выбираемого значения
Как выбирается значение?

вставитьь строчку.
Пустую?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

вставитьстрочку ниже последнего выбираемого значения
Как выбирается значение?

вставитьь строчку.
Пустую?

Автор - Serge_007
Дата добавления - 26.07.2023 в 08:59
Nic70y Дата: Среда, 26.07.2023, 10:26 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 8831
Репутация: 2300 ±
Замечаний: 0% ±

Excel 2010
Двойной клик левой кнопкой мыши по ячейке B1
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$B$1" Then
        Cancel = True
        UserForm1.Show
    End If
End Sub
[/vba]UserForm1.Show:

Код UserForm1:
[vba]
Код
Private Sub TextBox1_Change()
    a = TextBox1.Value
    b = Cells(Rows.Count, "b").End(xlUp).Row
    c = Application.Match(a, Range("b2:b" & b), 0)
    If IsNumeric(c) Then
        d = Evaluate("=MAX(IF(B" & c & ":B" & b & "=""" & a & """,ROW(B" & c & ":B" & b & ")))") + 1
        Label1.Caption = d
    Else
        Label1.Caption = ""
    End If
End Sub
Private Sub CommandButton1_Click()
    a = Label1.Caption
    If IsNumeric(a) Then
        Rows(a).Insert Shift:=xlDown
        Unload UserForm1
    Else
        MsgBox "Не найдено!"
    End If
End Sub
[/vba]
К сообщению приложен файл: 0224907.gif (12.8 Kb) · 2285054.xlsm (19.7 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Среда, 26.07.2023, 10:26
 
Ответить
СообщениеДвойной клик левой кнопкой мыши по ячейке B1
[vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = "$B$1" Then
        Cancel = True
        UserForm1.Show
    End If
End Sub
[/vba]UserForm1.Show:

Код UserForm1:
[vba]
Код
Private Sub TextBox1_Change()
    a = TextBox1.Value
    b = Cells(Rows.Count, "b").End(xlUp).Row
    c = Application.Match(a, Range("b2:b" & b), 0)
    If IsNumeric(c) Then
        d = Evaluate("=MAX(IF(B" & c & ":B" & b & "=""" & a & """,ROW(B" & c & ":B" & b & ")))") + 1
        Label1.Caption = d
    Else
        Label1.Caption = ""
    End If
End Sub
Private Sub CommandButton1_Click()
    a = Label1.Caption
    If IsNumeric(a) Then
        Rows(a).Insert Shift:=xlDown
        Unload UserForm1
    Else
        MsgBox "Не найдено!"
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 26.07.2023 в 10:26
rtv2061 Дата: Среда, 26.07.2023, 18:21 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2013
Serge_007, Значение выбирается из формы. Пример прикладываю.
Вставить необходимо вставить строчку с данными с TextBox1 и TextBox2
К сообщению приложен файл: 3055478.xlsm (19.5 Kb)
 
Ответить
СообщениеSerge_007, Значение выбирается из формы. Пример прикладываю.
Вставить необходимо вставить строчку с данными с TextBox1 и TextBox2

Автор - rtv2061
Дата добавления - 26.07.2023 в 18:21
rtv2061 Дата: Среда, 26.07.2023, 18:26 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2013
Nic70y, потестирую Ваш макрос.
 
Ответить
СообщениеNic70y, потестирую Ваш макрос.

Автор - rtv2061
Дата добавления - 26.07.2023 в 18:26
Nic70y Дата: Четверг, 27.07.2023, 08:43 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 8831
Репутация: 2300 ±
Замечаний: 0% ±

Excel 2010
rtv2061, не совсем понятно Ваше описание.
[vba]
Код
Private Sub CommandButton1_Click()
    x = ListBox1.ListIndex
    If x = -1 Then
        MsgBox "ФИО не выбраны"
    Else
        a = ListBox1.Value
        b = Cells(Rows.Count, "b").End(xlUp).Row
        c = Application.Match(a, Range("b2:b" & b), 0)
        d = Evaluate("=MAX(IF(B" & c & ":B" & b & "=""" & a & """,ROW(B" & c & ":B" & b & ")))") + 1
        Rows(d).Insert Shift:=xlDown
        Range("b" & d) = a
        'тута вписать правильные столбцы
        Range("c" & d) = TextBox1.Value
        Range("d" & d) = TextBox2.Value
    End If
End Sub
[/vba]
К сообщению приложен файл: 49.xlsm (25.0 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщениеrtv2061, не совсем понятно Ваше описание.
[vba]
Код
Private Sub CommandButton1_Click()
    x = ListBox1.ListIndex
    If x = -1 Then
        MsgBox "ФИО не выбраны"
    Else
        a = ListBox1.Value
        b = Cells(Rows.Count, "b").End(xlUp).Row
        c = Application.Match(a, Range("b2:b" & b), 0)
        d = Evaluate("=MAX(IF(B" & c & ":B" & b & "=""" & a & """,ROW(B" & c & ":B" & b & ")))") + 1
        Rows(d).Insert Shift:=xlDown
        Range("b" & d) = a
        'тута вписать правильные столбцы
        Range("c" & d) = TextBox1.Value
        Range("d" & d) = TextBox2.Value
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 27.07.2023 в 08:43
rtv2061 Дата: Понедельник, 31.07.2023, 18:46 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

2013
Nic70y, Все работает.
Благодарю Вас!
 
Ответить
СообщениеNic70y, Все работает.
Благодарю Вас!

Автор - rtv2061
Дата добавления - 31.07.2023 в 18:46
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!