چاپ مقسوم علیه

[میثم66]

برنامه چاپ مقسوم علیه های یک عدد.اینو تو msgbox نوشتم حالا میخام بجای msgbox تو اکسل تو ستون B زیر هم نوشته بشه.

Sub tedad()
n = Cells(1, 1)
For i = 1 To n
If n Mod i = 0 Then
a = a & i & vbNewLine
End If
Next i
MsgBox a
End Sub 

[misammisam]

یه راهش اینه ، اینو هزار جور میشه نوشت ، دوباره نکی اینطوری نه من اینجوری بلئم agB:

Sub tedad()
Range("h:h").Clear
n = Cells(1, 1)
For i = 1 To n
If n Mod i = 0 Then
a = a + 1
Cells(a, 8) = i
End If
Next i
End Sub 

[میثم66]

یه راهش اینه ، اینو هزار جور میشه نوشت ، دوباره نکی اینطوری نه من اینجوری بلئم agB:

Sub tedad()
Range("h:h").Clear
n = Cells(1, 1)
For i = 1 To n
If n Mod i = 0 Then
a = a + 1
Cells(a, 8) = i
End If
Next i
End Sub 

ممنون من اینجوری هم یاد گرفتم

n = Cells(1, 1)
For i = 1 To n
If n Mod i = 0 Then
x = x + 1
Range("B" & x) = i
End If
Next i
End Sub 

[Amir Ghasemiyan]

ممنون من اینجوری هم یاد گرفتم

n = Cells(1, 1)
For i = 1 To n
If n Mod i = 0 Then
x = x + 1
Range("B" & x) = i
End If
Next i
End Sub 

ايني كه شما ياد گرفتي دقيقا همون چيزيه كه ميثم جان گفت.

پ ن : شما كه ياد داري چرا ميپرسي پس؟

[میثم66]

ايني كه شما ياد گرفتي دقيقا همون چيزيه كه ميثم جان گفت.

پ ن : شما كه ياد داري چرا ميپرسي پس؟

خب اینم شما به من یاد دادی دیگه.