Как доработать код, чтобы он выполнял функцию вставки. [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 Значения будут меняться.
Всех с праздником Победы.
Как доработать код, чтобы он выполнял функцию вставки. [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 Значения будут меняться.Otter
Сообщение отредактировал Otter - Суббота, 09.05.2015, 19:41