Dim ArrDevisors()
Sub BlaBlaBlaBla()
' siti Vi / bluewater, indonesia / 7 May 2010
Dim MyCell As Range
Dim isPrima As String, n As Long
Set MyCell = Selection
isPrima = IsPrimeNumber(MyCell.Value)
MyCell(1, 4) = "Result:"
MyCell(1, 5) = isPrima
If isPrima = "NON-PRIMA" Then
For n = 1 To UBound(ArrDevisors)
MyCell(1 + n, 5) = ArrDevisors(n)
Next n
End If
End Sub
Private Function IsPrimeNumber(aNumber As Long) As String
' siti Vi / bluewater, indonesia /14 Dec 2005
Dim AreYou As Boolean
Dim Devisor As Long
Dim i As Long
AreYou = True
For Devisor = 2 To aNumber
If aNumber Mod Devisor = 0 Then
AreYou = False
i = i + 1: ReDim Preserve ArrDevisors(1 To i)
ArrDevisors(i) = Devisor
End If
Next
If aNumber = 0 Then AreYou = False
IsPrimeNumber = IIf(AreYou, "PRIMA", "NON-PRIMA")
End Function
' NOTE:
'-- before running the makro (BlaBlaBla procedure)
'-- you have to select the cell (single cell) containing the number.
----------------
On May 7, 12:56 pm, L- Van <elvan.bys...@gmail.com> wrote:
> hi all,
>
> im new member in this group..
> I want to find a number of non-prime numbers..
> (please see
> attachment)http://groups.google.com/group/excel-macros/web/prima_nonprima-EXCELM...
>
> example
> READ 45 RESULT NON-PRIMA
> 3
> 5
> 9
> 15
> …
> if i read the number 15
> the result will be NON-PRIMA and the below cell (optional) will create
> a number that can be divide by read number
> Thanks for all of ur attention
> L-van
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,800 subscribers worldwide and receive many nice notes about the
learning and support from the group.Let friends and co-workers know they can
subscribe to group at http://groups.google.com/group/excel-macros/subscribe
