ExcelVBAで勤務表を作ろう

**デフォルトの名無しさん** · 2012/03/01(木) 17:58:34.97

>>98
>「ラフな割り当て案」＝【勤務表条件】を100%満たしていない案ということだよね。

まあそのとおりなんで、最初から条件を全部適用するのは諦めて、実装しやすいところから出来ればいいんだが、という趣旨。
機能分離が簡単ではないのは承知。

**デフォルトの名無しさん** · 2012/03/01(木) 18:14:13.36

すでに、この問題についてスレを読み、考え、書き込み、コードを書いた人ののべ工数は300人時(=2人月)くらいいってそう。

**278** · 2012/03/01(木) 18:33:53.26

色々な意見ありがとうございます
>>99
これまでにツールを使ったことは無いです
単純に探してみて販売しているものがほとんどだったり、無料のものでも応用が利かない(自分の所では使用できない)ものだったからです

**デフォルトの名無しさん** · 2012/03/01(木) 18:35:15.48

>>101
面白い現象だよな。
直接のメリットは何もないはずなのに。

ジェーン・マゴニガル「ゲームで築くより良い世界」
ttp://www.ted.com/talks/lang/ja/jane_mcgonigal_gaming_can_make_a_better_world.html

>World of Warcraftのようなゲームはプレーヤーに世界を救う手段を与え、ヒーローの行動様式を
身につけるよう動機づけます。もしこのゲーマーの力を、現実の世界の問題を解決するために使えたと
したらどうでしょう？ジェーン・マゴニガルはそれは可能だと言い、その方法を説明しています。

**デフォルトの名無しさん** · 2012/03/01(木) 19:26:14.98

>>102
>無料のものでも応用が利かない

>>91 のどれが出来なかった？

**278** · 2012/03/01(木) 19:57:42.36

>>97
>これまで作った勤務表は、全て【勤務表条件】を満たしているかどうか
今までで年に3,4回は満たせてない月だと思います
夜勤、明け、休みのあとにまた夜勤と続いてしまうことがありました

>ヶ月分の勤務表を作るのに必要な時間はどれくらいなのか
そのときの希望休の数や、うまくはまるかどうかで変わってきますが
大体8～10時間(数時間*数日)かと思います

>従業員の満足度は、【勤務表条件】を満たしてさえいれば、どのようなものでも最高なのか
特に条件を満たしていなくても(夜勤が続いても)さほど文句はありません
逆に日勤(早番)が3日とか4日続いたあとの夜勤だったりすると少し不満(文句はないけど)があったりします
最高の出来、というのは今までなかなか無いと思います

**デフォルトの名無しさん** · 2012/03/01(木) 20:09:06.54

スコア方式の方が良さそうだな。

**278** · 2012/03/01(木) 20:28:57.69

>次に、どうやって勤務表を作ってきたのか、その手順をざっくりと説明（200～400文字程度）。
1.まず希望休、希望勤務を入れる(コレは固定)
2.前の月の夜勤を見ながら、夜勤を適当に入れていく
3.日勤の2番を夜勤に気をつけながら入れていく
4.早番を↑に気をつけながら入れていく
(これ以降日勤はとりあえず空白を入れる。番号を振り分けるでなく、日勤としておく)
5.行事など人の多く必要なところを入れる
6.それ以外の日に日勤を割り振る
7.この時点でおかしいところや組めないところ、偏っているところがあれば
一部入れ替える、ダメそうなら全体にごっそり替える
8.日勤の番号を偏りないように入れていく
9.最終確認。
希望勤務を確認→夜勤、早番、日勤の回数を確認→一人一人偏りを確認
→日勤の番号の偏りを確認
10.完成
という手順です

**278** · 2012/03/01(木) 20:35:14.05

>>104
そもそも夜勤がなかったり、希望の勤務が入れれなかったり、可能・不可能な勤務が指定できないなどの理由からです

**デフォルトの名無しさん** · 2012/03/01(木) 20:53:27.66

まぁベタだがPCにのみできるアルゴリズム。
まず、どの状態が良いか、悪いかという評価式を用意する。
たとえば、連勤=-10、などなど。
後は、
１．絶対動かせない人をまず配置する。
２．比較的動かせない人を、その枠にそって（たとえば火・金は勤務可であれば、どちらかに）あてずっぽに配置する。
３．そっから、あてずっぽうで余った人を置いていく。
それを、２を数10回、さらにそれに対して３を数10回ずつやる。

その中で、一番スコアの高かった表が、比較的よいシフト表な。
明らかに悪い表しか出てこなかったら、スコアの評価式変えろ。
ファジィ()。

**デフォルトの名無しさん** · 2012/03/02(金) 01:08:27.99

VISTA, excel2000,モニター24
左上に貼りついている表をずらしてなんとかしたいが表をずらせない
マクロ、怪しいボタン、関数、リンクすべて消してくれ
セルの結合、色、多すぎる枠の太い線みんなやめてくれ
278さんがVBAの達人と理解したから再度アップ頼む
ボタンは、コントロールボックスのコマンドボタンを使って
プロシージャコマンドボタンクリックからスタートすると本に書いてあった

**278** · 2012/03/02(金) 02:05:31.15

>>109
アルゴリズムはExcelでも出てくるものなんですね…
色々調べてみましたがかなり難しそうなので
教えていただいた手順を参考に試行錯誤を試してみたいと思います

70 · 2012/03/02(金) 11:17:19.83

乱数を使って条件にあうものを設定していこうとか、順に組み合わせていってチェック
しようとかする方法は無理だから。

勤務の種類が10個で、従業員が10人いるとすると、1日分の組み合わせは10^10=10億通り。
これがどれくらいのものかというと、1日が10万秒だとして、1秒に1万通りのチェックが
できれば1日で終わる規模。

次の1日分を決めようとすると、さらに10億倍になる。つまり10億日=273万年。
30日分だと10^300通り。単純な順列組み合わせだと無理。

計算のスピードが10^4になっても、条件によって場合の数が10^150位にへったとしても、
10^20でさえ無理なんだから、もうとても無理。

**デフォルトの名無しさん** · 2012/03/02(金) 12:01:27.24

再帰も絞込みも禁止ならそのとおりだな。

70 · 2012/03/02(金) 12:40:11.81

>>113
再帰や絞り込みを使っても無理だって。

10人30日で300マスあるものの200マスが一意に決まって、残りの勤務の候補が3個に絞られたとしても、
3^100でだいたい10^46通り。
順に試していく方式だと、大体10^10位のオーダーにならないと無理。

なので、>>107のやり方をサポートする機能を実装するか、GA等を使って劇的に計算量を減らすか、
あるいは「ラフな割り当て案」を作れるとしたら、それを作るロジックを考えるのどれかしかないと思う。

70 · 2012/03/02(金) 12:49:13.89

勤務表の難しいところは、29日分まで完全にできても、残り1日分で詰んだら終わりって所。
では、どこかとどこかを入れ替えることによって残りを埋められる状態にしようとすると、
まずどれが入れ替えられるのかを探すのが大変。
結局普通にやれば、「順に試す方式」になってしまう。

かといって、残り1日分はマニュアルでやってね、ということにして良いかどうかが微妙。
実際にやればわかるけど、あちらを建てればこちらがたたず状態が続くだけになりがち。

ただ今回は、多少条件に合致しなくても、従業員が受け入れてくれるようなので、それが救いかな。

**デフォルトの名無しさん** · 2012/03/02(金) 12:55:07.17

既存のパッケージはボッタクリ、まで読んだ。

**デフォルトの名無しさん** · 2012/03/02(金) 13:05:07.84

>>111
大事な所を数ヶ所ぼかしてるが、これだけでもそれなりにいい表作ってくれるぞ。

**デフォルトの名無しさん** · 2012/03/02(金) 13:08:12.51

>>114
ちょっとだけ言っとくと、常に全部のスコアは覚えなくていい。最高の表を覚えとく。
作成中に明らかに挽回不能なスコアになった時点でその表は破棄。
順に試すなよ。あくまでランダムだ。
一番マシな適当な表だよ。

70 · 2012/03/02(金) 13:44:24.32

>>109のようなやり方なら、乱数もいいかもしれないけど、日付順・人順に決めていく方式だと、
もうその方式自体が「順に決める」になっているので、あとは乱数を使っても使わなくても
たいした違いはないよ。

>>109はGA的なアルゴリズムで、確かにこれなら出来そうな気がしなくもない。
ちなみに、ちょろっと試そうかと思ったけど、>>90の要件読んでも早番が何人で夜勤が何人なのか
わからなかったので詰み。

70 · 2012/03/02(金) 13:47:29.97

勤務表は一ヶ月に一回作ればいいから、>>109で導き出したスコアの良いものTop10を残しつつ、
29日ずっと動かし続けて、30日目にそのTop10から良いものを選んで修正するというのもありかな。

**278** · 2012/03/02(金) 14:11:49.91

様々な意見ありがとうございます
1日の組み合わせが10億通りとか273万年とか数字で表されると無理なんだってはっきりしますね…
結局どう進めていくのがいいんでしょうか；

>>119
順に決めるなら乱数は使わなくてもそんなに違わないんですね
早番は1人、夜勤1が1人、夜勤2が1人です

70 · 2012/03/02(金) 14:44:34.91

