Excel2003 約数を返すには

質問

初めて投稿させていただきます、よろしくお願い致します。

Excel2003を使用して、小学生向けに約数を教えるためのドリルを作ろうと思っています。
ネットでの検索や関数検索をして、「最大公約数を返す」というものは関数やマクロであるらしい事が分かったのですが、約数を並べられるようなものが見つかりません。

ex)　54　→　1 2 3 6 9 18 27 54

#　変数を54としたときに、同一もしくは違うセルに約数が並ぶような感じをイメージしています。

どなたかご存知の方がいましたら、ご教授いただけると助かります。

回答No.4

ka_na_de · ベストアンサー

＃２です。

お役に立てて幸いです。
前回のコードで十分実用に足りると思いますが、
改良版を示します。
ご参考までに。

Private Function divisor2(argRng As Range) As String
　　Dim m As Long, n As Long, q As Long
　　Dim str1 As String, str2 As String

　　m = argRng.Value
　　n = 1
　　Do
　　　　If (m Mod n) = 0 Then
　　　　　　str1 = str1 & " " & n
　　　　　　q = m / n
　　　　　　str2 = q & " " & str2
　　　　End If
　　　　n = n + 1
　　Loop Until n = q
　　divisor2 = str1 & " " & str2
End Function

お礼

さらに改良してくださり、本当に御厚意痛み入ります。
最初のものと共にモジュールに加えさせていただきました。
子ども達の学力向上で恩返しさせていただきます。
ありがとうございました。

回答No.3

noname#204879

A　　　B　　　C　　　D　　　E
1　　　10　　 54　　543　 5432　 9999
2　　 ↓　　 ↓　　 ↓　　 ↓　　 ↓
3　　　 1　　　1　　　1　　　1　　　1
4　　　 2　　　2　　　3　　　2　　　3
5　　　 5　　　3　　181　　　4　　　9
6　　　10　　　6　　543　　　7　　 11
7　 #NUM!　　　9　#NUM!　　　8　　 33
8　 #NUM!　　 18　#NUM!　　 14　　 99
9　 #NUM!　　 27　#NUM!　　 28　　101
10　#NUM!　　 54　#NUM!　　 56　　303
11　#NUM!　#NUM!　#NUM!　　 97　　909
12　#NUM!　#NUM!　#NUM!　　194　 1111
13　#NUM!　#NUM!　#NUM!　　388　 3333
14　#NUM!　#NUM!　#NUM!　　679　#NUM!
15　#NUM!　#NUM!　#NUM!　　776　#NUM!
16　#NUM!　#NUM!　#NUM!　 1358　#NUM!
17　#NUM!　#NUM!　#NUM!　 2716　#NUM!
18　#NUM!　#NUM!　#NUM!　 5432　#NUM!
19　#NUM!　#NUM!　#NUM!　#NUM!　#NUM!

A3: {=SMALL(IF(MOD(A$1,ROW(A$1:A$10000)),"",ROW(A$1:A$10000)),ROW(A1))}
　　(上式は配列数式です)

回答No.2

ka_na_de

こんにちは。

ユーザー定義関数を作ってみました。
参考になれば幸いです。

'===========標準モジュールに記載===================
Private Function divisor(argRng As Range) As String
　　Dim i As Long

　　For i = 1 To argRng.Value
　　　　If argRng.Value Mod i = 0 Then
　　　　　　divisor = divisor & " " & i
　　　　End If
　　Next i
End Function

'===========使い方の例=============================
' A1セルに54と入力
' B1セルに=divisor(A1)

'============注意==================================
' 正の整数以外に対するエラー処理はしていません。

お礼

アドバイスありがとうございます。
早速活用させていただき、今プリントを完成させることが出来ました。
本当にありがとうございました。

回答No.1

tom04

こんばんは！
参考になるかどうか判りませんが・・・
無理矢理って方法の一例です。

↓の画像の1行目は整数を1～255までオートフィルで入力しておきます。
（当方使用のExcel2003では256列までしか表示できないので
最終列はIV列で256列になるはずです。）

そして2行目を作業用の列とさせてもらって、
B2セルに
=IF($A$3="","",IF(MOD($A$3,COLUMN(A1))=0,COLUMN(A1),""))
とし、これも最終列までオートフィルでコピーします。

最後にB3セルに
=IF(COUNT($B$2:$IV$2)>=COLUMN(A1),INDEX($B$1:$IV$1,SMALL($B$2:$IV$2,COLUMN(A1))),"")

とし、オートフィルでコピーすると画像のような感じになります。

これでA3セルに数値を入力するだけで約数全てが表示されるはずです。
尚、1・2行目が目障りであれば、1・2行目全てを選択し
「表示しない」にしておけば良いかと思います。

以上、参考になれば幸いですが、
他に良い方法があれば読み流してくださいね。m(__)m

お礼

アドバイスありがとうございました。
関数は初心者でして、少しずつ勉強していこうと思っています。
tom04さんの関数式を読み解いて、自分でも作れるようにしたいと思います。