こんにちは。
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も見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
2つ以上の変数を比較して最大数を求めたい
Word(ワード)
-
vbaの繰り返しで求める最大値について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Borland C++ Compiler 5.5の警...
-
エラーの意味は? Lvalue req...
-
VBAでダブルコーテーション入り...
-
processing エラーで、 "cannot...
-
EXCEL/VBA 変数の値をクリップ...
-
python の 連鎖代入の文法
-
整数xxxが大き過ぎますというエ...
-
クラス中でコンストラクタを使...
-
プログラミングで変数と関数の...
-
Excel VBAでイコール二回使えま...
-
コマンド実行結果を変数に代入...
-
引数とは なんですか?
-
def partition(fn, ls): a, b =...
-
for the first timeとfirst tim...
-
フォームを開くときに、コンボ...
-
足して100になるような乱数のア...
-
C言語でCLAMP(a,b,c)
-
配列の値を置換するにはどうす...
-
C#の問題で2つの整数a,bの...
-
VBSで特定の文字列が含まれる場...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAでダブルコーテーション入り...
-
EXCEL/VBA 変数の値をクリップ...
-
エラーの意味は? Lvalue req...
-
jsp~jspにhiddenを使って変数...
-
Variant型で宣言してるのにEmpt...
-
[VBS]変数を定数に変換する方法...
-
テキストボックスの値を変数に...
-
processing エラーで、 "cannot...
-
整数xxxが大き過ぎますというエ...
-
【VBA】複合代入演算子
-
JavaScriptをURLから直接実行し...
-
VB6.0での条件文にある#の意味
-
だれがとけるの?
-
インクリメント演算子の前置(+...
-
プログラミングで変数と関数の...
-
datagridviewに行...
-
C言語 列挙型(enum型)変数について
-
verilog HDLの[=]と[<=]の使い分け
-
「%」を使って、偶数か奇数かを...
-
i++と++i ってどう違うのですか?
おすすめ情報