[Michael]

попроще подсказать не могу, но мой предыдущий пример лучше модифицировать:
A - тип - усн/енвд
B - доход - забиваешь доход
C - налог =ЕСЛИ(A2="усн";B2*0.06;(ЕСЛИ(A2="енвд";B2*0.15;"введен неправильный тип налога")))

[azbest]

Если 14 вариантов "типа" налога - формула "ЕСЛИ" может не сработать. Глубина вложений у неё меньше 14. Можно через макросы. Там проще и формулу в каждой ячейке писать или копировать не нужно. 1 раз задал и построчно через if-elseif end if всё просчитал.
Как Вы, в макросах разбираетесь? До завтра подождёте - накатаю текст.

[selanec555]

нет, к сожалению в макросах не разбираюсь. Помогите пожалуйста примерчиком...

[azbest]

Шаг 1: Сохраняем ваш файл с таблицей расчёта как копию (или выбираем в меню программы - "сохранить как..") и в дальнейшем работаем с копией оригинального файла, чтобы в случае чего не запороть
оригинальный файл.
Ваша таблица должна выглядеть так : № п\п, Тип налога, Доход, Налог.
В строке меню программы Exel там где Файл, Правка, Вид - выбираем Сервис - вниз по списку Макрос и далее выбираем и щелкаем по "Начать запись."
В появившемся окне в строчке имя макроса - пишем латинскими буквами (например typ_naloga). В поле сочетание клавиш - выбираем латинскую букву (например - d). Жмём ОК. Появляется маленький прямоугольник с квадратиком и ещё каким то значком. Это не трогаем. В таблице щёлкаем по ячейке с надписью "№ п\п". Теперь в маленьком прямоугольнике с квадратиком и значком - щелкаем по квадратику. Запись макроса остановлена. В меню выбираем Сервис - Макрос - Макросы. В появившемся окне выбираем наш макрос - typ_naloga и нажимаем кнопку "Изменить". Попадаем в окно текста программы- макроса. В конце текста есть слова End Sub. Ставим курсор перед End и жмём Enter. Переводим курсор на появившуюся пустую строку. В эту строку копируем текст програмки приведённый ниже
Вот он:
k = Range("A3").CurrentRegion.Rows.Count

For y = 1 To k - 1
Range("A3").Activate
Selection Offset(y, 1).Select
typ = ActiveCell.Value
Selection.Offset(0, 1).Select
doh = ActiveCell.Value
If typ = "A" Then
nal = doh * koef1
ElseIf typ = "B" Then
nal = doh * koef2
ElseIf typ = "C" Then
nal = doh * koef3
ElseIf typ = "D" Then
nal = doh * koef4
ElseIf typ = "E" Then
nal = doh * koef5
ElseIf typ = "F" Then
nal = doh * koef6
ElseIf typ = "G" Then
nal = doh * koef7
ElseIf typ = "H" Then
nal = doh * koef8
ElseIf typ = "I" Then
nal = doh * koef9
ElseIf typ = "J" Then
nal = doh * koef10
ElseIf typ = "K" Then
nal = doh * koef11
ElseIf typ = "L" Then
nal = doh * koef12
ElseIf typ = "M" Then
nal = doh * koef13
ElseIf typ = "N" Then
nal = doh * koef14
Else: MsgBox ("Неправильно введенный тип налога. Повторите ввод")
GoTo 100
End If
Selection.Offset(0, 1).Select
ActiveCell.Value = nal
Next y

90 MsgBox ("Все налоги посчитаны.")
100
(конец текста програмки)
После метки 100 - должны стоять слова End Sub.

Поскольку я не знаю ваших названий типов налогов и их расчётные коэффициенты, в тексте програмки, вместо заглавных латинских букв в кавычках - впишите между кавычек названия ваших налогов(коротко из 3-4 латинских букв), а в формулах расчёта вместо koef1;koef2...koef14 -впишите расчётные коэффициенты для этих налогов. Строчка начинающаяся со слова nal - это формула расчёта налога. Здесь Вы можете
соответственно умножать(*), делить(\), вычитать(-), складывать(+)и
применять скобки для составления более сложных формул по расчёту налога. После всех изменений имен типов налогов и формул расчёта этих налогов -закрыть окно макроса. Сохранить файл. Закрыть его. Затем вновь открыть. В окне Запускать макросы - выбрать запускать макросы. и нажать ctrl+d. Всё

[selanec555]

azbest, респект! Спасибо! выглядит мощно! пошел пробовать!

[Negativ]

ОС XP
MS Office XP

В пользовательской учетной записи (с ограниченными правами) создаю новую книгу Excel. На первом листе создаю гиперссылку внутри книги на другой лист.
Нажимаю ее и выскакивает ошибка: эта операция была прервана из-за ограничений, наложенных на данный компьютер. Обратитесь к системному администратору.

На других компах в той же конфигурации такого нет.

P.S.: изменение безопасности макросов не помогает.

[Petya V4sechkin]

Negativ, на всякий случай:
http://support.microsoft.com/kb/310049/en-us

[anatoly_neo]

В общем в продолжение моей же темы (http://forum.oszone.net/thread-107398.html), с той же задачей... руководство захотело еще больше автоматизировать все подсчеты, и вот теперь передо мной более сложная задачка...
Имеем: 3 столбца, 1 - список фамилий, 2 - баллы (от 0 до 14), 3- процент...
Нужно получить формулу, которая бы по определенной фамилии считала все строки (в которой имеется данная фамилия) и отбрасывала бы из этого результата строки с нулевым баллом. В цифровом виде мне надо получить чистое количество строк имеющие хоть один балл, и отбросить строки имеющие в качестве балла - 0...

Люди, хелп ми... башка уже совсем не варит

PS: сделал формулу через функцию ЕСЛИ, но там можно указать только одну ячейку, а мне нужно чтоб просматривало весь столбец...

[engwar]

А функции СЧЕТЕСЛИ или СУММЕСЛИ не катят?

[anatoly_neo]

В функции СчетЕсли не хватает одного пунктика... поясню: она выглядит так "СЧЁТЕСЛИ(диапазон;критерий)", а вот если б у нее было условие "ЕСЛИ" и выглядела бы она так: "СЧЁТЕСЛИ(ЕСЛИ там-то то-то;диапазон;критерий)" или "СЧЁТЕСЛИ(диапазон;критерий;критерий2)" тогда б она подошла...
поэтому и пришлось использовать функцию ЕСЛИ в условии которой писать СЧЕТЕСЛИ, но она зараза не хочет работать по всему столбцу, а работает максимум по одной ячейке (в качестве диапазона)... у меня то получается два критерия, фамилия в первом столбце и нолик во втором...
СуммЕсли - вообще не то...