>>121
月～日の日勤者数を(8, 8, 7, 8, 8, 6, 5)に決めうちにしたとして、例えば月曜の組み合わせの数は
早番*日勤*夜勤1*夜勤2=16C1*15C8*7C1*6C1=4,324,320
と計算できる。
400万だから10億と比べるとかなり減った気がするが、1ヶ月分だと400万の30乗で約10^198通りなので、
順番に決めていく方式はやはり無理。

ちなみに、なんで組み合わせの数を計算しているかというと、実際にコードを書いて試す価値があるか
どうかを決定するため。
順番に決めていく方式は、どんなに上手くやってもまぁ無理。

**278** · 2012/03/02(金) 15:09:13.63

>>122
やっぱり順番にというのは無理があるんですね…
アルゴリズムを使って最良の表を考えるというのが一番なのでしょうか

70 · 2012/03/02(金) 15:51:40.71

ひょっとして、誰かが自主的にコード書いてくれるのを待ってたりするの？
念のため言っとくけど、俺は書かないから。

暇つぶしに、ローカルで>>190の方式で実現可能性を見いだせるかどうかのテストコードを書いたりは
するかもしれないけど。

**278** · 2012/03/02(金) 20:02:32.62

>>124
そこまでは思ってないですが、自分だけでは難しいなと…
皆さんが協力してくださるおかげでここまで来られてる状況ですから

テストコードでも見せていただけたらとても参考になると思います

**デフォルトの名無しさん** · 2012/03/02(金) 23:41:42.27

>>109だが、やっとホテル帰ったから要件見ようとしたらまた流れてた。

>>119
出来そうな気というか、これに味付けしたものが売り物になってるからな。ソリューションとしてだが。
実際には特許ものの刈り込みとか、数学的・統計学的な式を使った任意の離散的だが偏りを持たせた２・３とか使ってるが。

**278** · 2012/03/03(土) 00:06:14.75

>>126
流れるのそんなに早かったですかね…
やっぱり別の方法で上げておいたほうがいいのかな
http://www.dotup.org/uploda/www.dotup.org2704876.txt.html
pass:vba

そこまで素晴らしいものは到底作れないですね；

**デフォルトの名無しさん** · 2012/03/03(土) 00:19:57.36

トン。明日待機とかの暇な時間に見てみる。

**デフォルトの名無しさん** · 2012/03/04(日) 01:27:23.78

>ひょっとして、誰かが自主的にコード書いてくれるのを待ってたりするの？
雑談しながら何もしないで待っているように感じる
データと条件を整理して常にＵＰしなければ無理と思うが
おもしろそーだから俺も待っている

>・各人の勤務ごとの月の合計(休、日、夜、明、休、有、研)を表示させたい
データを見て休の意味がわからない、日曜日は会社によって月曜日もあるが
休　日曜日、変更できる
休　日曜日、各人指定なので変更不可
休　研修なので変更不可
休　会社or法律による強制休日、変更不可
休　有給、変更不可
休　会社都合による有給、変更できる

win98.excel95でナンバーズを総当たりで解いたら
7分ぐらいかかった、上級者のコードを見たいので興味がある

**109** · 2012/03/04(日) 01:49:33.92

今日地味に組んでみたが、VBAくそ遅い。VB6と変わらんやろと思ってたが、明らかに遅い。
最終的にbookが壊れたが、死ぬほど遅いが、ちょっと成果書いとく。

要件定義が甘いので、あてにしない。
各個人に、マスタとしてシートを定義する。
そのシートは、一月分の、
「入れない場所、絶対入る場所」を定義する。
横軸か日付、縦軸が勤務帯。朝、昼2～昼10、夜1,2,研修、休み。
休み、研修は予め、全員を「勤務不可」とする。その上で、勤務可のみマーク。
一発目、そのマスタを読んで、全体としての、シフト番号1～31x枠数(シフト枠n)に対する選択肢を決める。誰かの「絶対入る場所」にあたった枠は、他の選択肢を外す。
これから、ランダムで当て込んでいく。なお、一日に同じ人が働く事はないものとして、この時点で刈り込む。

一週間分を先ず決める。その一週間を基準に、個々人人に対して、一つ前のシフト枠に対して評価式のうち致命的ではないもののみ、ランダムで当て込んでいく。
ここでタイムアップ。お仕事してました。

**デフォルトの名無しさん** · 2012/03/04(日) 01:51:39.38

>>130
コード上げろ

**109** · 2012/03/04(日) 04:10:28.65

>>131
すまん。早めにそういう類のサイトにアクセスできる環境に行くわ。
DropboxもFWに蹴られるんよね。

**デフォルトの名無しさん** · 2012/03/04(日) 09:17:39.57

>>130
えっ？ダメだったの？
全然試しもしないで
できるって言い張ってたのかよ
くそ迷惑な奴だなw

**278** · 2012/03/04(日) 13:43:23.03

>>130
そんなに遅いものなんですね…
でもそこまで色々と出てくるとは；
どんなものか見られるの期待してます

**109** · 2012/03/04(日) 13:59:27.36

>>133
うん、すまん！
.netなら多少早かったが、反則よね。

70 · 2012/03/05(月) 14:59:33.88

月に休みが10日程度ということなんだが、望ましい休みのパターンはどのような感じなんだろう。
それから勤務日と休日の割り振りはどんか感じが望ましいんだろう。

例えば、基本は2勤1休でその3日の繰り返しが良いとか、
基本は4勤2休でその繰り返しが良いとか、
休日は完全にばらばらの方が望ましいとか、
そういう基本的な理念がわからない。

>>109
セルを頻繁に更新してない？
Excelの機能が要らないんだったら、メモリ上であれこれした方が速いよ。
Excelの機能が必要だとしても、遅くて使い物にならないのなら、メモリ上であれこれする必要がある。

70 · 2012/03/05(月) 15:01:27.02

そうだ、有休の話が出てこないんだが、有休（やそれに類する休み）の扱いはどうなってるの？

**デフォルトの名無しさん** · 2012/03/05(月) 17:45:39.21

>>130
なぁそれ本当に現実味があんの？
評価式さらしてみ？

**デフォルトの名無しさん** · 2012/03/05(月) 17:48:27.21

>>136
普通は、あるリズムで繰り返されるのがベターだとは思うが、>>278の所はどうなんだろうねぇ

**デフォルトの名無しさん** · 2012/03/05(月) 20:00:11.04

見たところ、やはり７０さんが技術、経験ともに上級者といった感じだ。
短いテストコードでもいいし、過去に書かれたコードの一部でもいいので、ぜひ見せてください。
とても勉強になると思うので、よろしくお願いします。

**278** · 2012/03/05(月) 20:17:50.77

>>136
休みは大体仕事の間に一日、たまに2連休(月1～3回程度)、稀に3連休(数ヶ月に1回)
理想としては月に2回前後連休、残りの休みは1日休みで振り分ける感じです
ただ希望休などで連休が多かったり(滅多に無いけど4回とか)逆に連休がない月もあります

>>70
扱い…例えば月10回の休み+有給です
他に何と説明したらいいか；

>>139
あんまりリズムとかないと思います。希望休を皆自分勝手に入れるので…

>>140
同意。見せていただきたいです

**デフォルトの名無しさん** · 2012/03/06(火) 03:26:59.13

元スレの329=331（システム要件書　ドラフトを書いた者）だが、規制が来て書けなくなってる間に仕事が忙しくなってしまった。

で、自動化の方向性とか、その辺について書いてみようと思う。
（忙しくなってからはレス読めてないので現状はよくわからんが、役に立つことを祈る。）
その前に・・・278氏、トリップ付けるなり、別名付けるなりしないと、このスレの278なのか依頼人の278氏なのか分からなくなるぞ。

自動化の方向性だが、
・1項目づつ決定して行く（しかないよなぁ・・・。）
・条件に合う候補が無くならずに月末まで埋まればよい
・条件に合う候補が途中でなくなったら最初からやり直し（たとえば夜勤連続じゃないと埋まらないとか。）

1項目づつ決定する方法
・スタッフ全員に対して、その項目に対する適正度合を得点化する。
　（資格があれば+50、前回勤務と重複してなければ+1、ペア勤務不適格者は-1、無資格なら-2000、既に入力されてる人は-1000とか。）
　（全条件に対して評価の重み付けをする必要がある。上記は適当に作った例なので、実際の状況に合わせて練り直す必要あり。）
・同じ点数の人については乱数で順位付けする（やり直し時に同じ結果になりにくいように。）
　（乱数を別項目にするか、得点を10倍とかして、1ケタ乱数を足しこむか・・・）
・得点1位のスタッフを項目に当てはめる
　（基準点数を決めて、1位の得点がそれ以下の場合は条件に合う候補なしでやり直し。）
　（手動入力の場合はコンボに得点の高い順にスタッフを並べればいい。）

時間が出来たらコードも書いてみようと思うが、今の所デスマ中なので期待しないでほしい。

2012/03/06(火) 09:43:21.26

・原発は日本を滅ぼす、即時全廃せよ

・六ヶ所村再処理工場直下に二つの活断層

・耐震基準450ガルと、著しく耐震性に欠ける施設

・大事故が起きたらチェルノブイリを遥かに越す未曽有の大惨事が

・代替は天然ガス・コンバインドサイクルで十分

http://d.hatena.ne.jp/kensho01/20120208/1328718592

56 · 2012/03/06(火) 11:45:00.24

