-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Bir sayının çarpanları
- Konbuyu başlatan bmutlu966
- Başlangıç tarihi
Hallettim...
Sub carpanlar()
Rows("2:2").Select
Selection.ClearContents
a = 1
For t = 2 To [A1] - 1
x = [A1] / t
If x = Round(x, 0) Then Cells(2, a) = t Else GoTo atla
a = a + 1
atla:
Next
Range("A1").Select
End Sub
Sub carpanlar()
Rows("2:2").Select
Selection.ClearContents
a = 1
For t = 2 To [A1] - 1
x = [A1] / t
If x = Round(x, 0) Then Cells(2, a) = t Else GoTo atla
a = a + 1
atla:
Next
Range("A1").Select
End Sub
Dosya ekte...
- Katılım
- 21 Ekim 2005
- Mesajlar
- 17,093
- Excel Vers. ve Dili
- Excel, 365 - İngilizce