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

Страницы: 1
округление
 
Мотя, включил эту функцию, ничего не изменилось
округление
 
Мотя, это совсем не точность, при больших цифрах, и нескольких расчетах, конечная стоимость разница почти на рубль..  :(
Изменено: Женя Юрсин - 31.01.2013 16:30:33
округление
 
V, в моем примере округляем до 2 знаков, получаем 19,99.. а должно быть 20
округление
 
Привет всем! Подскажите, как можно минимизировать потери от округления? Постоянно такая ерунда, где-то да на копейку не идет.. С функциями округления ситуация меняется в худшую сторону.
сравнение размеров и веса артикулов
 
Здравствуйте! Имеется таблица с информацией о товаре. Возможно ли макросом осуществить следующий алгоритм:
1)Найти одинаковые артикулы (могут быть разбросаны по всему столбцу) в столбце E.
2)Вырезать из столбца F размер артикула (может иметь вид как 60, так и 48-50, идет от слова "размер" и до запятой) для анализа.
3)Сравнить вес нетто K и вес брутто L одинаковых артикулов, по отдельности, между собой. Если размеры одинаковы и вес нетто и/или брутто (поделенные на количество столбец - G) у них отличен, выделить ячейки K и/или L красным цветом; если размеры различны, но у меньшего размера вес нетто и/или брутто больше, чем у большего размера, также выделить ячейки K и/или L соответствующие сравниваемым артикулам красным цветом. В примере попытался все показать.
макрос выделения дублирующихся ячеек
 
Спасибо!
макрос выделения дублирующихся ячеек
 
Здравствуйте, уважаемые знатоки эксель! Помогите макросом, который будет выделять повторяющиеся ячейки разными цветами, в зависимости от того, сколько раз она повторяется. Например: два повторения в столбце - зеленым цветом, три повторения - желтым, четыре и более - синим. Условным форматированием это не осуществить?
не работает функция подставить
 
ino, благодарю, теперь понятно.
не работает функция подставить
 
ber$erk, необходимо чтобы и текст1 и текст2 убирались, при наличии :)
не работает функция подставить
 
Подскажите что здесь не так?
=ПОДСТАВИТЬ(C3;{"ТЕКСТ1 ";"ТЕКСТ2"};"")
При наличии в ячейке C3 текста1, он убирается, при наличии текста2 он остается.
поиск и замена символа в конце предложения
 
Михаил С., спасибо!
поиск и замена символа в конце предложения
 
Михаил С., подскажите как сделать чтобы макрос не ел цифры?
если сделать так - If Right(Trim(Range("G" & i)), 1) Like "[A-ÿ]" or "[0-9]" Then - цифры не трогает, но и запятые и двоеточия также оставляет..
Изменено: Женя Юрсин - 22.01.2013 13:41:30
поиск и замена символа в конце предложения
 
спасибо всем за помощь!
Изменено: Женя Юрсин - 22.01.2013 10:22:31
поиск и замена символа в конце предложения
 
Цитата
Юрий М пишет:
А возможна ситуация, когда там нет ни одного из этих символов ( ";" "," "/"  ;)  ?
может быть пробел, пример в приложении
Изменено: Женя Юрсин - 22.01.2013 00:33:22
поиск и замена символа в конце предложения
 
без создания доп ячеек не получится?
Изменено: Женя Юрсин - 22.01.2013 00:16:05
поиск и замена символа в конце предложения
 
да, внутри предложений знаки тоже присутствуют(
Изменено: Женя Юрсин - 22.01.2013 00:16:28
поиск и замена символа в конце предложения
 
Добрый вечер! В книге есть столбец - G4:G200, в каждой ячейке столбца - предложения, заканчивающиеся на ";"  ","  "/" Как с помощью макроса (именно макроса, чтобы не создавать дополнительных ячеек для обработки) осуществить замену данных символов на "."??
Спасибо!
Работа с таблицей, найти одинаковые значения в столбце А которые находятся рядом
 
при наличии в столбце А вместо цифры - "" - выдает ошибку, возможно это обойти?
Изменено: Женя Юрсин - 09.01.2013 14:11:45
Работа с таблицей, найти одинаковые значения в столбце А которые находятся рядом
 
Спасибо! Все отлично работает!!))
Работа с таблицей, найти одинаковые значения в столбце А которые находятся рядом
 
