Excel VBA 質問スレ Part66

**1000** · 2020/05/10(日) 13:43:45.00

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK

※前スレ
Excel VBA 質問スレ Part65
https://mevius.5ch.net/test/read.cgi/tech/1584430040/

※デフォルト設定

**デフォルトの名無しさん** · 2020/05/14(木) 23:50:14.00

>>76>>77
ポーリングしてる機器Aの状態に応じて機器B、Cに異なるコマンドを送ってデータを取得する様な処理が何通りか合って多くなってます。インターフェースクラスとの間に処理クラスみたいなのを入れるのでしょうか

**デフォルトの名無しさん** · 2020/05/15(金) 00:17:59.54

>>82
データの取得をクエリサービスクラスに分離してください
フォームクラスはフォーム自身の管理とサービスの呼び出しだけを行うものです

**デフォルトの名無しさん** · 2020/05/15(金) 00:41:48.57

>>81
今はボタン使うマクロしか作る予定がないだけだと思うが。
csvを使うマクロが必要になった時に調べるだろうし、
今は知らないからって自虐的になる必要ないんでは？

>>82
一般的にオブジェクト指向は「最終的にやらせたいこと（＝やれること）」をメソッドとしてクラスに定義にして、
そのための条件や必要なデータなどはクラス自体が判断したり取得したりするか、引数として与える
もし、Getter等でデータをメインルーチンに集めて統合的に処理するなら従来の手続き型になる

今回の例で言えば、
機器BCからから受け取ったデータを処理するPublicメソッドを定義したクラスを作って
機器Aに応じて機器BCにコマンドを送ったりっていった処理は、そのクラス内でやるのがいいかも

**デフォルトの名無しさん** · 2020/05/15(金) 01:33:02.14

ExcelフォームにExcelグリッドコントロールがあればむてきだたかもしれない

**デフォルトの名無しさん** · 2020/05/15(金) 01:38:53.47

割り込みとかコールバックとかわからないシロートの発想で笑える

**デフォルトの名無しさん** · 2020/05/15(金) 01:42:44.01

>>84
CSVを扱う必要性がじりじり迫ってるんだけどネットにあるコードの窃盗常習犯で覚える脳みそがないからノースキル野郎　
当然モチベもないから全然進んでない

①ダイアログで任意のCSVデータを選択して
それを今開いているシートに読み込まれる(CSVデータは読み込んだ後に自動で閉じる)
(元々シートにグラフがあるがそれはそのまま)

②このシートをブック内の一番右にシートをコピー

多分②はどこかで拾えそうだけど①のプロシージャがありそうでなかなかネットから盗めず激ムズ　
ここの勉強できる人達は勝ち組だよ

**デフォルトの名無しさん** · 2020/05/15(金) 02:20:59.50

勝ち組かどうかは別問題だな

**デフォルトの名無しさん** · 2020/05/15(金) 09:02:28.91

非表示のシートがいくつかある状態で、一番右端のシートをアクティブにしたいのですが、worksheets.countで取得しようとすると、非表示のシートが選択されてしまいます
表示されているシートの一番右端をアクティブにするにはどうすればいいですか？

**デフォルトの名無しさん** · 2020/05/15(金) 09:32:08.17

質問がおかしかったので書き直します

マクロブックでなくアドインでやっています
一番右端のシートから値を取ってきて、その後に作成する新規のシートに貼り付けたいです
Sheets(WorkSheets.Count).Activateで、表示上の一番右端のシートをアクティブにすることはできるのですが、操作ができません
非表示のシートがいくつかあり、シート番号は若くてもそちらがWorkSheets.Countで選ばれているようで、値はそこから取ってきてしまっているみたいです
エクセルの表示上のシートの並びで、一番右端を選択してそこから値を取りたいのですが、どうすればいいでしょうか？

**デフォルトの名無しさん** · 2020/05/15(金) 09:38:25.85

For i = Worksheets.Count To 1 Step - 1

If Worksheets(i).Visible Then
Worksheets(i).Activate
Exit For
End If

Next

**デフォルトの名無しさん** · 2020/05/15(金) 12:19:24.18

