【無料配信♪】Renta !全タテコミ作品第1話

会社に社員13名おります。
その13名をランダムに3人の組合せを3グループ、4人の組合せを1グループの合計4グループ作り、ディスカッションする事になりました。
その組合せのメンバーは毎月変更し、この先1年は続ける予定です。
その組合せ表を作る事になったのですが、非常に難しいのでエクセル等での作り方を教えて下さい。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

A1:A13に以下の数式を入力


=rand()

B1:B13に社員の名前を入力

A1:B13を選択して、昇順で並べ替え

上から3人ずつグループ分け

こういうことでしょうか?
    • good
    • 8
この回答へのお礼

おお!感動しました。まさに求めていた通りの結果になりました。
ありがとうございました。

お礼日時:2007/07/16 12:53

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QExcelでの全通りの組み合わせ出力方法(文字列)

Excelについて全くの初心者で、教えて頂きたい質問があります。

Excelの文字列の全通りの組み合わせを出力がしたいのですが、その方法が分かりません。
例えばセルAに
・りんご
・みかん
・いちご

セルBに
・だいこん
・キャベツ
・トマト

があり、別のセルにその全通りの組み合わせを出力
(文字と文字の間はスペース)

りんご だいこん
りんご キャベツ
りんご トマト
みかん だいこん
みかん キャベツ
みかん トマト
いちご だいこん
いちご キャベツ
いちご トマト

この様に出来る方法はあるでしょうか?
また出来ればその裏(だいこん りんご)も出力したいと考えており、キーワードは3つまで出来るようになりたいです。

どなたかご存じでしたら、ぜひお教え下さい。
よろしくお願いします。

Aベストアンサー

A列B列は1行目からデータがあるものとします。
C列に転記するものとします。

以下の手順をおためしください。

1.Altキー+F11キーでVisualBasicEditorを呼び出します。

2.メニューから挿入、標準モジュールで出てきたコードウィンド(右側の白い広い部分)に以下のコードをコピペします。

Sub test01()
a = Cells(Rows.Count, "A").End(xlUp).Row 'A列最終行取得
b = Cells(Rows.Count, "B").End(xlUp).Row 'B列最終行取得
For i = 1 To a '1行からA列最終行まで繰り返し
For n = 1 To b '1行からB列最終行まで繰り返し
x = x + 1
Cells(x, "C") = Cells(i, "A") & " " & Cells(n, "B") 'C列に結合して転記
Next n
Next i
End Sub

3.Alt+F11キーでワークシートへもどります.

4.メニューから、ツール、マクロ、マクロで出てきたマクロ名(test01)を選択して実行

これでできます。
これがわかれば「裏」というのも簡単ですよね。
以上はVBAでの回答ですが、外していたらごめんなさい。

A列B列は1行目からデータがあるものとします。
C列に転記するものとします。

以下の手順をおためしください。

1.Altキー+F11キーでVisualBasicEditorを呼び出します。

2.メニューから挿入、標準モジュールで出てきたコードウィンド(右側の白い広い部分)に以下のコードをコピペします。

Sub test01()
a = Cells(Rows.Count, "A").End(xlUp).Row 'A列最終行取得
b = Cells(Rows.Count, "B").End(xlUp).Row 'B列最終行取得
For i = 1 To a '1行からA列最終行まで繰り返し
For n = 1 To b '1行...続きを読む

QExcelでデータ全通り組み合わせ出力方法

Excelでデータ全通り組み合わせ出力方法について教えて頂けますと助かります。

セルA~Eに、数がまちまちのアイテム名が入っています。
(セルA~Eというのは例で、変則的に全てのアイテム数は増減します。)

全ての組合せをセルG~Kに各々書き出してくれる方法はあるでしょうか?
(イメージ添付あり)

できればセルに入力すれば自動的に組合せが追加されていくのが理想です。
Excel2010を使用しており、VBAは初心者です。


どなたかご存じでしたら、ぜひお教え下さい。
よろしくお願いします。

Aベストアンサー

#1、2、cjです。#1、2、補足欄へのレスです。

取り急ぎ、コードのみ修正しました。
#2を元に書き換えています。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rSrc As Range
  Application.EnableEvents = False
  Set rSrc = Range("B2").CurrentRegion
  Application.EnableEvents = True
  If Intersect(Target, rSrc) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  Call PrintCombi(rSrc)
  Application.EnableEvents = True
End Sub

