Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

62442 / 76738

←次へ　｜　前へ→


	【18903】Re:配列の最大値

ichinose - 04/10/15(金) 18:02 -


	引用なし

	パスワード

▼にゃんぎょさん：
こんばんは。
>またまたお世話になりに伺いました。
>
>配列の中のデータの最大値を取得するにはどうしたらよいのでしょうか。
>過去ログに以下の例文がありました。
>
>Dim Max_Value As Integer
>Max_Value = WorksheetFunction.Max(Array(g, h, i, j, k, l, m, n))
>
>しかし今回の配列の添え字は可変です。
>
>Max_Value = WorksheetFunction.Max(Array())
>　　　　　　　　　　　　　　　　　　　↑ここをどうしたらよいかわからない。
>よろしくご指導お願いします。
'===================================================
Sub test()
　 Dim a(1 To 10) As Long
　 For i = 1 To 10
　　 a(i) = i
　　 Next
　 '↑サンプル作成
　 MsgBox WorksheetFunction.Max(a())
　
End Sub

とすればMaxは取得できますが、
配列を使用すると、添え字の上限がありますけどね

0 hits

▼

【18896】配列の最大値 にゃんぎょ 04/10/15(金) 17:43