- 1 名前：デフォルトの名無しさん [2012/02/21(火) 14:48:32.47 ]
- Excel VBA 質問スレ Part23からの移動
Excel VBA で勤務表を作るスレです
Excel VBA 質問スレ Part23
toro.2ch.net/test/read.cgi/tech/1327763113/
- 152 名前：70 mailto:sage [2012/03/06(火) 14:56:34.87 ]
- >>151
> マウスで夜1を引張ってくればセルに
> 夜1.明.休と入るのは出来ないでしょうか
できるけど、そんなことしたいの？
夜1.明.休
夜2.明.休
と事前にシートの勤務表の外側に書いておいて、3つのセルをまとめてコピペすればすむじゃん。
- 153 名前：109 mailto:sage [2012/03/06(火) 15:57:36.40 ]
- >>150
結構安めだな。
俺は全日の枠を一次元配列にして、各個人に、対して、今の枠の番号と、次に入ってる枠との差の数字と、今の枠番号を枠数でモジュロとった数字組み合わせて評価式書いてた。
トライアルアンドエラーで、保存せんとガリガリ書いてたら無限ループ入っちゃってブレークも効かなくて飛んじゃったからソース無い。すまん>>138
- 154 名前：70 mailto:sage [2012/03/06(火) 16:10:37.70 ]
- >>153
そんな安くないと思うけどなぁ。一人月いくらでやってるの？
> 無限ループ入っちゃってブレークも効かなくて
ひょっとして、強制ブレークの方法知らないとかじゃないよね？
あと、実行する前にCtrl+Sしようよ。
- 155 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 16:38:24.33 ]
- >>153
DoEventsぐらい入れようや。
- 156 名前：278 Excel2000使い mailto:sage [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
普通に売っているものが高いわけですよね…ここで関わっていただいている皆様には本当に感謝しています
- 157 名前：70 mailto:sage [2012/03/06(火) 17:17:22.11 ]
- >>156
> 上級者でも50時間もかかるんだ…これはホントに一年は軽く超えてしまう
いや、50時間でできるわけじゃなくて、50時間くらいはこの問題に費やしてしまいそうということ。
受託開発案件だとしたら、2～5人月じゃないかな。どこまでやるのかによるけど。
ちなみに、1人月はピンキリあるけど、50～90万くらい。
ただ、それは第三者が作るから時間がかかるのであって、同じプログラミング能力があれば
当事者ならもっと短時間でできる。
だから、どこまでやるかを決めて、まずコード書き始めて、で、わからないところを質問する。
VBAスレにあるような粒度の質問だったら、答える人多数だよ。
- 158 名前：デフォルトの名無しさん [2012/03/06(火) 17:41:53.30 ]
- >>156
きっと有資格者と言ってるのは、その項目に対応できる人って意味だと思うよ。
たとえば
夜勤の項目の時、夜勤できる人+100、夜勤できない人-100とか。
早番の項目の時、早番できる人+100、早番できない人-100とか。
- 159 名前：278 Excel2000使い mailto:sage [2012/03/06(火) 18:05:12.58 ]
- >>157
なるほど…
やっぱりもっとしっかり勉強しなきゃいけないですね、短時間でできるくらいに
>>158
そういうことでしたか、納得です
- 160 名前：109 mailto:sage [2012/03/06(火) 18:16:42.59 ]
- >>154
出先のPCだったからある程度作ったらソースだけコピペでメールで持って帰ろうと思ってたんよ。
文書保存も添付メールも監査対象だから。
強制ブレークってcrtl+Breakか？あれ止まるときと止まんない時があるぞ。
- 161 名前：70 mailto:sage [2012/03/06(火) 18:32:39.50 ]
- そう、Ctrl-break。
で、止まらなければプロセスkillだけど、保存してないならアウトだな。
というか、ファイルの保存が禁止されてる環境でよくやるね。
キーストロークとかも監視されてたりして。
- 162 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 19:47:41.63 ]
- 278さん
Excel2000って・・・
セキュリティ大丈夫?!
サポート切れて随分経ちますが・・・
278さんのファイル開くのが不安だ
それと、このプログラムはけっこう重い処理になりそうなので、
セキュリティと処理速度から考えて
はやく新しいPCを用意して下さい
このスレで、その名前は
悪意がある冗談か、非常識な迷惑かどちらかにしか思えない
- 163 名前：デフォルトの名無しさん [2012/03/06(火) 19:55:37.41 ]
- >>162
Excel2000で作ったデータ（プログラム含む）だからと言って、2007とかで開けばセキュリティとか関係ない。
まあ、2000使い続けるのはオヌヌメしないけどね。
278氏、いっそOffice2010
- 164 名前：163 mailto:sage [2012/03/06(火) 19:58:34.66 ]
- 途中で書き込んでしまったorz
いっそOffice2010Proでも買ってAccessでプログラミングした方が楽かもね。
ExcelよりはAccessの方がこういうのは得意分野だから。
慣れないと何にもできないけど・・・。
- 165 名前：デフォルトの名無しさん mailto:sage [2012/03/06(火) 20:01:56.63 ]
- 非ITの零細職場ならExcel2000とかよくある話だろ
最新版Excelを都度当たり前に購入できるような職場なら手作りしなくても業者に発注した方が早い
- 166 名前：278 Excel2000使い mailto:sage [2012/03/06(火) 20:39:26.48 ]
- 昔うちにあったCD?から入れたExcelなので…
バージョンアップで2007にはなっているはずですけど；
職場が2000なので使うのならそちらも更新しないといけないですね
- 167 名前：56 mailto:sage [2012/03/06(火) 22:12:47.08 ]
- 以前、連続日勤後の早番で不満があったりするとの事だったので振り分けの最優先に休み(先着n名分)を先にもってきたほうが良いのかもと思った
- 168 名前：278 Excel2000使い mailto:sage [2012/03/06(火) 22:37:39.91 ]
- 勤務が続くのを嫌がられます
なので日勤*3日→夜勤とかも少し嫌がられたり…これに関しては仕方ないので何度かありますが；
- 169 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 00:26:39.95 ]
- >>56は>>146的な自動化で良いと思ってる？それとも別の方法を考えてる？
>>166 278氏、開発用と運用用でバージョン違うんだとしたら数日に一回ぐらいは運用用で動かした方がいい。
完成して移したら全く動かないとかなると困るだろうし。
- 170 名前：56 mailto:sage [2012/03/07(水) 03:14:19.11 ]
- >>169
ちょっと複雑すぎるような気がする…
278氏以外の人が担当になってもローテーの組立が理解でき紙ベースで行なっても組立可能な事が良いように思われる
- 171 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 03:21:45.77 ]
- >>170
スコア付けずにどうやって自動化するの？その方法が気になる。自動化はしないの？
- 172 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 08:01:25.73 ]
- >>７０
とりあえず１～２hでもコード書いてみて
コード書かないプログラマーなんて信用できんぞ
７０もそう思わないか？
- 173 名前：70 mailto:sage [2012/03/07(水) 14:38:59.11 ]
- >>172
そう思うけど、俺自身は別に信用されたいなんて思わないのでどうでもいい。
このスレに居るのは、誰かが自動振り分けコードを提示して、へーすげー、やればできるんだねー
って思いたいだけ。
- 174 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 16:51:59.66 ]
- 参考までにどんな感じで書き進めていけばいいのか一部でいいから教えて
- 175 名前：70 mailto:sage [2012/03/07(水) 17:23:33.21 ]
- 俺が聞かれてるんだろうか？
どんな感じと言われても困るが。
- 176 名前：デフォルトの名無しさん mailto:sage [2012/03/07(水) 18:02:55.88 ]
- そうですよね・・・ごめんなさい
- 177 名前：56 mailto:sage [2012/03/08(木) 04:10:38.67 ]
- >>171
スコアは付けなきゃいいでしょうね
ただ、それ以前の問題として設定表の構成で悩んでたり悩んでなかったり…(所詮他人事なので)
さらにいうと入力シートのｒｙ
もう一寸>>278の暗黙知を可視化しないとダメかな？例えば妊婦さんでも夜勤、早番ありでよいのか？別部署から移動したてのベテランでも夜勤～日勤２を直ぐに組み込んでよいのか(俺的には、こんなもの組むのはクソだと思うｹﾄﾞ)
最高連続勤務日数は何日か新人２名に対して専任主指導者がつくのか人数は？
行事の予定が無くても繁忙期(月末、月初？)とかあるのか
行事によっては事前準備に結構な労働時間がかかるものがあるのか、同じ日に行事が重なった場合(敬老の日＋誕生会とか)更に介護士の増員が必要なのか
- 178 名前：56 mailto:sage [2012/03/08(木) 04:52:27.86 ]
- 一月分のローテー表を組むのは月末？月初？
恐らくは月初の２日か３日にならないと厳しい(変更が多発する)と見ているけど…
他にも確認しなきゃいけない事が多々あるような無いような…
- 179 名前：278 Excel2000使い mailto:sage [2012/03/08(木) 07:50:37.41 ]
- >>177
>妊婦さんでも夜勤、早番ありでよいのか？
今いる妊婦さんは夜勤はやってないです(早番はやってるけど)
これは可能勤務で夜勤のチェックを外すようにすればいいかな
>別部署から移動したてのベテランでも夜勤～日勤２を直ぐに組み込んでよいのか
最初の一ヶ月程度は3番以降の日勤～、二ヶ月くらいから夜勤、２番に入ると思います
>最高連続勤務日数は何日か
早番を含めて3連勤+夜勤、明けで5連勤は超えないようにしています
ただパートさんは自分で休みを指定するので月に2回くらいは平日5連勤です
>新人２名に対して専任主指導者がつくのか人数は
別部署も人が足りなくなるのでこっちに来るのは１人だけと思います
専任というのはなく、その日その番号だった人につくというようになります。なのでパートさんにつくこともあります
これは最初の１ヶ月くらい(指導月)は初めから入れておかず、手書きで加えようと思っています
>行事によっては事前準備に結構な労働時間がかかるものがあるのか
あります。その場合日勤時間に数名(大体1～2人)抜けるので残った人数で仕事をまわしてます
>同じ日に行事が重なった場合
行事は必ずずらすようにしてくれているので更に人数が必要ということはありません
- 180 名前：278 Excel2000使い mailto:sage [2012/03/08(木) 07:54:13.36 ]
- >178
指定休の締め切りが10日、そこから数日で勤務表を作って事務所へ提出
出来上がって配られるのはなぜか25日前後。毎月これくらいです
他にも確認すること…
- 181 名前：70 mailto:sage [2012/03/08(木) 11:08:55.98 ]
- >>180
> 他にも確認すること…
つか、これまで明らかになった/した仕様で仕様書を更新して、誰でも見れるところに
置いてくれないかなぁ。
Google Documentとか使えないの？
- 182 名前：142 mailto:sage [2012/03/08(木) 12:27:38.27 ]
- もしおまいらがそれぞれ勝手に部分部分のコードを書くとすると、
先に大まかな枠と分担とインタフェースを決めないと、つなぎ合わせてもうまく機能しない。
本当は278が自分である程度枠になる部分を作って、
部品をスレで発注・コンペする形式がいいんだろうけど素人の278にそこまで期待はできないな。
誰かが278の代わりにプロジェクト管理とドキュメント収集をやらなきゃまとまらないだろう。
本当は言いだしっぺのオレがやるべきなんだろうけどデスマ中。ｽﾏｿ。
（現にデスマ前は勝手にドキュメント化してたわけだし。）
70が積極的にかかわるなら70にお願いするのも手かもね。
56はコーディング専門っぽいし。（ドキュメントの話あまりしないし。ユーザーSEかな？）
プロジェクト管理は胆だし、負担も大きいんで70に頼むのは気が引けるが、適材適所で考えると・・・。
- 183 名前：278 Excel2000使い mailto:sage [2012/03/08(木) 14:11:23.96 ]
- >>181
これで見られますか
https://docs.google.com/document/d/1yRt6qn-o8mQ7VzkBPlZkMzbxmgTysGIQaPn7AZsO8o0/edit
一応です、内容は同じ
www.dotup.org/uploda/www.dotup.org2723344.txt.html
pass:vba
- 184 名前：278 Excel2000使い mailto:sage [2012/03/08(木) 14:14:10.60 ]
- 皆さんに手伝ってもらっている身で本当に申し訳ないのですが
明日の明けから3日ほど東北の支援ボランティアに行きます
遠いので帰ってくるのも遅くなってしまうと思います
スマホからスレは見れますが、多分まだ書き込みが出来ないと思います
何かあったら代行で書き込んでもらおうと思っていますが…
わがままを言って申し訳ないです
- 185 名前：56 mailto:sage [2012/03/09(金) 05:02:51.42 ]
- ドキュメントはガラケー(PDF可、写真は100KB迄)で表示出来れば助かります。m(__)m
因みにWIN98のノート(VGA表示)Excel2000使用でネット接続無しの環境で仕事ではコンピュータは使いません
>>180
>>2の写真をチラ見した時(上記理由で全部は表示されなかった…)1～31日までの表だったと思ったんだが提出する物は違うの？
>>184
〉東北の支援ボランティアに行きます←業務的にいうと休み扱い？研修？
研修旅行という名の慰安旅行とかあります？ある場合の扱いはどうしてます？
休みでないけれど休んだと見なしてくみこんでいるとか
- 186 名前：56 mailto:sage [2012/03/09(金) 06:16:30.46 ]
- >>278とのやりとりから現状、ローテーション表は大まかに３回に分けて作成(場合によっては２回)と考えてよい？
①前月末までに翌月の１～５日位迄
②月初めに１２日位迄
③１０日過ぎに残りの日数分
遅れたけど東北のボランティアご苦労様です。ケガや病気に気を付けて頑張って下さい(帰って来られてからで良いですよ)
- 187 名前：デフォルトの名無しさん mailto:sage [2012/03/09(金) 06:28:36.76 ]
- >>186
どこからそう読めるの？
>>180に書いてある内容によると、
指定休（スタッフが希望する休み？）の締め切りが（前月の？）10日
そこから（作成期間）数日で勤務表を作って事務所へ提出
出来上がって（刷り上がって）配られるのは（前月の？）25日前後
って事でしょ？
10日の締め切りから遅くとも25日までに作成するって事なんじゃないの？
- 188 名前：56 mailto:sage [2012/03/09(金) 09:00:48.55 ]
- >>187
そうともとれるので確認事項とさせてもらったが俺的には下記の理由で>>186的な運用をしているのではないか？と思った
①278が別スレで最初に相談した時に１月分＋翌月５日くらいまでとレスしている
②>>180に「なぜか25日…」と書いてある
何故？詰まりはそんな頃に配布されても意味がないという事？
③子供がいたり何かクラブみたいなのに所属していたりすればわかるが翌４月の予定なんて3/9日、今日現在わからないと思う
まあ通常は会社の定休日に合わせて都合をつけたりするものだが、その定休日が基本的にないので…
- 189 名前：デフォルトの名無しさん mailto:sage [2012/03/09(金) 09:25:01.72 ]
- >>188
勤務表のある会社、4～5社に関わったが、
・勤務表の最後に翌月の最初数日を暫定（変更アリ）で入れるってパターンが多い。
・次にシフトを決めるのに休日や希望勤務の提出期限は前月の前半というパターンが多い。
・勤務表が決まった後の予定変更は勤務者同士での相談で入れ替えて上長に申請のパターンが多い。
自動化システムは頼まれないので作ったことはないが、これが普通だと思ってた。
- 190 名前：70 mailto:sage [2012/03/09(金) 10:31:03.88 ]
- >>188
これ以外には取れないでしょう。
5月分の勤務表作成スケジュール：
4/10: 指定休の締め切り
4/11～4/13: 278が勤務表を作成
4/13: 278が事務所へ提出
4/25: 事務所が全員に配布（4/13に出来てるのに、配布するのが遅い）
- 191 名前：デフォルトの名無しさん mailto:sage [2012/03/09(金) 13:19:13.16 ]
- 278さんに質問です
要件には日勤は10番くらいまであると書いてありますが
当番表には7番までしか項目が無いようです
8～10番はどのように記載されるのでしょうか？
8番については、7番の欄に一緒に「7番/8番」と入れるのかなと
思いましたが、9番、10番については、見当がつきません
- 192 名前：デフォルトの名無しさん mailto:sage [2012/03/09(金) 17:48:48.36 ]
- テスト
- 193 名前：278Excel2000使い mailto:sage [2012/03/09(金) 18:03:04.36 ]
- 書き込めた
>>185
帰ったらガラゲーでも表示できるよう試してみます
勤務表は1~31日のものです
ボランティアは完全に個人的になので普通の休みです
研修旅行(一泊二日で)あります
研修は仕事扱いで休みとはまったく別です。ただ勤務としているわけではないので日勤などにも入りません
なので休み10日+研修2日になります
>>186
紛らわしい書き方ですみません
>>190で綺麗にまとめてくれた通りです
>>189
>>188
勤務表のある会社、4～5社に関わったが、
>・勤務表の最後に翌月の最初数日を暫定（変更アリ）で入れるってパターンが多い。
翌月はあまり考慮してません
>・次にシフトを決めるのに休日や希望勤務の提出期限は前月の前半というパターンが多い。
希望の期限はうちは前月の10日までです
>・勤務表が決まった後の予定変更は勤務者同士での相談で入れ替えて上長に申請のパターンが多い。
これはうちも同じです
- 194 名前：278Excel2000使い mailto:sage [2012/03/09(金) 18:05:54.52 ]
- >>191
細かく見ていただいていてありがとうございます
10番であったときは(事務所がやってくれるのですが)8番と同じように7番の枠に8.9.10番も入れます
過去に11番までいたときは6番の枠にも入れてました
- 195 名前：56 mailto:sage [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さんは規定休数、休めなかった)
- 196 名前：デフォルトの名無しさん mailto:sage [2012/03/09(金) 18:44:23.52 ]
- 以前コテハンにしたらどう？と書いてあっさり無視されたもんだけどw
それ、全然ハンドルネームになってないというか、簡単に騙られるよ
ちゃんとしたトリップにしたほうが良いと思うんだが。
- 197 名前：デフォルトの名無しさん mailto:sage [2012/03/09(金) 18:47:48.84 ]
- >>194
お忙しい中、お返事いただきありがとうございます
- 198 名前：56 mailto:sage [2012/03/09(金) 18:47:51.74 ]
- おろ、考えながら書き込んでいる内に>>278から解答があったみたいですね
スマホに変えようかなあ…
- 199 名前：56 mailto:sage [2012/03/09(金) 19:25:58.01 ]
- テキストはどっとあぷでもみれるんだけど大きな写真とかBookが取り込めなくてねぇ…
うーんと例えば2日日勤+研修2日後のシフトの扱いをしりたい(連勤3日の人がいたりする場合に休みの判定はどちらを優先しているのか、テキトー？)
後、他の人も言っているようにトリップをつけて
誰かがドキュメントに纏めたくても>>278のレスを追わなくてはいけないので(今のままだと全てのレスを読まないといけないので)
- 200 名前：デフォルトの名無しさん mailto:sage [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 |, -､＿, - ゝ _|__〉､ 〉
- 201 名前：278 mailto:sage [2012/03/11(日) 01:22:42.40 ]
- 疲れて寝てしまってました…
>>195はよさそうかな
早番が一度多い程度はそのままでいいと思います
休みが回数分なかったら翌月に手書きで交代してもらい多く休んでもらいます
>>196
失礼しました
トリップつけようとしましたがうまくいきません(携帯からだから？)
うちのPCで書き込むときまで許してください
>>199
研修後は行事や予定、希望休による偏りなどがなければ次の日を休みにしようと考えています
研修も仕事と考えるので日勤などと入れて連続は避けています
大体てきとうです
- 202 名前：18 mailto:sage [2012/03/12(月) 00:53:55.91 ]
- うまく振り分けできてませんが、上げておきます
www.dotup.org/uploda/www.dotup.org2736367.zip.html
pass:vba
忙しいので続きは、しばらく先になります
- 203 名前：デフォルトの名無しさん mailto:sage [2012/03/12(月) 02:31:42.65 ]
- もう見れなくなっているし orz
- 204 名前：デフォルトの名無しさん mailto:sage [2012/03/12(月) 07:53:42.56 ]
- テスト
viploader.net/ippan/src/vlippan264748.jpg
- 205 名前：278 mailto:sage [2012/03/12(月) 11:10:50.22 ]
- 昨日帰ってきてそのまま寝てしまってました…
>>202
朝時間なくてちらっとしか見れなかったけど凄い出来です
もうかなり完成に近いんじゃないかな
また少ししか試せてないので帰ったらじっくり見させていただきます
>>204
②の回数制限は別にあるんですかね
あと新人や異動で来た人も夜勤1もやるかも
- 206 名前：デフォルトの名無しさん mailto:sage [2012/03/12(月) 12:38:25.87 ]
- >>202,204は別人
ちょいと内容のまとめ直しと確認したくて上げてみた
- 207 名前：70 mailto:sage [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。
コードは見てない。
- 208 名前：278 ◆3HjE5W.53k mailto:sage [2012/03/12(月) 21:02:39.65 ]
- 自分も色々いじっているとエラーが出ます
(ひな形開いた状態で勤務表管理の勤務表作成→いいえ。指定解除を押したときなど)
>>207のところを考えているのですが、素人には難しくなかなか分からない…
幸い続きは先になるようなので頑張って探します
- 209 名前：デフォルトの名無しさん mailto:sage [2012/03/13(火) 15:48:03.50 ]
- あーあ、このスレも終わったな
よくあんな糞コード公表する気になるよな
今後はこの糞コードを軸に話が進むんだろうな
おい、そこの書かないより書いた方が偉いとか思ったお前、大間違いだぞ
- 210 名前：デフォルトの名無しさん mailto:sage [2012/03/13(火) 15:56:49.57 ]
- なら他のやつもあげてみたらいいんじゃないかな
口挟むだけのは結局かけないんじゃない？
自分の案も出すくらいできるでしょ
- 211 名前：デフォルトの名無しさん mailto:sage [2012/03/13(火) 16:32:40.21 ]
- まあ次誰かコード出したら、どっちも要件にあってなくて、コードが糞なので
いいとこ取りも出来なくて、ぐだぐだになるのは目に見えてる
次出す奴が完璧なの出せば問題ないがな
俺は無理w
- 212 名前：70 mailto:sage [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。
これで、俺がこのスレに居る理由ももう無いかな。
- 213 名前：デフォルトの名無しさん mailto:sage [2012/03/13(火) 21:50:39.80 ]
- ろくに動かん糞コード引きずってないで
無視して先へ進もうぜ
- 214 名前：デフォルトの名無しさん mailto:sage [2012/03/13(火) 22:33:08.93 ]
- 今後の流れだが、２７８がもっとガンガン書いていかんと全く進まんぞ
自主的に要件、設計、コードでも頻繁に書いて７０他がアドバイス
周囲を巻き込み続けないとな
- 215 名前：278 ◆3HjE5W.53k mailto:sage [2012/03/14(水) 02:40:51.53 ]
- とにかく色々いじって見たけどやっぱり難しい…
>>212
アドバイスありがとうございます
教えていただいたところ試してみたいと思います
大文字のほうが見やすいですね
>>214
ガンガン書いていかなきゃですよね；
でもUPしてもらったものもなかなか直せないしもっと勉強しなきゃ…
もっと頑張ります
- 216 名前：58 mailto:sage [2012/03/14(水) 04:30:21.38 ]
- 明日、友人に頼んで>>18の内容をダウンロードしてもらうので宜しければ再Upお願いします
>>215
> とにかく色々いじって見たけどやっぱり難しい…
何が難しいのか、具体的に言わないと
①自動振り分けの結果はかなり悪い～良い？かなり良い？
②手入力による調整が難しい
・そもそもおかしな所をみつけるのに時間が懸かりすぎて難しい？(各人の休み、勤務種別毎の合計表示がないので278の頭の中で計算しないといけないとか)・一件の手入力に時間がかかる(特に日勤の入力等)や誤った操作で消してはいけない所を消してしまったとか
③初期設定(職員情報等)の変更、追加、削除に時間がかかるとか設定方法そのものがわかりづらいとか
- 217 名前：278 ◆3HjE5W.53k mailto:sage [2012/03/14(水) 09:33:57.08 ]
- >>216
どちらかというと自分の知識不足でコードを読むのすら大変です…
もともと学校で少し習った程度しかVBAは分からないので；
本やネットで調べながらやってるから余計時間がかかってしまってます
- 218 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 12:04:52.04 ]
- 途中で寝落ちしてしまった…
VBAは初心者レベルなので>>18のプロトタイプのコードの中身を理解するのに苦労しているという事ですね
そこは頑張ってとしか言いようがない
俺も初心者レベルでほぼ独学でExcelの使い方を学んで勤務表他業務用数本をVBAで組んだだけなので18のソースを追えるかちょっと不安＞＜
- 219 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 12:31:05.55 ]
- 読めない方が悪いのではない
読めないコードを書く方が悪い
- 220 名前：70 mailto:sage [2012/03/14(水) 12:55:12.89 ]
- 正直、俺にも読めないよ…
- 221 名前：142 mailto:sage [2012/03/14(水) 13:16:26.42 ]
- ざっと眺めて読みにくいコードなのでやめた。
たまに覗いてるけど、70がいなくなったら終わりだな。
- 222 名前：70 mailto:sage [2012/03/14(水) 13:25:08.22 ]
- レガシーコード（テストの無いコード）のリファクタリング大好きっ子なんだけど、
人様のコードを勝手に修正するのもアレだし、時間も無いし…。
ステップ実行しながら追えば読めるとは思うよ。
- 223 名前：デフォルトの名無しさん mailto:sage [2012/03/14(水) 18:29:27.87 ]
- まだＤＬしていない…
>>70,142さんが読みにくいと云うことはコメント類も殆どついてないのかな？
まあ>>18さんは振り分けの結果が満足のいくレベルか確認したくて超急ぎで作ったんだろうし(不満が大きければ振り分けのアルゴリズムを大幅に変更してもらえる？)
2000だとシート上に項目追加するだけでえらく影響が出たりするから(2007？からある程度連動するとか雑誌でみたような…)
俺的には名前と日別のシフト状況の間に休み、日勤、夜勤数等を列項目に
日の下に行事日区分、希望日勤者数、実日勤者数を行項目として表示させようかなあと考えていたので読めないと肉付けも難しいですよね
＞＜
- 224 名前：56 mailto:sage [2012/03/14(水) 18:43:26.90 ]
- ガラケーだと書き込みにも条件が多すぎる… (;´Д`)
- 225 名前：142 mailto:sage [2012/03/14(水) 19:22:05.83 ]
- >>223
コメントは所々に入ってるよ。
ファイルがいくつにも分かれてて、あちこちのファイルにコードが分散してて読みにくい。
- 226 名前：デフォルトの名無しさん mailto:sage [2012/03/15(木) 01:02:07.07 ]
- >>216
www.dotup.org/uploda/www.dotup.org2747178.zip.html
pass vba
- 227 名前：18 mailto:sage [2012/03/15(木) 02:15:35.88 ]
- 再Upとしてすぐ修正できるところだけ数行追加しました
・Sheet1で空セルが指定できるところ
・確認用に色付けしたまま、リセットやトライすると色が残ってしまうところ
www.dotup.org/uploda/www.dotup.org2747401.zip.html
pass:vba
- 228 名前：278 ◆KrUXNtvljU mailto:sage [2012/03/15(木) 21:58:59.19 ]
- >>222
人様のコード勝手にいじっちゃダメでしたかね；
まだいじったって言えるほど変わってないけど…
>>223
バージョンの更新？したから2007になってると思ってたけど、確認したら2000のまま…バージョン自体は変わらないのかな？
希望日勤者数の項目があれば行事日区分はいらないかもです
>>227
修正版ありがとうございます
まだ変更箇所確認してないのでこのあと確認させていただきます
- 229 名前：142 mailto:sage [2012/03/15(木) 23:08:41.84 ]
- >>228
依頼主がいじるのは別にイインジャネ？
- 230 名前：56 mailto:sage [2012/03/16(金) 04:07:35.03 ]
- >>226さん有難う。>>227の分含めてＤＬして貰えました。
今から見ようと思います。スレちになるけどスマホだとＤＬしてmicroSDにおとしてパソコンで見る事が出来るのかな？
電池の持ちが余りにも悪くて買い換えようか悩んでいるもので…
動画とか余り見ないしネットも２チャンくらいなものノートも一年以上動かしてなかったし (^o^;
- 231 名前：デフォルトの名無しさん mailto:sage [2012/03/16(金) 04:14:12.59 ]
- >>230
スマホならできる
- 232 名前：56 mailto:sage [2012/03/16(金) 04:44:10.63 ]
- >>231 それなら買い換えてもいいかな
>>278さん、もう少し質問。
①嘱託の休みが多いのは事務所から働ける毎月の勤務日数或いは時間数の指示がなされている？
②パートの場合も同じ？
132時間以上で会社の社会保険加入義務(強制)が発生し主婦の場合118時間超で税金を納めなくてはいけなかったのを思いだしたものですから…
- 233 名前：278 ◆3HjE5W.53k mailto:sage [2012/03/16(金) 22:23:09.37 ]
- >>229
そうですか、よかった；
>>232
パートも嘱託も休みの回数は年度始めに決まっています(事務所から回数書いた紙を貰う)
それも写真撮ってあとでUPします
- 234 名前：278 ◆3HjE5W.53k mailto:sage [2012/03/16(金) 22:56:50.00 ]
- ウェブアルバムめんどそうだったのでアプロダですみません
www.dotup.org/uploda/www.dotup.org2754101.jpg.html
www.dotup.org/uploda/www.dotup.org2754108.jpg.html
PASS:vba
縦が名前、4～3月、合計、休み回数(8,9,10,11回)です
- 235 名前：デフォルトの名無しさん [2012/03/17(土) 16:27:36.65 ]
- >>233
>ウェブアルバムめんどそうだったのでアプロダですみません
外注したらウン十万円のものタダで作ってもらっておいて
自分の骨惜しみは「面倒」だとかどんだけだよ
- 236 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 17:15:17.63 ]
- >>234
だからドロップボックス使えって言ってるだろカスが。
もう絶対コーディングしてやらん。
- 237 名前：デフォルトの名無しさん mailto:sage [2012/03/17(土) 17:39:49.22 ]
- Googleドキュメントだと確かに面倒だったきがす
他のやつでうpすればいいんじゃね？
- 238 名前：56 mailto:sage [2012/03/17(土) 22:11:17.95 ]
- >>234
Ｕぷ、すいません。
まだ、ちょこっとしかみてませんけど、やっぱり休みの割り振りに偏りが出てるみたいですね(パラメータの連勤数を下げればかなりかわるかも)
- 239 名前：278 ◆3HjE5W.53k mailto:sage [2012/03/17(土) 23:17:23.96 ]
- >>235
言葉足らずで申し訳ないです…
面倒なのは見るほうがなのでUPするのはすぐ出来ます
>>236
失礼しました、次からはドロップボックスを使うようにします
>>238
偏り出ますね；特にパートのPさんはなぜか月ごとに回数も変わってくるし…
家族での収入による調整だとは思いますが
- 240 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 08:13:54.88 ]
- >>278
要件の説明だけだとわからないので
実データをもとにしたデータを3年分ほど
上げてください
前提条件(指定休、希望休、指定休、希望休など)と
実際に作成した勤務表をできるだけ詳しく
お願いします
- 241 名前：デフォルトの名無しさん mailto:sage [2012/03/18(日) 12:43:38.10 ]
- 間違えました
指定休、希望休、指定勤務、希望勤務
です
- 242 名前：278 ◆3HjE5W.53k mailto:sage [2012/03/19(月) 22:40:57.46 ]
- >>240
遅くなりました、過去の勤務表です
携帯で撮ったので画質が悪くてすみません
2010年3月～2012年2月までです
www.dropbox.com/gallery/67923374/1/%E5%8B%A4%E5%8B%99%E8%A1%A8%E4%BD%9C%E6%88%90?h=3c209d
- 243 名前：デフォルトの名無しさん mailto:sage [2012/03/19(月) 23:45:19.40 ]
- >>242
ありがとうございます
- 244 名前：デフォルトの名無しさん mailto:sage [2012/03/20(火) 00:18:22.61 ]
- >>237
そうか？excelより簡単だぞ
- 245 名前：デフォルトの名無しさん [2012/03/20(火) 01:15:22.48 ]
- ダウンロードしたの、ボタンを押して動かない
みんなテストできているのか
VBAを直すということは動いているんだろうな
- 246 名前：デフォルトの名無しさん mailto:sage [2012/03/21(水) 14:40:55.11 ]
- 過疎
- 247 名前：278 ◆3HjE5W.53k mailto:sage [2012/03/22(木) 20:09:32.28 ]
- 初歩的な質問で申し訳ないですが
セルAP5:AP34に乱数を配置したとして
その中の最大値のあるセルの行番号を求めるにはどうしたらいいのでしょうか？
- 248 名前：デフォルトの名無しさん mailto:sage [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 が最大値のある行番号です
これは、最大値がひとつの場合を想定しています
最大値が複数ある場合は、一番小さい行番号となります
- 249 名前：278 ◆3HjE5W.53k mailto:sage [2012/03/22(木) 21:44:03.60 ]
- >>248
ありがとうございます
まだまだVBA勉強中でして、この程度のことも分からず申し訳ないです
- 250 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 14:48:24.81 ]
- なあ、最初の発言が2/19で、もう一ヶ月以上たってるんだけど、VBAの勉強は何時間したの？
正直引くわ
- 251 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 19:26:28.55 ]
- まぁ初心者が一ヶ月程度でできるほど簡単じゃないってことだ
- 252 名前：デフォルトの名無しさん mailto:sage [2012/03/23(金) 19:41:19.03 ]
- エクセルでやるのかw
|
 |
