Как из цифр получить слово

Примечание: Этот код автоматизирует преобразование чисел в текст на всем компьютере.

Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace > 0 Then Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _ "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Dollars Case "" Dollars = "No Dollars" Case "One" Dollars = "One Dollar" Case Else Dollars = Dollars & " Dollars" End Select Select Case Cents Case "" Cents = " and No Cents" Case "One" Cents = " and One Cent" Case Else Cents = " and " & Cents & " Cents" End Select SpellNumber = Dollars & Cents End Function ' Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) ' Convert the hundreds place. If Mid(MyNumber, 1, 1) <> "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred " End If ' Convert the tens and ones place. If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function ' Converts a number from 10 to 99 into text. Function GetTens(TensText) Dim Result As String Result = "" ' Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19. Select Case Val(TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve" Case 13: Result = "Thirteen" Case 14: Result = "Fourteen" Case 15: Result = "Fifteen" Case 16: Result = "Sixteen" Case 17: Result = "Seventeen" Case 18: Result = "Eighteen" Case 19: Result = "Nineteen" Case Else End Select Else ' If value between 20-99. Select Case Val(Left(TensText, 1)) Case 2: Result = "Twenty " Case 3: Result = "Thirty " Case 4: Result = "Forty " Case 5: Result = "Fifty " Case 6: Result = "Sixty " Case 7: Result = "Seventy " Case 8: Result = "Eighty " Case 9: Result = "Ninety " Case Else End Select Result = Result & GetDigit _ (Right(TensText, 1)) ' Retrieve ones place. End If GetTens = Result End Function ' Converts a number from 1 to 9 into text. Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five" Case 6: GetDigit = "Six" Case 7: GetDigit = "Seven" Case 8: GetDigit = "Eight" Case 9: GetDigit = "Nine" Case Else: GetDigit = "" End Select End Function

Примечание: Эта функция работает только для текущей книги. Чтобы использовать эту функцию в другой книге, необходимо повторить действия по копированию и вкопии кода в нее.

Использование функции SpellNumber в отдельных ячейках

1. Введите формулу =SpellNumber(A1)в ячейку, в которой нужно отобразить записанное число, где A1 — это ячейка с числом, преобразуемом в ячейку. Вы также можете ввести значение вручную, например =SpellNumber(22,50).
2. Нажмите ввод, чтобы подтвердить формулу.

Сохранение книги с функцией SpellNumber

В Excel не удается сохранить книгу с функциями макроса в стандартном формате книги без макроса (XLSX). Если нажать кнопку «>сохранить». Откроется диалоговое окно проекта VB. щелкните Нет.

Вы можете сохранить файл как книгу Excel Macro-Enabled (XLSM), чтобы сохранить его в текущем формате.

1. На вкладке Файл выберите команду Сохранить как.
2. В меню «Тип сохранения» выберите пункт «Macro-Enabled Excel».
3. Нажмите кнопку Сохранить.

Как делать интересные вещи с калькулятором

Попросите добровольца выбрать в уме число от 1 до 9. Объясните, что назовете это число в конце фокуса. Сделайте вид, что читаете мысли добровольца, когда он или она будут загадывать число.

Попросите добровольца с помощью калькулятора умножить выбранное число на 9, а затем на 12345679. Обратите внимание, что во втором числе нет цифры 8. Убедитесь, что доброволец умножил выбранное число на 9, а затем на 12345679 (без 8).

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

Подсказка: если вы не хотите раскрывать секрет фокуса, попросите добровольца нажать на клавишу со знаком равенства (=) и сразу передать вам калькулятор, чтобы доброволец не видел результат умножения.

Посмотрите на экран и произнесите загаданное число. На экране калькулятора отобразится число, состоящее из повторяющейся одной цифры — эта цифра и является загаданным числом.

• Например, если загадано число 1, на экране калькулятора отобразится число 111111111.

Фокус 2

Как показать фокус с числом 73

Напишите число «73» на листе бумаги, сложите его и отдайте добровольцу. Никому не показывайте написанное число. Вы раскроете это «секретное» число в конце фокуса.

Попросите добровольца загадать 4-значное число и дважды ввести его в калькулятор. Можно загадать любое 4-значное число — передайте калькулятор добровольцу и попросите его ввести число.

• Например, если доброволец загадал число 7893, он или она должны ввести число 78937893.

Заявите, что число нацело делится на 137. Затем попросите добровольца разделить 8-значное число на 137. Запомните: любое 8-значное число, составленное из двух одинаковых 4-значных чисел, нацело делится на 137.

