|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
19.11.2018, 18:25 | #21 |
Пользователь
Регистрация: 14.11.2018
Сообщений: 89
|
В общем я немного изменил код кнопки записи данных в таблицу(методом мата и научного тыка), теперь данные записываются в таблицу, но в ее начало, а не конец.
Сначала создается строка, затем в нее записываются данные. Но теперь есть другой вопрос: нужен макрос для удаления этих(созданных) строк. Допустим я в таблицу записал 10 строк, нужен макрос для удаления этих 10 строк в таблице. Вот код: Private Sub CommandButton1_Click() Dim NextRow As Long Dim nn1 As Range Dim nn2 As Range Dim nn3 As Range Dim nn4 As Range Dim nn5 As Range 'NextRow = Worksheets("Лист2").Cells(Rows.Coun t, 6).End(xlUp).Row + 1 Range("A6").Select Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove Set nn1 = Worksheets("Лист2").Range("C" & 6) Set nn2 = Worksheets("Лист2").Range("D" & 6) Set nn3 = Worksheets("Лист2").Range("E" & 6) Set nn4 = Worksheets("Лист2").Range("F" & 6) Set nn5 = Worksheets("Лист2").Range("G" & 6) nn1.Value = TextBox1.Value nn2.Value = TextBox2.Value nn3.Value = TextBox3.Value nn4.Value = TextBox4.Value nn5.Value = TextBox5.Value 'очистить форму от текста TextBox1.Value = " " TextBox2.Value = " " TextBox3.Value = " " TextBox4.Value = " " TextBox5.Value = " " 'закрыть окно UserForm1.Hide End Sub
ЫЫЫЫЫЫ
|
19.11.2018, 18:39 | #22 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
вместо того что в #21 пробуйте это:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
19.11.2018, 18:47 | #23 |
Пользователь
Регистрация: 14.11.2018
Сообщений: 89
|
Но как же сделать, чтоб данные в конец таблицы добавлялись?
ЫЫЫЫЫЫ
|
19.11.2018, 18:52 | #24 |
Пользователь
Регистрация: 14.11.2018
Сообщений: 89
|
У меня в этой строке показывает ошибку: Worksheets("Лист2").cell(2 + i, 6) = Controls("TextBox" & i): Controls("TextBox" & i) = ""
ЫЫЫЫЫЫ
|
19.11.2018, 19:12 | #25 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
там опечатка, извините
cell - не правильно cells - правильно
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
19.11.2018, 19:15 | #26 | |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
Цитата:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
19.11.2018, 19:34 | #27 | |
Пользователь
Регистрация: 14.11.2018
Сообщений: 89
|
В общем вот этот код работает, но удаляет только 1 последнюю строку в таблице, а надо, чтобы удалял все строки до строки 6( с конца к началу):
Цитата:
ЫЫЫЫЫЫ
|
|
19.11.2018, 19:35 | #28 | |
Пользователь
Регистрация: 14.11.2018
Сообщений: 89
|
Цитата:
ЫЫЫЫЫЫ
|
|
20.11.2018, 16:22 | #29 | |
Пользователь
Регистрация: 14.11.2018
Сообщений: 89
|
Цитата:
ЫЫЫЫЫЫ
|
|
20.11.2018, 16:36 | #30 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Код:
|
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
макрос_протягивание вверх от последней заполненной ячейки до первой в прерывающемся списке | Alexsandrr | Помощь студентам | 2 | 08.10.2013 13:44 |
поиск последней заполненной стрки | dedwar | Microsoft Office Excel | 1 | 27.04.2011 02:45 |
поиск последней заполненной ячейки, которая находится выше ячейки с формулой | Akmal-Sharipov | Microsoft Office Excel | 3 | 11.01.2011 13:27 |
Формула значения последней (нижней) заполненной ячейки в столбце | VictorM | Microsoft Office Excel | 16 | 09.09.2010 20:47 |
определение последней заполненной ячейки | Bezdar | Microsoft Office Excel | 4 | 20.03.2009 09:55 |