VBA find the 2 closed numbers that a factors of my number

[rpaulson]

Looking for some code that will return the closes 2 numbers that are factors of a given number.

given number 12: the 2 factor that are the closest to each other are 3 & 4 (not 2 & 6)

24 would return 6 & 4 (not 8 & 3 or 2 & 12)
64 would return 8 & 8 (not 16 & 4)
90 would be 9 & 10
37 would return 1 & 37
....

ex:
x= input(Type your number)
...code...

msgbox ("highest factors are " & F1 & " and " & F2)


Thanks for looking
Ross

 

[shg]

Function CloseFactors(n As Long) As String
  Dim i             As Long

  For i = Sqr(n) To 1 Step -1
    If n Mod i = 0 Then
      CloseFactors = i & ", " & n / i
      Exit For
    End If
  Next i
End Function

[Table="width:, class:grid"][tr][td="bgcolor:#C0C0C0"][/td][td="bgcolor:#C0C0C0"]

A​

[/td][td="bgcolor:#C0C0C0"]

B​

[/td][td="bgcolor:#C0C0C0"]

C​

[/td][/tr][tr][td="bgcolor:#C0C0C0"]

1​

[/td][td]

55​

[/td][td]5, 11[/td][td]B1: =CloseFactors(A1)[/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

2​

[/td][td]

56​

[/td][td]7, 8[/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

3​

[/td][td]

57​

[/td][td]3, 19[/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

4​

[/td][td]

58​

[/td][td]2, 29[/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

5​

[/td][td]

59​

[/td][td]1, 59[/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

6​

[/td][td]

60​

[/td][td]6, 10[/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

7​

[/td][td]

61​

[/td][td]1, 61[/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

8​

[/td][td]

62​

[/td][td]2, 31[/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

9​

[/td][td]

63​

[/td][td]7, 9[/td][td][/td][/tr]
[tr][td="bgcolor:#C0C0C0"]

10​

[/td][td]

64​

[/td][td]8, 8[/td][td][/td][/tr]
[/table]

 

[Rick Rothstein]

Give this function a try...

Function NearestFactors(Num As Long) As String
  Dim X As Long
  For X = Int(Sqr(Num)) To 1 Step -1
    If Num Mod X = 0 Then
      NearestFactors = X & " and " & Num / X
      Exit Function
    End If
  Next
End Function

 

[rpaulson]

txs guys

 

[ravisingh]

You could try this code - some data validation is built in:

Sub ClosestFactors()    
    Num = Application.InputBox("Enter a positive integer", "Enter number", , , , , , 1)
    If Num <> Int(Num) Or Num <= 0 Then GoTo BadInput
    num1 = Int(Sqr(Num))
    For i = num1 To 1 Step -1
    If Num Mod i = 0 Then
    MsgBox ("Closest factors are " & i & " and " & Num / i)
    Exit Sub
    End If
    Next
BadInput:
    MsgBox ("Invalid input"): Exit Sub
End Sub