Ввод нового значения в ячейку
Oh_Nick
Дата: Среда, 23.06.2021, 09:04 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Всем добрый день!
Всем добрый день! Oh_Nick
Ответить
Сообщение Всем добрый день! Автор - Oh_Nick 23.06.2021 в 09:04
Serge_007
Дата: Среда, 23.06.2021, 09:05 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Здравствуйтепри вводе в ячейку G4 это слово шло вниз?
Здравствуйтепри вводе в ячейку G4 это слово шло вниз?
Serge_007 ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Здравствуйтепри вводе в ячейку G4 это слово шло вниз?
Автор - Serge_007 23.06.2021 в 09:05
Oh_Nick
Дата: Среда, 23.06.2021, 09:17 |
Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Serge_007 , это значит, что например у нас есть слово Собака в ячейке G4. Оно перенеслось в колонку Project. Потом мы удаляем это слово из ячейки G4 и пишем туда Кошка. Это слово перенеслось под Собаку. Т.е колонка Project заполняется по мере введения слов в ячейку G4.
Serge_007 , это значит, что например у нас есть слово Собака в ячейке G4. Оно перенеслось в колонку Project. Потом мы удаляем это слово из ячейки G4 и пишем туда Кошка. Это слово перенеслось под Собаку. Т.е колонка Project заполняется по мере введения слов в ячейку G4.Oh_Nick
Ответить
Сообщение Serge_007 , это значит, что например у нас есть слово Собака в ячейке G4. Оно перенеслось в колонку Project. Потом мы удаляем это слово из ячейки G4 и пишем туда Кошка. Это слово перенеслось под Собаку. Т.е колонка Project заполняется по мере введения слов в ячейку G4.Автор - Oh_Nick 23.06.2021 в 09:17
Nic70y
Дата: Среда, 23.06.2021, 09:33 |
Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация:
2415
±
Замечаний:
0% ±
Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("g4" )) Is Nothing Then "a" ).End(xlUp).Row + 1 "a" & u) = Target.ValueEnd If End Sub
Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("g4" )) Is Nothing Then "a" ).End(xlUp).Row + 1 "a" & u) = Target.ValueEnd If End Sub
Nic70y ЮMoney 41001841029809
Ответить
Сообщение [vba]
Private Sub Worksheet_Change(ByVal Target As Range ) If Not Intersect(Target , Range("g4")) Is Nothing Then u = Cells(Rows.Count , "a").End(xlUp ).Row + 1 Range("a" & u ) = Target.Value End IfEnd Sub
Автор - Nic70y 23.06.2021 в 09:33
Oh_Nick
Дата: Среда, 23.06.2021, 09:42 |
Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Nic70y , Да, спасибо. Очень подходит, но как сделать, чтобы если удалить все проекты, то он начинал с начала колонки А, а не продолжал?
Nic70y , Да, спасибо. Очень подходит, но как сделать, чтобы если удалить все проекты, то он начинал с начала колонки А, а не продолжал?Oh_Nick
Ответить
Сообщение Nic70y , Да, спасибо. Очень подходит, но как сделать, чтобы если удалить все проекты, то он начинал с начала колонки А, а не продолжал?Автор - Oh_Nick 23.06.2021 в 09:42
Oh_Nick
Дата: Среда, 23.06.2021, 09:45 |
Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Или в умной таблице так не получится?
Или в умной таблице так не получится? Oh_Nick
Ответить
Сообщение Или в умной таблице так не получится? Автор - Oh_Nick 23.06.2021 в 09:45
Nic70y
Дата: Среда, 23.06.2021, 09:50 |
Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация:
2415
±
Замечаний:
0% ±
вдруг правильно
Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("g4" )) Is Nothing Then "a" ).End(xlUp).Value"a" ).End(xlUp).RowIf u_1 = "" Then u_2 = Cells(u_2, "a" ).End(xlUp).Row"a" & u_2 + 1 ) = Target.ValueEnd If End Sub
вдруг правильно
Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("g4" )) Is Nothing Then "a" ).End(xlUp).Value"a" ).End(xlUp).RowIf u_1 = "" Then u_2 = Cells(u_2, "a" ).End(xlUp).Row"a" & u_2 + 1 ) = Target.ValueEnd If End Sub
Nic70y ЮMoney 41001841029809
Ответить
Сообщение вдруг правильно
Private Sub Worksheet_Change(ByVal Target As Range ) If Not Intersect(Target , Range("g4")) Is Nothing Then u_1 = Cells(Rows.Count , "a").End(xlUp ).Value u_2 = Cells(Rows.Count , "a").End(xlUp ).Row If u_1 = "" Then u_2 = Cells(u_2 , "a").End(xlUp ).Row Range("a" & u_2 + 1) = Target.Value End IfEnd Sub
Автор - Nic70y 23.06.2021 в 09:50
Oh_Nick
Дата: Среда, 23.06.2021, 09:52 |
Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Да, супер. Спасибо!
Ответить
Сообщение Да, супер. Спасибо! Автор - Oh_Nick 23.06.2021 в 09:52
Oh_Nick
Дата: Четверг, 24.06.2021, 11:43 |
Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Nic70y , Добрый день!
Nic70y , Добрый день!Oh_Nick Сообщение отредактировал Oh_Nick - Четверг, 24.06.2021, 11:44
Ответить
Сообщение Nic70y , Добрый день!Автор - Oh_Nick 24.06.2021 в 11:43
Oh_Nick
Дата: Четверг, 24.06.2021, 11:57 |
Сообщение № 10
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация:
8
±
Замечаний:
20% ±
Вот так получилось, вроде работает:
Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("i6" )) Is Nothing Then "a" ).End(xlUp).Value"a" ).End(xlUp).RowIf u_1 = "" Then u_2 = Cells(u_2, "a" ).End(xlUp).Row"a" & u_2 + 1 ) = Target.ValueEnd If If Not Intersect(Target, Range("j6" )) Is Nothing Then "b" ).End(xlUp).Value"b" ).End(xlUp).RowIf u_1 = "" Then u_2 = Cells(u_2, "b" ).End(xlUp).Row"b" & u_2 + 1 ) = Target.ValueEnd If If Not Intersect(Target, Range("k6" )) Is Nothing Then "c" ).End(xlUp).Value"c" ).End(xlUp).RowIf u_1 = "" Then u_2 = Cells(u_2, "c" ).End(xlUp).Row"c" & u_2 + 1 ) = Target.ValueEnd If If Not Intersect(Target, Range("l6" )) Is Nothing Then "d" ).End(xlUp).Value"d" ).End(xlUp).RowIf u_1 = "" Then u_2 = Cells(u_2, "d" ).End(xlUp).Row"d" & u_2 + 1 ) = Target.ValueEnd If End Sub
Вот так получилось, вроде работает:
Private Sub Worksheet_Change(ByVal Target As Range)If Not Intersect(Target, Range("i6" )) Is Nothing Then "a" ).End(xlUp).Value"a" ).End(xlUp).RowIf u_1 = "" Then u_2 = Cells(u_2, "a" ).End(xlUp).Row"a" & u_2 + 1 ) = Target.ValueEnd If If Not Intersect(Target, Range("j6" )) Is Nothing Then "b" ).End(xlUp).Value"b" ).End(xlUp).RowIf u_1 = "" Then u_2 = Cells(u_2, "b" ).End(xlUp).Row"b" & u_2 + 1 ) = Target.ValueEnd If If Not Intersect(Target, Range("k6" )) Is Nothing Then "c" ).End(xlUp).Value"c" ).End(xlUp).RowIf u_1 = "" Then u_2 = Cells(u_2, "c" ).End(xlUp).Row"c" & u_2 + 1 ) = Target.ValueEnd If If Not Intersect(Target, Range("l6" )) Is Nothing Then "d" ).End(xlUp).Value"d" ).End(xlUp).RowIf u_1 = "" Then u_2 = Cells(u_2, "d" ).End(xlUp).Row"d" & u_2 + 1 ) = Target.ValueEnd If End Sub
Oh_Nick
Ответить
Сообщение Вот так получилось, вроде работает:
Private Sub Worksheet_Change(ByVal Target As Range ) If Not Intersect(Target , Range("i6")) Is Nothing Then u_1 = Cells(Rows.Count , "a").End(xlUp ).Value u_2 = Cells(Rows.Count , "a").End(xlUp ).Row If u_1 = "" Then u_2 = Cells(u_2 , "a").End(xlUp ).Row Range("a" & u_2 + 1) = Target.Value End If If Not Intersect(Target , Range("j6")) Is Nothing Then u_1 = Cells(Rows.Count , "b").End(xlUp ).Value u_2 = Cells(Rows.Count , "b").End(xlUp ).Row If u_1 = "" Then u_2 = Cells(u_2 , "b").End(xlUp ).Row Range("b" & u_2 + 1) = Target.Value End If If Not Intersect(Target , Range("k6")) Is Nothing Then u_1 = Cells(Rows.Count , "c").End(xlUp ).Value u_2 = Cells(Rows.Count , "c").End(xlUp ).Row If u_1 = "" Then u_2 = Cells(u_2 , "c").End(xlUp ).Row Range("c" & u_2 + 1) = Target.Value End If If Not Intersect(Target , Range("l6")) Is Nothing Then u_1 = Cells(Rows.Count , "d").End(xlUp ).Value u_2 = Cells(Rows.Count , "d").End(xlUp ).Row If u_1 = "" Then u_2 = Cells(u_2 , "d").End(xlUp ).Row Range("d" & u_2 + 1) = Target.Value End IfEnd Sub
Автор - Oh_Nick 24.06.2021 в 11:57 
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