ругается на a = [a2].CurrentRegion.Value...
Работа с таблицей, найти одинаковые значения в столбце А которые находятся рядом
 
У Семенова 60 - сумма всех чисел С1:C3 отобранных по столбику А (число 1), без учета 1 в конце, т.к. она находится отдельно от верхних 1.. Фамилии роли не играют, необходимо осуществить поиск по столбцу А, если ближайшие значения А совпадают, осуществить суммирование в ячейке С, если не совпадают, все остается как есть.. например, как в случае с Семеновым, т.к. A1=A2=A3, значит С1=С1+С2+С3, C2="";C3=""; если A1<>A2; C1=C1;C2=C2.. но в таблице есть еще одна A13=1; здесь С13=C13, т.к. значения ближайших А<>1
Изменено: Женя Юрсин - 09.01.2013 01:16:24
Работа с таблицей, найти одинаковые значения в столбце А которые находятся рядом
 
Привет всем! Есть табличка:
1 Семенов 10
1 Иванов 20
1 Петров 30
2 Ветров 40
2 Ирхин 50
3 Юрсин 60
4 Тайсов 70
5 Мукин 80
6 Вилков 90
7 Сетков 100
7 Горошков 110
1 Иванов 120
5 Семенов 130
Необходимо найти одинаковые значения в столбце А которые находятся рядом (именно рядом, а не по всей таблице), суммировать их, результат вывести в верхний столбик С, нижние значения удалить. Вот как должно получиться:
1 Семенов 60
1 Иванов
1 Петров
2 Ветров 90
2 Ирхин
3 Юрсин 60
4 Тайсов 70
5 Мукин 80
6 Вилков 90
7 Сетков 210
7 Горошков
1 Иванов 120
5 Семенов 130
Изменено: Женя Юрсин - 08.01.2013 22:56:32
Функция для скрытия строк с пустыми ячейками
 
Цитата
ikki пишет: For Each cell In [L21].resize([A13].Value).Cells
все заработало!! спасибо большое!!
Изменено: Женя Юрсин - 27.05.2014 16:16:27
Функция для скрытия строк с пустыми ячейками
 
ошибку выдает в строке For Each cell In [L21].resize([A13].Value).Cells
Функция для скрытия строк с пустыми ячейками
 
Hugo, а13 считает количество заполненных ячеек и выдает значение в Вашем случае - цифра 2
For Each cell In [L21:L(21+A13)].Cells, получается так For Each cell In [L21:L23].Cells, т.е. проверяются только ячейки таблицы, возможно такое?
Изменено: Женя Юрсин - 25.05.2013 13:37:58
Функция для скрытия строк с пустыми ячейками
 
прошу прощения за невнятность, немного не трезв)) в общем нужно каким-то образом вставить в строку For Each cell In [L21:L1000].Cells вместо L1000 значение ячейки А13 (она у меня считает кол-во заполненных строк в таблице). Итого функция будет обрабатывать только заполненную таблицу а не все 1000 строк. Вот.
Функция для скрытия строк с пустыми ячейками
 
Привет всем! Нашел в интернете функцию для скрытия строк с пустыми ячейками
Код
Sub тест()
Dim cell As Range: Application.ScreenUpdating = False
For Each cell In [L21:L1000].Cells
If cell.Find("*", , xlValues, xlPart) Is Nothing Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub
Функция очень долго работает, т.к. много обрабатываемых ячеек.
На странице создал ячейку А13 с подсчетом заполненных ячеек, как ее вставить с таким смыслом [L21:L(A13)].Cells??
Оператор "exit for"
 
Друзья!  
С наступающим всех!  
 
Имеем:  
1. Лист excel с данными, которые необходимо сравнить между собой  
2. Макрос для решения этой задачи.  
 
Вопрос: в макросе не работает команда "exit for", т.е. после того как условие выполнено, цикл продолжается. В чем я ошибся?  
 
Sub Данные()  
 
For a = 1 To 3  
   For b = 2 To 5  
       Cells(b, 5) = 1  
       If Cells(a, 1) = Cells(b, 6) And Cells(a, 2) = Cells(b, 7) And Cells(a, 3) = Cells(b, 8) Then  
           Cells(a, 4) = "Да"  
           Exit For  
       End If  
   Next b  
Next a  
 
End Sub
Страницы: 1
Наверх