Jump to content
Модераторы форума - Assembler & Bercana
  • Откройте аккаунт на Диспуте за 5 минут

    Продаете недвижимость, машину, телефон, одежду?  Тысячи  просмотров ежедневно на dispute.az  помогут вам. Бесплатная доска обьявлений.

Excel помогает решать многие проблемы


Recommended Posts

Кстати кто знает как сделатть так чтоб число в одной ячейке возвращалось текстом того числа в другой ячейке???

1987 = Одна тысяча девятьсот восемьдесят семь

Ну или хотяб по инглиш

для этого нужен макрос или add-in "num2text"

Link to comment
Share on other sites

  • 2 months later...
  • Replies 312
  • Created
  • Last Reply

Top Posters In This Topic

Требуется создать телефонный справочник.

1.Нужно чтобы Еxcel сам распределил все имена в алфавитном порядке.

2.Чтобы Excel давал знать при повторном введении одного и того же номера.

Кто ни будь знает как это сделать ?

Заранее благодарю.

Link to comment
Share on other sites

Советую сайт www.firststeps.ru там есть раздел "VBA by Step" изучение создания макросов пошагово.

Также есть и наш сайт www.firststeps.az тоже можно найти полезную инфу, еще есть сайт www.planetaexcel.ru

Самые сложные и нужные формулы это vlookup, sumif, countif, if, это на самом деле универсальная программа.

А мир не без добрых людей.Спс))))

Link to comment
Share on other sites

Требуется создать телефонный справочник.

1.Нужно чтобы Еxcel сам распределил все имена в алфавитном порядке.

2.Чтобы Excel давал знать при повторном введении одного и того же номера.

Кто ни будь знает как это сделать ?

Заранее благодарю.

Создать правило, сортировка по уникальности, в уникальность форматируете по заливке цвета.

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

Link to comment
Share on other sites

вот мои недавние открытия в Эксель: даже не думал что все так просто и гениально!..

Ошибка Вам запрещена загрузка файлов этого типа

выложу скриншот

Link to comment
Share on other sites

вот мои недавние открытия в Эксель: даже не думал что все так просто и гениально!..

Ошибка Вам запрещена загрузка файлов этого типа

выложу скриншот

Alə alə , sən lap xakersənki :)
Link to comment
Share on other sites

Кстати кто знает как сделатть так чтоб число в одной ячейке возвращалось текстом того числа в другой ячейке???

1987 = Одна тысяча девятьсот восемьдесят семь

Ну или хотяб по инглиш

1.Сделайте unzip

2.Сохраните где-то на компьютере и не удаляйте его, если хотите всегда пользоваться функцией.

3.откройте этот файл, который не будет видим в экселе

4.в ячейке, где хотите чтобы выходили слова напишите формулу "=FiguresToLetters(A1)" без кавычек и вместо А1 укажите адрес ячейки где у вас цифры, которые вы хотите "перевести" в буквы

Link to comment
Share on other sites

это - супер программа, недавно купил в интернете видео курс по экселю. супер курс там в деталях учит как пользоваться этой программой в полном ее развороте. все детали по этапно. правда она на англ

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

Link to comment
Share on other sites

To Veld, Excel не входит в установочноый пакет Windows, он входит в пакет MS Office...

еще один интересное решение, выполненное на MS Excel, cпециально для всех Вас...

Код который вы так бережно перекрыли паролем удивительно похож на код содержащийся в модуле свободно распространяемого файла по этому адресу. Вероятность того, что вы и Chip Pearson (Microsoft Most Valuable Professional Excel 1999 - 2008) одно и то же лицо конечно же существует. Иначе ваш поступок по меньшей мере не красив.

В качестве примера желающие могут ниже ознакомиться с кодом в первоисточнике и слегка измененный Goshgar-ом(изменение выделено)

Set ChipLabel = WS.Shapes.AddLabel(msoTextOrientationHorizontal, cCenterX, _

(cCenterY + cFaceRadius / 2), Width:=100, Height:=20)

With ChipLabel

With .TextFrame

.Characters(1, 100).Caption = "From Chip Pearson, www.cpearson.com"

.Characters(1, 100).Font.Bold = True

.Characters(1, 100).Font.Color = RGB(255, 0, 0)

End With

.IncrementLeft ChipLabel.Width * -0.5

