Зміст

• Інструкції
• Як
• Що вам потрібно

Просте число має як дільники тільки номер один і сам номер. Наприклад, 13 є простим числом, тому що він має тільки дільників 1 і 13. Кожне число може бути записано як добуток простих чисел. Існує багато інструментів для пошуку простих чисел, включаючи схеми прийняття рішень. Ви можете легко додати макрос в Excel 2007, щоб замінити частину процесу прийняття рішень. Макрос - це інструмент, який дозволяє налаштувати Excel за допомогою власних кнопок: у цьому випадку, кнопка, яка обчислює фактори. Як тільки ви додасте макрос, просто введіть число і Excel обчислить фактори.

Інструкції

Використовуйте Excel і знайдіть прості фактори та числа (Малюнок із зображенням Пол Хемптона від Fotolia.com)

1. Закрийте всі робочі книги і запустіть новий аркуш Excel. Натисніть "ALT + F11", щоб запустити основний візуальний редактор.

2. Двічі клацніть книгу в меню VBAProject у верхній лівій частині екрана, щоб відкрити аркуш.

3. Вирізати та вставити наступний код у порожню книгу:

   Sub GetFactors () Графік відсутності як ціле Дим NumToFactor як одиночне "цілочисельне обмеження до <32768 Dim Factor як єдине відставання та як єдиний Dim IntCheck As Single

   Count = 0 NumToFactor = _ Application.InputBox (Підказка: = "Type integer", Type: = 1) 'Примусово вводити цілі числа більше 0.' - 0 - дозволити Скасувати. ElseIf NumToFactor <1 Потім MsgBox "Будь ласка, введіть ціле число більше нуля." ElseIf IntCheck> 0 Тоді MsgBox "Введіть ціле число - без десяткових знаків." End If 'Loop до входу цілого числа більше 0. Loop while NumToFactor <= 0 Або IntCheck> 0 Для y = 1 До NumToFactor' Помістіть повідомлення в рядку стану, вказуючи на перевірку цілого числа. Application.StatusBar = "Перевірка" & y Factor = NumToFactor Mod і 'Визначити, якщо результат поділу з Mod є без залишку і, таким чином, фактором. Якщо Factor = 0 Тоді 'Введіть коефіцієнт у стовпчик, починаючи з активної комірки. ActiveCell.Offset (Count, 0) .Value = y 'Збільшуйте суму для зміщення наступного значення. Count = Count + 1 End If Next 'Відновити рядок стану Application.StatusBar = "Готовий" End Sub

   
   

   Sub GetPrime () Графік відсутності як ціле Дим.

   Do BegNum = _ Application.InputBox (Підказка: = "Введіть початковий номер.", Type: = 1) 'Примусово вводити цілі числа, що перевищують 0. IntCheck = BegNum - Int (BegNum) Якщо BegNum = 0, тоді Exit Sub' Cancel 0 - дозволити Скасувати. ElseIf BegNum <1 Тоді MsgBox "Будь ласка, введіть ціле число більше нуля." ElseIf IntCheck> 0 Тоді MsgBox "Введіть ціле число - без десяткових знаків." End If 'Loop до входу цілого числа більше 0. Loop While BegNum <= 0 Або IntCheck> 0

   EndNum = _ Application.InputBox (Підказка: = "Тип кінцевого номера.", Type: = 1) 'Примусово вводити цілі числа більше 0. IntCheck = EndNum - Int (EndNum) Якщо EndNum = 0, тоді Exit Sub' Cancel 0 - дозволити Скасувати. ElseIf EndNum <BegNum Then MsgBox "Будь ласка, введіть ціле число більше" & BegNum ElseIf EndNum <1 Потім MsgBox "Будь ласка, введіть ціле число більше нуля." ElseIf IntCheck> 0 Тоді MsgBox "Введіть ціле число - без десяткових знаків." End If 'Loop до входу цілого числа більше 0. Loop While EndNum <BegNum Або EndNum <= 0 Або IntCheck> 0

   
   

   Для y = BegNum To EndNum прапор = 0 z = 1 Do Do flag = 1 Або z = y + 1 'Помістіть повідомлення в рядок стану, вказуючи ціле число і дільник у кожному циклі. Application.StatusBar = y & "/" & z Prime = y Mod z Якщо Prime = 0 І z <> y І z <> 1 Тоді прапор = 1 Кінець Якщо z = z + 1 Loop

   Якщо flag = 0 Тоді 'Введіть коефіцієнт у стовпчик, починаючи з активної комірки. ActiveCell.Offset (Count, 0) .Value = y 'Збільшуйте суму для зміщення наступного значення. Count = Count + 1 End If Next і "Restore Status Bar. Application.StatusBar =" Готовий "End Sub

4. Натисніть "Файл", а потім виберіть "Закрити і повернутися до Microsoft Excel".

5. Натисніть кнопку Microsoft Office в Excel. Натисніть "Параметри Excel", "Налаштувати", а потім виберіть "Макроси" в командах "Вибрати".

6. У списку натисніть макрос "ThisWorkbook.GetFactors", а потім натисніть "Додати". Натисніть "OK". Ця операція призводить до додавання макросу на панель швидкого доступу у верхньому лівому кутку Excel.

7. Виберіть клітинку, де потрібно відображати дані.

8. Натисніть кнопку макросу на панелі швидкого доступу. Введіть номер, який ви хочете знайти основний фактор. Excel повертає список всіх факторів (включаючи прості та нежиті) у вибраному стовпці. Наприклад, коефіцієнти 30 - 1,2,3,5,6,10,15 і 30.

9. Виберіть прості числа зі списку. Прості числа у списку 2,3 і 5. Це найважливіші чинники вашого числа.

Як

• Дозвольте Excel розрахувати підрозділи для вас. Додайте відповідні рівняння до осередків, які повертають фактори, замість того, щоб обчислювати їх вручну.

Що вам потрібно

• Excel 2007