вывести число ПИ, каждый знак в отдельной ячейке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по Excel » вывести число ПИ, каждый знак в отдельной ячейке (Формулы/Formulas)

YBX

Дата: Воскресенье, 17.11.2019, 18:51 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 37

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

Ответить

Светлый

Дата: Воскресенье, 17.11.2019, 19:27 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1829

Репутация: 510 ±

Замечаний: 0% ±

Excel 2013, 2016

Добрый!

Код

=ПСТР(ПИ();СТРОКА(A1);1)

и растянуть вниз.

Программировать проще, чем писать стихи.

Ответить

bmv98rus

Дата: Воскресенье, 17.11.2019, 20:40 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4107

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

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

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

Сообщение отредактировал bmv98rus - Воскресенье, 17.11.2019, 22:18

Ответить

krosav4ig

Дата: Воскресенье, 17.11.2019, 22:09 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » вывести число ПИ, каждый знак в отдельной ячейке (Формулы/Formulas)

Страница 1 из 1
1