Sub PrintCombi(ByVal rSrc As Range)
  Dim tnFld As Long
  Dim nRc As Long
  Dim nConti As Long
  Dim nRow As Long
  Dim i As Long
  Dim j As Long

  tnFld = rSrc.Columns.Count
  nConti = 1
  With rSrc(1, rSrc.Columns.Count + 3)
    .CurrentRegion.Clear
    Cells(1).Resize(, tnFld).Copy .Cells(1)
    For i = tnFld To 1 Step -1
      nRc = Cells(Rows.Count, i).End(xlUp).Row
      nRow = 2
      For j = 2 To nRc
        Cells(j, i).Copy Destination:=.Cells(nRow, i).Resize(nConti)
        nRow = nRow + nConti
      Next j
      nConti = nConti * (nRc - 1)
    Next i
    With .Cells(2, 1).Resize(nConti)
      For i = 2 To tnFld
        Range(.Cells(1, i), .Cells(.Cells.Count + 1, i).End(xlUp)).Copy Destination:=.Columns(i)
      Next i
    End With
  End With
End Sub

#1、2、cjです。#1、2、補足欄へのレスです。

取り急ぎ、コードのみ修正しました。
#2を元に書き換えています。

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim rSrc As Range
  Application.EnableEvents = False
  Set rSrc = Range("B2").CurrentRegion
  Application.EnableEvents = True
  If Intersect(Target, rSrc) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  Call PrintCombi(rSrc)
  Application.EnableEvents = True
...続きを読む

Q組み合わせ表をFAXするときの内容

今度初めて幹事をすることになりました(^_^;)
それで1週間ほど前に組み合せ表をFAXしますよね。

その時、参加者の名前だけでいいのでしょうか?
広範囲から集う場合、参加者の簡単な住所(市レベル)も書いておくほうがいいのでしょうか?
コンペ名とか紹介者、幹事の連絡先も書いておくのでしょうか?

Aベストアンサー

#2のRikosです。

ゴルフ場に出すものであれば、日時・コンペ名・組み合わせ表をFAXします。
参加者の住所などは要りません。

私の会社で行なった時は、紹介者・幹事の連絡先も書いておきました。

Qゴルフ馬の枠作成ダウンロード出来るところ

ゴルフの幹事を初めて行うことになりました。
馬の作成を依頼されています。どこかダウンロードするところ教えてください。

切り取りがついた4組ぐらいあればOKです。
よろしくお願いします。

Aベストアンサー

このような場で堂々と質問しても良いたぐいの事ではないと思うので(下記URL参照)返事したら、行為に加担した事になりかねないので、答える人はそうはいないでしょうね~(苦笑)
http://hideyukikanai.jugem.jp/?eid=119
http://guu2006.blog56.fc2.com/blog-entry-158.html

あぁ、 競馬の事なら、競馬新聞や馬券の解説などの事ならそれなりのサイトで調べられるとは思いますけれどね、競馬のですよ、競馬の。

これ以上は.....如何かと.......

Qエクセル メンバー表からグループメンバーを抽出

縦に名前が並び、その横の列に男女、その横の列にA・B・Cの3グループが入力されている表があります。
その表からAグループ・Bグループ・Cグループのメンバーを抽出して各グループのメンバー表を作成したいです。

条件として…
(1)今後メンバーが増える可能性がある。
(2)メンバーの所属グループは変更になる。
(3)グループの人数構成はバラバラである。
(4)メンバー表の名前は上から縦に並べたい。
(5)メンバー表はそれぞれ別シートに作成したい。
(6)ABどちらかに所属する男性のみ(女性のみ)のグループのメンバー表も作成したい。

毎日作成するので日々の手間を最小限にしたいです。
関数等を利用して一発で表作成することはできないでしょうか?

よろしくお願いします。

Aベストアンサー

関数案については、既に回答が出ていますが
さて、提示された関数をご理解できましたでしょうか。
条件が変更されたときに、ご自身で式を変更するには
意外と、VBA以上の知識が必要な位複雑な式です。
別案ですが、フィルターオプション の機能を紹介しておきます。
http://www.eurus.dti.ne.jp/~yoneyama/Excel/filter3.htm
のサイトを参考にしてください。
機能を理解できれば、色々な応用が可能です。
毎日、実行するのであれば、一度、マクロの記録を実行すればよいです。
記録される内容は、ほんの1行ですので、VBAを理解するのも楽です。

Q10チームの総当りになる組み合わせを教えてください。

