|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.09.2020, 16:38 | #1 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
Посчитать количество ТОЧЕК в ячейках
Всем здравствуйте!
Не могли бы подсказать, есть ли способ, с помощью которого можно посчитать количество ТОЧЕК в предложении в ячейках? Например: в ячейке есть предложения, в нем есть 3 точки, тогда эта строчка копируется на Лист2 в столбец А А если 4 точки, то строчка копируется на Лист2 в столбец В? Заранее спасибо! |
08.09.2020, 17:01 | #2 |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 164
|
пoпрoбуйте так:
Код:
|
08.09.2020, 17:26 | #3 |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 164
|
Код:
|
08.09.2020, 17:28 | #4 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
Elixi,
код не идет, ничего не скопировал |
08.09.2020, 17:30 | #5 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
lilpop,
второй код сработал! заменила for i=5 на for i=1, т.к. строчки начинаются с 1. Спасибо Вам! |
08.09.2020, 20:44 | #6 |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 164
|
первый код и не должен ничего копировать, он только считает точки по строкам,
итог выводит в окошко immediate в среде VBA поменяйте в коде и названия листов, у меня там в коде не названия листов а их порядок в книге, так что копировать будет всегда из первого листа в книге на второй лист |
09.09.2020, 11:19 | #7 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
Elixi,
Спасибо за помощь! а не знаете как добавить еще в этот код, чтобы значения вставлялись в следующую (после данных) пустую строку, чтобы макрос при копировании искал следующую пустую строку, а не перезаписывал старую? попыталась сделать что-то типа этого и не получилось Sub new() Dim NextRow As Long With Sheets(1) For i = 5 To Sheets(1).Cells(Rows.Count, 26).End(xlUp).Row NextRow = Sheets(2).Cells(Rows.Count, 9).End(xlUp).Row + 1 TK = Len(Sheets(1).Cells(i, 26).Value) - Len(Replace(Sheets(1).Cells(i, 26).Value, ",", "")) Select Case TK Case Is = 1 Sheets(2).Cells(NextRow, 2) = Sheets(1).Cells(i, 2).Value End Select Next i End With End Sub |
09.09.2020, 12:46 | #8 |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 164
|
lilpop,
не знаю пoмoгу ли, ничегo в вашем кoде не менял, тoлькo дoбавил заметки Код:
|
09.09.2020, 16:25 | #9 |
Пользователь
Регистрация: 06.09.2020
Сообщений: 17
|
Elixi,
' ниже вы вычисляете пoследнюю стрoку пo стoлбцу №9, ' если в дальнейшем в этoт стoлбец данные записивать не будете вот данные будут записываться в столбцы 1-10 и надо чтобы каждый раз новые значения вставлялись в пустую строку после всех данных уже много раз переделывала код и не выходит, не понимаю в чем причина |
09.09.2020, 22:40 | #10 |
Форумчанин
Регистрация: 10.05.2019
Сообщений: 164
|
не знаю пользуетесь ли таким чтобы разобраться, пока нет попробуйте:
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Посчитать суммы из одних ячеек, если в соответствующих ячейках определенное значение | Нарилия | Microsoft Office Excel | 3 | 28.02.2018 18:03 |
Среди трех точек с координатами (x1,y1), (x2,y2), (x3,y3) определить количество точек, лежащих во второй четверти и вывести на экран их координаты. | Viktoria_ | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 20.02.2018 00:07 |
Как посчитать сумму в ячейках определенного цвета | vitek090283 | Microsoft Office Excel | 4 | 10.10.2017 02:14 |
Задаnm n точек. Найти m=3,4... точек и построить на них m-угольник: количество точек , лежащих внутри и вне его мин. различается | L.Rain | Помощь студентам | 0 | 11.12.2011 22:19 |
Определить количество точек | Артур22 | Общие вопросы Delphi | 17 | 21.02.2011 11:09 |