Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Найти определенную диагональ и поменять одно значения на другое
 
 Здравствуйте.Даны 2 таблицы.В первую таблицу вводятся  исходные данные номер позиции  диагонали откуда она начинается .Во  второй таблице  ищется  номер.И при нахождения этого номера  выстраивается диагональ и в диагонали меняются  только  числа 0 на 2 .Еденицы не меняются.
  И при удаления чисел в таблице №1 все возвращалось все как было .То есть  в таблице №2 число 2 менялось  на 0.Заранее спасибо за ответ
Изменено: nikkosar - 4 Апр 2018 12:59:15
 
проба1
 
спс за ответ но немного не так.Мне надо данные вводить в первую таблицу.А диагональ строилась бы во второй таблице
 
а если подробнее, что не так
 
Я извиняюсь. Не правильно вопрос наверное поставил.Мне пользователь Inexsu код написал.Который отлично работает.Но что надо в коде изменить ,чтоб он выделял бы не строку ,а диагональ.
Вот код
Код
Option Explicit 
Sub Менять_InExSu()
 
  Dim r As Range
  Dim i As Long, x As Long, el As Long
 
  With ActiveSheet
'определяю диапазон
    Set r = Range(.Cells(4, 13), Cells(16, 18))
'и произвожу в нём замену
    r.Replace 2, 1
 
'определяю диапазон
    Set r = Range(.Cells(3, 13), .Cells(3, 18))
    For i = 4 To 11 'номера строк в примере
      el = .Cells(i, 5)
      If el > 0 Then _
         r.Offset(el, 0).Replace 1, 2 'заменяю в диапазоне
    Next
  End With
End Sub
Изменено: nikkosar - 4 Апр 2018 13:03:16
 
Извиняюсь не получается код правильно вставить
 
Для этого даже специальная кнопка есть:
Тег VBA.jpg (19.2 КБ)
 
ясно попробую исправить
Страницы: 1
Читают тему (гостей: 1)
Наверх