следующая тема »

[_AxeL_]

Народ подскажите плз, как правильно написать формулу в Excel. Требуется выполнить условие например =если( х=1 или 2 ; истина 3 ; ложь 4) туплю под конец дня не судите строго 

[Fluderman]

так наверно

[Hesus]

=ЕСЛИ(ИЛИ(x=1;x=2);3;4)

[_AxeL_]

=ЕСЛИ(ИЛИ(x=1;x=2);3;4)

решение прикольное, но немного неподходит щас обьясню.
есть массив вида {=СУММ(ЕСЛИ(A1:A10=1;25;0))} т.е. необходимо чтобы при вводе значений 1 или 2 (другие значения 3, 4, 5 и т.д. игнорируются как 0) в ячейки с А1 по А10, в другой ячейке например "B1" суммировалось значение "25". Т.е. если в 3-х из 10 ячеек стоит значение 1 или 2, в ячейке "В1" должно быть "75". такую формулу я вывел "{=СУММ(ЕСЛИ(A1:A10=1;25;0))}" и она работает но только с одним значением!
Если использовать твою формулу {=СУММ(ЕСЛИ(ИЛИ(A1:A10=1;A1:A10=2);25;0))} то в ячейке "В1" значение "25" не суммируется а остается таковым!

Конечно можно сделать два массива на каждое число 1 и 2, и потом вывести сложением в ячейку В1. но тут уж дело принцпа )) можно ли реализовать одной формулой!

[Le0nid]

=(СЧЁТЕСЛИ(R1C1:R10C1;"=1")+СЧЁТЕСЛИ(R1C1:R10C1;"=2"))*25

соответственно тебе надо для своего обозначения ячеек заменить R1C1:R10C1 на A1:A10
считает колмчество единиц, затем количество двоек в диапазоне, складывает, затем сумму умножает на 25

[_AxeL_]

=(СЧЁТЕСЛИ(R1C1:R10C1;"=1")+СЧЁТЕСЛИ(R1C1:R10C1;"=2"))*25

соответственно тебе надо для своего обозначения ячеек заменить R1C1:R10C1 на A1:A10
считает колмчество единиц, затем количество двоек в диапазоне, складывает, затем сумму умножает на 25

Вот СПАСИБО !!! Отлично !!! Респект !!!
Говорил же все просто ))) правда про функцию "СЧЁТЕСЛИ" я как то и незадумывался 

[Blue_a_p]

ексель изучаем 

[zulus]

не буду создавать тему из названия понятно, что вопрос по эхвелю
итак, пишется (вернее, уже написана) прога которая сливает данные в эксель и создаёт несколько вкладок…
мне очень хочется раскрасить некоторые вкладки разными цветами, а имя функции не знаю.
вот как я создаю вкладки в книге:

Код:

vVarBook=vVarBooks.OlePropertyGet("Item",1);
vVarSheets=vVarBook.OlePropertyGet("Worksheets") ;
vVarSheet=vVarSheets.OlePropertyGet("Item",wsh); //вш – это номер вкладки… в книге
vVarSheet.OlePropertySet("Name", id.c_str());

vVarSheet.OleProcedure("Activate");

вот так пытался покрасить нужные вкладки, но не выходит… тырнета нет, а знаний мало, поможайте пожалуйста…

Код:

//            vVarSheet.OlePropertySet("Color", clRed); // ругается что не знает имени Итем… ИтемКолор и просто Колор….. какое надо сюда воткнуть ???
//            vVarSheet.OlePropertyGet("Color", clRed);
//            vVarBook.OlePropertyGet("ActiveSheet").OlePropertySet("ItemColor", clRed);

да и ещё... раскрашивать буду не при создании книги (вкладки в книге), а при выводе туда данных и после некоего анализа...
примерно так должно выглядеть:

[axel_vo]

Вот что нарыл:
"Задача: Нужно програмно создать новый лист, при этом выдается запрос о его имени и цвете.

С именем пользую просто инпутбокс, а вот с выбором цвета ярлычка...
цвет меняется через
лист.tab.index = цвет
но он не подчиняется стандартной схеме RGB!
А выберается из константного набора около 20-30 цветов.
Когда просто из екселя меняешь цвет, то вылезает маленькое окошечко с этой палитрой.

Главный вопрос: как его вызвать программно?

ЗЫ: а еще заодно как вызвать стандартную палитру RGB?"

Ему отвечают:
"Application.CommandBars.FindControl(ID:=5747).Execute"

и для разных версий оффиса:
"With Application
     If Val(.Version) >= 10 Then
        .CommandBars.FindControl(ID:=5747).Execute
     Else
        MsgBox "В версии : " & .Version & vbCrLf & _
        "невозможно вызвать диалоговое окно" & vbCrLf & _
        "изменения цвета ярлычка", vbExclamation, ""
     End If
End With"

Сойдёт ли?

[zulus]

...
А выберается из константного набора около 20-30 цветов.
Когда просто из екселя меняешь цвет, то вылезает маленькое окошечко с этой палитрой.

Главный вопрос: как его вызвать программно?

ЗЫ: а еще заодно как вызвать стандартную палитру RGB?"

Ему отвечают:
"Application.CommandBars.FindControl(ID:=5747).Execute"

...
Сойдёт ли?

это метод вызова диалогового окна с выбором цветов... маленько не то
мне нужно изменить цвет программно

[axel_vo]

Ну тогда вот ещё:
"В модуль листа:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") <> "" Then Sheets("Лист1").Tab.Color = 255
End Sub

При заполнении ячейки А1 любым значением, цвет ярлыка листа1 станет красным
"

[zulus]

If Range("a1") <> "" Then Sheets("Лист1").Tab.Color = 255
При заполнении ячейки А1 любым значением, цвет ярлыка листа1 станет красным

ОНО!!!!!!!!!!!

Код:

vVarSheet.OlePropertyGet("Tab").OlePropertySet("Color", clRed) ;

теперь разберусь как раскрасить только нужные вкладки во множестве формируемых файлов!

здоровья тебе, axel_vo, скорейшего отпуска и всяческих человеческих благ )))))

[axel_vo]

Да ладно, что уж там... 
Только не путай ники, а то axel'ов много на форуме, даже в этой теме есть "_AxeL_", во как!!! Ты же тоже не любишь... когда тебя с большой буквы...