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

Страницы: 1
Расчет ячейки по двум критериям
 
Здравствуйте. Как произвести следующий расчет: В ячейке А1 стоит цифра, скажем 200.
В А2 должен быть такой расчет: 50 из этих 200 всегда должны умножаться на 1,1 а все остальное на 1,2
Например, в А1 стоит цифра 200. Значит в А2 будет: 235 ((50*1,1)+(150*1,2)); В А1 может стоять любая цифра, скажем 757, в А2 будет: 903,4 ((50*1,1)+(707*1,2));
И так далее, то есть 50 из любой цифры всегда умножается на 1,1 и суммируется с остатком умноженным на 1,2. При этом, если цифра меньше 50, то умножение должно быть всегда на 1,1. Спасибо!
Изменено: jonathan - 08.01.2015 23:19:14
сортировка строк по возрастанию
 
Здравствуйте. Есть строки вида:
1 5 2 4 3
2 3 4 5 1
1 2 5 7 3
и так далее, строк много, очень
Нужно каждую строку отсортировать по возрастанию, однако средствами сортировки Excel можно сортировать только каждую строку в отдельности, то есть нужно выделять строку, жать кнопку и так каждую строку. Можно ли подсказать простенький range макрос for i 2 to 7000
Спасибо.
Добавить в формулу с ЕСЛИ несколько вложений, допускается вложение не более семи функций
 
Добрый вечер. Формула вида:

=ЕСЛИ(B14="Яблоко";"10";ЕСЛИ(B14="Банан";"20";ЕСЛИ(B14="Мандарин";"0";ЕСЛИ(B14="Киви";"30";ЕСЛИ(B14="Малинка";"40";ЕСЛИ(B14="Клубничка";"50";ЕСЛИ(B14="Кокос";"60";ЕСЛИ(B14="Груша";"77" ;))))))))

При попытке добавить ещё один аргумент ЕСЛИ(B14="Вишенка";"70"; - выдаёт ошибку, скорее всего из-за ограничения в семь вложенных функций Excel.
Как можно видоизменить эту формулу, чтобы не было ошибки и можно было добавить ещё 2-3 агрумента? Только не макросом, а именно функцией.
Спасибо!
Изменено: jonathan - 17.03.2014 23:35:02
сцепить счётесли, или как совместить две формулы в одной
 
Есть такие формулы:
=СЦЕПИТЬ(СУММ(СЧЁТЕСЛИ($B4:$J4;$B7:$J7));"+";СУММ(СЧЁТЕСЛИ($B7:$J7;$L4:$M4)))
и
=СУММ(ЕСЛИ(СЧЁТЕСЛИ(B7:J7;B4:J4);1))
Первая - считает уникальные значение в определенном диапазон, с условием, что одинаковых значений нет и сравнивает их с условием.
Вторая - считает по диапазону только уникальные значения, не зависимо от того, сколько их в диапазоне и стравнивает их с условием.
Например, если в А1:С1 условие - 1,2,5 а в дипазоне стоит 1,2,3,4,5,5,5 - то первая посчитает как 5 (1,2, и три раза цифра 5)
Всторая же посчитает как 3, так как 1,2,5 - уникальные значения, не зависимо от того, сколько раз они встрачаются.

Так вот вопрос, как совместить эти две формулы, чтобы первая считала только уникальные значение, не зависимо от того, сколько раз они встрачаются в диапазоне?
Я пытался сделать так, но выдаёт ошибку:
=СЦЕПИТЬ(СУММ(ЕСЛИ(СЧЁТЕСЛИ(B7:J7;B4:J4);1)));"+";СУММ(ЕСЛИ(СЧЁТЕСЛИ(B7:J7;L4:M4);1))

Спасибо!
Изменено: jonathan - 09.03.2014 23:36:04
два критерия и условие подсчета
 
Здравствуйте! В прикреплённом файле в строке B4:J4 и L4:M4 содержатся исходные данные.
В строке B7:J7 содержатся другие данные, которые могут совпадать, а могут и не совпадать с  B4:J4 и  L4:M4.
В L7 отображается результат, то есть сколько совпало уникальных данных в  B7:J7 с данными из  B4:J4.
Нужно, чтобы считало по двум диапазонам  B4:J4 и  L4:M4
И нужно чтобы писало 3+2, если в первом диапазоне (B4:J4) есть 3  значения, а во втором дипазоне (L4:M4) - 2.
Аналогично, если в первом 2, а во втором 1 чтобы писало не 3, а 2+1
- если во втором 0 в первом 3 - то просто 3
И т.д.

Спасибо!

счётесли.xls (16 КБ)
Изменено: jonathan - 20.02.2014 01:22:28
Второе максимальное значение, УФ
 
Здравствуйте!

Есть диапазон, А1:А10

В нем стоят различные цифры, максимальная цифра 10.

Максимальное число через условное форматирование можно выделить с помощью

Цитата
=A1=МАКС($A$1:$A$10)

А как сделать чтобы выделялось "второе" макимальное число, например в диапазоне А1:А10 максимальное число 10, за ним из всего диапазоне число 7 самое максимальное. Как сделать, чтобы подсвечивало именно второе по макимальности число.

Цифры в диапазоне могут быть любыми. 10 и 7 это лишь для примера.
Как перевернуть столбцы?
 
Здравствуйте! Как сделать следуюющее:
В А1:A7 стоят данные, например А,Б,В,Г,Д,Е,Ё
В соседнем столбце B1:B7 стоят цифры 1,2,3,4,5,6,7
В сосднем С1:С7 стоят даты, например: 01.04, 02.04, 03.04, 04.04, 05.04, 06.04, 07.04

Вот так:
Цитата
А 1 01.04
Б 2 02.04
В 3 03.04
Г 4 04.04
Д 5 05.04
Е 6 06.04
Ё 7 07.04
Так вот, как перевернуть данные "вверх ногами", чтобы было вот так:
Цитата
Ё 7 07.04
Е 6 06.04
Д 5 05.04
Г 4 04.04
В 3 03.04
Б 2 02.04
А 1 01.04
Причем данные идут не по порядку, поэтому отсортировать по убыванию или возрастания не полутся, это для примера были взяты цифры и буквы идущие по-порядку.

Спасибо!
Как разделить данные?
 
Здравствуйте! Подскажите пожалуйста код макроса, который бы мог разделить данные такого вида:

Цифры с дефисом, например: 99-98-97-96-95-94-93-92-91-99-97 чтобы кадая цифра в отдельную ячейку разделилась вот так: 99 98 97 96 95 94 93 92 91 99 97

Через Selection, то есть чтобы куда вставил данные, там они и преобразовались каждая цифра в отдельную ячейку. Спасибо!
Макрос переноса данных в другую книгу Excel
 
Здравствуйте, подскажите пожалуйста как правильно составить макрос копирования-вставки нужных фрагментов с одного файла в другой.
Я сделал следующее:

Код
Sub С()
   Range("A1").Select
   Selection.Copy
   Windows("Book2.xls").Activate
   Range("A5").Select
   ActiveSheet.Paste
   Windows("Book1.xls").Activate
   Range("B3:K3").Select
   Application.CutCopyMode = False
   Selection.Copy
   Windows("Book2.xls").Activate
   Range("B4:K4").Select
   ActiveSheet.Paste
End Sub


Но мне кажется код не сосем грамотен, к тому же кидает при вставке между файлами из-за .Activate. Как более грамотно составить данный код?  :)  

