
こんにちは。
VBAの最大値の求め方の質問です。
期待利益3、4.5、3.5の順番で範囲cells(30~32,''G'')の中から最大値を求めなくてはいけなくて、求めた最大値をcells(33,''G'')に入れたいです。
Dim maxx as integer,x as integer
maxx = 0
For x = 1 To 3
If maxx < Cells(30, "G") Then 'これが3.0
maxx = Cells(30, "G")
ElseIf maxx < Cells(31, "G") Then 'これが4.5
maxx = Cells(31, "G")
Else 'これが3.5
maxx = Cells(32, "G")
End If
Cells(33, "G") = maxx
Next x
最初にある
maxx = 0
For x = 1 To 3
If maxx < Cells(30, "G") Then
maxx = Cells(30, "G")
この部分で既にmaxxが0より大きいのでelseif以降が機能しないのは分かっています。
どう書き直せば3つの数字の中から比較できるか知りたいです。
よろしくお願いします。

A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
単純に最大値を求めるだけですか?
関数使わなければ、
1.一つ目をMAXに代入
2.IF MAX<二つ目なら二つ目をMAXに代入
3.IF MAX<三つ目なら三つ目をMAXに代入だけでいいのでは?
ELSE要りません。
FOR NEXTも要らないですね。
No.3
- 回答日時:
以下のようにしてください。
①最初にmmaxに0をいれてあります。
②30行から32行まで、以下を繰り返します。
G列の期待利益がmmaxより大きいならその値をmmaxに設定します。
③結果的にmmaxに最も大きい値が設定されます。
それを33行目のG列に設定します。
尚、mmaxの型をintegerにすると-32768~32767の整数しか扱えません。
小数点以下も扱いたいならVariant型かDouble型にすべきです。
xの型はintegerでも構いませんが、扱える範囲がせまいです。Long型を使用すると約10桁の整数まで扱えるので、Long型を使用したほうが便利です。
PCにメモリが少なかった大昔は、メモリの節約のためにinteger型を使用していましたが、今はその必要はありません。
-----------------------------------------------
Dim maxx As Variant
Dim x As Long
maxx = 0
For x = 30 To 32
If maxx < Cells(x, "G") Then
maxx = Cells(x, "G")
End If
Next x
Cells(33, "G") = maxx
No.1
- 回答日時:
手書きなので違うかも?
maxx = worksheetfunction.max(Cells(30, "G") ,Cells(31, "G") ,Cells(32, "G"))
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでダブルコーテーション入り...
-
EXCEL/VBA 変数の値をクリップ...
-
jsp~jspにhiddenを使って変数...
-
i++と++i ってどう違うのですか?
-
vba 最大値 条件分岐
-
エラーの意味は? Lvalue req...
-
verilog HDLの[=]と[<=]の使い分け
-
Xorshiftの値を絞り込む方法を...
-
Excel-vba 文字列と変数を...
-
C言語 exitの使い方
-
C#でのIF文 時間比較のやり方
-
エクセルへのデータの貼付時に...
-
excelの、ある数式内の{}の意...
-
vbsでテキストファイル内の文字...
-
Windows Media Playerで動画を...
-
COLUMN(1:1)の意味を教え...
-
関数で複数の値を戻り値として...
-
VisualStudio2022でC言語プログ...
-
VBAのWorksheetFunctionの引数...
-
VBAのチェックボックス結果を集...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでダブルコーテーション入り...
-
エラーの意味は? Lvalue req...
-
jsp~jspにhiddenを使って変数...
-
EXCEL/VBA 変数の値をクリップ...
-
テキストボックスの値を変数に...
-
C言語 アロー演算子について質...
-
整数xxxが大き過ぎますというエ...
-
[VBS]変数を定数に変換する方法...
-
processing エラーで、 "cannot...
-
gridViewの行選択解除
-
Variant型で宣言してるのにEmpt...
-
プログラミングで変数と関数の...
-
C言語
-
DataTableの値を変数に代入したい
-
VB6.0 DataGridでのfirstRowの...
-
DataColumn型の使用方法
-
String型ローカル変数の初期化...
-
VBA 1行で複数の代入を行った...
-
変数宣言と初期値代入の場所に...
-
valueChanged の引数について
おすすめ情報