![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.5ベストアンサー
- 回答日時:
以下のマクロを標準モジュールに登録してください。
Public Sub 合計が25()
Dim x As Long
Dim y As Long
Dim z As Long
Dim w As Long
Dim wrow As Long
Range("A1:D1").value = Array("x", "y", "z", "w")
wrow = 2
For x = 0 To 25
For y = 0 To 25
For z = 0 To 25
For w = 0 To 25
If (x + y + z + w) = 25 Then
Cells(wrow, 1).value = x
Cells(wrow, 2).value = y
Cells(wrow, 3).value = z
Cells(wrow, 4).value = w
wrow = wrow + 1
End If
Next
Next
Next
Next
MsgBox ("完了")
End Sub
添付図のような結果が、アクティブシートに作成されます。
![「Excel、変数4つの和が25になる組み」の回答画像5](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/4/543026052_5ff7dfda516a4/M.png)
No.3
- 回答日時:
0≼ってありましたね、すみません。
総当たりでよいなら、
for x = 0 to 25
for y= 0 to 25
for z = 0 to 25
for w = 0 to 25
if x+y+z+w=25 then
debug.print "(x,y,z,w)=(" & x & "," & y & "," & z & "," & w & ")"
next w
next z
next y
next x
回数を減らしたいなら、
角ループで、25を超えた場合に exit forをすればよいと思いますが、
件数などをチェックしながら作っていかないと、間違えちゃうかもしれませんので、、、
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ExcelのIF関数について 4 2023/05/24 12:54
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
- Visual Basic(VBA) VBA 配列を使ったコードに直していただけますか 4 2023/05/06 15:18
- 数学 3つの区別のつかないサイコロを同時に投げる時、3つの目の数の和が12となる目の組み合わせを全て列挙せ 5 2023/03/03 15:03
- Visual Basic(VBA) 【マクロ】表への繰り返し転記について 1 2022/11/19 16:30
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Excel(エクセル) Excel_マクロ_複数のシートのVLOOKUPで表示された#N/A以外に色付けをしたいです 1 2023/02/16 22:37
- Excel(エクセル) Excelの数式についての質問 1 2022/10/31 15:50
- Excel(エクセル) VBA 指定した列にある日時データから時間を削除する方法について 4 2022/04/14 11:17
- Excel(エクセル) エクセル・スプレッドシートで、一定数を超えたらゼロから再累計する方法 8 2022/05/28 03:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
横にコピーするマクロを教えて...
-
VBAマクロ実行時エラーの修正に...
-
エクセル マクロ オートフィ...
-
B列の最終行までA列をオート...
-
Excelで、あるセルの値に応じて...
-
Worksheets メソッドは失敗しま...
-
VBA シートをコピーする際に Co...
-
「段」と「行」の違いがよくわ...
-
IIF関数の使い方
-
エクセルで複数のシートのクリ...
-
LEFT関数とIF関数の組み合わせ...
-
[EXCEL]ボタン押す→時刻が表に...
-
エクセルで特定の文字列が入っ...
-
特定の文字がある行以外を削除...
-
VLOOKUPの列番号の最大は?
-
文字列の結合を空白行まで実行
-
vba 2つの条件が一致したら...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
結合されたセルをプルダウンの...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
横にコピーするマクロを教えて...
-
UWSCを使用して、ドロップダウ...
-
EXCELカレンダー出勤日黒色、休...
-
バイトを変換するスクリプト
-
【VBA】 IFの中にIF
-
true lifeの意味
-
強調構文について It is only a...
-
HTML ドロップダウンメニ...
-
条件に一致するデータの平均 ...
-
ホームページの資料請求フォー...
-
英文の和訳をお願い
-
excel vba
-
英→和訳助けて下さい!!!
-
Excel、変数4つの和が25になる...
-
RGBを色コードに
-
MT4 直前の足の四本値 つづき
-
この専門用語の意味は?
-
この「of」の用法、意味不明です。
-
VBAマクロ実行時エラーの修正に...
-
エクセル マクロ オートフィ...
おすすめ情報
自然数、VBAでお願いします。
一応変数の範囲指定はしたつもりなのですが見辛い表記してたようでしたら申し訳ないです。