テニスのチームが日のよって…9~13チームできるのですが、総当りで試合が出来る組み合わせがうまく出来ません。いろんな回答を参考にしたのですが良くわかりません。9チームの時は、1-2、3-4、5-6、7-8、9-1、2-3、4-5…のように教えていただけるとありがたいのですが。同じく10チームから13チームまで教えていただけたら嬉しいです。またもっとチーム数が増えた時の良い計算法を教えてください。

Aベストアンサー

nチームのリーグ戦の総試合数は次の計算式で求められます。
n(nー1)/2
13チームなら、13(13-1)/2=78試合となります。

試合順は次のように、1つのチームを固定して他のチームを順番に回して組むと便利です。

偶数チームのとき(仮にA~Fの6チーム→15試合)
 1 A-F  4 A-E  7 A-D  10 A-C  13 A-B
 2 B-E  5 F-D  8 E-C  11 D-B  14 C-F
 3 C-D  6 B-C  9 F-B  12 E-F  15 D-E

奇数チームのときは最後を空きにすればOKです。
 (A~Eの5チームだったら上と同様に→10試合)
   A-×  3 A-E  5 A-D  7 A-C  9 A-B
 1 B-E    ×-D  6 E-C  8 D-B    C-×
 2 C-D  4 B-C    ×-B    E-×  10 D-E

Q試合の組み合わせの作成方法

こんにちは。
サッカーの試合をするのですが、その際の組み合わせの作り方について
質問です。まだ参加チームが確定していないのですが6チームか7チーム
のどちらかになる予定です。
どちらにしても総当たりで試合をするのですが、組み合わせをexcel
を使って組み合わせをだすにはどうすればいいでしょうか。
グラウンドは1面使用と2面使用の2パターンで、出来るだけ各チームが
同じくらいの間隔をおいて試合をできるようにしたいと思ってます。
一応ある程度既出の質問は見ましたが、総当たりの場合の試合数等は
わかるのですが、2面使ったパターンとできるだけ各チームが等間隔で
試合をできるようにという条件がわかりませんでした。
条件がちょっと複雑かとおもいますが、よろしくお願いします。

Aベストアンサー

エクセルはわかりませんが、6チームの15試合、2面なら
2試合ずつ7回と1試合が1回だから、
チーム名をA~F、試合をするを○、しないを×で表し
A B C D E F・・・・1面・・・2面
○○○○××→(A対B)(C対D)
○○××○○→(A対E)(B対F)
××○○○○→(C対E)(D対F)
○○○○××→(A対C)(B対D)
○○××○○→(A対F)(B対E)
××○○○○→(C対F)(D対E)
○○○○××→(A対D)(B対C)
××××○○→(E対F)
と、規則的に見ていけば
どのチームも「試合・試合・休み」のパターンで組めます。

7チーム21試合も同じようにできる気がしますが
面倒なのでパス。

Q組み合わせの表を作成したいのですが・・・

画像のように9×3の組み合わせをEXCELの表で作成したいと思っています。
組み合わせの数は、3^9通り、即ち19,683通りあります。
途中までは作成したのですが、合っているのか合っていないのか分かりません。
もっと簡単に組み合わせの表が出来ないか、考えています。

エクセルの関数若しくはVBAで計算できる方法があれば教えて頂けると幸いです。

どうかよろしくお願いいたします。

Aベストアンサー

下記コードを新規ブックに挿入して実行してみてください。

Sub sample()
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer
Dim i4 As Integer
Dim i5 As Integer
Dim i6 As Integer
Dim i7 As Integer
Dim i8 As Integer
Dim i9 As Integer

Dim o As Long

o = 2

For i1 = 1 To 3
For i2 = 1 To 3
For i3 = 1 To 3
For i4 = 1 To 3
For i5 = 1 To 3
For i6 = 1 To 3
For i7 = 1 To 3
For i8 = 1 To 3
For i9 = 1 To 3
Cells(o, 1) = i1
Cells(o, 2) = i2
Cells(o, 3) = i3
Cells(o, 4) = i4
Cells(o, 5) = i5
Cells(o, 6) = i6
Cells(o, 7) = i7
Cells(o, 8) = i8
Cells(o, 9) = i9
o = o + 1
Next
Next
Next
Next
Next
Next
Next
Next
Next

End Sub

下記コードを新規ブックに挿入して実行してみてください。

Sub sample()
Dim i1 As Integer
Dim i2 As Integer
Dim i3 As Integer
Dim i4 As Integer
Dim i5 As Integer
Dim i6 As Integer
Dim i7 As Integer
Dim i8 As Integer
Dim i9 As Integer

