Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Изменить одно число на другое по диагонали
 
  Добрый день!Есть таблица №2 в примере файла.При нажатии  курсором на ячейку с определенным номером  и потом на кнопку №1 у меня копируются число с номером позиции.
 Что можно изменить в макросе2, чтобб при нажатии курсором на ячейку и потом на кнопку №1 ,номер позиции не копировался.А изменялись бы числа по диагонали.Если это ноль то заменялась на 2.А если число 1 то она бы не менялась.
Число номера позиции изменять не надо
Код
Sub Макрос1()
 

For счетчик = 1 To Sheets("лист1").Range("a1")
Call МАКРОС2
If (счетчик = Sheets("лист1").Range("a1")) Then Exit For
Next счетчик
  End Sub




Код
Sub МАКРОС2()


With Selection
    If .Cells.Count > 1 Or Intersect(Range(.Address), Range("L25:X45")) Is Nothing Then Exit Sub
 
    If .Row = 25 Then
    
        Exit Sub
    End If
  upVal = .Offset(-1, 0).Value
    .Offset(-1, 1).Value = .Value
    
    .Offset(-1, 1).Select
End With
End Sub



Изменено: nikkosar - 5 Апр 2018 12:43:46
 
можете ли хотя бы ссылку на примеры скинуть
Страницы: 1
Читают тему (гостей: 1)