>>91
あー、なるほど
カウントを減らしていって最初にヒットしたVisibleでループを抜ければいいんですね
助かりました、ありがとうございます

**デフォルトの名無しさん** · 2020/05/15(金) 12:51:25.51

シート1にラベルやタイトルや色を設定した
雛型になるグラフがあって
それをアクティブなシートにコピーして貼り付けられる事コード、もし出来れば教えて下さい。

今はシート1に戻ってグラフをコピーして
貼りたいシートに戻って貼り付け
をやってます
数値は反映させなくて雛形になるグラフをとにかくすぐにアクティブなシートに持ってきたいです

マクロの記録でもやり方わからずです…

シート1にある("グラフ1")というのを
アクティブなシートに貼り付け、わかりませぬ

**デフォルトの名無しさん** · 2020/05/15(金) 13:03:29.53

Ruby なんか、こういう感じで、CSV ファイルを1行ずつ処理していくだけ。
GUI で処理すると、Rubyよりも何倍も難しい

require 'csv'

file_path = ARGV[ 0 ]

# 引数には、ファイルパスを渡す。input.csv
# CSV ファイルを、1行ずつ処理する
CSV.foreach( file_path ) do |row|
puts "#{ row[ "col_1" ] } : #{ row[ "col_2" ] }" # 列1・列2
end

**デフォルトの名無しさん** · 2020/05/15(金) 17:00:34.32

シート1にあるグラフ1をアクティブシートにコピペ

調べてみたところ結局俺がやりたいのはシンプルにこれか
マクロの記録だと限界あるわ。

**デフォルトの名無しさん** · 2020/05/15(金) 19:22:44.18

Sub 数値反転()
Dim ms As VbMsgBoxResult
Dim gg As Long
ms = MsgBox("マイナス値？", vbYesNo, "B列C列を確認")
If ms = vbYes Then
gg = 113
Do While Cells(gg, 2) <> ""
Cells(gg, 17) = Cells(gg, 2) * -1
Cells(gg, 18) = Cells(gg, 3) * -1
gg = gg + 1
Else
Do While Cells(gg, 2) <> ""
Cells(gg, 17) = Cells(gg, 2)
Cells(gg, 18) = Cells(gg, 3)
gg = gg + 1
Loop
End If
End Sub

ドヤ顔でいけるだろと思ったらnoを選択するとElseの次のDo whileのところでエラーになりますけどどう手直ししたらいいですか

**デフォルトの名無しさん** · 2020/05/15(金) 19:26:11.81

>>96
vbNoのとき、ggはいくつ？

**デフォルトの名無しさん** · 2020/05/15(金) 19:30:22.00

>>97
レスした後にvbnoの時のgg入れ忘れてたと思ってElseの後に
gg=113を入れたけどやっぱりエラーになりました
根本的にルールが間違ってます？

**デフォルトの名無しさん** · 2020/05/15(金) 19:39:43.78

1つめの Do while に対応する Loop がない

**デフォルトの名無しさん** · 2020/05/15(金) 19:49:26.82

>>99
ほんと恥ずかしすぎるミスでした。
ありがとうございます。　
間違っといてなんだけど自分の考え方が間違ってない事もわかってホッとしました。
何言ってんだこいつと思われて当然ですがそんな気持ちです

**デフォルトの名無しさん** · 2020/05/15(金) 20:01:55.19

>>100
そもそもそれ以前に馬鹿過ぎて話にならない

**デフォルトの名無しさん** · 2020/05/15(金) 20:42:05.52

インデントで分かったりしないもんかね

**デフォルトの名無しさん** · 2020/05/15(金) 20:58:58.45

VSのエディタなら勝手にやってくれるけどExcelVBEはそこまで親切じゃないから、
　・Doと書いたら、中間の処理書く前にLoopをセットで先に書く。
　・中間の処理はインデント付ける
こうしないと長い処理だとミスる。

**デフォルトの名無しさん** · 2020/05/15(金) 21:24:59.09

