就職内定率についての数学的試論【3-3】

　　　　　　'各求職者の採用数を示す列にカウント
　　　　　　c_ct = 0
　　　　　　For j = 1 To 15
　　　　　　　　If Cells(j, i) = 1 Then
　　　　　　　　　　c_ct = c_ct + 1
　　　　　　　　　　If c_ct = c1 Or c_ct = c2 Or c_ct = c3 Then
　　　　　　　　　　　　Cells(j, 7) = Cells(j, 7) + 1

　　　　　　　　　　　　'選ばれた応募者を、行列上に「2」としてチェック
　　　　　　　　　　　　Cells(j, i) = 2
　　　　　　　　　　End If
　　　　　　　　End If
　　　　　　Next
　　　　End If
　　Next

　　'最終的に、採用ゼロとなった人数を数え、
　　zero_ct = 0
　　For i = 1 To 15
　　　　If Cells(i, 7) = 0 Then zero_ct = zero_ct + 1
　　Next
　　'その割合を表示する　　Cells(1, 9) = zero_ct / 15

　　'その割合の累計を求める
　　zero_rate_sum = zero_rate_sum + zero_ct / 15
　　Next


　　'以上の試行を100回やった際の、採用ゼロ割合の平均を表示する
　　Cells(1, 10) = zero_rate_sum / 100
End Sub
［【4】に続く］

[macchanfukui]

こんばんわ、こりゃ、たいしたもんですわ。尊敬しますよ。
もっともっとやってください。では、またです。♯

[ujiin]

macchanfukui様

こんばんわ（￣▽￣）ﾉ

当記事の扱う内容が、どうも一部の方々からはかなり非常識と受け取られかねない見解ぽくもあるため、論より証拠ということで、こんなものもご用意してみました＾＾

実は、プログラムを作るのには大して労力がかからなかったのですが、これを携帯に入力（私は携帯でしかネットと接続していない環境にあるのです）する手間が物凄かったので、温かいお言葉を頂けて、うれしいです(´∀｀)

こんな記事にまでわざわざコメントを頂いてしまい、本当にありがとうございました。
m(_ _)m