Страницы: 1
RSS
Добавить слово в указанное ко-во ячеек и выбор ячейки напротив первой выделенной
 
Подскажите пожалуйста
Код
Sub добавить()
Application.ScreenUpdating = False
'как сделать чтобы указанное ко-во ячеек заполнялось, а не только одна.
'r-ко-во ячеек для заполнения ActiveCell.Value = "Первый"
r = 3
'этот код работает на одну ячейку
ActiveCell.Value = "Первый"
ActiveCell.Cells(1, 2).Activate
Application.ScreenUpdating = True
End Sub
 
Selection.Value = "Первый" - заполнятся все выделенные ячейки. А вот если r=3, то именно какие три - об этом кроме Вас никто не знает, а Вы не говорите. Может, так нужно?
Код
Dim lrow
Dim lcol
Dim r
lrow = ActiveCell.Row
lcol = ActiveCell.Column
r = 3
Range(Cells(lrow, lcol), Cells(lrow, lcol + r - 1)).Value = "Первый"
Изменено: _Igor_61 - 03.08.2019 04:38:03
 
Похоже, уже не нужно... И нужно ли было?
 
Игорь, просто выходной )
 
Код
Sub AddWords()
    Const lClmns As Long = 5
    
    ActiveCell.Resize(1, lClmns).Value = "Первый"
    ActiveCell.Offset(0, lClmns).Select
End Sub
 
vikttur, точно, а я чего-то из Москвы в Питер через Америку :)  
Страницы: 1
Наверх