流れはこんな感じで良いのかな？
①入力シートで行事日、各人毎の希望休み、研修日を設定し確定
②１～２日迄の明け、夜勤休みを自動設定して希望勤務詳細シートに内容をコピーしシート画面に移る
此処で更にシフト毎の出来ないパターン(日勤、夜勤、早番の三種類)を設定
③入力シートに戻して指定日(通常は１日から)希望勤務詳細シート、従業員相関シート(能力定義も此処で)曜日別人数表(最低)を元に最低人数分を自動振り分け
・行事日は曜日別人数に＋２名自動追加
・振り分けで余った分はマニュアルで振り分けする

**278 Excel2000使い** · 2012/03/06(火) 12:29:34.02

>>142
>その前に・・・278氏、トリップ付けるなり、別名付けるなりしないと、このスレの278なのか依頼人の278氏なのか分からなくなるぞ。
そうですね…名前は改めました

>・1項目づつ決定して行く
これは1日ずつってことでしょうか？それとも早番、夜勤…といった感じ？

得点化というのは前に出ていたアルゴリズムと同じようになるのでしょうか
それとも手順(コード?)は全然別なのかな…

>>144
流れはそんな感じですね
行事日の設定は日を設定かその日の日勤者数を設定するとどっちが早いのかな
最悪勤務指定で必要人数分の職員を適当に選んで日勤希望にしておくのがいいかと思ってたけど余計時間かかるようになっちゃうかな
行事日は+2名で足りない可能性があります

**デフォルトの名無しさん** · 2012/03/06(火) 13:15:39.34

>>145
1項目は1項目。ある日の早番ならある日の早番ね。

たとえば、3/6の夜勤2を決めるとすると、
3/6にすでに休みと入力されてると-1000、3/6に研修が入ってると-1000、
3/6の他の勤務に入ってると、-1000、
3/5が夜勤だと-1000、3/4が夜勤だと-1000、3/3が夜勤だと-1000、
3/6の夜勤1とペア駄目な人だと-1000、
前回の夜勤明けからの日数で+得点（日数×10とか。）
有資格者だと+100とか

つまり、その勤務に適してるかどうかを数値化するの。
それで、その勤務に一番適してると数値で出た人を割り当てていく。

コンピュータは厳密にいうと数値の計算しかできない。
（文字の処理なんかは誰かが作ったプログラムで数値化してから行ってる。）
基本に立ち返って数値化するのが早道だと思うよ。

56 · 2012/03/06(火) 13:42:00.45

①１日分の自動割り振りの順序
　夜勤１→日勤２→早番→夜勤２→日勤３～５→休み(夜勤明け、希望休含め５？名)→日勤６～
②・各担当は前日の担当の次席が基本で各能力の次席者がいなくなったら最上位者へ
　例.夜勤１Ａ→Ｅ
夜勤２Ｂ→Ｆ
日勤２Ｃ→Ｇ
早番Ｄ→Ｈ
・休日の処理
夜勤明け→５日以上連続勤務者→４日連続、３日連続の順で設定
・最低勤続者数、休日者数に達したら残りのメンバーは空欄としておく

70 · 2012/03/06(火) 13:43:01.18

>>141
> 理想としては月に2回前後連休、残りの休みは1日休みで振り分ける感じです
なるほど。これが理想か。

> あんまりリズムとかないと思います。希望休を皆自分勝手に入れるので…
ひょっとして、半分以上またはほとんどの休日をみんな事前希望してしまうのかな？
なんとなく、事前希望は、ひとりあたり月に0～2日位で、ほとんどの休日は自動割当
するのかなと思ってたんだが。

>>140
sourceforge.jpでとあるVBAのソフトを公開してるんだが、本名で公開してるのでここではちょっと…

あと、重ねて言っとくけど、この件に関しては絶対にコード書かないから。
書き始めてしまうと、40～50時間は持ってかれそうだから。

個人的には、いろいろと要件が明らかになってきて、「絶対無理」から「いけるんじゃない？」
くらいな気になってるよ。

70 · 2012/03/06(火) 13:53:15.62

想像してるんだけど、夜勤1と夜勤2は、まとめて「夜勤」として割り振って、
日勤3以降もまとめて「日勤」として割り振って（ひょっとして日勤2もあわせて「日勤」でいいかも？）
あとから割り振り直すというロジックじゃ駄目かな。
>>107で、何故日勤2だけ特別扱いしてるのかわからない。

つまり、自動割り振りは「早番、日勤、夜勤、休日」の4種類だけ。

これで夜勤禁止ペアや推奨ペアの条件をクリアできて、なおかつ日毎の勤務者数をクリアできてれば、
日勤内・夜勤内の役割分担は後付けでできそうな気がするんだが…

70 · 2012/03/06(火) 13:58:06.96

あと、>>278はわかってないと思うけど、これプロがやれば要件定義・設計（実現方法探索）をやってる間も、
1時間あたり3,000～5,000円位かかることなんだよ。

**デフォルトの名無しさん** · 2012/03/06(火) 14:23:58.32

マウスで夜1を引張ってくればセルに
夜1.明.休と入るのは出来ないでしょうか
数字は打ったほうが速そうですが
30日の月で夜勤5回が3人なら、31日の月は5回が5人
休みと前月分をみればだいたいメンバーが決まる
パソコン手入力と当番表の作成に時間がかかっている気がする
過去のデーター呼出しもできてないと思う

70 · 2012/03/06(火) 14:56:34.87

>>151
> マウスで夜1を引張ってくればセルに
> 夜1.明.休と入るのは出来ないでしょうか

できるけど、そんなことしたいの？
夜1.明.休
夜2.明.休
と事前にシートの勤務表の外側に書いておいて、3つのセルをまとめてコピペすればすむじゃん。

**109** · 2012/03/06(火) 15:57:36.40

>>150
結構安めだな。

俺は全日の枠を一次元配列にして、各個人に、対して、今の枠の番号と、次に入ってる枠との差の数字と、今の枠番号を枠数でモジュロとった数字組み合わせて評価式書いてた。
トライアルアンドエラーで、保存せんとガリガリ書いてたら無限ループ入っちゃってブレークも効かなくて飛んじゃったからソース無い。すまん>>138

70 · 2012/03/06(火) 16:10:37.70

>>153
そんな安くないと思うけどなぁ。一人月いくらでやってるの？

> 無限ループ入っちゃってブレークも効かなくて
ひょっとして、強制ブレークの方法知らないとかじゃないよね？
あと、実行する前にCtrl+Sしようよ。

**デフォルトの名無しさん** · 2012/03/06(火) 16:38:24.33

>>153
DoEventsぐらい入れようや。

**278 Excel2000使い** · 2012/03/06(火) 17:07:40.42

>>146
>たとえば、3/6の夜勤2を決めるとすると
-1000=入らないになるんですね
それなら3/3が夜勤だと-100くらいに設定すればいいのかな
>前回の夜勤明けからの日数で+得点（日数×10とか。）
これは分かりやすくていいですね
>有資格者だと+100とか
資格の有無はあまり考慮しなくていいと思います

>>147
休日の処理にある連続勤務５日は不満というところで少し厳しいかもしれないですが…
自動割り振りの順番としてはそれがよさそうですね

>>148
>ひょっとして、半分以上またはほとんどの休日をみんな事前希望してしまうのかな？
皆大体毎月少なくても１回、平均で月３日分くらい指定休を入れています(勤務指定入れるともう少し多くなるかも)

>sourceforge.jpでとあるVBAのソフトを公開してるんだが、本名で公開してるのでここではちょっと…
見たかったですが本名出しているのではここでは無理ですね；
上級者でも50時間もかかるんだ…これはホントに一年は軽く超えてしまう
しかもまだいけるんじゃない？程度orz

>>149
夜勤、日勤をまとめて出来るならそのほうがいいんですけど…
日勤2番が特別扱い(正職しかできない)のは記録の記入を担当しているからです(夜勤1もそうです)
でもパートさんとか出来ない勤務(3番とか)があっても「日勤」でまとめることはできそうかな

>>150
普通に売っているものが高いわけですよね…ここで関わっていただいている皆様には本当に感謝しています

70 · 2012/03/06(火) 17:17:22.11

>>156
> 上級者でも50時間もかかるんだ…これはホントに一年は軽く超えてしまう

いや、50時間でできるわけじゃなくて、50時間くらいはこの問題に費やしてしまいそうということ。
受託開発案件だとしたら、2～5人月じゃないかな。どこまでやるのかによるけど。
ちなみに、1人月はピンキリあるけど、50～90万くらい。

ただ、それは第三者が作るから時間がかかるのであって、同じプログラミング能力があれば
当事者ならもっと短時間でできる。

だから、どこまでやるかを決めて、まずコード書き始めて、で、わからないところを質問する。
VBAスレにあるような粒度の質問だったら、答える人多数だよ。

**デフォルトの名無しさん** · 2012/03/06(火) 17:41:53.30

>>156
きっと有資格者と言ってるのは、その項目に対応できる人って意味だと思うよ。
たとえば
夜勤の項目の時、夜勤できる人+100、夜勤できない人-100とか。
早番の項目の時、早番できる人+100、早番できない人-100とか。

**278 Excel2000使い** · 2012/03/06(火) 18:05:12.58

>>157
なるほど…
やっぱりもっとしっかり勉強しなきゃいけないですね、短時間でできるくらいに

>>158
そういうことでしたか、納得です

**109** · 2012/03/06(火) 18:16:42.59

>>154
出先のPCだったからある程度作ったらソースだけコピペでメールで持って帰ろうと思ってたんよ。
文書保存も添付メールも監査対象だから。
強制ブレークってcrtl+Breakか？あれ止まるときと止まんない時があるぞ。

