- ベストアンサー
【VBA】組み合わせの計算
VBAにてランダム(適当)な値10個の中で1.5に近い組み合わせを探し、それ以外の値を隣の列に移動させたいのですが、方法がわかりません。 どなたか教えてください
- takasan_2525
- お礼率37% (75/199)
- Excel（エクセル）
- 回答数2
- ありがとう数1
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (1)
- f272
- ベストアンサー率46% (8047/17201)
これは10個の数値から2個を選ぶのか？それとも3個以上選んで合計が1.5に近くなっていればよいのか？
補足
いくつでもです 合計の値が1.5に一番近い組み合わせ以外を隣の列のセルに移したいです
関連するQ&A
- VBAのプログラムに関してです
VBAに関する質問です。 いま、A列に0～4の数字が順番に繰り返し記入されていて（数字の数はランダム）、B列に適当な値が記入されています。A列の中から1を探しだして（１つ上の行の数字が0）、 その行から１つ戻ったB列の値をC列に記入、A列の次の0～4の繰り返しで同じ条件の1を探してその行から2つ戻ったB列の値をD列に記入する。といったことをA列が空白の行になるまで繰り返し行うというプログラムを教えてほしいです。お願いします。 例） A：00011112233400001123334400011111122233400000－ B：12345678912345678912345678912345678912345678－ となってるA列のそれぞれの0～4の塊の最初の1をさがしてそれに対応するBをそぜぞれ求めていくというものです。 この場合だと実行結果C・D列には C：379 D：688 となってほしいです。
- ベストアンサー
- Visual Basic
- 共通の値をもつ座標の組み合わせについて
左図のような表があるときに、共通の値"1"を持つ座標の組み合わせを右図のように表示できるVBAを作ることができないかということで考えているところです。 右図の説明をすると ２行目にある 1 2 5 7は 左図 （１行,２列）のところに1、（１行,５列）のところに1、（１行,７列）のところに1、（２行,５列）のところに1、（２行,７列）のところに1、（５行,７列）のところに1 というように 1 2 5 7 のどの組み合わせを選んでも必ず1がある組み合わせです。 以下右図３行目以降も同じような形で表示されています。 VBAに詳しい方からのお知恵を拝借することができれば幸いです。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 組み合わせ計算について
従業員のスキルポイントごとに業務によって人数を調整できるよう、エクセルで値を求められるか作業を行っていますが、全く手詰まりになっています。 もとはこのようなデータです。 (ゆがんで見にくかったらごめんなさい） 業務A 業務B 業務C --|--------------------- A | 0.5 1.0 * B | * 0.5 1.0 C | 1.0 0.3 0.3 D | 0.3 1.0 0.5 E | 1.0 * 0.5 ・A,B,C,D.Eのスキルの度合いが1.0,0.5,0.3、スキルなし(*)で数値化されています。 ・業務Aには2.2、業務Bには2.1、業務Cには1.8のスキル合計が必要です。 個々のスキルの組合せ合計値>=業務に必要なスキル合計値 で、数値をだしたいです。それぞれの業務に必要な頭数の組み合わせを算出する方法はありますでしょうか？ また、参考までにお聞きしたいのですが、業務に応じて必要なスキル合計値がランダムに変化していく場合があるので、それに合うような組み合わせを算出できる方法は難しいでしょうか？ ご教授のほど、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- VBAか関数 「 ２と３の組合せ 」 の行が、いくつあるか？
VBAか関数 「 ２と３の組合せ 」 の行が、いくつあるか？ Windows XP Home Edition SP3 Office XP Personal 2002 Excel 2002 画像の 「 C列 D列 E列 」 の 「 3列 」 だけを使った質問でございます。 数値は 2桁の整数 までしかありません。 6行目の「 C列 D列 E列 」以外で、オートフィルタをかけた後ですが、空白行もたまにございます。 オートフィルタをかけた後ですので、データのある最後行以下は全部空白です。 実際には、セルには色分けはされておりません。 ---質問のまとめ-------------------------------------- ● 「 ２ と ３ の組合せ 」（画像の黄色セル） の行が、いくつあるか？ を算出できる、関数 か マクロは、ありますでしょうか？ 質問の例では、答えは 「 ３行 」 となります。 存在しない場合には、「 ０行 」 となります。 ----------------------------------------------------- また、 「 １ と ３ の組合せ 」 の行が、いくつあるか？ 「 * と * の組合せ 」 の行が、いくつあるか？ などのように、いろいろと算出できればと思っております。 非常にややこしい質問で、恐れ入ります。 今までは、手作業で、6行目にオートフィルタをかけて行っておりました。 何卒、ご教示のほどをお願い致します。
- ベストアンサー
- オフィス系ソフト
- EXCEL VBAで組合せを作るには
EXCEL VBAで組合せを作る方法を考えているのですが、なかなか思い付かず質問させて頂いています。 例） 1 2 3 4 5 … nという数字があり、そこから抜き取り組合せを作る。 ・2個ずつの組合せ 1と2 1と3 1と4 という感じで組合わせて行くが、2と1というような逆のパターンは除外する。 ・3個ずつの組合せ、4個ずつの組合せ…と最終n-1個（n個全てを抜取る組合せは1パターンしかないので、あえて作らなくてもよいのではと思っています）まで組合せを作って行く。 という内容です。 抜き取りたい数字の個数が、いつも決まった数ではなく、それに対応したものが考えきれなくてつまづきました。 どうかよろしくお願いいたします。
- ベストアンサー
- その他（プログラミング・開発）
- vbaでvlookup
エクセルのVBAについて。 指定した範囲の中から検索条件に一致したデータを検索し、取り出してくれる関数vlookup をVBAで実現したいのですが、 目標として、エクセルのセル（列）に、値を入力されているとします。 VBAを実行するボタンをクリックすると、、、 その値に対応する文字列（事前に用意）をその値の右のセルに自動で入力させたいです。 このVBAを作ることが目標です。 vbaでvlookupを実現でなくても、それよりも簡単な方法があれば教えていただきたいです。 お手数ですが、よろしくお願いします。
- 締切済み
- Excel（エクセル）
- Excelの組み合わせをカウントしたいです。
こんにちは。 Excelの組み合わせをカウントしようと試行錯誤したのですが 未だに完成出来ないので質問させて頂きます。 A列に1から10までの数字がランダムで500行ほどあり、 A列の中で1と言う数字があった場合、 その下のセルに2があればその組み合わせを1とカウントし、 B列に合計を表示したいのですが、これは可能でしょうか？ どうかご教授下さいますよう、宜しくお願い致します。
- ベストアンサー
- 財務・会計・経理
- Excel関数、またはVBA
どなたか教えてください。 写真のようにデータが既に存在します。 (E列:L列)の値を、(H列)がゼロ値でも空セルでもない場合のみ、(P列)がゼロ値でも空セルでもない下行に「値のみ」移動させたいです。 (H列がゼロ値か空セルの場合は移動さない） E列からL列の値は1行目から始まり、約60行ごとにランダムで存在します。 例えば写真でいうと(H1)が1以上なので、(E1:L1)の値がP1からP5がゼロか空セルのためP6に移動となります。 どうぞよろしくお願いします。
- ベストアンサー
- Visual Basic
- 組合せ計算は間違っていませんか？
Ｌｏｔｏ６は４３個の数字から６個選び、当選数字がいくつ有るかで、賞金が決まります。６個含まれれば、１等 うん億円ですが、殆ど３個の５等が精一杯です。 組合せ計算は非常に苦手です。 次の計算をチェックし、間違っていたら正してください。 ＜命題＞ ４３個の数字を適当に２５個選んだ時、仮に当選数字が３個含まれたとします。 ５等の当選確率は何％か？ ＜自信の無い計算＞ ２５個から６個選ぶ組合せは、２５Ｃ６＝１７７，１００通り。 ２５個から３個選ぶ組合せは、２５Ｃ３＝ ２，３００通り。 ２，３００通りの中に当選数は１個しかありません。 当選する組合せは、１＊（２３００－１）＝２２９９通り。 当選確率は、２２９９／１７７１００＝＞１．２９８％。
- ベストアンサー
- その他（学問・教育）
お礼
自己解決しました！
補足
出来れば1.5以下で抑えたいです 同率がある場合、組み合わせの数が少ない方を優先したいです 総当たりですと、ループを10回繰り返す感じですよね？関数があれば便利なんですが