• ベストアンサー

エクセル マクロ?です

keithinの回答

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.7

試しにマクロで総当たり的にかぶらない組み合わせを見てみたら,270週とちょっとぐらい出てきました。 ただし(1,11,22)は二度無いけど,(1,11,23)はアリの条件です。 とりあえず60週分ほど並べてみますので,切り取って使ってください。 1~15週 (01,12,23),(01,12,19),(01,13,27),(01,08,33),(01,03,24) (02,13,24),(02,05,15),(02,15,18),(02,07,24),(02,25,31) (03,14,25),(03,25,27),(03,09,11),(03,06,09),(04,13,16) (04,15,26),(04,06,33),(04,05,28),(04,20,25),(05,11,28) (05,16,27),(07,14,23),(06,12,33),(05,23,29),(06,22,29) (06,17,28),(08,18,22),(07,10,20),(10,15,22),(07,10,26) (07,18,29),(09,11,13),(08,14,21),(11,18,27),(08,18,30) (08,19,30),(10,17,24),(16,23,26),(12,14,31),(09,27,32) (09,20,31),(16,20,31),(17,19,30),(13,17,30),(12,19,21) (10,21,32),(21,28,30),(22,25,29),(16,19,28),(14,20,23) (11,22,33),(26,29,32),(24,31,32),(21,26,32),(15,17,33) (01,03,27),(01,03,20),(01,18,30),(01,21,23),(01,03,09) (02,16,20),(02,08,21),(02,08,10),(02,05,25),(02,29,32) (04,06,30),(04,23,31),(03,07,25),(03,14,30),(04,08,25) (05,12,25),(05,10,18),(04,13,21),(04,15,29),(05,22,23) (07,09,14),(06,24,30),(05,15,23),(06,11,13),(06,07,33) (08,15,28),(07,22,27),(06,24,31),(07,17,26),(10,12,17) (10,18,22),(09,32,33),(09,12,27),(08,20,32),(11,24,26) (11,23,33),(11,13,14),(11,16,26),(09,12,24),(13,14,18) (13,24,26),(12,17,25),(14,19,33),(10,16,18),(15,19,28) (17,21,32),(15,28,29),(17,20,29),(19,28,31),(16,21,31) (19,29,31),(16,19,26),(22,28,32),(22,27,33),(20,27,30) (01,06,28),(01,16,17),(01,12,25),(01,02,03),(01,02,07) (02,15,30),(02,04,14),(02,16,22),(04,10,21),(03,15,16) (03,04,07),(03,07,21),(03,05,31),(05,27,28),(04,06,17) (05,22,25),(05,11,20),(04,24,28),(06,20,26),(05,21,27) (08,31,33),(06,12,29),(06,10,21),(07,25,33),(08,14,18) (09,20,32),(08,22,26),(07,08,15),(08,11,16),(09,23,33) (10,12,29),(09,25,28),(09,23,26),(09,22,31),(10,29,31) (11,26,27),(10,13,15),(11,14,20),(12,14,29),(11,13,26) (13,17,18),(18,24,32),(13,29,30),(13,19,32),(12,22,30) (14,19,24),(19,23,33),(17,27,33),(15,17,18),(19,25,28) (16,21,23),(27,30,31),(18,19,32),(23,24,30),(20,24,32)

datsuken
質問者

お礼

keithin様ありがとうございました。 私の仕事が一つ減りました(笑) 次のステップになると思うのですが (1,2,3)(4,5,6)~(31,32,33) の結果を  123456789…33 1/〇〇 2〇/〇 3〇〇/ 4 ・ 33 のようにリーグ表に履歴が残るようにしたいのですが 教えていただけないでしょうか? ここまでしていただいて本当にありがとうございました。