70 · 2012/03/06(火) 18:32:39.50

そう、Ctrl-break。
で、止まらなければプロセスkillだけど、保存してないならアウトだな。
というか、ファイルの保存が禁止されてる環境でよくやるね。
キーストロークとかも監視されてたりして。

**デフォルトの名無しさん** · 2012/03/06(火) 19:47:41.63

278さん
Excel2000って・・・
セキュリティ大丈夫?!
サポート切れて随分経ちますが・・・
278さんのファイル開くのが不安だ

それと、このプログラムはけっこう重い処理になりそうなので、

セキュリティと処理速度から考えて
はやく新しいPCを用意して下さい

このスレで、その名前は
悪意がある冗談か、非常識な迷惑かどちらかにしか思えない

**デフォルトの名無しさん** · 2012/03/06(火) 19:55:37.41

>>162
Excel2000で作ったデータ（プログラム含む）だからと言って、2007とかで開けばセキュリティとか関係ない。
まあ、2000使い続けるのはオヌヌメしないけどね。

278氏、いっそOffice2010

**163** · 2012/03/06(火) 19:58:34.66

途中で書き込んでしまったorz
いっそOffice2010Proでも買ってAccessでプログラミングした方が楽かもね。
ExcelよりはAccessの方がこういうのは得意分野だから。

慣れないと何にもできないけど・・・。

**デフォルトの名無しさん** · 2012/03/06(火) 20:01:56.63

非ITの零細職場ならExcel2000とかよくある話だろ
最新版Excelを都度当たり前に購入できるような職場なら手作りしなくても業者に発注した方が早い

**278 Excel2000使い** · 2012/03/06(火) 20:39:26.48

昔うちにあったCD?から入れたExcelなので…
バージョンアップで2007にはなっているはずですけど；

職場が2000なので使うのならそちらも更新しないといけないですね

56 · 2012/03/06(火) 22:12:47.08

以前、連続日勤後の早番で不満があったりするとの事だったので振り分けの最優先に休み(先着n名分)を先にもってきたほうが良いのかもと思った

**278 Excel2000使い** · 2012/03/06(火) 22:37:39.91

勤務が続くのを嫌がられます
なので日勤*3日→夜勤とかも少し嫌がられたり…これに関しては仕方ないので何度かありますが；

**デフォルトの名無しさん** · 2012/03/07(水) 00:26:39.95

>>56は>>146的な自動化で良いと思ってる？それとも別の方法を考えてる？

>>166 278氏、開発用と運用用でバージョン違うんだとしたら数日に一回ぐらいは運用用で動かした方がいい。
完成して移したら全く動かないとかなると困るだろうし。

56 · 2012/03/07(水) 03:14:19.11

>>169
ちょっと複雑すぎるような気がする…
278氏以外の人が担当になってもローテーの組立が理解でき紙ベースで行なっても組立可能な事が良いように思われる

**デフォルトの名無しさん** · 2012/03/07(水) 03:21:45.77

>>170
スコア付けずにどうやって自動化するの？その方法が気になる。自動化はしないの？

**デフォルトの名無しさん** · 2012/03/07(水) 08:01:25.73

>>７０
とりあえず１～２hでもコード書いてみて
コード書かないプログラマーなんて信用できんぞ
７０もそう思わないか？

70 · 2012/03/07(水) 14:38:59.11

>>172
そう思うけど、俺自身は別に信用されたいなんて思わないのでどうでもいい。

このスレに居るのは、誰かが自動振り分けコードを提示して、へーすげー、やればできるんだねー
って思いたいだけ。

**デフォルトの名無しさん** · 2012/03/07(水) 16:51:59.66

参考までにどんな感じで書き進めていけばいいのか一部でいいから教えて

70 · 2012/03/07(水) 17:23:33.21

俺が聞かれてるんだろうか？
どんな感じと言われても困るが。

**デフォルトの名無しさん** · 2012/03/07(水) 18:02:55.88

そうですよね・・・ごめんなさい

56 · 2012/03/08(木) 04:10:38.67

>>171
スコアは付けなきゃいいでしょうね
ただ、それ以前の問題として設定表の構成で悩んでたり悩んでなかったり…(所詮他人事なので)
さらにいうと入力シートのｒｙ
もう一寸>>278の暗黙知を可視化しないとダメかな？例えば妊婦さんでも夜勤、早番ありでよいのか？別部署から移動したてのベテランでも夜勤～日勤２を直ぐに組み込んでよいのか(俺的には、こんなもの組むのはクソだと思うｹﾄﾞ)
最高連続勤務日数は何日か新人２名に対して専任主指導者がつくのか人数は？
行事の予定が無くても繁忙期(月末、月初？)とかあるのか
行事によっては事前準備に結構な労働時間がかかるものがあるのか、同じ日に行事が重なった場合(敬老の日＋誕生会とか)更に介護士の増員が必要なのか

56 · 2012/03/08(木) 04:52:27.86

一月分のローテー表を組むのは月末？月初？
恐らくは月初の２日か３日にならないと厳しい(変更が多発する)と見ているけど…
他にも確認しなきゃいけない事が多々あるような無いような…

**278 Excel2000使い** · 2012/03/08(木) 07:50:37.41

>>177
>妊婦さんでも夜勤、早番ありでよいのか？
今いる妊婦さんは夜勤はやってないです(早番はやってるけど)
これは可能勤務で夜勤のチェックを外すようにすればいいかな
>別部署から移動したてのベテランでも夜勤～日勤２を直ぐに組み込んでよいのか
最初の一ヶ月程度は3番以降の日勤～、二ヶ月くらいから夜勤、２番に入ると思います
>最高連続勤務日数は何日か
早番を含めて3連勤+夜勤、明けで5連勤は超えないようにしています
ただパートさんは自分で休みを指定するので月に2回くらいは平日5連勤です
>新人２名に対して専任主指導者がつくのか人数は
別部署も人が足りなくなるのでこっちに来るのは１人だけと思います
専任というのはなく、その日その番号だった人につくというようになります。なのでパートさんにつくこともあります
これは最初の１ヶ月くらい(指導月)は初めから入れておかず、手書きで加えようと思っています
>行事によっては事前準備に結構な労働時間がかかるものがあるのか
あります。その場合日勤時間に数名(大体1～2人)抜けるので残った人数で仕事をまわしてます
>同じ日に行事が重なった場合
行事は必ずずらすようにしてくれているので更に人数が必要ということはありません

**278 Excel2000使い** · 2012/03/08(木) 07:54:13.36

>178
指定休の締め切りが10日、そこから数日で勤務表を作って事務所へ提出
出来上がって配られるのはなぜか25日前後。毎月これくらいです

他にも確認すること…

70 · 2012/03/08(木) 11:08:55.98

>>180
> 他にも確認すること…

つか、これまで明らかになった/した仕様で仕様書を更新して、誰でも見れるところに
置いてくれないかなぁ。
Google Documentとか使えないの？

**142** · 2012/03/08(木) 12:27:38.27

もしおまいらがそれぞれ勝手に部分部分のコードを書くとすると、
先に大まかな枠と分担とインタフェースを決めないと、つなぎ合わせてもうまく機能しない。

本当は278が自分である程度枠になる部分を作って、
部品をスレで発注・コンペする形式がいいんだろうけど素人の278にそこまで期待はできないな。

誰かが278の代わりにプロジェクト管理とドキュメント収集をやらなきゃまとまらないだろう。
本当は言いだしっぺのオレがやるべきなんだろうけどデスマ中。ｽﾏｿ。
（現にデスマ前は勝手にドキュメント化してたわけだし。）

70が積極的にかかわるなら70にお願いするのも手かもね。
56はコーディング専門っぽいし。（ドキュメントの話あまりしないし。ユーザーSEかな？）

プロジェクト管理は胆だし、負担も大きいんで70に頼むのは気が引けるが、適材適所で考えると・・・。

**278 Excel2000使い** · 2012/03/08(木) 14:11:23.96

>>181
これで見られますか
https://docs.google.com/document/d/1yRt6qn-o8mQ7VzkBPlZkMzbxmgTysGIQaPn7AZsO8o0/edit

一応です、内容は同じ
http://www.dotup.org/uploda/www.dotup.org2723344.txt.html
pass:vba

**278 Excel2000使い** · 2012/03/08(木) 14:14:10.60

皆さんに手伝ってもらっている身で本当に申し訳ないのですが
明日の明けから3日ほど東北の支援ボランティアに行きます
遠いので帰ってくるのも遅くなってしまうと思います
スマホからスレは見れますが、多分まだ書き込みが出来ないと思います
何かあったら代行で書き込んでもらおうと思っていますが…
わがままを言って申し訳ないです

56 · 2012/03/09(金) 05:02:51.42

ドキュメントはガラケー(PDF可、写真は100KB迄)で表示出来れば助かります。m(__)m
因みにWIN98のノート(VGA表示)Excel2000使用でネット接続無しの環境で仕事ではコンピュータは使いません

>>180
>>2の写真をチラ見した時(上記理由で全部は表示されなかった…)1～31日までの表だったと思ったんだが提出する物は違うの？
>>184
〉東北の支援ボランティアに行きます←業務的にいうと休み扱い？研修？
研修旅行という名の慰安旅行とかあります？ある場合の扱いはどうしてます？
休みでないけれど休んだと見なしてくみこんでいるとか

56 · 2012/03/09(金) 06:16:30.46