Спасибо!
Изменено: jonathan - 28.02.2013 22:59:22
Как добавить столбцы в макрос?
 
Здравствуйте! Есть макрос:

Код
Dim lFinalRow As Long
    With Sheets(1)
        lFinalRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        Sheets(2).Cells.ClearContents
        .Range(.Cells(lFinalRow - 4, 1), .Cells(lFinalRow, 8)).Copy Sheets(2).[a1]
    End With


Все работает отлично. Но он копирует данные с первой строки и первого столбца (.Cells(.Rows.Count, 1). Подскажите пожалуйста, как сделать так, чтобы копировал с певой строки, но с 10 по 17 столбец (j to q).
Понимаю, что все дело здесь
Цитата
lFinalRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Но как коректно изменить код?  :)
Выделение ячеек
 
Здравствуйте,

Range("A1:G1").Select - Выделяет 7 Ячеек от A1 до G1

Selection.Select - учитывает уже выбранные ячейки.

А как сделать так, чтобы если выбрана любая ячейка, то при выполнении макроса выделялись бы в дополнение к уже выбраной еще 6 ячеек стоящих справа?
Текст по столбцам, немного не так, как надо
 
Здравствуйте. Дело обстоит так:
записываю макро-рекордером разбивку цифр, например:

77  88  99  55  77  77   (Именно с таким интервалом, два пробела между цифрами).

Все отлично работает.

Но когда появляются цифры первого десятка с теми же двумя пробелами, например

1  1  1  1  1  1

То макрос сбоит, где-то после второй цифры начинает в одну ячейку по две циры добавлять.

Как сделать так, чтобы в любом случае разбивал марос каждую цифру в отдельную ячейку, если учесть, что в данном случае цифр всегда шесть, независимо от того перого они десятка или нет. К тому же может быть и, например,  так: 1  1  1  99  1  99
Как правильно сделать прогресс бар
 
Здравствуйте, читал пример EducatedFool на его сайте. Добавил, формы и прочее, но прогресс не идет, то есть макрос выполняется, но прогресс выполнения не отображается.  
Ниже в примере код макроса, подскажите, как правильно его "прилепить". Спасибо.
Как посчитать количество цифр
 
В ячейке F1 содержится формула  
 
=СУММПРОИЗВ(СЧЁТЕСЛИ(A2:D2;$A1:$D1))  
 
Которая считает колличество !одинаковых! цифр встречающиеся в обоих строках. Все прекрасно работает, но:    
 
Если в A2:D2 стоят цифры 1 1 2 3    
А в A1:D1 стоят цифры 1 4 4 4  
 
То формула посчитает цифры как 3 (1+1+1)    
 
Нужно, чтобы если цифра есть в A2:D2 и A1:D1 - чтобы макрос отдавал значение не колличества раз, которые цифра встречается в строке, а просто 1.    
 
Пример:    
 
A2:D2 - 1 1 2 2    
A1:D1 - 1 2 4 4  
 
В F1 будет 2 (так как единица есть и двойка, неважно сколько раз они встречаются в строке, важно что они есть).
Копирование блока с условным форматированием
 
Здравствуйте. Вопрос такой (более подробно в прикрепленном примере):  
Существует условное форматирование определенного блока с цифрами  
=СЧЁТЕСЛИ($B$6:$F$6;B8)  
Соответственно, если скопировать весь блок (A5:I13) и вставать его копию на пару строчек ниже оригинала (A16:I24), то формула примет следующий вид:  
=СЧЁТЕСЛИ($B$6:$F$6;B19), то есть автоматически поменяется диапазон с B8 на B19. Но, диапазон $B$6:$F$6 останется прежним. Но это понятно, из-за знака $, если же убрать абсолютные ссылки - формула условного форматирования выполняться не будет.    
Так вот, как можно сделать так, чтобы $B$6:$F$6 при копировании менялся как и строка автоматически?
Страницы: 1
Наверх