Доработка кода для вставки значения

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Доработка кода для вставки значения (Макросы/Sub)

Otter

Дата: Суббота, 09.05.2015, 19:38 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 174

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019, Word 2019

Всех с праздником Победы.

Как доработать код, чтобы он выполнял функцию вставки.
[vba]

Код

Sub CommandButton0_Click()
      Dim V As String
      V = "Да"
      Call Vstavka
End Sub

Sub Vstavka()
      ' Вставляем в выделенный диапазон значение V
      Dim A
      Dim V As String
      Application.ScreenUpdating = False
      Dim I, J, Rind, Rinduri, Col, Cols As Long
      Rind = Selection.Row
      Rinduri = Selection.Rows.Count
      Col = Selection.Column
      Cols = Selection.Columns.Count
      For J = Col To (Col - 1 + Cols)
          For I = Rind To (Rind - 1 + Rinduri)
              A = Cells(I, J)
              Cells(I, J) = V
          Next I
      Next J
      Application.ScreenUpdating = True
End Sub

[/vba]

Что здесь надо подправить? Нужно чтобы макрос Vstavka вставлял все значения присвоенные переменной V Значения будут меняться.