.Name = "ChipLabel"

End With

Set ChipLabel = WS.Shapes.AddLabel(msoTextOrientationHorizontal, cCenterX, _

(cCenterY + cFaceRadius / 2), Width:=100, Height:=20)

With ChipLabel

With .TextFrame

.Characters(1, 100).Caption = "From Goshgar to Disput.az"

.Characters(1, 100).Font.Bold = True

.Characters(1, 100).Font.Color = RGB(255, 0, 0)

End With

.IncrementLeft ChipLabel.Width * -0.5

.Name = "ChipLabel"

End With

Link to comment
Share on other sites

  • 4 weeks later...

1.Сделайте unzip

2.Сохраните где-то на компьютере и не удаляйте его, если хотите всегда пользоваться функцией.

3.откройте этот файл, который не будет видим в экселе

4.в ячейке, где хотите чтобы выходили слова напишите формулу "=FiguresToLetters(A1)" без кавычек и вместо А1 укажите адрес ячейки где у вас цифры, которые вы хотите "перевести" в буквы

Гошгар спасибо. Я пытался скачать, но у меня почемуто он его скачал как PHP файл. Это изза секюрити сеттингс которые на работе? или это задумка такая??

Link to comment
Share on other sites

Обьясните плиз принцип действия VLOOKUP

так и не понял))

Могу объяснить на примере телефонной книжки. Смотрите приложенный файл.

Обычная база данных А-Имена В-Номера. Предположим вам надо определить телефонный номер по имени (естесственно не ища визуально). Вы вводите в жёлтую ячейку имя "абонента" и в зелёной ячейке автоматически отображается его номер телефона, а берётся информация из красной таблицы.

Но тут есть свои НО. Информация в первом столбе в базе данных должна быть отсортированна в порядке убывания (в данном случае по алфавиту), вертикальный поиск может вестись слева направо но никак обратно.

Link to comment
Share on other sites

Могу объяснить на примере телефонной книжки. Смотрите приложенный файл.

Обычная база данных А-Имена В-Номера. Предположим вам надо определить телефонный номер по имени (естесственно не ища визуально). Вы вводите в жёлтую ячейку имя "абонента" и в зелёной ячейке автоматически отображается его номер телефона, а берётся информация из красной таблицы.

Но тут есть свои НО. Информация в первом столбе в базе данных должна быть отсортированна в порядке убывания (в данном случае по алфавиту), вертикальный поиск может вестись слева направо но никак обратно.

ммм... ясно)

=VLOOKUP(E3,A:B,2,B:B)

а что означает 2-ка в середине формулы ?

Link to comment
Share on other sites

ммм... ясно)

=VLOOKUP(E3,A:B,2,B:B)

а что означает 2-ка в середине формулы ?

так и знал что вы это спросите. 2 означает порядковый номер столбца в котором надо искать, при этом столб номер 1 это сам исходный столб. Мне тоже непонятно зачем это, но пути екзеля неисповедимы.

Так еслибы у нас был ещё и третий столб указывающий скажем число контуров или адрес абонента и нам потребовалось найти адрес абонента по имени наша формула выглядела немного иначе =VLOOKUP(E3,A2:С9,3,С2:С9)

Link to comment
Share on other sites

так и знал что вы это спросите. 2 означает порядковый номер столбца в котором надо искать, при этом столб номер 1 это сам исходный столб. Мне тоже непонятно зачем это, но пути екзеля неисповедимы.

Так еслибы у нас был ещё и третий столб указывающий скажем число контуров или адрес абонента и нам потребовалось найти адрес абонента по имени наша формула выглядела немного иначе =VLOOKUP(E3,A2:С9,3,С2:С9)

ммм... ок, спасибо :)

я просто весь столбец взял поэтому.

Link to comment
Share on other sites

Нужна ваша помощь)

Хочу дать такую функцию, помогите)

сорри аттач не могу сделать, обьясню так

есть 4 столбца:

А В С D

Фарид 1458 Фарид 1460

Эльмар 2741 Эльмар 2741

Джейхун 2157 Джейхун 2157

1) Нужно задать такую формулу, если счет Фарид(А) в (В) равен счету Фарида(С) в (D)

то пусть показывает "0", если нет то "1"

2) Нужно задать такую формулу, если счет Фарид(А) в (В) равен счету Фарида(С) в (D)