田中先生ユーチューバーになってたんか。
エクセル系ユーチューバーは前からいるけど
彼らのチャンネル登録者数どんどん抜いてくな。
マクロ以外にもエクセルの機能全般もアップしてるし
他のエクセルユーチューバ―はもう躍進することはないな。
ご愁傷さま。

**デフォルトの名無しさん** · 2020/05/15(金) 21:26:28.78

インデントしてるとVBEが勝手に空行にもインデント用スペースいれやがる

**デフォルトの名無しさん** · 2020/05/15(金) 22:51:12.17

マクロの処理だけmsオーダーで止めて、シートでの作業には影響させない方法ってありますか？
sleepやapplication.waitを使うと、止めている間はマウスポインタが待機中に切り替わって気が散ります。

**デフォルトの名無しさん** · 2020/05/15(金) 23:02:13.60

意味が解らん

**デフォルトの名無しさん** · 2020/05/15(金) 23:07:56.71

DoEvents を定期的に入れてあげて妥協するのがいいのでは

**デフォルトの名無しさん** · 2020/05/16(土) 00:10:47.87

気が散るほうが悪い

**デフォルトの名無しさん** · 2020/05/16(土) 00:24:20.49

waitが長いと入力作業とかできんだろうな
マルチスレッドできたっけ？

**デフォルトの名無しさん** · 2020/05/16(土) 00:27:49.65

>msオーダー
ジェイッ、ジェイッ、ジェイッ、ジェイッwwww

>>107
俺もわからん。
どういう意味だろう。

**デフォルトの名無しさん** · 2020/05/16(土) 00:41:23.65

馬鹿は全角英文字、自分勝手な略語を使う法則

**デフォルトの名無しさん** · 2020/05/16(土) 02:12:04.53

非表示にすれば気にならないとか？

**デフォルトの名無しさん** · 2020/05/16(土) 02:34:42.15

msオーダーって何？

**デフォルトの名無しさん** · 2020/05/16(土) 05:07:24.47

マイクロ秒で処理するってことかな？

**デフォルトの名無しさん** · 2020/05/16(土) 08:49:36.47

あーミリ秒指定でマクロを止めたいってことか？
それでもまだわからん

**デフォルトの名無しさん** · 2020/05/16(土) 09:59:53.95

せめてmsecオーダーと書けばわかりやすいのに
しかも100ミリとかじゃないか？数ミリは気づかないはず
GetInputStateとDoEventsでどうにかできんか

**デフォルトの名無しさん** · 2020/05/17(日) 13:30:28.43

>>110
マルチプロセスならできそうな気がしない？
知らんけど

**デフォルトの名無しさん** · 2020/05/17(日) 13:48:57.86

[現象]
excelの vbaエディタで、フォントの設定が出来なくなった。
ツール－オプション－エディタの設定を選択すると、excelが強制終了してしまう。

[環境]
windows10 pro
office personal 2019

[発生時の操作]
エディタの設定を、MSpゴシックから、 Ricty Diminished（Ricty Diminished Discordだったかも）
に変更した直後から発生するようになった。

http://blog.higty.xyz/post/vbe-setting-error/
https://www.moug.net/tech/exvba/0150130.html
ここを見ましたが、レジストリキー：HKEY_CURRENT_USER\Software\Microsoft\VBA\7.1\Common が存在しません。

よろしくお願いします

**デフォルトの名無しさん** · 2020/05/17(日) 14:05:50.89

>>119
死ね

**デフォルトの名無しさん** · 2020/05/17(日) 14:06:13.48

>>119
ワークシートのページレイアウトからテーマは変更できる？

**デフォルトの名無しさん** · 2020/05/17(日) 14:11:19.59

>>120
この馬鹿モンが

**デフォルトの名無しさん** · 2020/05/17(日) 14:12:58.27

>>121
はいできますがそれでは解決しないのです

**デフォルトの名無しさん** · 2020/05/17(日) 14:21:32.25

>>123
まずレジストリのVBA\7.1\Commonが存在しないことが異常だから、Excelを再インストールするのが一番の早道な気がする

**sage** · 2020/05/17(日) 14:31:40.69

