[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『乱数の発生、仮』(豆豚)
Sub 元データを参考に発生()
For 項目 = 1 To 10 '項目数を変更 列 = 項目 + 3 '4行目 最小 = WorksheetFunction.Min(Cells(12, 列).Resize(15)) 最大 = WorksheetFunction.Max(Cells(12, 列).Resize(15)) 幅 = 最大 - 最小 For サンプル = 1 To 25 'サンプル数を変更 行 = サンプル + 11 '12列目 If Cells(行, 列) = "" Then Cells(行, 列).NumberFormatLocal = "0.000" Cells(行, 列) = Rnd() * 幅 + 最小 Cells(行, 列) = Round(Rnd() * 幅 + 最小, 3) End If Next Next End Sub
以前乱数について聞いてみましたが
色々と調べてしてやってみたとろこ何とか思った通りに動いてくれました。
もっとシンプルに、コンパクトにする方法などありますでしょうか。
起点になるセルが個人的にわかりにくいかなと思ったのですが
下手に弄って動かなくなると怖いのであまり弄れていません。
アドバイスをお願いします。
< 使用 Excel:Excel2019、使用 OS:Windows10 >
| 本来ならデータが出力されるべきなのですが会社の古い習慣になっており
| まぁ品質に関わるというものでもないのでルーティン化されております。
信頼区間内に収まっているかどうかの品質チェックが目的であるとすると、
その作り方は上下が抑えられるので、形式的な数値作成と言わざるを得ません。
必要とされるデータサイズの辻褄を合わせるための方策でしか無く、
品質管理の目的に沿ったことなのか疑問です。
昔からやっているからよい、とはならないのではないですか。
門外漢ですが、とても違和感を感じました。
大げさかもしれないが、神戸製鋼所の品質不正事件もありました。
そうならないよう、よくお考え頂いた方がよいと思います。
(γ) 2020/05/23(土) 13:23
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.