то пусть показывает "0", если нет то "1"..... Но здесь разница между единицами в В и D могут быть на 100 допустимым. Т.е. если разница между ними в 100 единиц, то путсь показывает опять "0"

Link to comment
Share on other sites

Для первого случая нужна формула "если" указанная на рисунке А

ДЛя второго случая наверняка есть и более простое решение, но я решил сделать вот так. В столбике Е вводится формула вычисляющая разницу двух сравниваемых ячеек, а в шестой ячейке уже используется формула "Если"

Link to comment
Share on other sites

Дорошие участники форума помогите пожалуйста.

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

Link to comment
Share on other sites

Уважаемые знатоки Exel,

Могли бы Вы подсказать каким образом можно составить что нибуди такое что будет следить за датами, т.е. я задаю срок или конкретную дату....и путем окрашивания в например красный цвет программа предупреждает что до события остался один месяц или неделя.... возможно ли такое сотворить?

Link to comment
Share on other sites

Уважаемые знатоки Exel,

Могли бы Вы подсказать каким образом можно составить что нибуди такое что будет следить за датами, т.е. я задаю срок или конкретную дату....и путем окрашивания в например красный цвет программа предупреждает что до события остался один месяц или неделя.... возможно ли такое сотворить?

Функция называется "условное форматирование" , "Conditional formatting".

Link to comment
Share on other sites

Дорошие участники форума помогите пожалуйста.

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

Функция сквозных строк?

Предварительный просмотр -> Параметры страницы -> Лист -> Сквозные строки (выделить нужный диапазон)

\\ кажется, так: ActiveSheet.PageSetup.PrintTitleRows = "$1:$2" //

Link to comment
Share on other sites

Вы хоть намекните где это ;)

До 2003 версии Меню-формат-Условное форматирование

Menu-Format-Conditional Formatting

После 2003 на панели "Home"

А ещё есть полезная кнопочка "F1"

Link to comment
Share on other sites

douphin, сперва в какой-то пустой ячейке (положим, А1) пишете формулу:

=TODAY()

Это будет Ваша текущая дата. Далее, в другой ячейке (для примера возьмём условно В1) пишете итоговую дату, например, 29/01/2011.

Затем, можно сделать так (я лично прибегла к этому, но может кто-то предложит идею получше):

в очередной пустой ячейке (А5, например) пишете формулу разницы текущей и конечной даты

=В1-А1

Далее, в другой пустой ячейке (допустим, С1) указываете число, которое будет обозначать необходимый остаток времени, например, 7 (если Вы хотите, чтобы высветилось оповещение, что осталось меньше недели). Или, например, 1 (остался 1 день до условной конечной даты).

Теперь, основной момент:

становитесь на нашу ячейку А5, в приложении Home есть секция Styles, там есть Conditional Formatting. Внутри него выбираете New Rule.

Select a rule type - выбираете Format only cells that contain

ниже Format only cells with - выбираете Cell Value, рядом с ним отмечаете Less than, а в третьем поле нашу ячейку С1 (ту самую, куда мы вписали остаточное количество дней, чтобы правило, которое мы создаём, отталкивалось от этого условия).

А потом ниже есть Preview, там нажмете на кнопку Format, и можете закрасить красным цветом, например. Или же любое другое форматирование ячейки задать.

И всё, жмёте ОК. Готово! :)

Попробуйте. Если что - задайте вопрос тут, постараемся помочь, в силу своих знаний.

Удачи!

Edited by TEDA
Link to comment
Share on other sites

douphin, сперва в какой-то пустой ячейке (положим, А1) пишете формулу:

=TODAY()

Это будет Ваша текущая дата. Далее, в другой ячейке (для примера возьмём условно В1) пишете итоговую дату, например, 29/01/2011.

Затем, можно сделать так (я лично прибегла к этому, но может кто-то предложит идею получше):

в очередной пустой ячейке (А5, например) пишете формулу разницы текущей и конечной даты

=В1-А1

Далее, в другой пустой ячейке (допустим, С1) указываете число, которое будет обозначать необходимый остаток времени, например, 7 (если Вы хотите, чтобы высветилось оповещение, что осталось меньше недели). Или, например, 1 (остался 1 день до условной конечной даты).

Теперь, основной момент:

