組み合わせを表示する。

質問

１から９までの数字から４つの数字の組み合わせを作るのは１２６通りですがその１２６通りを表示させることはできないでしょうか？

回答No.7

hardy50 · ベストアンサー

＃１、＃３で冷たい回答をしたものです。

＞こういう事っていったいどこで勉強しているんですか？
やはり初めのうちは雑誌、本、もしくはスキルの高い方が作っているサイトなどじゃないでしょうか？
ebinamoriさんが質問したようなこと等は、プログラミングの基礎を学べばできるようなことです。
本屋で「初心者のための～」とか書いてあるエクセル、プログラミング等々・・・探せばいくらでもあります。
そこで初めて、「～～とやってみたけどできない」とか聞けば答えも出しやすいんじゃないかな？

偉そうに言っているけど、私も始めたばかり。基礎が分かれば楽しいことが多いと思います。がんばってください。

お礼

度々有難うございました。

回答No.6

ykkw_2001

＃誤解かな？

＞excelでもなんでも良いんで表示させたいんです。
で、nishi6さんの回答で、「表示」できると思います。

＞出力
と言うのは、表示させる先のことです。
EXCELのセルに「表示」するプログラムを示してくれたわけですが、ファイルに書き出してメモ帳などで「表示」させたかったら、CELL()...の行（出力している行）を変更すれば、ＶＢを使っても実現できますよ。
という意味でしょう。

＞あのそういったことを言われるのならせめてヒントを下さい。
＃２の方の
＞いわゆる5W1Hを
明らかにしましょう。

たとえば、「学校の宿題でプログラムを作らなくてはいけない」とか「ゲームのための数表を印刷したい」とかで始まって、入力する情報や条件と出力したいものの情報をできるだけ詳しく説明するのです。
もちろん、「Excelの入力はできるけど、マクロは使ったことがない」とか「漢字入力ができるようになったばかり」とか、あなたのスキルについても情報が必要です。

＞実際どこをどうしたらいいのかも分からないので
＞何を見ればそういったことが分かるのかそれだけでも教えてもらえませんか？
　書店にあるExcelの解説書で、VBAに関するあたりを読むと、なんとなくでもわかってくるのではないでしょうか？

＞誰だってどこをどう調べていいのかさえ分からなければ解決のしようがありません。

たいていはそうです。
回答するほうも、同じです。
何がわからないのかを、少しでも詳しく書いてもらわないと何をどう回答していいのか近づきようがありません。

もし、＃１の方の質問とあなたの補足のようなやり取りだけなら、問題は絶対解決しません。

わけがわからないことを聞くときは、なるべく多くの情報をつけて質問すれば、早く解決します。

もし、あなたが中学生くらいなら、そのことも書き添えるほうが良いと思います。回答者は、わかりやすい言葉で説明するでしょうから・・・

補足

「Excelの入力はできるけど、マクロは使ったことがない」まさにこれです。（マクロってなにぐらいのレベルです）
この質問の場合鍵の番号を忘れてその試行した番号を削除していくために表を作りたいと思いました。

何となくここでの質問のしかたが分かった気がします。御指南ありがとうございます。

不得意な科目でなにが分からないのか分からない状態ってあるじゃないですか。
できれば質問しないで済ませたいのですが、こういう事っていったいどこで勉強しているんですか？

回答No.5

nishi6

ExcelVBAです。こんなのでいいのかな。書いてみて何か恥ずかしいのは何故？
　（ツール→マクロ→Visual Basic Editor でコードウインドウに貼り付けます）
出力を変えれば、当然VBでもＯＫ。

1234、1235、1236　・　・　・　5689、5789、6789　の126個の数値が出ます。（全部必要でした？）

＞ある範囲の中の数字の内ある条件を満たす数字を抜き出したい。ということです。
＞（できるかどうかは分からないけど
プログラム上表現可能な条件で、解が有限個（桁数も含め）なら問題なくできるでしょう。
かえって、できない証明をするのが難しいでしょう。

Sub 四桁数値()
　　Dim k1 As Integer '1000の位の数値
　　Dim k2 As Integer '100の位の数値
　　Dim k3 As Integer '10の位の数値
　　Dim k4 As Integer '1の位の数値
　　Dim rw As Integer '出力行カウンタ
　　Dim Num As Integer '作り出した数

　　For k1 = 1 To 9
　　　　For k2 = k1 + 1 To 9
　　　　　　For k3 = k2 + 1 To 9
　　　　　　　　For k4 = k3 + 1 To 9
　　　　　　　　　　Num = k1 & k2 & k3 & k4
　　　　　　　　　　'A列に書き出す
　　　　　　　　　　rw = rw + 1
　　　　　　　　　　Cells(rw, 1) = Num
　　　　　　　　Next
　　　　　　Next
　　　　Next
　　Next
End Sub

補足

プログラムとかは全然分からないのですが。

＞ExcelVBAです。こんなのでいいのかな。書いてみて何か恥ずかしいのは何故？
　（ツール→マクロ→Visual Basic Editor でコードウインドウに貼り付けます）
出力を変えれば、当然VBでもＯＫ。
出力を変える？どういう意味ですか？まったくなんか買ったりして勉強したこと内ので分からないのですが
そういうことは書店なんかで売ってる本を買えば分かったりするんですか？

回答No.4

hardy50

MS VisualBasic　や　Excel でなら割と簡単にできます。

回答No.3

ykkw_2001

プログラムを作ればできます。

回答No.2

coco1

1さんがおっしゃるように、Excelで計算させたいとか、画面に表示したいとか印刷したいとか、いわゆる5W1Hを満たした質問が好ましいかと思います。

補足

なにならできるとかそこら辺から分からないんですよね。
確かになに言ってるのか分かりませんね。
つまりExcelならできるんですね？

私がまずこんなのできないかなと思ったのはある範囲の中の数字の内ある条件を満たす数字を抜き出したい。ということです。（できるかどうかは分からないけど）
もちろん他にもやり方あるんでしょうけど。

結果として実際に一づつ入力するよりも簡単な作業でexcelでもなんでも良いんで
表示させたいんです。

回答No.1

hardy50

何に表示するのかさっぱりわかりません。

補足

何にというわれても分からないのですが

何になら表示できるんですか？