Dim o As Long

o = 2

For i1 = 1 To 3
For i2 = 1 To 3
For i3 = 1 To 3
For i4 = 1 To 3
For i5 = 1 To 3
For i6 = 1 To 3
For i7 = 1 To 3
For i8 = 1 To 3
For i9 = 1 To 3
Cells(o, 1) = i1
Cells(o, 2) = i2
Cells(o, 3) = i3
Cells(o, 4) ...続きを読む

Q順列組合せについて

12名で年6回ゴルフコンペを行っております。
4名1組で計3組でラウンドしておりますが
この6回の内に他の11名すべての人と
なるべく重複しないように組を組むには
どういった組み合わせ方をすれば
良いでしょうか?
宜しくお願い致します。

Aベストアンサー

 「みんなに一度は当たる」というだけの条件だったら、高々5回のラウンドでできちゃうんです。

 まず、条件を追加して、手作業で扱える程度の問題に帰着してしまいます。どんな条件かと言うと:
 12人のメンバーを1さんから12さん、と呼ぶことにします。(いや、●chとは関係ないです。)
で、二人ずつペアになって貰います。
ペア1は1さんと7さん、ペア2は2さんと8さん、ペアnはnさんとn+6さん(n=1~6)
こうして決めたペアはいつも一緒の組になる。これが追加した条件です。
 そうすると、
ラウンド1ではペア1~6はそれぞれA組,A組,B組,B組,C組,C組
ラウンド2ではペア1~6はそれぞれA組,B組,A組,C組,B組,C組
ラウンド3ではペア1~6はそれぞれA組,B組,C組,A組,C組,B組
ラウンド4ではペア1~6はそれぞれA組,B組,C組,B組,A組,C組
ラウンド5ではペア1~6はそれぞれA組,B組,B組,C組,C組,A組
という解がすぐ見つかりました。
 どのペアも他の5つのペアと一度は一緒にラウンドしてます。ですから、どの人も他の人全員と一度はラウンドしたことになる。だからこれで、「みんなに一度は当たる」という条件を満たしています。

 ただ、この組み合わせ方では、どの人もペアを組んだ相手とはいつも一緒である。これをもっと散らして平準化したいですね。

 そこで1~6さんは上記の組み合わせに従って戴くとして、7~12さんには以下のように組を代わって貰います。
ラウンド2と3ではA組と言われたらB組へ、B組と言われたらC組へ、C組と言われたらA組へ行く。
ラウンド4と5ではA組と言われたらC組へ、B組と言われたらA組へ、C組と言われたらB組へ行く。
 こうしますと、5回のラウンドのうちで、どの人も他の全員と当たり、しかも高々3回しか同じ人と当たりません。
 3回当たるのは
(1,8),(2,7),(3,10),(4,9),(5,12),(6,11)
 2回当たるのは
(1,9),(1,10),(2,9),(2,10),
(3,11),(3,12),(4,11),(4,12),
(5,7),(5,8),(6,7),(6,8)
で、他の「二人の組み合わせ」は1回ずつ当たります。

 ところで、6回のラウンドを有効に使えばもっと平準化できる(同じ人と1回しか当たらないということを減らすとともに、同じ人に3回当たるという組み合わせを少なくできる)に違いなく、コンピュータで力任せに探索すればナントカなるはず。そのうちやってみるかも知れません。

 「みんなに一度は当たる」というだけの条件だったら、高々5回のラウンドでできちゃうんです。

 まず、条件を追加して、手作業で扱える程度の問題に帰着してしまいます。どんな条件かと言うと:
 12人のメンバーを1さんから12さん、と呼ぶことにします。(いや、●chとは関係ないです。)
で、二人ずつペアになって貰います。
ペア1は1さんと7さん、ペア2は2さんと8さん、ペアnはnさんとn+6さん(n=1~6)
こうして決めたペアはいつも一緒の組になる。これが追加した条件です。
 そうすると、
ラウンド...続きを読む

Qテニスの組合せ表の作り方を教えて下さい。

仲間とテニスの試合を楽しんでいるのですが、ダブルスの組合せ表の作り方および組合せ表があればご提供いただけますでしょうか。

4名から10名でダブルスを楽しむ組合せ表があると嬉しいのですが宜しくお願いいたします。

同じ人が連続しないような組合せ表を知りたいのです。宜しくお願いいたします。

Aベストアンサー

その表は、乱数表 と呼びます。
テニス 乱数表
で検索するとヒットすると思います。


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング