Садржај

• Упутства
• Како
• Шта ти треба

Примарни број има као делиоце само број један и сам број. На пример, 13 је прост број јер има само делиоце 1 и 13. Сваки број се може написати као производ простих бројева. Постоје многи алати за проналажење простих бројева, укључујући и шеме доношења одлука. Можете једноставно додати макро у Екцел 2007 да бисте замијенили дио процеса доношења одлука. Макро је алатка која вам омогућава да прилагодите Екцел сопственим дугмадима: у овом случају, дугме које израчунава факторе. Када додате макро, једноставно унесите број и Екцел ће израчунати факторе.

Упутства

Користите Екцел и пронађите основне бројеве и бројеве (Нумберс имаге би Паул Хамптон из Фотолиа.цом)

1. Затворите све радне свеске и покрените нови радни лист програма Екцел. Притисните "АЛТ + Ф11" да бисте покренули основни визуелни едитор.

2. Двапут кликните на радну свеску у менију ВБАПројецт у горњем левом углу екрана да бисте отворили радни лист.

3. Изрежите и налепите следећи код у празну радну свеску:

   Суб ГетФацторс () Дим Цоунт Ас Интегер Дим НумТоФацтор Ас Сингле 'Интегер ограничења на <32768 Дим Фацтор Као један дим и као један Дим ИнтЦхецк Ас Сингле

   Цоунт = 0 НумТоФацтор = _ Апплицатион.ИнпутБок (Промпт: = "Типе интегер", Типе: = 1) 'Присилни унос целих бројева већих од 0.' је 0 - дозволите Цанцел. ЕлсеИф НумТоФацтор <1 Затим МсгБок "Молимо унесите цео број већи од нуле." ЕлсеИф ИнтЦхецк> 0 Затим МсгБок "Молимо унесите цео број - без децимала." Енд Иф 'Лооп до уноса целог броја већег од 0. Лооп вхиле НумТоФацтор <= 0 Или ИнтЦхецк> 0 За и = 1 За НумТоФацтор' Ставите поруку у статусну линију која означава да је цео број означен. Апплицатион.СтатусБар = "Провера" & и Фактор = НумТоФацтор Мод и 'Одредите да ли је резултат дељења са Модом без остатка и стога фактор. Ако је Фацтор = 0 Затим 'Унесите фактор у колону почевши од активне ћелије. АцтивеЦелл.Оффсет (Цоунт, 0) .Валуе = и 'Повећајте износ за помак за сљедећу вриједност. Цоунт = Цоунт + 1 Енд Иф Нект 'Врати статусну траку Апплицатион.СтатусБар = "Спреман" Крај Суб

   
   

   Суб ГетПриме () Дим Цоунт Ас Интегер Дим БегНум Ас Сингле 'Интегер ограничениј на <32768 Дим ЕндНум Ас Сингле Дим Приме Ас Сингле Дим Ас Интегер Дим ИнтЦхецк Ас Сингле Цоунт = 0

   До БегНум = _ Апплицатион.ИнпутБок (Промпт: = "Унесите почетни број.", Типе: = 1) 'Присилни унос целих бројева већих од 0. ИнтЦхецк = БегНум - Инт (БегНум) Ако је БегНум = 0, онда излазни Суб' Цанцел је 0 - дозволите Цанцел. ЕлсеИф БегНум <1 Затим МсгБок "Молимо унесите цео број већи од нуле." ЕлсеИф ИнтЦхецк> 0 Затим МсгБок "Молимо унесите цео број - без децимала." Енд Иф 'Лооп до уноса целог броја већег од 0. Лооп Вхиле БегНум <= 0 Или ИнтЦхецк> 0

   ЕндНум = _ Апплицатион.ИнпутБок (Промпт: = "Типе ендинг нумбер.", Типе: = 1) 'Присилни унос целих бројева вецих од 0. ИнтЦхецк = ЕндНум - Инт (ЕндНум) Ако је ЕндНум = 0, онда излазни суб 0 - дозволите Цанцел. ЕлсеИф ЕндНум <БегНум Тхен МсгБок "Молимо унесите цео број већи од" & БегНум ЕлсеИф ЕндНум <1 Затим МсгБок "Молимо унесите цео број већи од нуле." ЕлсеИф ИнтЦхецк> 0 Затим МсгБок "Молимо унесите цео број - без децимала." Енд Иф 'Лооп до уноса целог броја већег од 0. Лооп вхиле ЕндНум <БегНум ор ЕндНум <= 0 Или ИнтЦхецк> 0

   
   

   За и = БегНум То ЕндНум заставица = 0 з = 1 До До флаг = 1 Или з = и + 1 'Ставите поруку у статус бар назначавајући цијели број и делитељ у свакој петљи. Апплицатион.СтатусБар = и & "/" & з Приме = и Мод з Ако је Приме = 0 и з <> и И з <> 1 Онда флаг = 1 Крај Ако з = з + 1 Лооп

   Иф флаг = 0 Тада 'Унесите фактор у колону која почиње активном ћелијом. АцтивеЦелл.Оффсет (Цоунт, 0) .Валуе = и 'Повећајте износ за помак за сљедећу вриједност. Цоунт = Цоунт + 1 Енд Иф Нект и 'Ресторе Статус Бар. Апплицатион.СтатусБар = "Реади" Енд Суб

4. Кликните на "Филе", а затим одаберите "Цлосе анд Ретурн то Мицрософт Екцел".

5. Кликните на дугме Мицрософт Оффице у програму Екцел. Кликните на "Екцел Оптионс", "Цустомизе", а затим одаберите "Мацрос" у командама "Цхоосе".

6. На листи кликните на макро "ТхисВоркбоок.ГетФацторс", а затим кликните на "Додај". Кликните на "ОК". Ова операција узрокује додавање макронаредбе на алатну траку за брзи приступ у горњем лијевом углу програма Екцел.

7. Изаберите ћелију у којој желите да се приказују подаци.

8. Кликните на дугме макро на траци са алаткама за брзи приступ. Унесите број који желите да пронађете као главни фактор. Екцел ће вратити листу свих фактора (укључујући примес и нонцоусинс) у изабраној колони. На пример, фактори од 30 су 1,2,3,5,6,10,15 и 30.

9. Изаберите примарне бројеве са понуђене листе. Приме бројеви у листи су 2,3 и 5. То су основни фактори вашег датог броја.

Како

• Нека Екцел израчуна поделе за вас. Додајте релевантне једначине ћелијама које враћају факторе, уместо да рачунате ручно.

Шта ти треба

• Екцел 2007