становитесь на нашу ячейку А5, в приложении Home есть секция Styles, там есть Conditional Formatting. Внутри него выбираете New Rule.

Select a rule type - выбираете Format only cells that contain

ниже Format only cells with - выбираете Cell Value, рядом с ним отмечаете Less than, а в третьем поле нашу ячейку С1 (ту самую, куда мы вписали остаточное количество дней, чтобы правило, которое мы создаём, отталкивалось от этого условия).

А потом ниже есть Preview, там нажмете на кнопку Format, и можете закрасить красным цветом, например. Или же любое другое форматирование ячейки задать.

И всё, жмёте ОК. Готово! :)

Попробуйте. Если что - задайте вопрос тут, постараемся помочь, в силу своих знаний.

Удачи!

Спасибо ТЕДА!

Как сладок миг когда до этого доходишь собтвенным умом :)

Link to comment
Share on other sites

douphin, сперва в какой-то пустой ячейке (положим, А1) пишете формулу:

И всё, жмёте ОК. Готово! :)

Попробуйте. Если что - задайте вопрос тут, постараемся помочь, в силу своих знаний.

Удачи!

вот собственно первый вопрос....по Вашей схеме красным окрашивается та в которой указанно количество дней до истечения срока...а возможно ли сделать так чтобы закрашивалась ячейка В1 из Вашего примера?.

Заранее благодарю

Link to comment
Share on other sites

вот собственно первый вопрос....по Вашей схеме красным окрашивается та в которой указанно количество дней до истечения срока...а возможно ли сделать так чтобы закрашивалась ячейка В1 из Вашего примера?.

Заранее благодарю

А вот чтоб ячейка или цвет фона окрашивались в нужный цвет, соответственно Вам требуется поставить это как условие "условного форматирования".

Edited by Levengibash
Link to comment
Share on other sites

А вот чтоб ячейка или цвет фона окрашивались в нужный цвет, соответственно Вам требуется поставить это как условие "условного форматирования".

если проделать эту операцию, сохраниться ли условия описанные уважаемой TEDA ??

Link to comment
Share on other sites

если проделать эту операцию, сохраниться ли условия описанные уважаемой TEDA ??

TEDA форматировала столбец указывающий разницу в днях между текущей датой и датой в столбце В.

В моём случае, форматируется столбец В. Поэтому одно второму не мешает, но по моему немного засоряет эфир.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Our picks

    • Известный актер Талех Юзбеков прижег лоб жены сигаретой
      Известный азербайджанский актер Талех Юзбеков прижег сигаретой лоб жены.
      Об этом сообщила сама супруга артиста, блогер Хатира Юзбекова.
      Она показала след от ожога на лбу своим подписчикам в Instagram.
      "Да, муж прижег мне лоб сигаретой", - сказала она.
      Хатира Юзбекова не предоставила подробной информации о случившемся.
      Отметим, что у Талеха и Хатиры Юзбековых двое детей.  https://www.instagram.com/reel/C6Va1qjuNjZ/?utm_source=ig_embed&ig_rid=fec0e9dd-befb-44ea-ab5e-6e57f827531b   https://ru.oxu.az/society/865516  https://ru.baku.ws/video/193254  
      .
        • Confused
      • 6 replies
    • Стали известны подробности трагикомического происшествия, случившегося с жителем Баку
      Стали известны некоторые подробности трагикомического происшествия, случившегося с жителем Баку.
      Как передает xezerxeber.az, случай был зафиксирован около 07:00 по адресу: Сураханский район, поселок Гарачухур, улица Фармана Керимзаде, 67.
      По словам соседей, камень, которым было закрыто отверстие бака с водой, упал внутрь и нанес определенные повреждения. Хозяин дома решил вытащить камень и починить резервуар, но застрял в отверстии. Он находился в таком положении примерно 40 минут.
      На место происшествия незамедлительно прибыли сотрудники Службы спасения особого риска Министерства по чрезвычайным ситуациям. Они вызволили мужчину (1986 г.р.) с помощью специальных инструментов.
      Подробнее - в сюжете:
      13:35
      На горячую линию "112" Министерства по чрезвычайным ситуациям (МЧС) Азербайджана поступила информация о том, что на территории поселка Гарачухур Сураханского района столицы один человек оказался в беспомощном состоянии.
      Об этом сообщили в МЧС.
      На место происшествия незамедлительно были направлены сотрудники Службы спасения особого риска службы.
      При оценке оперативной обстановки выяснилось, что Т.Мамедов (1986 г.р.) проводил ремонтные работы в резервуаре для воды глубиной 2 метра и диаметром 1,5 метра в частном доме и не смог выбраться из него.
      Сотрудники  службы спасли мужчину с помощью спецтехники.
        • Sad
        • Haha
      • 76 replies
    • Хлеб, обогащенный железом, будут продавать в Азербайджане
      Эксперт отметила, что принятию этого решения предшествовали исследования, которые проводились в различных регионах страны.  
        • Like
      • 110 replies
    • В Баку в результате несчастного случая скончалась 21-летняя модель
      В Баку скончалась 21-летняя девушка.
      Как передает Qafqazinfo, проживающая в доме на Московском проспекте в Насиминском районе столицы Камила Гасанова (2003 г.р.), скончалась от отравления угарным газом.
      Отмечается, что девушка работала актрисой и моделью и являлась студенткой Бакинского филиала Московского государственного университета.
      По данному факту в прокуратуре Насиминского района проводится расследование.
       
      https://media.az/society/v-baku-21-letnyaya-model-skonchalas-v-rezultate-neschastnogo-sluchaya-foto
        • Sad
        • Confused
      • 170 replies
    • Кому следует воздвигнуть памятник в Баку? - ОПРОС + ВИДЕО
      В городе Баку, где древность сочетается с современностью, важно иметь статуи и памятники на различные темы.
      Интересно, а что об этом думают граждане? Кому, по их мнению, следует поставить памятник в столице?
      Baku TV попытался выяснить это у горожан.
      Оказалось, что граждане также хотели бы увековечить память наших национальных героев и шехидов.
        "Должны быть воздвигнуты памятники всем нашим шехидам. Их должны знать все. Если будут установлены их статуи, гости столицы будут проинформированы о наших шехидах", - сказал один из жителей Баку.
      Подробнее - в сюжете:
       
      • 137 replies
    • В АМУ выступили с заявлением по поводу суицида бывшего главного педиатра
      У нас каких-либо новых назначений на руководящие должности не производилось.
      Об этом в ответ на запрос Oxu.Az заявила завотделом по связям с общественностью Азербайджанского медицинского университета (АМУ) Гюнель Асланова.
      • 56 replies
    •  Кровати односпальные, двуспальные и двухъярусные
      Спальная мебель "КЛАССИКА"
       

       
        • Upvote
        • Like
      • 241 replies
    • В Азербайджане повысились цены на услуги такси: что говорят в компаниях и AYNA?
      В последнее время в стране наблюдается рост цен на услуги такси.
      Как сообщает Xezerxeber.az, водители утверждают, что фиксируется уменьшение количества автомобилей, так как машины производства 1999 и 2000 годов сняты с эксплуатации. Это, в свою очередь, также влияет на цены.
      Между тем эксперт по транспорту Ясин Мустафаев отметил, что наряду с ценой важно повышать и качество предоставляемых услуг. 
      По данному вопросу редакция также обратились в AYNA.
      Там отметили, что, согласно новым правилам, юридические лица и частные предприниматели, желающие осуществлять перевозку пассажиров на такси, должны действовать на основании соответствующих разрешений. Прежде всего им необходимо получить пропускное удостоверение и пропускную карту.
      По поводу повышения цен в компаниях по предоставлению услуг такси привели разные доводы.
      Так, в Bolt отметили, что заказы в системе формируются на основе спроса и предложения. «Просим водителей привести свою деятельность в соответствие с требованиями законодательства. В противном случае заказ со стороны Bolt не будет отправлен владельцам этих автомобилей», - отметили в компании.
      В свою очередь в Uber заявили, что окончательная цена поездки зависит от многих факторов, таких как соотношение свободных автомобилей в конкретной локации и желающих заказать такси, расстояние и продолжительность поездки, заторы. Чем меньше свободных водителей, тем выше может быть цена поездки.
      Представляем подробный видеоматериал по теме:
      https://media.az/society/1067959052/v-azerbaydzhane-povysilis-ceny-na-uslugi-taksi-video/
        • Facepalm
      • 15 replies
  • Recently Browsing   0 members, 0 guests

    • No registered users viewing this page.
×
×
  • Create New...