関連するQ&A

  • 班編成のデータ集約です(エクセル)

    エクセル 初心者です 班編成のデータ集約です 教えて戴きたいのですが 会社の部署にて33人在籍しております。 3人1班で構成しており11班あります。 一週間交代で班を交代します。 以前の質問(質問番号:6548100) でランダムに(回答していただいた方にマクロで組んでいただいた) 班編成していただきました。 11週はかぶらないのですが 12週以降はかぶる場合がでてきます。 教えて戴いた通り班を組むと大丈夫ですが 誰か一週間休み、臨時で交代などあると、ずれてきたりします そこでリーグ戦表のように (1,2,3)(4,5,6)~(31,32,33) の結果を   1 2 3 4 5 6 7 8 9 …33 1/ 〇 〇 2〇 / 〇 3〇〇 / 4      /〇〇 … 33 のようにリーグ戦表のようなものに履歴が残るようにしたいのですが 教えていただけないでしょうか? できれば、過去の履歴は残したいです (2週目以降のデータは上書きする感じです) エクセルでできればよいと考えたのですが 知識が乏しいため、教えていただきたいのです お願いします

  • excel、マクロについて教えてください。

    excel、マクロについて教えてください。 excelのマクロでシートを追加してシート名を変更し棚卸しに変更する内容を記録したのですが、 excelをずっと使用していてシートを追加していくとsheet1、sheet2と語尾の数字が増えていってしまい、マクロが正常に動作しません。 excelのシートを追加した際に必ずsheet1で追加する方法、若しくはマクロを記録した時はsheet1の名前を変更だったがsheet2でもsheet3でも動作するようなコードは存在しますか? 最近マクロをやり始めた初心者なので、質問が下手かもしれませんがどなたかお分かりになりましたら 教えていただけませんか?よろしくお願いします。

  • エクセルでプリンタ指定のマクロ

    エクセルのマクロで、プリンタ指定をするマクロを教えていただけ ないでしょうか。 マクロボタンを押したら、「印刷」ウインドウのプリンタ指定が できるところで止めたいのです。"新しいマクロの記録"でやっても、 当然上記の場所で"記録終了"ができません。 使い方は、様々な部署で同一のエクセルを処理した後、その部署の 環境によって、手差しやカセット、プリンタを選択したいためです。 マクロ初心者です。ご教授よろしくお願いいたします。

  • エクセルマクロ 教えてください

    エクセルの自動記録でマクロを取り組み始めたばかりの初心者です。 本部から毎月送られてくるエクセルファイルにこちらで別のワークブックに記録したマクロを使って加工しようとしていますが方法がわかりません。 他の人がこのファイルを間単に加工出来るようマクロを使って (マクロのコードの書き換え等の作業をしないで)行えるようにしようとしています。 ※送られれくるエクセルファイルは月毎にファイル名が違います(シート名は変わりません)。 下記は自動記録の内容ですがこれを適用させる方法であります。 宜しくお願いいたします。 Sub Macro1() ' ' Macro1 Macro ' マクロ記録日 : 2008/9/8 ユーザー名 : ******* ' ' ActiveWindow.TabRatio = 0.819 Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).Select Sheets("Sheet1").Activate With ActiveWindow .DisplayHeadings = False .DisplayHorizontalScrollBar = False .DisplayVerticalScrollBar = False End With Sheets(Array("Sheet6", "Sheet7", "Sheet1", "Sheet2")).Select Sheets("Sheet1").Activate ActiveWindow.Zoom = 120 End Sub

  • エクセルのマクロについて

    エクセル2010でのマクロについて、教えてください。 「全体を選択」→「昇順で並び替え」というマクロはどのように書けばできますか? マクロの記録でやると、そのシートでしか使えないマクロになってしまいますが、 データ量も違う色々なシートで使用したいのです。よろしくお願いします。

  •  エクセルマクロでこれを簡単に出来ますか?

     部材関係の仕事に携わっている者ですが、日々変る納品リストの整理が長引き、もっと簡単にしたいと思いますが、次のことをエクセルマクロで瞬時にできるのでしょうか?私はエクセル初心者な者で詳しいことが分かりません。  1.エクセルワークシートが15部の構成のブック  2.その内、自分が必要とするのが5部のシート  3.その各シートには2005.6.○○と日付が付与され   ている  4.その5部のワークシートに記載されている部材うち、自分に関係する物だけをフィルタオプションを使って抽出、抜き出している。  5.フィルタオプションの抽出条件は別ファイルを開き、コピー、貼付けして検索している。  6.各シート検索後、抽出データーを1枚のシートにまとめるために統合機能を使い、1つのリストにしている。  7.日付により、項目が増減、変動するので多くなると1ページに印刷すると、文字が小さくなるので、目一杯縦横の余白を最小にして印刷している。  以上のような流れなのですが、元になるワークシートのシート名に日付が付与されているせいか、マクロを記録してもエラーが出ます。やはり単純なマクロの記録では1~7の操作実行は無理なのでしょうか?  手順はいつもと同じなのですが、シート日付名をそのまま記録してしまうからでしょうか?  現状1~5までの操作を各シート毎に繰り返しているので非常に時間が係ります。VBAじゃないと無理なのでしょうか?個人用マクロに保存しています。アドバイスお願いします。

  • EXCEL マクロの記録で並べ替えのマクロをつくるとそのシートでしか使えないのでしょうか?

    EXCEL マクロの記録で並べ替えのマクロをつくるとそのシートでしか使えないのでしょうか? EXCEL2007を使っています。 マクロの記録で並べ替えのマクロをつくるとそのシートでしか使えないのでしょうか? シート1 1 3 2 というデータを「マクロの記録」で昇順に並べ替えるマクロを作成します。 シート2 3 5 4 というデータに適用したいのですが、マクロを実行するとシート1のデータが 並べ替えられてしまいます。 マクロを読むと「シート1」という記述があるのでシート1にしか適用できないようです。 マクロの記録だけで別のシートにも適用できるマクロを作成できないでしょうか? (ただの並べ替えだけだったらマクロを作成する必要はないのですが、実際にはもっと複雑な 動作をさせたいのです)

  • エクセル2007でのマクロの記録

    マクロ初心者です。しょうもない質問で申し訳ありません。 エクセル2007で並び替えをマクロに記録させても並び替えが実行できません(エクセル2003は可能でした)。 例えば・・・マクロの記録を実行→B4セルから下に10~1の数字を入力→その後並び替えボタンをクリックし、昇順で1~10に並び替える→マクロの記録を停止。確認のため、シート2でマクロを実行。数字は入力されるが、並び替えがおこなわれません(T_T) エクセル2007では並び替えのマクロは記録できないのでしょうか??それとも不具合ですか?もし簡単に出来る方法等があるなら教えて頂ければ幸いです。 お手数をおかけしますが、どなたかご回答を頂けると幸いです。

  • 検索の方法(エクセル マクロ)

    マクロは記録マクロしかできない超初心者です。 エクセルのsheet1のA1のセルに入っている内容(都度変更)と同一のセルをsheet2で検索し、カーソルをそこに移動させるマクロ記述をしたいのですが、どうなりますか。 記録マクロで、sheet1のA1をコピーし、sheet2に移動して検索窓で貼り付けて「次を検索」とやったのですが、記述をみるとA1の内容がそのまま記述されていて汎用性が無いようです。 よろしくお願いいたします。

  • Excelマクロで置換

    Excelマクロで置換 セルA1に6桁・スペース・24桁の数字が入っています。 最初の6桁に130,397,430,440が含まれているシートを選択 そのシートの中に "ああああ"があったら"ああああい"に "いいいい"があったら"いいいいう"に "うううう"があったら"ううううえ"に と置換をするマクロを書きたいと思っています。 置換する対象の文字列は多いので別マクロで作成し呼び出したいと考えています。 シートは1ブックに30シート程。何シートあるかはブックによって変わります。 現在マクロの記録を使って試行錯誤しているのですが なにぶん初心者なのでなかなかうまくいきません。 どなたかご教授頂ければと思います。