>>278とのやりとりから現状、ローテーション表は大まかに３回に分けて作成(場合によっては２回)と考えてよい？
①前月末までに翌月の１～５日位迄
②月初めに１２日位迄
③１０日過ぎに残りの日数分

遅れたけど東北のボランティアご苦労様です。ケガや病気に気を付けて頑張って下さい(帰って来られてからで良いですよ)

**デフォルトの名無しさん** · 2012/03/09(金) 06:28:36.76

>>186
どこからそう読めるの？
>>180に書いてある内容によると、
指定休（スタッフが希望する休み？）の締め切りが（前月の？）10日
そこから（作成期間）数日で勤務表を作って事務所へ提出
出来上がって（刷り上がって）配られるのは（前月の？）25日前後

って事でしょ？
10日の締め切りから遅くとも25日までに作成するって事なんじゃないの？

56 · 2012/03/09(金) 09:00:48.55

>>187
そうともとれるので確認事項とさせてもらったが俺的には下記の理由で>>186的な運用をしているのではないか？と思った
①278が別スレで最初に相談した時に１月分＋翌月５日くらいまでとレスしている
②>>180に「なぜか25日…」と書いてある
何故？詰まりはそんな頃に配布されても意味がないという事？
③子供がいたり何かクラブみたいなのに所属していたりすればわかるが翌４月の予定なんて3/9日、今日現在わからないと思う
まあ通常は会社の定休日に合わせて都合をつけたりするものだが、その定休日が基本的にないので…

**デフォルトの名無しさん** · 2012/03/09(金) 09:25:01.72

>>188
勤務表のある会社、4～5社に関わったが、
・勤務表の最後に翌月の最初数日を暫定（変更アリ）で入れるってパターンが多い。
・次にシフトを決めるのに休日や希望勤務の提出期限は前月の前半というパターンが多い。
・勤務表が決まった後の予定変更は勤務者同士での相談で入れ替えて上長に申請のパターンが多い。

自動化システムは頼まれないので作ったことはないが、これが普通だと思ってた。

70 · 2012/03/09(金) 10:31:03.88

>>188
これ以外には取れないでしょう。

5月分の勤務表作成スケジュール：

4/10: 指定休の締め切り
4/11～4/13: 278が勤務表を作成
4/13: 278が事務所へ提出
4/25: 事務所が全員に配布（4/13に出来てるのに、配布するのが遅い）

**デフォルトの名無しさん** · 2012/03/09(金) 13:19:13.16

278さんに質問です
要件には日勤は10番くらいまであると書いてありますが
当番表には7番までしか項目が無いようです
8～10番はどのように記載されるのでしょうか？

8番については、7番の欄に一緒に「7番/8番」と入れるのかなと
思いましたが、9番、10番については、見当がつきません

**デフォルトの名無しさん** · 2012/03/09(金) 17:48:48.36

テスト

**278Excel2000使い** · 2012/03/09(金) 18:03:04.36

書き込めた
>>185
帰ったらガラゲーでも表示できるよう試してみます
勤務表は1~31日のものです
ボランティアは完全に個人的になので普通の休みです
研修旅行(一泊二日で)あります
研修は仕事扱いで休みとはまったく別です。ただ勤務としているわけではないので日勤などにも入りません
なので休み10日+研修2日になります

>>186
紛らわしい書き方ですみません
>>190で綺麗にまとめてくれた通りです

>>189
>>188
勤務表のある会社、4～5社に関わったが、
>・勤務表の最後に翌月の最初数日を暫定（変更アリ）で入れるってパターンが多い。
翌月はあまり考慮してません
>・次にシフトを決めるのに休日や希望勤務の提出期限は前月の前半というパターンが多い。
希望の期限はうちは前月の10日までです
>・勤務表が決まった後の予定変更は勤務者同士での相談で入れ替えて上長に申請のパターンが多い。
これはうちも同じです

**278Excel2000使い** · 2012/03/09(金) 18:05:54.52

>>191
細かく見ていただいていてありがとうございます
10番であったときは(事務所がやってくれるのですが)8番と同じように7番の枠に8.9.10番も入れます
過去に11番までいたときは6番の枠にも入れてました

56 · 2012/03/09(金) 18:42:34.54

>>189-190
そうすると４月末になった段階でどの位変更が発生しているのか６月の勤務表は５月末の予定だけで作成して良いのか気になる
そういった意味で丁度良い時期(３月は卒業、４月は入学、就職、移動や転勤等)なので>>278は教えてほしい

4月分の勤務表作成スケジュール：
>
3/10: 4月分指定休の締め切り←この時点で高校、大学の入学式の日取りが判っていることが望ましい
3/11～3/13: 278が勤務表を作成
3/13: 事務所へ提出→事務所は2月末もしくは3/10までの実勤務状況と照らしあわせて偏りがないか確認？して承認
3/20: Iさんが妊娠して悪阻が激しいので夜勤が出来そうに無い事を相談→以降のシフトを全部組み替え
3/25: 事務所が全員に配布3/31: B、Eさんが子供の引っ越しの手伝いの為に有休や他の人とシフトの入れ替え、Iさんの件もあり3月のシフトにかなりの偏りが発生している
(Fさんは夜勤回数が2回多くCさんは最終週日に早番が2回あり、しかも他の人より1回多い、Dさんは規定休数、休めなかった)

**デフォルトの名無しさん** · 2012/03/09(金) 18:44:23.52

以前コテハンにしたらどう？と書いてあっさり無視されたもんだけどw
それ、全然ハンドルネームになってないというか、簡単に騙られるよ

ちゃんとしたトリップにしたほうが良いと思うんだが。

**デフォルトの名無しさん** · 2012/03/09(金) 18:47:48.84

>>194
お忙しい中、お返事いただきありがとうございます

56 · 2012/03/09(金) 18:47:51.74

おろ、考えながら書き込んでいる内に>>278から解答があったみたいですね

スマホに変えようかなあ…

56 · 2012/03/09(金) 19:25:58.01

テキストはどっとあぷでもみれるんだけど大きな写真とかBookが取り込めなくてねぇ…

うーんと例えば2日日勤+研修2日後のシフトの扱いをしりたい(連勤3日の人がいたりする場合に休みの判定はどちらを優先しているのか、テキトー？)

後、他の人も言っているようにトリップをつけて
誰かがドキュメントに纏めたくても>>278のレスを追わなくてはいけないので(今のままだと全てのレスを読まないといけないので)

**デフォルトの名無しさん** · 2012/03/10(土) 15:41:59.21

テス

