Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Сравнить диапазон значения ячеек с другим диапазоном ячеек на совпадения
 
здравствуйте !
Есть таблица №1 в ячейки которой есть некоторое значение, с которым сравнивается содержимое каждой проверяемой ячейки.
Таблица №2 проверяемые ячейки.Есть  макрос который сравнивает 1 ячейку таблицы №1 и 4 ячейки таблицы №2.Что можно изменить в макросе чтобы он сравнивал одновременно 4 ячейки таблицы №1 с 4 ячейками таблицы №2.И при совпадения выводил число  1  или 0 в колонку совпадения.№5.А также чтобы игнорировал пустые ячейки.Не сравнивал их
Изменено: nikkosar - 02.10.2018 11:49:57
Комбинация из списка чисел
 
Друзья, добрый день!
Дана таблица №2 где расположено 5 рядов с числами.С одного ряда  можно взять только по одному числу .Надо  скомбинировать максимально возможное сочетание.Максимальная длина комбинации это 4 числа.Даже если рядов будет от 5 и больше.Максимальная длина комбинации только 4 числа
Изменено: nikkosar - 11.09.2018 18:27:47
Поиск парных чисел в динамическом диапазоне.
 
  Добрый день!Есть таблица.В одной указываются парные числа искомые.А в другой ряд, где их надо найти .Синий ряд это как должно получиться с указанием номера строки .Как можно переделать формулу с сохранением ДВССЫЛ ,чтобы искались  только те числа  что указаны в первой таблице.Формула в прилагаемом файле
.Книга1.xlsx (13.13 КБ)  
Изменить одно число на другое по диагонали
 
  Добрый день!Есть таблица №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 - 05.04.2018 12:43:46
Найти определенную диагональ и поменять одно значения на другое
 
 Здравствуйте.Даны 2 таблицы.В первую таблицу вводятся  исходные данные номер позиции  диагонали откуда она начинается .Во  второй таблице  ищется  номер.И при нахождения этого номера  выстраивается диагональ и в диагонали меняются  только  числа 0 на 2 .Еденицы не меняются.
  И при удаления чисел в таблице №1 все возвращалось все как было .То есть  в таблице №2 число 2 менялось  на 0.Заранее спасибо за ответ
Изменено: nikkosar - 04.04.2018 12:59:15
Найти определенную строку и поменять одно значения на другое.
 
   Здравствуйте.Даны 2 таблицы.В первую таблицу вводятся  исходные данные номер строки.Во  второй таблице  ищется строка относительно номера.И при нахождения этой строки меняются  только  числа 1 на 2 в данных этой строки.Нули не меняются.
   И при удаления чисел в таблице №1 все возвращалось все как было .То есть  в талице №2 число 2 менялось  на 1
[ Закрыто] Упростить формулы
 
Здравствуйте. Имеется таблица с данными цифр и букв  с количеством  строк до 1000 и более.С лева находится колонка куда в вписываются искомые значения.В таблице у этих значений отыскиваются буквы столбца,порядковый номер и координаты.И все это записывается в левую колонку.Можно ли упростить формулы ,а то при больших данных начинает тормозить.
Страницы: 1
Наверх