Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Валерий Ахметович Набиуллин aka ValeryN Статус: Мастер-Эксперт Рейтинг: 5131 ∙ повысить рейтинг »

Роман Селиверстов Статус: Советник Рейтинг: 4995 ∙ повысить рейтинг »

Гуревич Александр Львович Статус: Профессионал Рейтинг: 4705 ∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программное обеспечение / Пакет Microsoft Office

Номер выпуска:	917
Дата выхода:	08.06.2012, 21:30
Администратор рассылки:	Кочетков Василий [Vasiliy83] (Профессионал)
Подписчиков / экспертов:	170 / 134
Вопросов / ответов:	3 / 10

Консультация # 76398: Здраствуйте, уважаемые эксперты. У меня 2 вопроса по Excel. 1. Как через функцию ЕСЛИ прописать 2 ограничения (рост и возраст), оба ограничения должны работать, и значения да, нет. Если ограничений больше, как их прописывать, интересует сама форма записи. 2. Одна дура создала базу данных из папок. В одной папке (условно А) куча па...

Консультация # 76398:

Здраствуйте, уважаемые эксперты. У меня 2 вопроса по Excel.

1. Как через функцию ЕСЛИ прописать 2 ограничения (рост и возраст), оба ограничения должны работать, и значения да, нет. Если ограничений больше, как их прописывать, интересует сама форма записи.

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

Дата отправки: 19.02.2007, 11:26
Вопрос задал: Nell
Всего ответов: 4
Страница онлайн-консультации »

Консультирует Genyaa:

Здравствуйте, Nell!

1. Допустим, что в A1 - значение роста, B1 - значение возраста, а ограничение должно быть таковым, что только если оба значения больше определенного значения должно возвращаться значение, в противном случае должна возвращаться пустая строка:

=ЕСЛИ(И(А1>=175;B1>=18);"Подходит!";"")

Функция И возвращает значение логического И аргументов.
Для логического ИЛИ есть подобная функция - ИЛИ.
Есть также функция НЕ (отрицание).

2. Можно конечно. Я бы делал это через создание списка всех папок с помощью dir в коммандном режиме, а потом открыл бы получившийся файл в Excel:

- Кнопка "Пуск" операционной системы
- "Выполнить..."
- cmd
- перейти в тот директорий, который нужно с помощью команды cd
- ввести команду:

dir /a:d /b /s > MyDirList.txt

- exit
- войти в Excel, найти и открыть файл MyDirList.txt и работать с ним.

Консультировал: Genyaa Дата отправки: 19.02.2007, 11:51

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Присяжнюк Анатолий Васильевич:

Здравствуйте, Nell!
В ответ на первый вопрос: можно конечно использовать сложную форму записи условия, но я бы рекомендовал Вам (коль возник такой вопрос, то и проблемы будут потом нарастать) использовать три дополнительных столбца: в одном обрабатывать ограничения по возрасту, во втором - по росту (или наоборот ), а в третьей - объединить соблюдение обеих условий. При таком подходе Вы сможете построить любую сложную формулу и при любом количестве ограничений.
Это яркая демонстрация принципа: "Разделяй и властвуй".
По вопросу № 2: мне не понятно - если там все папки пустые, то что же Вы собираетесь экспортировать в Excel?
С уважением - АВП

Консультировал: Присяжнюк Анатолий Васильевич Дата отправки: 19.02.2007, 17:36

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Rewer8:

Здравствуйте, Nell!
1. Чтобы использовать два ограничения и более нужно использовать
в функции ЕСЛИ еще вложенную функцию И, например функция
=ЕСЛИ(И(A1=1;B1=1);"Истина";"Ложь")
вернет истина если в ячейках А1 и В1 будут записаны единицы и ложь в любом другом случае
В функции И может быть более двух параметров

2. Честно говоря не совсем понимаю как можно создать базу даннных
из папок. Но попробуйте связать данные папки с файлом в Ексел
Выберите меню вставка-объект-из файла и выберите путь
Это конечно не совсем то, но может поможет
если что то пишите в ящик