>>121
123 は私の書き込みではないのですが、レイアウトを変更して何かファイルを保存すれば
レジストリキーが作成されるということかと思い試しましたが、作成されませんでした
>>124
やはりそれしかないですかね。

**sage** · 2020/05/17(日) 14:34:16.22

>>125
×レイアウトを変更して
○テーマを変更して

**デフォルトの名無しさん** · 2020/05/17(日) 15:10:42.19

>>104
萩原をおぎわらって読んだりIndirectをインディレクトって言ってたから
そっ閉じしたわ。

**デフォルトの名無しさん** · 2020/05/17(日) 16:08:33.48

インストロールと言ったら怒られたナリみたいなもんか。

**デフォルトの名無しさん** · 2020/05/17(日) 16:57:48.19

奇天烈大百科が巻物だったら、まさしくインストロールだぞ

**デフォルトの名無しさん** · 2020/05/17(日) 17:38:29.95

奇天烈大百科が巻物だったら、まさしくインストロールだぞ
↓
If the eccentric encyclopedia is a scroll, it's just an installation.
↓
風変わりな百科事典が巻物なら、それは単なるインスタレーションです。

意味がさっぱり分からなかったので、Google翻訳かけてみたら、意味が分かるようになったぞ。

**デフォルトの名無しさん** · 2020/05/17(日) 18:09:25.04

英語の方が簡単なんだよ
早くそれに気づけ

**デフォルトの名無しさん** · 2020/05/17(日) 21:52:01.62

textboxの値チェックがうまく行きません。20~100までの範囲を入れたいのでchangeイベントで値がこの範囲か監視してます。
100を超えていたら100に、20を下回ると20になる様にリミッタを付けました。
すると100にした後にキーボード操作で30にしようとすると、0を消した時点で強制的に20になり、そこから何か押すと100になってしまいます。
どうすれば上手くいくのでしょうか。

**デフォルトの名無しさん** · 2020/05/17(日) 22:01:56.66

>>132
そういう時はスピンボタンを使った方がいいよ

**デフォルトの名無しさん** · 2020/05/17(日) 22:08:25.62

馬鹿はWindowsのUIもわからず自分勝手なインターフェースを作る法則

**デフォルトの名無しさん** · 2020/05/17(日) 23:08:18.21

>>132
Exitイベントを使う

**デフォルトの名無しさん** · 2020/05/17(日) 23:21:22.78

大学で学ぶ物理を板書１枚にまとめてみた
https://www.youtube.com/watch?v=naBcXoq4aOI
物理の研究分野を板書１枚にまとめてみた
https://www.youtube.com/watch?v=4W-pWuXUaZQ
理学部と工学部の違いとは？
https://www.youtube.com/watch?v=eJH4nKU6mJA&;t=80s
大学と大学院の違い
https://www.youtube.com/watch?v=xBKAEvTegN8
高校と大学の積分は決定的に違う？微分積分学の基本定理は実はすごい！
https://www.youtube.com/watch?v=V9i_zlbssbs&;t=475s
数学にはどんな研究分野がある？数学の世界地図を一枚に描いて紹介してみた！
https://www.youtube.com/watch?v=fK_JGVti5y8

**デフォルトの名無しさん** · 2020/05/17(日) 23:30:26.45

>>136
ハゲとるやないかw
髪でうまくごまかしてるようだけど

**デフォルトの名無しさん** · 2020/05/17(日) 23:46:16.64

>>135
ありがとうございます
コピペ対策以外は出来ました

**デフォルトの名無しさん** · 2020/05/18(月) 20:11:09.72

ちょっと息抜きにセルや文字の色をVBAでやろうと思ったら大きく二通りあるんだね
カラープロパティとRGB関数
どっちで覚えるのが王道？

**デフォルトの名無しさん** · 2020/05/18(月) 20:20:02.29

いや違うか
そんなに普段カラフルに使わないならカラーインデックス
細かく覚えて使いたいならカラープロパティかRGBってとこか
うーん前者かな

**デフォルトの名無しさん** · 2020/05/18(月) 20:31:02.10

>>139
わかってない
ColorプロパティにRGB関数やインデックスの値を代入するんだよ
基本的には両方使わないと色が変えられない

