Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/вывести число ПИ, каждый знак в отдельной ячейке - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » вывести число ПИ, каждый знак в отдельной ячейке (Формулы/Formulas)
вывести число ПИ, каждый знак в отдельной ячейке
YBX Дата: Воскресенье, 17.11.2019, 18:51 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день! Помогите плиз! Сам в интернет найти не смог(
Мне нужно значение числа пи в экселе(как можно больше знаков после запятой), только чтобы каждый знак стоял в отдельной ячейки...
Если вопрос не по адресу то сори)))
 
Ответить
СообщениеДобрый день! Помогите плиз! Сам в интернет найти не смог(
Мне нужно значение числа пи в экселе(как можно больше знаков после запятой), только чтобы каждый знак стоял в отдельной ячейки...
Если вопрос не по адресу то сори)))

Автор - YBX
Дата добавления - 17.11.2019 в 18:51
Светлый Дата: Воскресенье, 17.11.2019, 19:27 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1374
Репутация: 366 ±
Замечаний: 0% ±

Excel 2010, 2013
Добрый!
Код
=ПСТР(ПИ();СТРОКА(A1);1)
и растянуть вниз.


Программировать проще, чем писать стихи.
 
Ответить
СообщениеДобрый!
Код
=ПСТР(ПИ();СТРОКА(A1);1)
и растянуть вниз.

Автор - Светлый
Дата добавления - 17.11.2019 в 19:27
bmv98rus Дата: Воскресенье, 17.11.2019, 20:40 | Сообщение № 3
Группа: Проверенные
Ранг: Участник клуба
Сообщений: 2802
Репутация: 483 ±
Замечаний: 0% ±

Excel 2013/2016
Светлый, до 15 знаков исключая запятую. Знать бы что именно надо, а то можено https://u.to/OPq-Fg htfkbpjdfnm :-)


Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Воскресенье, 17.11.2019, 22:18
 
Ответить
СообщениеСветлый, до 15 знаков исключая запятую. Знать бы что именно надо, а то можено https://u.to/OPq-Fg htfkbpjdfnm :-)

Автор - bmv98rus
Дата добавления - 17.11.2019 в 20:40
krosav4ig Дата: Воскресенье, 17.11.2019, 22:09 | Сообщение № 4
Группа: Друзья
Ранг: Старожил
Сообщений: 2213
Репутация: 921 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Вариант через Power Query, 1000000 символов с http://www.eveandersson.com/pi/digits/1000000
[vba]
Код
let
    Source = Table.SelectRows(Web.Page(Web.Contents("http://www.eveandersson.com/pi/digits/1000000"))[Data]{0}[Children]{0}{[Name="BODY"]}[Children],each [Name]="TABLE"),
    fn=(_)=>[Children]{0}?[Children]{0}?[Children]{0}?[Children]{0}?[Children]{0}?[Text]?,
    Pi = Text.Clean(fn(Table.SelectRows(Source, each fn(_) <> null)){0})&Text.Repeat(" ",498),
    Digits = Table.FromRows(List.Transform(Splitter.SplitTextByRepeatedLengths(2900)(Pi),Text.ToList),List.Transform({1..2900},Text.From))
in
    Digits
[/vba]
в файле загружено 200 символов, для загрузки остальных обновить запрос
К сообщению приложен файл: Pi_1000000_2900.xlsx(87.4 Kb)


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
СообщениеВариант через Power Query, 1000000 символов с http://www.eveandersson.com/pi/digits/1000000
[vba]
Код
let
    Source = Table.SelectRows(Web.Page(Web.Contents("http://www.eveandersson.com/pi/digits/1000000"))[Data]{0}[Children]{0}{[Name="BODY"]}[Children],each [Name]="TABLE"),
    fn=(_)=>[Children]{0}?[Children]{0}?[Children]{0}?[Children]{0}?[Children]{0}?[Text]?,
    Pi = Text.Clean(fn(Table.SelectRows(Source, each fn(_) <> null)){0})&Text.Repeat(" ",498),
    Digits = Table.FromRows(List.Transform(Splitter.SplitTextByRepeatedLengths(2900)(Pi),Text.ToList),List.Transform({1..2900},Text.From))
in
    Digits
[/vba]
в файле загружено 200 символов, для загрузки остальных обновить запрос

Автор - krosav4ig
Дата добавления - 17.11.2019 в 22:09
Мир MS Excel » Вопросы и решения » Вопросы по Excel » вывести число ПИ, каждый знак в отдельной ячейке (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!