• Например, 78937893/137 = 576189.

Подсказка: это работает, потому что составление двух одинаковых 4-значных чисел равнозначно умножению одного 4-значного числа на 10001, а число 10001 нацело делится на 137.

Попросите добровольца разделить полученный результат на исходное 4-значное число. Если доброволец правильно следовал вашим инструкциям, он получит число 73 (при любом загаданном числе).

• Например, 78937893/137 = 576 189. Теперь доброволец должен разделить 576189 на 7893.

Подсказка: это работает, потому что 10001 = 137 x 73. Разделив 8-значное число на 137, вы получите число, равное загаданному число, умноженному на 73. Таким образом, если разделить это число на загаданное 4-значное число, каждый раз будет получаться число 73.

Попросите добровольца огласить «секретное» число. Для этого доброволец должен развернуть сложенный лист бумаги и показать его аудитории — люди будут в восторге, увидев на бумаге число 73.

ФОКУС 3

Попросите добровольца в уме загадать 3-значное число и дважды ввести его в калькулятор. Экран калькулятора показывать вам не нужно. Смотрите на добровольца так, как будто читаете его или ее мысли.

• Например, доброволец ввел число 123123.

Заявите, что число делится на 11, и попросите добровольца проверить это. Пусть доброволец проверит это и скажет аудитории, что вы правы.

• В нашем примере 123123/11 = 11193.

Попросите добровольца разделить полученный результат на 13. Заявите, что последнее полученное число делится на 13. Пусть доброволец разделит результат на 13, чтобы подтвердить ваше заявление.

• Например, если последним результат было число 11193, то 11193/13 = 861.

Попросите добровольца разделить полученный результат на загаданное трехзначное число. Напомните, что загадывалось трехзначное число, которое дважды вводилось в калькулятор. Попросите добровольца проверить, что он или она разделили результат именно на 3-значное, а не на 6-значное число.

• Например, если последним результатом было число 861, а загаданным — число 123, то 861/123 = 7.

Заявите, что на экране калькулятора отображается число 7. Скажите это аудитории, не глядя на экран калькулятора. Попросите добровольца показать экран аудитории, чтобы подтвердить, что вы правы.

• Фокус можно переиграть. Для этого попросите добровольца разделить результат на 7 в шаге 3, а потом на последнем шаге заявите, что на экране калькулятора отображается число 13.

Разделите результат на 13 в шаге 3 — получится число 7 и вы предскажете удачу, или разделите результат на 7 в шаге 3 — получится число 13 и вы предскажете невезение.

Комментарии

Комментарий: Спасибо за эту статью! Очень интересно будет поиграть с другом в эти фокусы и удивить его! Желаю удачи!

Сочувствую
Возмутительно
Нравится Всего 19 человек

Другие материалы
в разделе Новости компании

• ErichKrause участвует в выставке AMBIENTE 2024 во Франкфурте
• «КанцПарк Time»: первый выпуск эксклюзивного журнала для партнеров проекта в 2024 году!
• Срочно нужен твой голос! Выбираем лидеров ONLINE этапа премии ЗОЛОТАЯ СКРЕПКА 2024.
• Сезон обучающих мероприятий от ГК «САМСОН» стартовал в Крыму
• С днем российского студенчества!
• Алгоритмы будущего канцелярского рынка 2024-2027 Отраслевая дискуссия форума ГКВ

Поставить свой Like
в любимых социальных сетях
Всё для интересного досуга, творчества и хобби
ErichKrause участвует в выставке AMBIENTE 2024 во Франкфурте
ООО «ОФИСМАГ» ИНН: 3666113066, ERID: LjN8KR8Cm
27 — 29 февраля 2024
Случайное КанцФото
29 января Поздравить
+7 903 673-22-09
тел. администратора портала KanzOboz.ru

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

Портал KanzOboz.ru не несет ответственность за достоверность информации размещаемую абонентами и посетителями ресурса, а также за использование вами данных, содержащихся на этих веб-страницах либо найденных по ссылкам с них.
Не предназначено для пользователей до 16 лет.

Обращаем ваше внимание, что мы не канцелярский магазин. У нас нельзя купить или заказать доставку товаров. Мы Портал, на страницах которого лучшие канцелярские компании размещают свою информацию. Для приобретения товаров связывайтесь пожалуйста непосредственно с компаниями. Их контакты размещены на Портале.

Заходя на Портал, Вы принимаете Пользовательское соглашение, подтверждаете свое согласие на использование файлов «cookie» и соглашаетесь с политикой конфиденциальности ресурса.