Excel VBA 質問スレ Part67
■ このスレッドは過去ログ倉庫に格納されています
!extend:checked:vvvvv:1000:512 https://mevius.5ch.net/test/read.cgi/tech/1589085825/ ラウンドワンとかゲームセンターに置いてある >>673 俺らそういうのいやだから ベースモデル考えて確率的に速い手段を選ぶだけ。 条件にもよるけど今回の話の場合は1回目重複覚悟でやってから重複分だけ再度重複なしの方法でやるのが速そうだね >>752 >>747 それだと当選確率が公平にならない気がする 数学的に「当選者を除外しながら次を抽選」で公平になる >>756 もう無理して数式でなんとかしようとするよりVBAでさっさと作った方がややこしくないし手っ取り早いんじゃないの いぜん懸賞の雑誌で架空の人物に当選したとかやってたな 発表は発送をもってかえさせろってのは 抽選システムなんて大概再使用されるだろうから手作業で当選者除去とかやらないといけないならVBAで組んじゃったほうがいいだろうな つかVBAの乱数とか公平といえるんかね プログラムによる抽選が不正扱いなら全国の企業が謝罪案件になるが・・・ Sheet2で使うユーザーフォームにSheet1から参照したデータをコンボボックスに表示させ リストに1件だけ表示っておかしくね？ listindexとoffset使えばいけんじゃね? A列最終行の次の行から、下方向150行に本日の日付を表示させたいのですが、 >>773 >>776 for とか、変数宣言とか抜けてるけど、そこはがんばって補完して。 forなんて使わなくてもいいんじゃね >>780 >>781 そういう感想が出るってことは、答えを出すための手順を全く自分で考えたことがないのでは… RNDやRAND関数は疑似乱数だから公平じゃない 同じシード与えたら同じ乱数列吐くよね。 もう最大限のことも自分で考えない馬鹿には答えなくて良くね？ >>789 >>787 数式で「真の乱数」を発生させることは不可能でしょ excel起動時のシードが同じだから変えたほうがいいとおもう >>794 乱数こそこのスレで教えてくれた最高の武器 学術の巨大掲示板群 - アルファ・ラボ ttp://x0000.net 2016使ってるけど、いつの間にかSORTBYとかFILTERとか使えるようになってるのな。 そもそも乱数に偏りがあろうと応募者が狙った並びでない時点で機会は公平だけどな 決まった番号がでるとわかっているからその番号に身内を入れて置けるわな 乱数で疑似データをつくるとばらつきが均等になるから偏差を求めたときに不自然に広がるよね スレチだったらｽﾏｿだけど、excelのスピル？のせいで、ver違うexcel間で共有してたファイルが勝手に配列やら@やら数式が変換されてバグってんだけど、これ無効にできないの？ >>805 >>807 旧バージョンの配列式に勝手に＠が付くのは仕様じゃねえの パーフェクトExcelVBAの初版本の正誤表とサンプルコードってどこかにありませんか？ コレクションにaddしたシートだけを一発で選択するにはどうしたら良いですか？ >>815 セルA1~A5に1~5が入っていて、5個のaverage=3ですが、 >>817 https://kokodane.com/tec3_3.htm ITに疎いクライアントのために >>817 >>819 >>819 >>815 >>819 VBAの知識は全く無いけど無駄な事は少しでも省きたい あーっとすみません >>828 >>832 悪いけどこの程度のこと質問するようじゃ手でやったほうが早いと思う >>834 >>835 >>828 range("a1:最後").value=emptyじゃだめなのか >>828 .Clear と .ClearContents と .Value=Empty の違いがわからん Clearはセルに入力されてる数式や値、そして設定されてる書式もすべて消す 不規則な結合セルがあると .MergeArea.ClearContentsはエラーになるけど .Value = Emptyなら動くから>>828 はRange("A:A").Value = Emptyの一行で解決ってこと >>834-844 ありがとうございます！ ■ このスレッドは過去ログ倉庫に格納されています
