Excel（VBA)で九九表

大学の課題の問題が全く分かりません。
掛け算九九をExcelのプログラムで下記の条件で作りなさい
・For文を2重に使う
・ABCDE…
　１１２３…
　２２４６…
　３３６９…
　４４８12…
　……………のように作ること
また、プログラムとは別で最小値を表すコードを教えてくださると助かります。

No.2 回答者： WindFaller 回答日時： 2016/12/30 16:21

Excelには独特に取り方がありますが、それは割愛します。

最初の問題は、本当は、ご自身で解いてほしいですね。

Sub MultiplyPro()
Dim i As Long
Dim j As Long
　For i = 1 To 9
　　For j = 1 To 9
　　　Cells(i, j).Value = i * j
　　Next j
　Next i
End Sub

>プログラムとは別で最小値を表すコードを教えてくださると助かります。
昔、VB6の練習問題でやったことがありますが、以下のようなコードだったような気がします。
なお、範囲には数字しかないものとします。

Sub FindMinimum()
Dim min As Double
Dim c As Variant
min = 10 ^ 10 　　'仮の数値
For Each c In Range("A1").CurrentRegion
　If min > c.Value Then
　　 min = c.Value
　End If
Next
If min < 10 ^ 10 Then
　MsgBox min
End If
End Sub

さしつかえなかったらですが、問題集はどこのものをつかっていらっしゃるのでしょうか？今は、この種の問題というのは、あまり見たことがないものですから。

No.1 回答者： tom04 回答日時： 2016/12/29 22:57

こんばんは！

Sub Sample1()
Dim i As Long, j As Long
For i = 1 To 9
For j = 1 To 9
Cells(i, "A") = i
Cells(i, j + 1) = i * j
Next j
Next i
End Sub

こんな感じではどうでしょうか？

＞最小値を表すコードを教えて・・・
VBAでもそのままワークシート関数が使えますので

Dim myMin
myMin = WorksheetFunction.Min(範囲)

という具合で大丈夫だと思います。m(_ _)m