Консультировал: Rewer8 Дата отправки: 19.02.2007, 22:05

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Muhammedov Abdurohman:

Здравствуйте, Nell!
1. Могу помож толко с макросом.
Для этого
1. Alt+F8
2. Задайте имя yes
3. Создат
4. Потом поставте эту код

Если ест, вопросы, то личку

Приложение:
Sub yes()a = ActiveSheet.Cells(1, 1)b = ActiveSheet.Cells(1, 2)If a > 15 And b > 185 ThenActiveSheet.Cells(1, 3) = "yes"Else: ActiveSheet.Cells(1, 3) = "no"End IfEnd Sub

Консультировал: Muhammedov Abdurohman Дата отправки: 20.02.2007, 00:20

Рейтинг ответа: 0 поблагодарить эксперта

Консультация # 113909:

Уважаемы знатоки. помогите пожалуйста.
Мне нужно выполнить следующее задание:
В ячейки С2, С3, С4 поместить названия левой, средней и правой цифр трехзначного числа из ячейки В1.
Формулу я нашла =БАТТЕКСТ(ПСТР(B1;1;1)).
Но вот незадача. Ответ у меня выходит в виде иероглифов- สองบาทถ้วน. Что делать?

Дата отправки: 14.12.2007, 00:05
Вопрос задал: lyalya
Всего ответов: 2
Страница онлайн-консультации »

Консультирует Gh0stik (Академик):

Здравствуйте, lyalya!

Вы просто не внимательно прочитали справку по функции:
БАТТЕКСТ - Преобразование числа в текст на тайском языке.

Ваша же задача решается при помощи функции ПСТР().
=ПСТР(B1;1;1) - первая цифра числа.
=ПСТР(B1;2;1) - вторая цифра числа.
=ПСТР(B1;3;1) - третья цифра числа.

Good Luck!!!

Консультировал: Gh0stik (Академик) Дата отправки: 14.12.2007, 00:50

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Anton09:

Здравствуйте, lyalya!
насколько я понял Вам надо по числу, например, 123, получить в одной ячейке "один", в другой "два", в третьей "три". Разобьем проблему на 2 части:
1. Разделение числа
2. Представление числа в виде строки

Первая проблема решается легко: допустим что у Вас число исходное в ячейке B1 тогда
в ячейке C2 (там будут сотни) пишите =ОТБР(B1/100)
в ячейке C3 (там будут десятки) пишите =ОТБР((B1-C2*100)/10)
в ячейке C4 (там будут единицы) пишите =ОТБР(B1-C2*100-C3*10)
Таким образом у Вас получится С2=1, С3=2, С4=3.

Вторая проблема сложнее с стандартными функциями Excel не решается, поэтому предлагаю такой вариант: выбираете в меню Сервис / Макрос / Редактор Visual Basic.
Далее выбираете Insert / Module и туда вставляете код из приложения.
После этого можно пользоваться функцией Money2String(ячейка), которая переводит число из выбранной ячейки в строковое представление

В результате фунцкии в ячейках будут
=Money2String(ОТБР(B1/100))
=Money2String(ОТБР((B1-C2*100)/10))
=Money2String(ОТБР(B1-C2*100-C3*10))

Будут проблемы, обращайтесь!

Приложение:
Function Money2String(CellValue As Long) As String Call SummaString(Summa$, CellValue, 1, "", "", "") Money2String = Summa$End FunctionSub SummaString(Summa$, Source As Long, Rod%, w1$, w2to4$, w5to10$)\'\' "Сумма прописью":\' преобразование числа из цифрого вида в символьное\' ==================================================\' Исходные данные:\' Source - число от 0 до 2147483647 (2^31-1)\' Eсли нужно оперировать с числами > 2 147 483 647\' замените описание переменных Source и TempValue на "AS DOUBLE"\'\' далее нужно задать информацию о единице изменения\' Rod% = 1 - мужской, = 2 - женский, = 3 - средний\' название единицы изменения:\' w1$ - именительный падеж единственное число (= 1)\' w2to4$ - родительный падеж единственное число (= 2-4)\' w5to10$ - родительный падеж множественное число ( = 5-10)\'\' Rod% должен быть задано обязательно, название единицы може т быть\' не задано = ""\' ———————————————-\' Результат: Summa$ - запись прописью\'\'================================ Dim TempValue As Long \' If Source& = 0 Then Summa$ = RTrim$("ноль " + w5to10$): Exit Sub End If \' TempValue = Source: Summa$ = "" \' единицы Call SummaStringThree(Summa$, TempValue, Rod%, w1$, w2to4$, w5to10$) If TempValue = 0 Then Exit Sub \' тысячи Call SummaStringThree(Summa$, TempValue, 2, "тысяча", "тысячи", "тысяч") If TempValue = 0 Then Exit Sub \' миллионы Call SummaStringThree(Summa$, TempValue, 1, "миллион", "миллиона", "миллионов") If TempValue = 0 Then Exit Sub \' миллиардов Call SummaStringThree(Summa$, TempValue, 1, "миллиард", "миллиарда", "миллиардов") If TempValue = 0 Then Exit Sub \' \' Eсли нужно оперировать с числами > 2 147 483 647 \' измените тип переменных (см. выше) и добавьте эту строку для триллионов: \' CALL SummaStringThree(Summa$, TempValue#, 1, "трилллион", "триллиона", "т риллионов") \' IF TempValue# = 0 THEN EXIT SUB \' \' Что идет после триллионов, я плохо представляю... \'End SubSub SummaStringThree(Summa$, TempValue As Long, Rod%, w1$, w2to4$, w5to10$)\'\' Формирования строки для трехзначного числа:\' (последний трех знаков TempValue \' Eсли нужно оперировать с числами > 2 147 483 647 \' замените в описании на TempValue AS DOUBLE\'==================================== Dim Rest%, Rest1%, EndWord$, s1$, s10$, s100$ \' Rest% = TempValue& Mod 1000 TempValue& = TempValue& \ 1000 If Rest% = 0 Then \' последние три знака нулевые If Summa$ = "" Then Summa$ = w5to10$ + " " Exit Sub End If \' \' начинаем подсчет с Rest EndWord$ = w5to10$ \' сотни Select Case Rest% \ 100 Case 0: s100$ = "" Case 1: s100$ = "сто " Case 2: s100$ = "двести " Case 3: s100$ = "триста " Case 4: s100$ = "четыреста " Case 5: s100$ = "пятьсот " Case 6: s100$ = "шестьсот " Case 7: s100$ = "семьсо т " Case 8: s100$ = "восемьсот " Case 9: s100$ = "девятьсот " End Select \' \' десятки Rest% = Rest% Mod 100: Rest1% = Rest% \ 10 s1$ = "" Select Case Rest1% Case 0: s10$ = "" Case 1 \' особый случай Select Case Rest% Case 10: s10$ = "десять " Case 11: s10$ = "одиннадцать " Case 12: s10$ = "двенадцать " Case 13: s10$ = "тринадцать " Case 14: s10$ = "четырнадцать " Case 15: s10$ = "пятнадцать " Case 16: s10$ = "шестнадцать " Case 17: s10$ = "семнадцать " Case 18: s10$ = "восемнадцать " Case 19: s10$ = "девятнадцать " End Select Case 2: s10$ = "двадцать " Case 3: s10$ = "тридцать " Case 4: s10$ = "сорок " Case 5: s10$ = "пятьдесят " Case 6: s10$ = "шестьдесят " Case 7: s10$ = "семьдесят " Case 8: s10$ = "восемьдесят " Case 9: s10$ = "девяносто " End Select \' If Rest1% <> 1 Then \' единицы Select Case Rest% Mo d 10 Case 1 Select Case Rod% Case 1: s1$ = "один " Case 2: s1$ = "одна " Case 3: s1$ = "одно " End Select EndWord$ = w1$ Case 2 If Rod% = 2 Then s1$ = "две " Else s1$ = "два " EndWord$ = w2to4$ Case 3: s1$ = "три ": EndWord$ = w2to4$ Case 4: s1$ = "четыре ": EndWord$ = w2to4$ Case 5: s1$ = "пять " Case 6: s1$ = "шесть " Case 7: s1$ = "семь " Case 8: s1$ = "восемь " Case 9: s1$ = "девять " End Select End If \' \' сборка строки Summa$ = RTrim$(RTrim$(s100$ + s10$ + s1$ + EndWord$) + " " + Summa$)End Sub