**デフォルトの名無しさん** · 2020/05/18(月) 20:37:00.50

>>141
なるほどぜんぜんわかってなかった
インデックス番号で数種類覚えちゃうか
RGB関数でいくつかの組み合わせ覚えちゃうか
何やろうにしても何種類かやり方があって初心者にきついわ

**デフォルトの名無しさん** · 2020/05/18(月) 20:57:41.87

>>142
インデックス色はカラーパレットの位置に設定してある色だから環境によっては色が変わるよ

**デフォルトの名無しさん** · 2020/05/18(月) 21:11:42.05

ほんと勉強になりますわ
最初は0と255の組み合わせだけでRGB関数で覚えちゃうようにしますわ
この8種類くらいしか多分使わないかな

**デフォルトの名無しさん** · 2020/05/18(月) 22:21:45.09

どういう時どれを使うのが適しているかで選ぶのであって、どっちで覚えるとかじゃない

**デフォルトの名無しさん** · 2020/05/18(月) 22:29:22.00

>>145
社内のマクロツールの中味たまに見るけどなんとなく、どっちかに統一してるって感じの人が多くない？

**デフォルトの名無しさん** · 2020/05/18(月) 22:32:29.74

どっちでもいいんであれば好きに統一すればいいんじゃね

**デフォルトの名無しさん** · 2020/05/18(月) 22:39:17.66

たかが色だと思って使わないと思ってたけど
メッセージボックスで黄色い部分の数値を確認後、入力とかで
その範囲を真っ黄色にしてやって元に戻したり　
他人、(おばちゃん)とかにはとにかくわかりやすく作るようにしてみることにした

**デフォルトの名無しさん** · 2020/05/19(火) 05:32:55.42

rgb値の組み合わせを覚えるのは大変なのでWebColor名で覚えるといいかも。
rgbAliceBlue
rgbLightBlue
rgbBlue
rgbMidnightBlue
みたいな感じで記述すればrgb値を指定できる。よく使うやつだけ覚えとけばいい。

**デフォルトの名無しさん** · 2020/05/19(火) 07:27:37.05

vbRed　　「・・・。」
vbGreen 「・・・。」
vbBlue 　「・・・。」

**デフォルトの名無しさん** · 2020/05/19(火) 07:31:04.28

>「・・・。」
あーウゼー

**デフォルトの名無しさん** · 2020/05/19(火) 08:30:30.69

あーおれも、基本はそのvb～だ
グラデーション的な見栄えが必要の時とかは変えるけど

**デフォルトの名無しさん** · 2020/05/19(火) 17:47:57.55

アクティブシートをコピーした後のコードがムズいなぁ
細かい所をいじる知識がなさすぎ

**デフォルトの名無しさん** · 2020/05/19(火) 18:07:59.71

逆に原紙を作っておいて普段はそのコピーを使うようにするといい

**デフォルトの名無しさん** · 2020/05/19(火) 18:17:23.12

>>154
ありがとう。その方が都合そうしたよ。
シート名の取得も特定のセルから何とかできた。あとはブック名を指示したいんだけど調べりゃすぐ出てきそうだけどなかなか出て来ないわ
エラー出ないように細かく作りたいもんだけ

**デフォルトの名無しさん** · 2020/05/19(火) 19:19:11.33

10万円給付の紐付けなんかVBAで余裕に出来るのに話題にならないのが不思議

**デフォルトの名無しさん** · 2020/05/19(火) 19:48:13.64

>>156
こういう馬鹿が職場にいて余計混乱させているだけだろ

**デフォルトの名無しさん** · 2020/05/19(火) 20:27:14.48

そのうち消えた10万円とかなるんじゃね

**デフォルトの名無しさん** · 2020/05/19(火) 20:56:41.62

クルーズ船の消えた弁当

**デフォルトの名無しさん** · 2020/05/19(火) 21:22:42.73

絶対にわからん関数ばかり使ってる理解不明なコードをネットからパクって少し弄ったら完全に業務で対応できてラッキー
そこから今日もユーザーフォーム適当に作ってメッセージボックスとインプットボックスを組んでいって
効率化したけど相変わらず上達せん毎日だわ

**デフォルトの名無しさん** · 2020/05/19(火) 21:40:57.51

ここは日記帳ではない

**デフォルトの名無しさん** · 2020/05/19(火) 22:33:25.66

>>156
1億2000万件のデータを、誤読無く、重複無く、生死の年月日まで
勘案して処理する自治体まで勘案してエクセルに食わせろとな？

**デフォルトの名無しさん** · 2020/05/19(火) 23:58:06.20

相談させてください。
羅列されたデータにオートフィルタをかけて、その中でのランダム選択をシートを使わないでやる方法が知りたいです。
A列(１～６年)、B列(1～８組)、C列(名前)
みたいな感じで、AとBから複数選択後にCから選び出す感じです。

今までは作業用のシートを設けてオートフィルタをかけたものを別シートにコピーし、その中でrandomで選んでいました。
諸事情により作業用シートが作れないので、おそらく配列内だとは思うのですが・・・・

**デフォルトの名無しさん** · 2020/05/20(水) 00:07:04.62

>>163
VBAなら、とりあえず乱数を発生して、その行がオートフィルタかかってたらもう一度乱数からやり直せばいいだけ

**デフォルトの名無しさん** · 2020/05/20(水) 01:09:15.99

俺なら配列に入れてからやる

**デフォルトの名無しさん** · 2020/05/20(水) 02:23:38.33

>>163
フィルタ掛けた結果をROWだけ配列に抜き出して、乱数で配列の中から一つ選べばいいんじゃね

**163** · 2020/05/20(水) 06:43:20.78

>>166
早速ありがとうございます
そのままだとフィルターかけられたROWも選ばれません？

オートフィルターかけた配列を一旦コピーすればいいのでしょうか？

**デフォルトの名無しさん** · 2020/05/20(水) 07:03:34.54

ランダム選択が目的なら、そもそも、オートフィルターにこだわる必要あるのかな？
VBA使うなら、オートフィルターを扱うのは微妙に面倒だから、自前でフィルターすればいいと思うぞ

**デフォルトの名無しさん** · 2020/05/20(水) 08:27:34.61

オートフィルタやオートフィルタ的コードは使わない
VBAのみで

乱数生成は一度きり
3桁の乱数 a を生成する

まず a を6で割って余りが０～５まででるんで
0が出たら6年
1が出たら1年
2が出たら2年
3が出たら3年
4が出たら4年
5が出たら5年
とする
例えばここで2が出て2年が選択されたら
さっきの乱数 a をまた使って、組数で割って余りを求める
んで同じようにして
今度は選択された組の人数で割って個人に割り当てられた番号でを特定する

これを繰り返して複数人を選んでいく

選ぶ過程で同じ学年はダメとかあるなら
上の例で言えば一旦2が出たら次は2を排除するとか
繰り返し文の中で if 使って条件つけていく

学年の数、組の数、クラス人数は予めシートに表にしておくこと

とかとか

**デフォルトの名無しさん** · 2020/05/20(水) 08:28:13.58

一度きりってのは1人選ぶのに一度ってことでしゅ

**デフォルトの名無しさん** · 2020/05/20(水) 08:30:51.03

6学年あって6組の学年があったりするとだめか
階層が下がるごとに乱数生成してもいいのかね

**デフォルトの名無しさん** · 2020/05/20(水) 09:26:22.31

何年何組は決めておいてから誰にするかを乱数？

**デフォルトの名無しさん** · 2020/05/20(水) 09:45:48.33

Ａ１からオートフィルターをかけて
もし、変数aが空欄でなければ、Ｂ列で変数aと同じ値だけにしぼる
もし、変数bが空欄でなければ、Ｃ列で変数bと同じ値だけにしぼる
もし、変数cが空欄でなければ、Ｄ列で変数cと同じ値だけにしぼる

というような書き方をおしえてください

**デフォルトの名無しさん** · 2020/05/20(水) 11:11:47.07

>>163
Dim r As Range
Dim n As Long
Dim i As Long

