エクセルVBAについての質問

Question

二次元配列を用いてセル上に示された要素の行における最大値の求め方を教えてほしいです。
下の時、最大値は182、63、31となる。これを表すプログラムの作成方法を教えてほしいです
|列1|列2|列3|
|:--:|--:|
|100|182|67|
|63|32|52|
|29|30|31|

Sub max()
Dim a(2, 2) As Double
Dim i As Integer
Dim j As Integer
Dim x As Integer
Dim y As Integer

For i = 0 To 1
For j = 0 To 1
a(i, j) = Cells(i, j).Value
Next j
Next i

Comments

[radames1000]

一行だけなら最大値を求めることはできますか？
それから行を増やす方法を考えてみましょう。

[退会済みユーザー]

すみません。わからないです。。。

[sousuke]

「最大値を表す」というのはどういう方法で実装するか決まっていますか？

[退会済みユーザー]

特に決まってはいませんが、ForやLoop文などでしていただいたほうが嬉しいです。

[sousuke]

いえ、そういうことではなくて「メッセージボックスで１行ずつ最大値を表示する」とか。
「最大値を取得する方法」ではなくて「取得した最大値をどうすればいいのか」ということです。

[退会済みユーザー]

取得した最大値は表の横のセルに入れてほしいです。
解釈を間違えてしまい、すみません。

[hatena19]

関数を使えば一発で求められますが、関数の使うのはありですか。
なしの場合、その理由も提示してもらえるとより適切な回答がつくと思います。
（例えばVBAプログラミングの学習目的とか）

[DreamTheater]

学習目的でないのなら、関数で解決できますね。
VBAで実装する場合でも、二次元配列はマストではありません。

「二次元配列を使用してVBAで実装する」ことは質問の前提条件なのでしょうか？

[退会済みユーザー]

できれば、知識の幅を広げるためにも関数は使わずにお願いしたいですが、関数を使っていただいても大丈夫です。よろしくお願いします。

[DreamTheater]

最大値を表示するセルでMAX関数を使うだけです。
MAX関数の使い方くらいはご自身で調べましょう。

[退会済みユーザー]

VBAで取得する方法を教えていただきたいです。

[DreamTheater]

二次元配列も必須ですか？

[退会済みユーザー]

はい
すみませんがよろしくお願いします

Answer 1

もう少し日本語で「最大値を求める」過程をまず日本語で説明できるようになったほうがいいです。
提示のコードも「何をしているか」過程を説明できないとダメです。
途中結果をMsgboxなどで前に表して実際にみるといいかと思います。

Sub max()
  Dim a(2, 2) As Double
  Dim i As Integer
  Dim j As Integer
  Dim x As Integer
  Dim y As Integer

  For i = 0 To 2
    For j = 0 To 2
      y = Cells(i + 1, j + 1).Value
      If (MsgBox("「" & x & "」より「" & y & "」の方が大きいですか？" _
          , vbYesNo + vbDefaultButton2 + vbQuestion, "確認") = vbYes) Then
        ' a(i, j) = Cells(i, j).Value
        x = y
      End If
    Next j
    MsgBox i + 1 & "行で一番大きいのは「" & x & "」でした。"
    x = 0
  Next i
  
  MsgBox "おわり"
End Sub

Comments

[退会済みユーザー]

ありがとうございます。
msgboxで適宜見てみます。