Консультировал: Anton09 Дата отправки: 14.12.2007, 10:12

Рейтинг ответа: 0 поблагодарить эксперта

Консультация # 127569:

Здравствуйте уважаемые!
Чем можно прочесть файлы DOCX?
Установлен office2003.

Дата отправки: 16.03.2008, 13:53
Вопрос задал: vovan119 (Посетитель)
Всего ответов: 4
Страница онлайн-консультации »

Консультирует Кокин Антон Вадимович (Студент):

Здравствуйте, vovan119!
Это файлы, созданные в новой версии редактора Word 2007. Их можно прочесть, если установить специальную надстройку к редактору Word 2003 - "Пакет обеспечения совместимости Microsoft Office для форматов файлов Word, Excel и PowerPoint 2007". Скачать можно на сайте Microsoft

Консультировал: Кокин Антон Вадимович (Студент) Дата отправки: 16.03.2008, 14:13

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Dimoncon21 (Студент):

Здравствуйте, vovan119!

DOCX – расширение документов Word нового офисного пакета от Microsoft.
Существует несколько способов решить вашу проблему:
1. Пойти в магазин и купить лицензионную версию нового офиса(2007), установить ее и радоваться жизни.
2. Можно установить пакет от Microsoft обеспечения совместимости который дает возможность открывать, редактировать и сохранять файлы в новых форматах, которые используются в программах Word, Excel и PowerPoint 2007. Размер файла 27,6 мегабайт. (По слухам сильно тормозит Word).
ссылка для скачивания пакет совместимости от Microsoft
3. DOCX представляет собой zip-архив, содержащий текст в виде XML, а так же всю необходимую графику, поэтому переименовываем ваш file.docx в file.zip, распаковываем и находим в папке word, document.xml. Открыв его в ворде, увидим текст документа, обрамлен ный тегами.
4. По ссылке http://docx-converter.com, работает конвертер, который после обработки файла перешлет ссылку на страницу результата, на ваш почтовый ящик. Таких конвертеров - много, любой поисковик, выдаст массу ссылок.

Удачи!

Консультировал: Dimoncon21 (Студент) Дата отправки: 16.03.2008, 14:22

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Charlie (Студент):

Здравствуйте, vovan119!

Например, Word (Office) 2007, OpenOffice... Или вам нужно и редактирование, а Office2007 ставить нет желания-возможности? Некоторые читаются и в Word2003...В крайнем случае, если вам не важно форматирование, текст можно прочитать любым файловым менеджером (Total Commander, Far и т.п.), покопавшись (прежде всего, в файлах .xml, document.xml) в этом самом имя.docx файле, войдя в него, как в архив... Только просмотрщик должен иметь просмотр в unicode-кодировке и UTF-8 (например, Unicode Wizard - плагин в Far\'e).

Удачи

Консультировал: Charlie (Студент) Дата отправки: 16.03.2008, 20:26

Рейтинг ответа: 0 поблагодарить эксперта

Консультирует Саша Пименов:

!!!
Здравствуйте, vovan119!
Microsoft Office Word 2007

Консультировал: Саша Пименов Дата отправки: 17.03.2008, 17:13

Рейтинг ответа: 0 поблагодарить эксперта

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль