VBA初心者です

質問

VBAを始めたばかりなのですが、どうしてもＡ１セルから81個の乱数(１以上１００以下)をつくり、８０以上のセルを数えてＢ12セルに個数を出力するプログラムを作成し、またＡ１２には80以上の人数と いう文字列を出力しなければならないのですが、どこかが違うらしくうまくできません…。

回答No.1

soixante · ベストアンサー

どのあたりが問題になっているのでしょうか。

以下はどうでしょうか。
81個の乱数はA1から右方向に並べてみました。

Sub aaa()
Dim c As Integer

For c = 1 To 81
Cells(1, c).Value = Int(Rnd() * 100)
Next c

Cells(12, 2).Value = Application.WorksheetFunction. _
CountIf(Rows(1), ">=80")
Cells(12, 1).Value = "80以上の人数"

End Sub

お礼

ありがとうございます。とても参考になりました。

回答No.3

imogasi

質問者が作ったコードは質問に載せているのですか。
載せもしないではどこが適当でないか判らないのでは。何を考えているのかな。
（１）乱数の発生
（２）値が８０以上のセルの個数を数える
（３）文字列の作成
画家代で、このように分けて考えられるようになるべきです。
ーー
（３）はRange("A12")="80以上の人数" こんな点は質問にもならない。
（２）は色んなやり方があって、悩ましいが、エクセルワークシート関数の類推で
Sub test01() '２０を超える
Range("B12") = WorksheetFunction.CountIf(Range("a1:A10"), ">20")
End Sub
Sub test01() '３０以上
Range("B12") = WorksheetFunction.CountIf(Range("a1:A10"), ">=30")
End Sub
参考
http://officetanaka.net/excel/vba/db/db02.htm
”＞２０”の部分など難しい。VBAの経験を積まないと。
(1)の乱数などは練習のための練習だ。この質問は宿題か？もっと先に勉強すべき課題がエクセルVBAなら他に沢山あるよ。
実データを扱う仕事ではそんなに乱数を使うことは無いとおもう。本赤雨滴に使うレベルになれば、立派なものだ。
Googleででも「vba 乱数発生」で照会し
http://www.vba-world.com/rnd_1.html　など。それらによって
Sub test02()
Dim intMax As Integer
Dim intMin As Integer
intMax = 100
intMin = 1
For i = 1 To 100
Cells(i, "A") = Int((intMax - intMin + 1) * Rnd + intMin)
Next i
End Sub
もっと一通りの解説書でも読まないと、質問ばかりしな蹴ればならない。

お礼

のせるのを忘れてしまいすみません…。今後気を付けたいと思います。ありがとうございました。

回答No.2

soixante

すみません。

最初のFor Next のところ、末尾「+1」でお願いします。

Cells(1, c).Value = Int(Rnd() * 100) + 1