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

	A​	B​	C​
1​	55​	5, 11	B1: =CloseFactors(A1)
2​	56​	7, 8
3​	57​	3, 19
4​	58​	2, 29
5​	59​	1, 59
6​	60​	6, 10
7​	61​	1, 61
8​	62​	2, 31
9​	63​	7, 9
10​	64​	8, 8

 

[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