　l!￣ｵ　|:.:.:.:.:.|　　と′　 ,　　　　丶　 .: 　ｒ┘
　￣ﾘｺｌ:.:.:.:.:.|　_「┘ /　/　 l |　　　＼ﾉ　 _〕
　　く｣!Ｌ.|:.:.:.:.:.! Ｌ.　//　/, 　l| l　 l　 i　 l ﾊ:.　 _〕
　〃l| l Ｌ.i:.:.:.:.| ｒ┘,./　/, 　 !|｜ｌ| 　l　ｌﾊ:/└i_
　|ｉｌ|　!└l:.:.:.:|　〕//　//l　 l ! li　l|　 l　 l　|!:: と__〕
　li〃!｜l　ﾄｚ水ﾞ/ｲ ,://l:|　l |ｌ l|　lｉ　 |　 ! ｌ|! とl｢´
　|!　| 　 !小こｼ｣　!/ ≧:ｘｲl ! ,'! /l　 ,　/ /l _.｣!|!
　　,ｌ｜ｌ |ハ:.:!|l イ iｲ:r::ﾊ｀ / '//二ﾗ// ｲ|　l| ｌ!　　__
　　/!｜ l l 　＼! ｌ|　｀¨　　　ｲrｿ/iツ行l 〃　　/　|
　 ,'/　!　l|l　　｢¨| llﾄ､　　　ｒｧ　 ¨´ｲ |ｌ　i　|l |! 　 /　/　＜良いお酒は美味しいのよ♪
　,' !　i　ｌ|i ＿|:.:.l:.|l:.|:.＞ .、__　イ´ !:| ! l|　ｌ　　/　/
　! l　,　ｌ|'「　 |:.:.l|:li |:.:.:.:.薔:.:.:.:.:.:.|､ハ! l::-‐ｒｚ／　'´ﾊ
./ ,　ｉ　/l|｜　ヽ/ ｌ| l;,;,;,ノﾞﾍ;,;,;,;,;,;,Y￣|ヽ　 {!' 　 / / ﾉ!
! /　l　, ｌ|　! 　 /　l　|:.:.:.| 　|:.＼:.:/ i　〉　＼{!｣､ヽ'イ丿
｜　ｌｉ　/　l| ／ l　-＿〕:.l　 |:.:.:.「´ 〈　ト.､　､＼テ¨´
,'　 l | //￣　,　イ´.:.:.:.:.:.:!　ｉ:.:.:.:ヽ　ヽ |　､＿　ヽ
　　　ｌ| ＼＜ー- ､＿_:.:.:| /.:.:.:.:.:.:.＼　＼＼ヽﾉ
　　ｌｌ|　　￣工＞＿/-､j |, -､＿, - ゝ _|__〉､　〉

**278** · 2012/03/11(日) 01:22:42.40

疲れて寝てしまってました…
>>195はよさそうかな
早番が一度多い程度はそのままでいいと思います
休みが回数分なかったら翌月に手書きで交代してもらい多く休んでもらいます

>>196
失礼しました
トリップつけようとしましたがうまくいきません(携帯からだから？)
うちのPCで書き込むときまで許してください

>>199
研修後は行事や予定、希望休による偏りなどがなければ次の日を休みにしようと考えています
研修も仕事と考えるので日勤などと入れて連続は避けています
大体てきとうです

18 · 2012/03/12(月) 00:53:55.91

うまく振り分けできてませんが、上げておきます
http://www.dotup.org/uploda/www.dotup.org2736367.zip.html
pass:vba

忙しいので続きは、しばらく先になります

**デフォルトの名無しさん** · 2012/03/12(月) 02:31:42.65

もう見れなくなっているし orz

**デフォルトの名無しさん** · 2012/03/12(月) 07:53:42.56

テスト
http://viploader.net/ippan/src/vlippan264748.jpg

**278** · 2012/03/12(月) 11:10:50.22

昨日帰ってきてそのまま寝てしまってました…
>>202
朝時間なくてちらっとしか見れなかったけど凄い出来です
もうかなり完成に近いんじゃないかな
また少ししか試せてないので帰ったらじっくり見させていただきます

>>204
②の回数制限は別にあるんですかね
あと新人や異動で来た人も夜勤1もやるかも

**デフォルトの名無しさん** · 2012/03/12(月) 12:38:25.87

>>202,204は別人
ちょいと内容のまとめ直しと確認したくて上げてみた

70 · 2012/03/12(月) 18:02:54.47

>>202
ダウンロードして動かしてみたけど、エラーが発生したので報告。

1. 勤務表管理.xlsをオープン
2. [勤務表の作成]ボタンをクリック
3. [トライ!]ボタンをクリック

setPreFill()の
> kinmuban = base_kinmu.Offset(r_adjust_kinmu + r_kinmu, c_kinmu)
で、実行時エラー13。

コードは見てない。

**278** ◆3HjE5W.53k · 2012/03/12(月) 21:02:39.65

自分も色々いじっているとエラーが出ます
(ひな形開いた状態で勤務表管理の勤務表作成→いいえ。指定解除を押したときなど)
>>207のところを考えているのですが、素人には難しくなかなか分からない…
幸い続きは先になるようなので頑張って探します

**デフォルトの名無しさん** · 2012/03/13(火) 15:48:03.50

あーあ、このスレも終わったな
よくあんな糞コード公表する気になるよな
今後はこの糞コードを軸に話が進むんだろうな

おい、そこの書かないより書いた方が偉いとか思ったお前、大間違いだぞ

**デフォルトの名無しさん** · 2012/03/13(火) 15:56:49.57

なら他のやつもあげてみたらいいんじゃないかな
口挟むだけのは結局かけないんじゃない？
自分の案も出すくらいできるでしょ

**デフォルトの名無しさん** · 2012/03/13(火) 16:32:40.21

まあ次誰かコード出したら、どっちも要件にあってなくて、コードが糞なので
いいとこ取りも出来なくて、ぐだぐだになるのは目に見えてる
次出す奴が完璧なの出せば問題ないがな
俺は無理w

70 · 2012/03/13(火) 17:40:23.30

わかった。分析ツールが必要なんだ。
どういうロジックで勤務表を生成しているのか、コードをちょっと見ただけではわからないけど、
これ、かなり良い線行ってるのかな？

ちょっとアドバイス。

ワークシート関数は段階的に計算結果を保存しながらやった方がわかりやすい。
例えば、
AZ6 = "月末"
AZ7 = EOMONTH(DATEVALUE(SUBSTITUTE(SUBSTITUTE($A$4,"勤務表","")," ","")& "1日"),0)
とかにして、表内の計算式ではAZ7の値を参照するとか。
あるいは、もっとダイレクトに「当月の日数」を計算してセルに入れるとか。

もっと言うと、A4には2012/4/1を設定して、書式を「ggge"年" m"月" "勤務表"」にすれば、
A4を日付データとして扱える。

あと、好みだけどconstは英大文字を_でつなげた単語にすると見やすい。r_adjust_kinmuは、R_ADJUST_KINMU。

これで、俺がこのスレに居る理由ももう無いかな。

**デフォルトの名無しさん** · 2012/03/13(火) 21:50:39.80

ろくに動かん糞コード引きずってないで
無視して先へ進もうぜ

**デフォルトの名無しさん** · 2012/03/13(火) 22:33:08.93

今後の流れだが、２７８がもっとガンガン書いていかんと全く進まんぞ
自主的に要件、設計、コードでも頻繁に書いて７０他がアドバイス
周囲を巻き込み続けないとな

**278** ◆3HjE5W.53k · 2012/03/14(水) 02:40:51.53

とにかく色々いじって見たけどやっぱり難しい…

>>212
アドバイスありがとうございます
教えていただいたところ試してみたいと思います
大文字のほうが見やすいですね

>>214
ガンガン書いていかなきゃですよね；
でもUPしてもらったものもなかなか直せないしもっと勉強しなきゃ…
もっと頑張ります

58 · 2012/03/14(水) 04:30:21.38

明日、友人に頼んで>>18の内容をダウンロードしてもらうので宜しければ再Upお願いします

>>215
> とにかく色々いじって見たけどやっぱり難しい…

何が難しいのか、具体的に言わないと
①自動振り分けの結果はかなり悪い～良い？かなり良い？
②手入力による調整が難しい
・そもそもおかしな所をみつけるのに時間が懸かりすぎて難しい？(各人の休み、勤務種別毎の合計表示がないので278の頭の中で計算しないといけないとか)・一件の手入力に時間がかかる(特に日勤の入力等)や誤った操作で消してはいけない所を消してしまったとか
③初期設定(職員情報等)の変更、追加、削除に時間がかかるとか設定方法そのものがわかりづらいとか

**278** ◆3HjE5W.53k · 2012/03/14(水) 09:33:57.08

>>216
どちらかというと自分の知識不足でコードを読むのすら大変です…
もともと学校で少し習った程度しかVBAは分からないので；
本やネットで調べながらやってるから余計時間がかかってしまってます

**デフォルトの名無しさん** · 2012/03/14(水) 12:04:52.04

途中で寝落ちしてしまった…

VBAは初心者レベルなので>>18のプロトタイプのコードの中身を理解するのに苦労しているという事ですね
そこは頑張ってとしか言いようがない
俺も初心者レベルでほぼ独学でExcelの使い方を学んで勤務表他業務用数本をVBAで組んだだけなので18のソースを追えるかちょっと不安＞＜

**デフォルトの名無しさん** · 2012/03/14(水) 12:31:05.55

読めない方が悪いのではない
読めないコードを書く方が悪い

70 · 2012/03/14(水) 12:55:12.89

正直、俺にも読めないよ…

**142** · 2012/03/14(水) 13:16:26.42

ざっと眺めて読みにくいコードなのでやめた。
たまに覗いてるけど、70がいなくなったら終わりだな。

70 · 2012/03/14(水) 13:25:08.22

レガシーコード（テストの無いコード）のリファクタリング大好きっ子なんだけど、
人様のコードを勝手に修正するのもアレだし、時間も無いし…。

ステップ実行しながら追えば読めるとは思うよ。

**デフォルトの名無しさん** · 2012/03/14(水) 18:29:27.87

まだＤＬしていない…
>>70,142さんが読みにくいと云うことはコメント類も殆どついてないのかな？
まあ>>18さんは振り分けの結果が満足のいくレベルか確認したくて超急ぎで作ったんだろうし(不満が大きければ振り分けのアルゴリズムを大幅に変更してもらえる？)
2000だとシート上に項目追加するだけでえらく影響が出たりするから(2007？からある程度連動するとか雑誌でみたような…)
俺的には名前と日別のシフト状況の間に休み、日勤、夜勤数等を列項目に
日の下に行事日区分、希望日勤者数、実日勤者数を行項目として表示させようかなあと考えていたので読めないと肉付けも難しいですよね
　＞＜

56 · 2012/03/14(水) 18:43:26.90

ガラケーだと書き込みにも条件が多すぎる… (;´Д`)

**142** · 2012/03/14(水) 19:22:05.83

>>223
コメントは所々に入ってるよ。
ファイルがいくつにも分かれてて、あちこちのファイルにコードが分散してて読みにくい。

**デフォルトの名無しさん** · 2012/03/15(木) 01:02:07.07

>>216
http://www.dotup.org/uploda/www.dotup.org2747178.zip.html
pass vba

18 · 2012/03/15(木) 02:15:35.88

再Upとしてすぐ修正できるところだけ数行追加しました
・Sheet1で空セルが指定できるところ
・確認用に色付けしたまま、リセットやトライすると色が残ってしまうところ
http://www.dotup.org/uploda/www.dotup.org2747401.zip.html
pass:vba

**278** ◆KrUXNtvljU · 2012/03/15(木) 21:58:59.19

>>222
人様のコード勝手にいじっちゃダメでしたかね；
まだいじったって言えるほど変わってないけど…

>>223
バージョンの更新？したから2007になってると思ってたけど、確認したら2000のまま…バージョン自体は変わらないのかな？
希望日勤者数の項目があれば行事日区分はいらないかもです

>>227
修正版ありがとうございます
まだ変更箇所確認してないのでこのあと確認させていただきます

**142** · 2012/03/15(木) 23:08:41.84

>>228
依頼主がいじるのは別にイインジャネ？

56 · 2012/03/16(金) 04:07:35.03

>>226さん有難う。>>227の分含めてＤＬして貰えました。
今から見ようと思います。スレちになるけどスマホだとＤＬしてmicroSDにおとしてパソコンで見る事が出来るのかな？
電池の持ちが余りにも悪くて買い換えようか悩んでいるもので…
動画とか余り見ないしネットも２チャンくらいなものノートも一年以上動かしてなかったし (^o^;

**デフォルトの名無しさん** · 2012/03/16(金) 04:14:12.59

>>230
スマホならできる

56 · 2012/03/16(金) 04:44:10.63

>>231 それなら買い換えてもいいかな

>>278さん、もう少し質問。
①嘱託の休みが多いのは事務所から働ける毎月の勤務日数或いは時間数の指示がなされている？
②パートの場合も同じ？
132時間以上で会社の社会保険加入義務(強制)が発生し主婦の場合118時間超で税金を納めなくてはいけなかったのを思いだしたものですから…

**278** ◆3HjE5W.53k · 2012/03/16(金) 22:23:09.37

>>229
そうですか、よかった；

>>232
パートも嘱託も休みの回数は年度始めに決まっています(事務所から回数書いた紙を貰う)
それも写真撮ってあとでUPします

**278** ◆3HjE5W.53k · 2012/03/16(金) 22:56:50.00

ウェブアルバムめんどそうだったのでアプロダですみません
http://www.dotup.org/uploda/www.dotup.org2754101.jpg.html
http://www.dotup.org/uploda/www.dotup.org2754108.jpg.html
PASS:vba

縦が名前、4～3月、合計、休み回数(8,9,10,11回)です

**デフォルトの名無しさん** · 2012/03/17(土) 16:27:36.65

>>233
>ウェブアルバムめんどそうだったのでアプロダですみません

外注したらウン十万円のものタダで作ってもらっておいて
自分の骨惜しみは「面倒」だとかどんだけだよ

**デフォルトの名無しさん** · 2012/03/17(土) 17:15:17.63

>>234
だからドロップボックス使えって言ってるだろカスが。
もう絶対コーディングしてやらん。

**デフォルトの名無しさん** · 2012/03/17(土) 17:39:49.22

Googleドキュメントだと確かに面倒だったきがす
他のやつでうpすればいいんじゃね？

56 · 2012/03/17(土) 22:11:17.95

>>234
Ｕぷ、すいません。
まだ、ちょこっとしかみてませんけど、やっぱり休みの割り振りに偏りが出てるみたいですね(パラメータの連勤数を下げればかなりかわるかも)

**278** ◆3HjE5W.53k · 2012/03/17(土) 23:17:23.96

>>235
言葉足らずで申し訳ないです…
面倒なのは見るほうがなのでUPするのはすぐ出来ます

>>236
失礼しました、次からはドロップボックスを使うようにします

>>238
偏り出ますね；特にパートのPさんはなぜか月ごとに回数も変わってくるし…
家族での収入による調整だとは思いますが

**デフォルトの名無しさん** · 2012/03/18(日) 08:13:54.88

>>278
要件の説明だけだとわからないので
実データをもとにしたデータを3年分ほど
上げてください
前提条件(指定休、希望休、指定休、希望休など)と
実際に作成した勤務表をできるだけ詳しく
お願いします

**デフォルトの名無しさん** · 2012/03/18(日) 12:43:38.10

間違えました
指定休、希望休、指定勤務、希望勤務
です

**278** ◆3HjE5W.53k · 2012/03/19(月) 22:40:57.46

>>240
遅くなりました、過去の勤務表です
携帯で撮ったので画質が悪くてすみません
2010年3月～2012年2月までです
http://www.dropbox.com/gallery/67923374/1/%E5%8B%A4%E5%8B%99%E8%A1%A8%E4%BD%9C%E6%88%90?h=3c209d

**デフォルトの名無しさん** · 2012/03/19(月) 23:45:19.40

>>242
ありがとうございます

**デフォルトの名無しさん** · 2012/03/20(火) 00:18:22.61

>>237
そうか？excelより簡単だぞ

**デフォルトの名無しさん** · 2012/03/20(火) 01:15:22.48

ダウンロードしたの、ボタンを押して動かない
みんなテストできているのか
VBAを直すということは動いているんだろうな

**デフォルトの名無しさん** · 2012/03/21(水) 14:40:55.11

過疎

**278** ◆3HjE5W.53k · 2012/03/22(木) 20:09:32.28

初歩的な質問で申し訳ないですが
セルAP5:AP34に乱数を配置したとして
その中の最大値のあるセルの行番号を求めるにはどうしたらいいのでしょうか？

**デフォルトの名無しさん** · 2012/03/22(木) 21:13:45.13

>>247
本当に分からないんだったら
VBAでも何でもいいからプログラミングの本を読んで勉強した方がいいですよ
このレベルのことをいちいち掲示板で訊いていたら答えるほうも切りがないので

例えば一つのやり方として
・変数iを宣言 (カウンタ、行用)
・変数maxRowを宣言 (最大値のある行用)
・maxRow = 5 (初期値)
・for loop でiが6から34まで繰り返す
　　もし、Cells(i,"AP") > Cells(maxRow,"AP") なら、
　　　maxRow = i とする

・for loop を抜けたら maxRow が最大値のある行番号です

これは、最大値がひとつの場合を想定しています
最大値が複数ある場合は、一番小さい行番号となります

**278** ◆3HjE5W.53k · 2012/03/22(木) 21:44:03.60

>>248
ありがとうございます
まだまだVBA勉強中でして、この程度のことも分からず申し訳ないです

**デフォルトの名無しさん** · 2012/03/23(金) 14:48:24.81

なあ、最初の発言が2/19で、もう一ヶ月以上たってるんだけど、VBAの勉強は何時間したの？
正直引くわ

**デフォルトの名無しさん** · 2012/03/23(金) 19:26:28.55

まぁ初心者が一ヶ月程度でできるほど簡単じゃないってことだ

**デフォルトの名無しさん** · 2012/03/23(金) 19:41:19.03

エクセルでやるのかw

**デフォルトの名無しさん** · 2012/03/23(金) 21:35:27.85

>>249
勉強中って・・・>>36この時の勢いはどこに行った？

**デフォルトの名無しさん** · 2012/03/23(金) 21:58:06.61

そりゃま初心者じゃどれくらいかかるかなんてわかりようがないよな

**デフォルトの名無しさん** · 2012/03/24(土) 03:01:52.71

むしろ1年とか言ってたのが1ヶ月でここまで出来てるなら凄いだろ
全部56がやってくれてるおかげだが

**デフォルトの名無しさん** · 2012/03/24(土) 03:36:33.23

>>255
俺？なーんにもしてないよ
18が未完成とはいえ、あれだけ作り上げてると赤の他人としては一寸触れないもんね

56 · 2012/03/24(土) 03:46:10.38

ExcelVBAパーフェクトマスターくらいは持っておいて損はないと思う
(この本と後、500円くらいの雑誌2冊とマクロの自動記録とかで独学したなあ)

**デフォルトの名無しさん** · 2012/03/24(土) 03:47:44.01

>>256
むしろ色々触ってっていいんじゃないか？ダメならうpしないだろうしその方が18も参考になるだろ

**デフォルトの名無しさん** · 2012/03/25(日) 07:03:31.96

昨日、町の書店で見た【ExcelVBA逆引き大全 600の極意】この本良いかも
後、【続ExcelVBAのツボとコツがゼッタイにわかる本】(立山秀利著)こちらは見たことないがスケジュール表の作成を主題にしているようですね

**デフォルトの名無しさん** · 2012/03/26(月) 11:35:59.59

>>256
他人が触れないのは、コードが糞だから。本人は自覚あんのかな？

>>259
最初の一冊に「逆引き○○」とかは全然駄目。
素直に、VBAの基礎とExcelのオブジェクトの操作方法を説明してる本を買うのがいい。

**209** · 2012/03/26(月) 13:27:28.22

な、俺の予想したとおりになったろ

俺は>>18のコードは仕様的に致命的な欠点(夜勤の回数を指定できない)があって使い物にならんと思ったんだが
278はどう思ってんのだろうな

**デフォルトの名無しさん** · 2012/03/26(月) 15:17:40.19

>>261
うざいわ

**278** ◆3HjE5W.53k · 2012/03/26(月) 20:28:47.54

少し離れた町の本屋行ったけどVBAの本って全然ないんですね…
やっぱり大きい店に行かないとないのか；
パーフェクトマスター素直にネットで買おう

>>261
自分ではとても作れないレベルのものなので使い物にならないなんて思ってないですけど…

**デフォルトの名無しさん** · 2012/03/27(火) 13:26:47.24

つまり、今までは勉強する気なんてなかったってことか
アホクサ

**デフォルトの名無しさん** · 2012/03/27(火) 16:54:37.12

>>263
そういう本買うから勉強が進まず挫折するんだよ。

この手の本を買いなされ。
『Excel VBAのプログラミングのツボとコツがゼッタイにわかる本―最初からそう教えてくれればいいのに!Excel2007/2003対応 [単行本]』
http://www.amazon.co.jp/dp/4798017973/

**デフォルトの名無しさん** · 2012/03/28(水) 09:22:25.54

まぁ本なくても勉強はできるしな

2012/03/29(木) 05:44:17.82

早番、日勤②が勤まるメンバー数が14名…
詰まりは早番勤務後の次の早番予定は15日後(幅をとって間隔のめやすを12日、最大3回)以下、同様に日勤④～は16名なので最大2回めやすは14日、最後の休み間隔は4で設定実行…

最初よりかなり良くなったけどメンバー間の休み数のバラツキがもうちょっと…かな？

56 · 2012/03/31(土) 05:22:29.29

過疎っちゃてるけど>>278的には使えるレベルなのかな？それとも自動振り分けが満足いくレベルでない？
要求定義にそって色々、弄ろうとしたけど日々の日勤者数＝休みの人数が確定してないと無理ぽいなあ

**278** ◆3HjE5W.53k · 2012/03/31(土) 05:54:49.88

>>268
使えるレベルは>>227のことでしょうか？
どこをどうすればうまく割り振れるのか…使いこなせてないです
>日々の日勤者数＝休みの人数
これはその日の最低勤務者数ではなくて、ですか

2012/03/31(土) 08:23:30.03

今のロジックだと付属の説明で>>18が述べているように割り振りが難しい。
単純にシフト種別毎に勤務回数(昇順)、最終勤務日、メンバー数(表示Noを使用)のテーブルを参照して逐次探索した方が良さそうなんだけどその日の勤務予定者数が確定してれば尚良いかと
ただ、現ソースに修正しようとすると読みづらくてね…

2012/03/31(土) 08:53:56.75

もうちょっと詳しくいうと
①前月分の全勤務状況をシフト毎のテーブル(回数、日付、メンバー表示No)にセット
②当月の指定勤務があればそれも回数にUpしてソート③夜勤１のテーブルから回数の少ないメンバーを検索してセット以降夜勤２、早番テーブルを検索という感じで
※禁止の人は最大値を回数を減らしたいメンバーにはウェイト加算する

56 · 2012/03/31(土) 14:34:10.89

夜勤②の時にペアチェックの追加ロジックが必要なだけで他のシフトも同じアルゴリズムだし前月も今月も同じシフト(前月早番３回したのに今回もまた～)が多いとかの不満もでない筈…？
只、何か抜けているというか穴があるような気もする(翌日のチェック機能は除く)。
それより実家の収穫に追われてソースを弄れない(;´Д`)

2012/03/31(土) 19:01:20.51

>>267=56かと思ってたけど違うのか

2012/04/01(日) 01:17:06.04

ｱﾁｬ-、指定勤務の事を忘れていた…
まだ勤務中なので帰ったら現行のパラメータ(曜日別のテーブル等)をもうちょっと見直して本当に修正が必要か考えてみますね
>>273 はいです

**278** ◆3HjE5W.53k · 2012/04/01(日) 13:45:17.56

もう全然ついていけない域まで進んで行っている…

56 · 2012/04/02(月) 14:31:03.22

とりあえずModuleFit内の関数fillKinmu→Call setHoliday(c_kinmu)一行をコメントにしてみたが、こっちの方が使い易い気がするんで試してみて
設定ファイルの職員情報内各シフトの最大回数、間隔は適切に近い形に変えるのも忘れずに

2012/04/02(月) 15:28:04.06

コードが汚すぎて56意外にはメンテできないのが現状
駄目なら駄目と言え>>278

2012/04/02(月) 22:40:03.25

>>276
了解しました、変更して試してみます
設定ファイルのほうもしっかりと

>>277
自分ではとてもではないけど作れないのでありがたいです

2012/04/03(火) 11:02:32.50

>>36
>頑張って一ヶ月くらいで作りたいですね…

1ヶ月たった現状で↑はどうなりましたか。

2012/04/03(火) 11:12:49.34

>>278
>自分ではとてもではないけど作れないのでありがたいです

ありがたいかどうかなんてどうでもいい。
駄目なとこは駄目とはっきり指摘しろと言ってるんだ。
56は駄目な所があっても、仕様がわからないが故に駄目かどうかわからないんだよ。

2012/04/03(火) 13:51:56.98

掘っても掘っても掘っても終わらないけど雨が強くなってきたので今日はもう止める(´｀)
パラメーター値をウプしたしました
http://viploader.net/ippan/src/vlippan268959.jpgすまないが、まだガラケーのままなので画面コピーしたのを送ったけれど非表示の部分は早番を参考にして下さい
>>280 ダメというより運用しづらいのではないかと思う。具体的には後で述べるとして後は指定が入った時かな？３月か４月の各人の指定情報をUpしてもらっとけば考証も進んだと思うが

2012/04/03(火) 13:53:12.77

>>281
君だれ？
駄目かどうかは>>278にしかわからないだろ。

2012/04/03(火) 13:56:05.84

4:3のスクリーンだとこれで運用するには、かなりきついものがある

メンバーのシフトをいじって確認の為に合計欄のある列へと行ったり来たり…
縮小表示にさせるとｵｻｰﾝには見づらい
例えれば、お絵描きソフトで全体表示させつつ一部拡大が出来無かったら(全体表示画面と拡大画面を切り替えて操作、切り替えられた方は完全に隠れてしまう)と通じるものがあると思う←意味は通じるかな？
まあ278の所で運用できるDisplayがあれば良いだけの話なんだけど
※俺の職場では日勤、準夜勤、深夜のメンバーがほぼ固定だしシフトを組むのはお局様なので使いません

58 · 2012/04/03(火) 14:41:44.55

名前記入し忘れていた…
>282
確かに本人でなきゃわからないんだろうけど(職種も勤務体制も全く異なるし)
言い出しにくい＆まだ問題点を把握しきれていないのかも

2012/04/03(火) 14:52:51.12

>>284
> 言い出しにくい

作って貰ってありがたいとかいうことなんだろうが、現状のままでいいのか駄目なのか、
駄目ならどこが駄目なのか言わないとわからないということが>>278に通じない。

**278** ◆3HjE5W.53k · 2012/04/03(火) 21:07:25.12

まだちょっとうまく使いこなせてないので指摘できるまでいってないです；

>>281
パラメータ値ありがとございます、変更しました
指定情報というのは希望休や希望勤務のですか？３月分なら手元にあるのでUPできます
まだ問題点把握しきれてないです…
まだ実行するとエラーが出るのが直せてないのです；

2012/04/03(火) 23:19:27.76

>>279
しつけーなｗｗ

>>281
>掘っても掘っても掘っても終わらないけど雨が強くなってきたので今日はもう止める(´｀)
農家？

56 · 2012/04/04(水) 03:23:58.72

>>286
仕事の都合で毎度こんな時間での書き込みになってしまうけれど次のような形式で御願いしたい(Googledocは携帯で見れないので勘弁して下さい)
Ａ　休み 5、9
有給 10、11
日３ 13、18、24
日Ｘ 2、7
日Ｙ 15
Ｂ　日Ｘ 2、15
：
：
Ｘはその日の日勤者の中でなるべく後ろの方が望ましい場合
Ｙは特に指定番号なし
指定番号あり、Ｘ、Ｙ以外のパターンがあればそのパターンも教えてもらえると助かる

>>287、いや竹林が有るだけ

56 · 2012/04/04(水) 03:37:36.70

18やVBAに精通している人も見ていると思うのでどういう時にエラーになるのか詳細な手順を書くのも忘れずに

**278** ◆3HjE5W.53k · 2012/04/04(水) 03:40:25.22

ちょうど書き込みあった時間に目が覚めた…
遅くまでお疲れ様です

A休み　2,4,20,23
有給　29,30,31
B休み 10,14,15,17,18,29
C休み　10,17
Dなし
E休み　24,31
F休み　2,3,10,11,29
Gなし
H休み　16,17,18
I休み　3,4,8,13
J休み　3,8,9
K休み　4,25
L明けか休み　5
Mなし
N休み　3,4,10,11,17,18,24,25,31
O休み　11,15,25
P休み　5,26,27
有給　23

以上が３月の希望勤務の申請になります

**278** ◆3HjE5W.53k · 2012/04/04(水) 03:46:56.88

書き忘れた
Oは水曜、土曜が毎週休み
Pは土日祝日は全て休み
に加えて上の休日希望です

56 · 2012/04/04(水) 04:03:08.58

有難い。朝が早いのでもう寝るけど後で実行してみます

**278** ◆3HjE5W.53k · 2012/04/04(水) 04:07:31.19

この時間に寝て朝が早いんだ…
いつもありがとうございます、頑張ってください

2012/04/04(水) 11:07:33.88

>>286
> まだちょっとうまく使いこなせてないので指摘できるまでいってないです；

わかんない奴だね。
「使いこなせない」のは何故なのかも有用な情報だというのに。
それと、とりあえずは結果は得られるわけだろ？その結果がどうなのか評価しろって。

2012/04/04(水) 11:38:18.41

間違えて本体消してしまった。。。
またいつでもいいので>56再うｐしてくれるとありがたい

2012/04/05(木) 02:21:29.11

>>290-291の内容でTRYしたら"日勤の割り当てで失敗"のメッセージがでるね

直接の原因は３日に日勤者5名を確保出来なかった為(夜勤、明け、早番で既に5名必要)
そもそも１日に夜勤の割り振りが上手く行っていないということで嘱託の西田さんを夜２(職員設定の休み間隔は７)に指定してみたが、やはり同メッセージと指定そのものが取り消され空欄になってしまう

2012/04/05(木) 03:21:02.63

指定解除ボタンを押した時のエラーは
×　Formula1:="=勤務番号"
○　Formula1:="勤務番号"
にすれば直る

2012/04/05(木) 03:32:12.44

>>297は間違い

2012/04/05(木) 16:16:19.57

おいー間違いかよ
正しいの教えてくれよ