With Range("A1").CurrentRegion
With .Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)

n = 0
For Each r In .Rows
n = n + 1
Next
if n = 0 then
exit sub
end if
n = 1以上n以下の乱数

i = 1
For Each r In .Rows
If i = n Then
rを使ってなにかする
Exit Sub
End If
i = i + 1
Next

End With
End With

**デフォルトの名無しさん** · 2020/05/20(水) 11:23:14.33

>>173

まず意味が不明　→「変数aが空欄」

よくわかんないけど、
特定の表について、
VBA上で宣言した変数ごとに対応した列をフィルタする簡単なものなら書いてみた。

「空欄」の意味が不明なので、NULLか空文字か、それともセルのことだったのか、
そういうことも質問時に気にするように。

https://i.imgur.com/wNuWmnl.png

**173** · 2020/05/20(水) 12:02:23.38

>>175

ありがとうございますm(_ _)m

**デフォルトの名無しさん** · 2020/05/20(水) 15:56:33.77

余談だがグループの中から１人をランダムで選ぶ場合、
同じことを繰り返すと同じ人が選ばれる可能性がでてくる
それを無くしたい場合はシャッフルしてから順番に選ぶといい

**デフォルトの名無しさん** · 2020/05/20(水) 17:56:09.89

何かをさせるときに一度リセットする的なアレですね。
プロージャくっつけて作ってる初心者だが何となくその感覚
スマホとPCのデータが両方消えて
前スレで乱数の発生教えてくれた人のコードが見れなくなったが、やべえ

**デフォルトの名無しさん** · 2020/05/20(水) 18:10:15.58

いや選ばれる人の立場になると、
俺前回やったのにまた俺？他の選ばれてない人はズルくね？みたいな

**デフォルトの名無しさん** · 2020/05/20(水) 22:38:53.36

前スレの教えてくれた恩人のコードやっと見つけたあああああ

Sub 乱数発生させる()
　　For 項目 = 1 To 6　　'項目数を変更
　　　　列 = 項目 + 2
　　　　最小 = WorksheetFunction.Min(Cells(6, 列).Resize(30))
　　　　最大 = WorksheetFunction.Max(Cells(6, 列).Resize(30))
　　　　幅 = 最大 - 最小
　　　　For サンプル = 1 To 25 'サンプル数
　　　　　　行 = サンプル + 5
　　　　　　If Cells(行, 列) = "" Then
　　　　　　　　Cells(行, 列).NumberFormatLocal = "0.000"
　　　　　　　　Cells(行, 列) = Rnd() * 幅 + 最小
　　　　　　　　Cells(行, 列) = Round(Rnd() * 幅 + 最小, 3)
　　　　　　End If
　　　　Next
　　Next
End Sub

これがC6がサンプル1の項目1が始まりになるシートで使えてるんだけど
これをC12からとかに変えるにはどこ弄ればいいですか？
誰かコメントをこれに添えてもらえませんか…
前スレの大恩人に救われたコードを更に流用したいです

**デフォルトの名無しさん** · 2020/05/20(水) 23:01:11.08

Sub 乱数発生させる()
　　For 項目 = 1 To 20　　'項目数を変更
　　　　列 = 項目 +
　　　　最小 = WorksheetFunction.Min(Cells(6, 列).Resize(30))
　　　　最大 = WorksheetFunction.Max(Cells(6, 列).Resize(30))
　　　　幅 = 最大 - 最小
　　　　For サンプル = 1 To 25 'サンプル数
　　　　　　行 = サンプル + 11
　　　　　　If Cells(行, 列) = "" Then
　　　　　　　　Cells(行, 列).NumberFormatLocal = "0.000"
　　　　　　　　Cells(行, 列) = Rnd() * 幅 + 最小
　　　　　　　　Cells(行, 列) = Round(Rnd() * 幅 + 最小, 3)
　　　　　　End If
　　　　Next
　　Next
End Sub

項目数を20に変えてC12セルから入力させたいんだけどWorksheetfunctionのとこの6と30も変えないとダメですかねこれ
乱数が狂うのかなぁ