| |
|
|
| | как правильно воспользоваться функцией if, если необходимо найти текст в ячейке и вывести один результат, иначе другой? | |
| |
| |
| |
|
|
| | Анализируем текст ячейки. Результаты анализа записываем в переменную ( типа нашли текст, тогда a=true, если нет тогда a=false )
Далее
if a=true then
выводим результат 1
else
выводим результат2
end if
Если я правильно понял вопрос.
ЗЫ а ваащето есть такая клавиша, как F1. Очень хорошо помогает  | |
| |
| |
| |
|
|
| | Дело в том, что мне нужно в ячейке из набора слов найти определенное.... Спасибо за ответ | |
| |
| |
| |
 41 Кб. |
|
| | никак не могу разобратся, помогите пожалуйста. Вот приведена задача: Условие задачи:
Автотранспортное предприятие выполняет перевозку грузов по маршрутам между городом Чебоксары и городами Москва(650 км), Вильнюс(1520 км), Рига(1670 км), Минск(1430км), Харьков(1470 км). Один тонно-километр перевозок стоит 67 руб. При пересечении границы с Латвией, Литвой или Украиной с грузовика взимается таможенный сбор $5,5 Один грузовик может перевезти не более 30 т груза. Количество груза, перевозимого по каждому маршруту, взять как случайное число из диапазона (30...460)т. Определить стоимость перевозок по каждому маршруту. Построить график и круговую диаграмму стоимости перевозок по маршрутам.
Как в vba записать условие if чтобы проверялось, если это москва или минск то таможсбор=0, иначе присваиваем значение | |
| |
| |
| |
|
|
| | Три на выбор. Первая наверное удобнее, так как аргументом у нее маршрут:
Public Function funCustomChargeByWay(Way) As Currency
If InStr(1, Way, "Москва") > 0 Or InStr(1, Way, "Минск") > 0 Then
funCustomChargeByWay = 0
Else
funCustomChargeByWay = 5.5
End If
End Function
Public Function funCustomChargeByTown(Town) As Currency
If Town = "Москва" Or Town = "Минск" Then
funCustomChargeByTown = 0
Else
funCustomChargeByTown = 5.5
End If
End Function
Public Function funCustomCharge(Town)
Select Case Town
Case "Москва", "Минск"
funCustomCharge = 0
Case "Вильнюс", "Рига", "Харьков"
funCustomCharge = 5.5
Case Else
funCustomCharge = "Такого города не знаю"
End Select
End Function
|
| |
| |
| |
| |
|
|
| | спасибо))) но я все равно не поняла  | |
| |
| |
| |
39 Кб. |
|
| | как вариант слегка меняем экселевскую таблицу:
Маршрут
откуда-куда страна
Чебоксары - Москва Россия
Изменение текста VBA в файле | |
| |
| |
| |
|
|
| | Спасибо за ваши ответы | |
| |
| |
