powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление/добавление ячеек в строке на разных листах
18 сообщений из 18, страница 1 из 1
Удаление/добавление ячеек в строке на разных листах
    #33374489
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Можно ли в Екселе сделать так, чтобы в зависимости от числа ячеек в строке, удалить или добавить такое же число строк в других листах этой же книги?
Просто есть шаблон на десять строк, но иногда нужны, к примеру, три. И хотелось бы програмно в зависимости от того, сколько ячеек задействовано в "маске ввода" на первой странице, корректировать число ячеек на других страницах.

Как это сделать? Может повесить на кнопку на этой первой странице макрос? Опять же я не знаю, как считать число ящеек в строке, содержащих данные, чтобы знать сколько удалить или добавить.
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33376065
Vovik5Опять же я не знаю, как считать число ящеек в строке, содержащих данные.

Код: plaintext
1.
    MsgBox Range(Rows( 1 ).End(xlToLeft).Address _
      & ":" & Rows( 1 ).End(xlToRight).Address).Cells.Count
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33376408
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
К сожалению, уважаемый Пользователь 2, мне это ни очем не говорит. Я не знаком настолько с VBA. Допустим я сосчитал ячейки - а как дальше заставить Ексель програмно сверять их число на других листах книги и удалять лишние? Буду весьма признателен за совет!
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33379972
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Неужели никто не знает как сверять число ячеек в строке на разных листах книги и удалять лишние? Вам же это сделать проще пареной репы... Посоветуйте, пожалуйста, что-нибудь!
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33380114
Фотография 100g
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Vovik5Неужели никто не знает как сверять число ячеек в строке на разных листах книги и удалять лишние? Вам же это сделать проще пареной репы... Посоветуйте, пожалуйста, что-нибудь!
Да просто условие не понять.
Ячеек в любой строке и на любом листе 256, не больше не меньше, а строк 65536 и с этим ни чего не поделаешь. Поэтому задача добавить строк на листе в зависимости от кол-ва ячеек в строке звучит как бред.
Ты формулируй задачу, а не предполагай решение.
М:)
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33380405
Задача действительно не очень ясна. Попытайтесь объяснить поподробнее и желательно с примером, что есть и, что хотите получить.
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33380789
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В приложенном файле попытался подробней объяснить - надеюсь, что понятно будет...
Спасибо.
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33380912
Если дело только в ошибке то, можно записать формулу следующего вида:

Код: plaintext
=ЕСЛИ(ЕОШИБКА( 1 /I13);""; 1 /I13)
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33381254
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дело не только в ошибке. Идеално было бы "чистить" значение этих ненужных ячеек. Допустим используем мы лишь 4 ячейки вместо 10, тогда на трех следующих листах мы в незадействоанных 6 столбцах чистим содержимое 10 строк. Как это сделать програмно?
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33381575
syslink
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
попробуй транспонировать таблицу (масса скорость температура будут столбцами, 1 2 3 .. 10 - строками), затем применять фильтр.

Если это не подходит, тогда только в макросах ваять.
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33381636
Сделал, посмотри.
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33381725
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пользователь2

Спасибо огромное! Вроде работает - надо немного подкорректировать под файл (у меня на разных листах не совпадает местоположение этих ячеек, но это решабельно). Сейчас буду пробовать.

Спасибо!!!!
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33381772
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пользователь2

Возник вопрос по макросу
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
 For Each ws In ThisWorkbook.Worksheets(Array("Table1", "Table2"))
        ws.Range("C10:L15").ClearContents
        For i =  1  To max
            ws.Range("B10").Offset( 0 , i).Value = i
        Next
        For i =  1  To arr( 0 )
            ws.Range("B11").Offset( 0 , i).Value = _
              wsMask.Range("B15").Offset( 0 , i).Value
        Next
        For i =  1  To arr( 1 )
            ws.Range("B12").Offset( 0 , i).Value = _
              wsMask.Range("B16").Offset( 0 , i).Value
        Next
        For i =  1  To arr( 2 )
            ws.Range("B13").Offset( 0 , i).Value = _
              wsMask.Range("B17").Offset( 0 , i).Value
            ws.Range("B15").Offset( 0 , i).Formula = _
              "=1/" & ws.Range("B13").Offset( 0 , i).Address
        Next
    Next
То есть ты сначала значения всех ячеек удаляешь, а потом заполняешь? А нельзя ли чистить только не нужные ячейки, а не все в диапазоне. Просто у меня там трехэтажные формулы идут, в каждой строке - своя формула, таких строк до 30 на листе.
Хотелось бы оставлять столбцы нетронутыми, а чистить лишь невостребованные. Так можно? То есть определил последний заполненный столбец на первом листе и на других листах справа от него все почистил, а слева все оставил.
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33383344
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Так как же все-таки не чистить все ячейки а только справа от последней заполненной???
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33383966
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Никаких идей?!
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33385781
Не совсем понимаю смысл этого. Усли удалять ячейки справа, то будет удаляться и формула (ссылка на ячейку, находящуюся на листе "Маска ввода").

Как вариант, для того чтобы не было видно нулей примени условное форматирование с условием если значение=0, то цвет шрифта белый.

Чтобы не было ошибки, используй формулу, которую я привел ранее.
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33386643
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Пользователь2Усли удалять ячейки справа, то будет удаляться и формула (ссылка на ячейку, находящуюся на листе "Маска ввода").

Это не страшно. Вот файл с более конкретным примером. Когда инженер начинает работать с проектом, он изначально заполняет необходимое ему число ячеек на первом листе (синим выделены), и оставшиеся не использует вобще. Попробуйте заполнить только 4, к примеру, и на других листах посмотрите ошибки.
Суть в том, что шаблон то все равно в сетевой папке есть. Инженер его копирует, переименовывает и уже работает по своему усмотрению... Поэтому не страшно удалять ячейки справа от последней заполненной.
...
Рейтинг: 0 / 0
Удаление/добавление ячеек в строке на разных листах
    #33389301
Vovik5
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ну так как там с удаленем справа?!
...
Рейтинг: 0 / 0
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Удаление/добавление ячеек в строке на разных листах
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]