Заполнение ячеек при выделении строки

@Ruslan501 · Регистрация: 04.06.2019

Author24 — интернет-сервис помощи студентам

И так и сяк писал никак не могу разобраться с присвоением активной строке значения.

PureBasic

Sub zapolnenieDateAndNumberDoca()
 
Dim list As Worksheet
Set list = Workbooks("Входящие.xlsm").Worksheets("Лист1")
 
list.ActiveCell.Value = "Test"
 
End Sub

@Ruslan501 · 06.06.2019, 03:29 **[ТС]**

Есть таблица для заполнения данными. Хочу чтобы при нажатии на строку в пределах таблицы автоматически заполнялись указанные ячейки Номером и Датой и так для каждой строки которую выделяешь

Добавлено через 1 час 22 минуты
Пока до этого дошел

Visual Basic

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, [A40:F45]) Is Nothing Then Worksheets("Ëèñò1").Range("A45").Value = Date
    Range("A45").Offset(0, 1).Value = "1"
End Sub

@Vlad999 · 06.06.2019, 08:11

наверно так хотите

Visual Basic

1	Worksheets("Г‹ГЁГ±ГІ1").Cells(Target.Row,1).Value = Date

но это только если выбрали одну ячейку, для нескольких нужно цикл добавлять.

@Ruslan501 · 06.06.2019, 08:27 **[ТС]**

Vlad999, то что доктор прописал)

Добавлено через 2 минуты
плюс к этому, чтобы в с соседнюю ячейку записывалось цифра вместе с датой

Добавлено через 9 минут
получилось

Visual Basic

1
2

If Not Intersect(Target, [A40:F45]) Is Nothing Then Worksheets("Лист1").Cells(Target.Row, 1).Value = Date
    If Not Intersect(Target, [A40:F45]) Is Nothing Then Worksheets("Лист1").Cells(Target.Row, 1).Offset(0, 1).Value = "1"

теперь буду думать как убрать диапазон

@Vlad999 · 06.06.2019, 08:36

не нужно дважды проверять.

Visual Basic

If Not Intersect(Target, [A40:F45]) Is Nothing Then
        Worksheets("Лист1").Cells(Target.Row, 1).Value = Date
        Worksheets("Лист1").Cells(Target.Row, 1).Offset(0, 1).Value = "1"
end if

@Ruslan501 · 06.06.2019, 08:50 **[ТС]**

Vlad999, да, спасибо

@Vlad999 · 06.06.2019, 08:57

и для общего развития можно так еще записать (буков меньше)

Visual Basic

If Not Intersect(Target, [A40:F45]) Is Nothing Then
        With Worksheets("Лист1").Cells(Target.Row, 1)
                .Value = Date
                .Offset(0, 1).Value = "1"
         End With
end if

@Ruslan501 · 06.06.2019, 09:06 **[ТС]**

Vlad999, благодарствую, обязательно учту при написании в будущем

@Ruslan501 7 / 7 / 1 Регистрация: 04.06.2019 Сообщений: 118
	06.06.2019, 08:50 [ТС]	6
	Vlad999, да, спасибо 0

@Ruslan501 7 / 7 / 1 Регистрация: 04.06.2019 Сообщений: 118
	06.06.2019, 09:06 [ТС]	8
	Vlad999, благодарствую, обязательно учту при написании в будущем 0

Заполнение ячеек при выделении строки

Решение