Excel VBA 質問スレ Part23

1 名前：既定のプロパティさん mailto:sage [2012/01/29(日) 00:05:13.16 ] 01 pc11.2ch.net/test/read.cgi/tech/1054356121/ 02 pc11.2ch.net/test/read.cgi/tech/1168308855/ 03 pc11.2ch.net/test/read.cgi/tech/1180192018/ 04 pc11.2ch.net/test/read.cgi/tech/1189814602/ 05 pc11.2ch.net/test/read.cgi/tech/1197448064/ 06 pc11.2ch.net/test/read.cgi/tech/1205231499/ 07 pc11.2ch.net/test/read.cgi/tech/1212587819/ 08 pc11.2ch.net/test/read.cgi/tech/1219673793/ 09 pc11.2ch.net/test/read.cgi/tech/1228372971/ 10 pc12.2ch.net/test/read.cgi/tech/1235332603/ 11 pc12.2ch.net/test/read.cgi/tech/1241885130/ 12 pc12.2ch.net/test/read.cgi/tech/1247566074/ 13 pc12.2ch.net/test/read.cgi/tech/1254281104/ 14 pc12.2ch.net/test/read.cgi/tech/1262748898/ 15 pc12.2ch.net/test/read.cgi/tech/1271261239/ 16 hibari.2ch.net/test/read.cgi/tech/1280045912/ 17 hibari.2ch.net/test/read.cgi/tech/1289182437/ 18 hibari.2ch.net/test/read.cgi/tech/1298240666/ 19 hibari.2ch.net/test/read.cgi/tech/1305754555/ 20 hibari.2ch.net/test/read.cgi/tech/1312435844/ 21 hibari.2ch.net/test/read.cgi/tech/1316931607/ 前スレ： Excel VBA 質問スレ Part22 toro.2ch.net/test/read.cgi/tech/1322400978/ 268 名前：デフォルトの名無しさん [2012/02/18(土) 23:05:13.47 ] Excelで「平成1年」を「平成元年」と表示させるための一番簡単な方法はなんですか？ ちなみに昭和や平成の他の年もいっぱいまざっています。 269 名前：デフォルトの名無しさん mailto:sage [2012/02/18(土) 23:20:54.49 ] Replace(s, "平成1年", "平成元年") 270 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 00:13:58.80 ] > 昭和や平成の他の年 の考慮が漏れてるではないか。 271 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 00:20:14.51 ] [^0-9]1年 272 名前：268 [2012/02/19(日) 00:58:11.82 ] >>269 でかした！ >>270-271 どういうこと？ 273 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 03:27:02.71 ] 風邪で寝込んでて暇だからやってみた。バグがあるかもしれんから取扱注意。 年だけの場合 Public Function 元年変換From年(paramValue As String) As String Dim i As Integer, yearValue As String 元年変換From年 = paramValue For i = 1 To Len(paramValue) If Mid(paramValue, i, 1) Like "#" Then yearValue = Mid(paramValue, i): Exit For Next i If Val(yearValue) = 1 Then 元年変換From年 = Replace(元年変換From年, Val(yearValue), "元") End Function 年月日の場合 Public Function 元年変換From年月日(paramValue As String) As String Dim paramDateValue As Date paramDateValue = DateValue(paramValue) 元年変換From年月日 = Format(paramDateValue, "ggg") & IIf(Format(paramDateValue, "e") = 1, "元", Format(paramDateValue, "e")) & Format(paramDateValue, "年m月d日") End Function ※　年月日の方であり得ない日付(平成1年1月1日など)を入れると本来の日付(昭和64年1月1日など)に変換される。 274 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 06:24:27.04 ] >>272 >>269では誤動作するケースがある、というのは分かる？ 経験があれば、真っ先に>>270-271のようなことが浮かぶもんだよ。 275 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 06:39:48.49 ] Excel上での表示の話なんだから… 「Excel 1年 元年」でググってみ。いろいろやり方があって面白いよ。 第1位に出てる、セルの表示形式を [<32516]ggge"年"m"月"d"日";[>32873]ggge"年"m"月"d"日";"平成元年"m"月"d"日" にしろってヤツ、いかにもExcel臭いがCool…なのかなｗ 自分的には、文字列にしてから置換する方が好きだ。 276 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 07:14:45.79 ] 元号使わなきゃ無問題 277 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 07:17:24.42 ] >>275 VBAスレでセルの表示形式の回答？ 278 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 11:10:34.97 ] 今特別養護老人ホームに勤めていて、頭を使って手書きで勤務表を作っています ExcelのVBAで自動で勤務を割り振ってくれる勤務表は作れますか？ 279 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 11:11:32.23 ] 特定のファイルの追加、削除の監視をDO〜LOOPで行おうと思うのですが、 監視を任意のタイミングで終了させるにはどうしたらいいでしょうか？ 280 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 11:19:38.11 ] >>278 作れる。簡単ではないけど。 コツコツやって具体的にわかんない部分が出たらまた来ればいい。 >>279 終了フラグを用意して、DO〜LOOP前でクリアDO〜LOOP内でチェック。 終了ボタンなどで終了フラグを書き換える。 281 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 11:21:42.39 ] >>279 Exit Do 282 名前：279 mailto:sage [2012/02/19(日) 11:30:53.47 ] 早速のレス、ありがとうございます。 ループ中に終了ボタンって押せるんでしょうか？ UserFormにスタートボタン、終了ボタンを置いてテストしてるんですが、 ループ中は終了ボタンが押せません。 フォーカスを終了ボタンに移すこととかってできるんでしょうか？ ループ中でもボタンを押すにはどうすればいいんでしょうか？ よろしくお願いします。 283 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 11:35:10.73 ] >>282 DO〜LOOP内、各行前後にDoEvents入れて見。 足りなそうなら増やして見。 284 名前：279 mailto:sage [2012/02/19(日) 11:38:53.91 ] >>283 できました。 ありがとうございました。 285 名前：デフォルトの名無しさん [2012/02/19(日) 16:29:31.34 ] Do〜LOOP使うならWhile使えよ 286 名前：デフォルトの名無しさん [2012/02/19(日) 18:01:02.40 ] そーいえばどっかで平成が何年までか求めるコードがあったな 287 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 18:45:33.02 ] >>286 > 平成が何年までか求める 宮内庁から怒られるんじゃないのか… 288 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 19:17:04.08 ] 今年で,,,,　ｹﾞﾌﾝｹﾞﾝ 289 名前：278 mailto:sage [2012/02/19(日) 19:36:06.20 ] >>280 ありがとうございます、コツコツやってすぐ分からなくなってまた来ます その時は教えて頂けたらありがたいです 290 名前：デフォルトの名無しさん [2012/02/19(日) 19:52:21.66 ] こちらでも質問させてください。 会社では2010、家では2003を使用して「終了」ボタンを押すと「終了」する VBAを作成しています。Webページとして保存した場合、ボタンを押しても 起動しません。Webページとしてボタンを押せるようにするには Sub () Dim rc As Long rc = MsgBox("○○を終了しますか？", vbYesNo + vbQuestion) If rc = vbYes Then Application.Quit Windows("ファイル名.xls").Close True Else MsgBox "いいえが選択されました。", vbExclamation End If End Sub としてどこを変更すれば良いでしょうか？ 291 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 20:16:12.70 ] 堂々とマルチ宣言 時代変わった？ w 292 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 22:47:40.35 ] こんにつわ、質問です。 With ActiveSheet.QueryTables.Add(Connection:=で、Web上のテーブルを取り込んだのですが、このテーブルの指定セルだけを取り込むにはどうすれば良いですか？ 293 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 23:20:17.56 ] >>289 勤務表作成なら興味があるので手伝ってもいいですよ ただプロバイダが2ちゃんで書き込み禁止になることがよくあるので 書けるときだけですが とりあえずググって見ましたか? 自分の業務で自分だけが使うのなら作りやすいのですが 自分の異動など他の人に業務を任せることも考えると 画面デザインが重要になりますね 294 名前：デフォルトの名無しさん mailto:sage [2012/02/19(日) 23:25:53.88 ] すいません、多分超簡単なんでしょうけど質問させて下さい 最近VBAを勉強し始めましたのですが、あるセルを基点（仮にA5）としてそこから左端にアクティブセルを移動した後、 仮にAA,AAAと言う文字が来たら、そのセルから右に5列の場所にaa、 BB,BBBと言う文字の場合はbbと言う文字を、それ以外の場合はメッセージボックスにccとでるようにして、 その後一行下に移動して、上記の作業を仮に10回繰り返していき、最後はA１にアクティブセルを移動させると言う問題があったのです。 それを変数を使って解くというようなことがあったのですが、 sub () Dim z As String , i As Integer Range("A5").Select For i = 1 To 10 Step 1 z = ActiveCell.Value Select Case z Case = "AA","AAA" ActiveCell.Value="aa" ActiveCell.Offset(0,5) Case ="BB","BBB" ActiveCell.Value="aa" ActiveCell.Offset(0,5) Case else MsgBox"cc" End Select ActiveCell.Offset(1,0) Next i Range("A1").Select End sub としたのですが、うまくいきませんでした。どこが間違ってるのか自分ではわからなかったので教えて下さい こんな初歩的な質問でスイマセン・・・ 295 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 00:11:23.16 ] >>294 OffsetはRangeオブジェクトを返すプロパティ… とか言う以前に論理的に変だよ プログラム知らない人でもこんなコードは書かない ActiveCell.Offset(0,5).Value="aa" とか ActiveCell.Offset(0,5).Value="bb" とか ActiveCell.Offset(1,0).Select として見れば? 296 名前：278 mailto:sage [2012/02/20(月) 00:25:03.13 ] >>293 ホントですか！？ ありがとうございます 色々ググって見て、とりあえずデザインから作り始めてます 自分が使うだけなので特に問題ないです 複雑だから結構難しそうですね･･･ 297 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 00:38:53.21 ] >>296 >自分が使うだけなので特に問題ないです 仕事に使うならこの考え方はないです エンドユーザコンピューティングの典型的な悪いところ 業務にVBAを使う以上、他の人が使えることが最低条件です 298 名前：278 mailto:sage [2012/02/20(月) 00:42:20.32 ] >>297 そうですよね･･･ 異動になったりしたとき他の人が使えないと困りますしね 気をつけて作っていきたいと思います 299 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 01:13:25.65 ] >>298 エンドユーザーコンピューティングでやりがちなミス ・ 変数等の名づけが行き当たりばったり ・ 変数等の用途が途中で変わっても名前を放置 　 　 →　 名づけのルールを決めて、それに従う。もしずれたら補正する。 変数やSub、Functionの名前がバラバラだとソースを見る時、一々定義を確認しなきゃならない。 自前のルールで決めて、それに従ってればわりと見やすくなる。 ・ 設計の時に考慮した事・あえて無視した事を書き残さない 　 　 →　 メモ書きの内容も含めてあとで読んでもわかるように資料化する 資料がないと、バグが発生した時に考え方のバグなのかプログラム化する段階でのバグなのか切り分けが大変。 ・ 資料を作っても読み返さない 　 　 →　 資料化したものは月に1回ぐらいは読み返してみよう。 慣れていないと、必要な事が抜け落ちた資料になったりする。 ・ 必須機能や各種条件などを決める前にプログラミングを始める 　 　 →　 少なくとも基本方針、前提条件、などはプログラミング前に資料にまとめよう。 固定で必須な条件と、人数の増減などで変更が発生する条件ぐらいは切り分けてからプログラミングした方が楽。 ・ 同じことの繰り返しを何か所にもコピペ 　 　 →　 同じことはFunctionやSubにまとめてそれを呼び出す。 ミスがあった場合それもコピペで増えるので、ソース内でのコピペは可能な限り避ける。 方針メモ出来たらうｐしてみ。 300 名前：278 mailto:sage [2012/02/20(月) 07:57:10.04 ] >>299 そんなに色々あるのですか･･･ これ教えてもらってないと大変なことになってました； とりあえず基本方針？と前提条件をまとめてみます 301 名前：294 mailto:sage [2012/02/20(月) 08:01:46.57 ] >>295 ありがとうございます やっぱり独学じゃダメなのかな・・・ もっと勉強します 302 名前：278 mailto:sage [2012/02/20(月) 09:49:16.54 ] とりあえず思いついたメモを羅列 ・人によってできる勤務が異なる(夜勤1は出切るが夜勤2は出来ない等) ・夜勤はなるべく連続しないようにする(夜勤、明け、休み、夜勤･･･) ・早番がすぐに来ないようにする(早番、日勤、休み、早番) ・前月の夜勤の明け、明け休みも考慮する。早番も ・希望休、希望勤務を入力できるようにする ・同じ番号の勤務はなるべく続かないように ・休みも偏らないようにする ・勤務は各回数入力できるように(休みも9回の時などあるので入力) もっとある気がしますが、この時点で凄く難しそう… 303 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 10:07:26.30 ] >>302 ナーススケジューリング問題(ググれ）に匹敵するような要件の場合、勤務表を作成するのはすごく困難。 304 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 10:36:51.36 ] >>302 最初から自動割振りするシステムは難しいから、 割振り入力してボタンを押すと問題がある割振りに色を付けるシステム (夜勤連続だと赤、休み集中だと青など) を作ってみたら？ 305 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 13:05:17.31 ] >>303 あんまりおどすなよ。 306 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 13:41:17.42 ] >>302 落ち着け。 勤務表作成を新人に引き継ぐ感覚でまとめてみ。 それもおまいさんが急用でどうしても質問受けれない場合にどう引き継ぐか。 その感覚でまとめれば要件資料としてはそれなりになるはず。 「すごく困難」って言ってる人がいるけど、正攻法で１からやろうとすると困難かもね。 単純ロジックで乱数うまく使って種表作って、 補正が手詰まりになったら最初からやり直すプログラムにすれば、 表が完成するまでの時間はかかるけどなんとかなる。 307 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 14:10:35.11 ] >>306 > 補正が手詰まりになったら最初からやり直すプログラムにすれば、 > 表が完成するまでの時間はかかるけどなんとかなる。 それ、いつ終わるの？ 組み合わせ爆発、半端ないよ？ 308 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 14:52:45.60 ] >>306 仮に要件が固まったとしても、それを実現できるコードを書けるとは限らない。 汎用的なシフト勤務ソフトがそれほど出回ってないのは、それぞれの職場の都合が大きく異なるのということより、 やはりシフト勤務作成そのものが難しいからだと思う。 実際ナーススケジューリング問題でググればわかると思うが、正攻法では無理なのでGAによる解法がかなり 研究されてる。 309 名前：278 mailto:sage [2012/02/20(月) 16:18:27.47 ] ナーススケジューリングは気をつけないといけないんですよね･･･ やっぱりそこが難点ですか困難なほどに； 引継ぎ感覚でもう少し具体的にまとめてみます コード書くのはほとんど初心者で何から手をつけたらいいのか全然分からないですが… 少しずつでも頑張っていきます 310 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 16:35:41.36 ] 勤務表に関しては入力支援を強化してアナログ入力した方が早いんだよな ボタンひとつで終われば楽っちゃ楽なんだけど 継続的に使えるプログラムを作成する労力と、１ヶ月のうち勤務表作成にかける労力を考えると どうしてもアナログ入力になる。 >>309 つーか、この件に関しては引継ぎなんて考えるなよｗ できる人ができる形でやればいいんだよ どうせ素人が扱えば余計な動作やエラーで詰むし そこそこ使える人ならそれなりのモノ作るんだから 311 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 19:27:43.39 ] つーかさ、>>278はNSPの一般解求めるのが目的じゃなくて 職場の勤務表を作るのが目的なんだから とりあえず作成に必要な要件をもっときちんと書き出してみたらどうよ。 >>302の情報だけじゃ結局>>278にしか分からんじゃん。 たとえば勤務シフトには何種類あるのか、(明、早、日、夜1、夜2、休の6種類なのか?) スタッフ何人いて各シフトにはそれぞれ何人割り振るのか、 そのうち何人がシフトに制約があるのか、etc. 具体的に書き出したらそこそこ何とかなるかも知れんのと違う? まぁ現状で(手書きの状態で)どの程度満足できるシフトを作れてるのか もわからんから、あんまり厳しい条件だと自動化は無理だろうけど。 312 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 20:33:52.13 ] 実際の勤務表に近いものをどこかにUploadしてください 他業界の人に勤務表作成を依頼するつもりで説明してください 313 名前：278 mailto:sage [2012/02/20(月) 20:49:48.30 ] そうですね、それでは確実なところから ・勤務は 早番、日勤、夜勤1、夜勤2、明け、休み、有給、研修 　日勤は２番、３番･･･とあり多いときで(行事などの日)10番とかも 　土曜、日曜日は４番、５番までなど少ないことが多い 　平日は大体６番、７番以上まで欲しい(希望休が重なるなどで５番までのこともあり) 　正職、パート、嘱託？や人により可能な勤務が違う 　パートには休みを全部自分で指定する人もいたり。 　一日の勤務で最低 早番、２番、夜勤1、夜勤2、明け*2、明け休み*2が正職か嘱託でいる 　夜勤ではこの人とこの人は一緒にできない、がある 　早番はやったら次の早番まで５日は間が欲しい 　夜勤は基本連続しないように(夜勤、明け、休み、夜勤…無理ならOK) 　先に勤務を希望している場合あり(早番、夜勤なども) 　前の月の夜勤の明け、明け休みも考慮する 　休み、同じ番号の勤務はなるべく連続しないように。偏りのないように 　休みは基本月10回。月により前後することあり、又多い人もいる とりあえずシフトに関することはこれくらいかな･･･ 314 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 21:46:17.55 ] 連続したセルに値を書き込むのに簡単な方法は無いでしょうか？ セルに値を書き込むと、自動的に隣のセルにフォーカスが移動するみたいな 315 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 21:59:23.91 ] 看護士の勤務表は、準夜・深夜・休みを縦横計算しとけばいいと思う。 あとは、希望勤務の登録かな・・・ 316 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 22:10:25.86 ] >>314 それをVBAでやりたいって事？ エンター押すと横移動はオプションで設定できる。 317 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 22:11:21.36 ] >>313 だ・か・ら・他業種の人相手にその説明で理解できると思う? 何番ってのは人数なのか?だったらなんで >早番、２番、夜勤1、夜勤2、明け*2、明け休み*2 って一番が居なくて2番が居るんだ? これだと1日8人が必要ってことだが >日勤は平日6番、7番以上欲しい ってのはこの8人には含まれてないのか? そもそもこのシフトを全部で何人で回してるんだ? （これ一番重要かもしれない） >>314 それ普通にエンター押せば次のセルに行くじゃん。 エンター押下で上下左右のどちらに行くかは ツール=>オプション=>編集から "入力後にセルを移動する" の "方向"で変えられる。 318 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 22:12:20.14 ] >>314 VBAと関係なく、普通に移動するんじゃないの。 下方向か横方向かは設定次第だが。 319 名前：314 mailto:sage [2012/02/20(月) 22:25:10.40 ] 自己解決しました、レス有難うございます Private Sub Puts(s As String) Dim r As Long, c As Long r = ActiveCell.row c = ActiveCell.Column Cells(r, c) = s Cells(r, c + 1).Select End Sub 320 名前：278 mailto:sage [2012/02/20(月) 22:29:35.78 ] 説明難しいですね… 早番＝1番と考えていただければいいです 平日7番までというのは日勤者(2番〜7番の6人)です 今現在は正職が13人、嘱託が1人、パート2人、(関係ないけどお掃除さん1人) ただ3月で正職と嘱託が1人ずつやめます パスは vba です これは勤務表 www.dotup.org/uploda/www.dotup.org2664409.jpg.html 勤務表の一番右になります www.dotup.org/uploda/www.dotup.org2664415.jpg.html これが当番表になります。 実際作りたいのはこっちで考えています www.dotup.org/uploda/www.dotup.org2664419.jpg.html 321 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 22:29:39.19 ] そんなもん必要になる状況がよくわからん。 322 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 22:36:30.41 ] >>320 質問。 明けについて。夜勤明けの勤務なの？それとも明け休み？ それは夜勤と確実にペアなものなの？夜勤だけで明けがない場合もあるの？ 323 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 22:44:58.89 ] >>320 現状のままだと3月以降に条件を満たすのは無理 NSPがどうこう言う以前に延べ人数で考えたらすぐ分かる まず一個目の画像から1日平均10人が勤務する必要があることがわかる。 つまり1ヶ月で延べ300人必要 対してスタッフは3月以降14人(16-2=14)、 この人たちが月平均10日休むってことは20日働くってことで 20*14=280人ってことで、300-280=20人　=>　ちょうど1人分足りない ってことで、15人以上居ないとあなたの施設は回らない 324 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 22:45:15.43 ] >>321 帳票付けるときに重宝する TABキー使わずにテンキーとエンターだけで表の端まで行ったら先頭列の1行下に移動できるし 325 名前：278 mailto:sage [2012/02/20(月) 22:49:31.98 ] >>322 夜勤は(夜勤、明け、休み)で1セットは確実です 明けが無いとかはないです >>323 一応来年度に新しい職員が2人入るのと異動で何とかなるとは思いますが… それでも厳しいのには変わりないんですよね 326 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 23:03:01.95 ] >>278 資料をまとめなおしてみたよ。読んでみて違う所の指摘と、研修について月何回とか決まってるかとか、教えてプリーズ。 278番様向け　勤務シフト表入力支援システム要件書　（ドラフト） １．職員の種類 　正職、パート、嘱託などがあり。 　人によって可能な「勤務」に違いがある。（パートは日勤3番以降のみ。） ２．勤務の種類 　早番、日勤（２番〜10番）、夜勤1、夜勤2、明け、休み、有給、研修などがある。 　同じ種類・番号の勤務（および休み）はなるべく連続しないように。偏りのないように。 　最低限必要な１日の勤務人数は 　早番、日勤（２番〜５番）、夜勤1、夜勤2、明け、明け、休み、休み 　の11名。（休み2名は前々日の夜勤1、夜勤2。強制。） ３．早番 　別名１番。 ４．日勤 　２番、３番・・・と(行事などの日)10番ぐらいまである 　平日は大体６番、７番以上まで欲しい(希望休が重なるなどで５番までのこともあり) 　土曜、日曜日は４番、５番までなど少ないことが多い つづく・・・ 327 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 23:03:49.82 ] つづき ５．夜勤 　夜勤ではペアを組ませられない組み合わせがある。 　夜勤は基本連続しないように(夜勤、明け、休み、夜勤…可能な限りにならないよう…) 　前の月の夜勤の明け、明け休みも考慮する ６．明け 　夜勤の翌日は自動的に入る。 ７．休み 　休みは基本月10回。月により前後することあり、又多い人もいる 　パートには休みを全部自分で指定する人もいたり。 　夜勤の翌々日は自動的に入る。 ８．研修 　−　未稿　− ９．有給 　有給休暇。 -以上- 328 名前：278 mailto:sage [2012/02/20(月) 23:18:59.70 ] とても綺麗にまとめていただいてありがとうございます >人によって可能な「勤務」に違いがある。（パートは日勤3番以降のみ。） パートで3番ができない人もいます(一応) 休みは年間を通して計算しているので(年度始めには回数は決まっていますが) 9回だったり11回だったりします 休みが多い人というのはパートの人で、配偶者の給料から計算して入れているようです 研修は出張みたいな感じで、休みではないけど職場にはいないとなります 月に一度あるかないか(無いことのほうが多い)であっても一人だけです 329 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 23:43:30.36 ] 278番様向け　勤務シフト表入力支援システム要件書　（ドラフト2） １．職員の種類 　正職、パート、嘱託などがあり。 　人によって可能な「勤務」に違いがある。（パートは日勤3番以降※のみ。） 　※　人によっては日勤4番や5番しかできない。 ２．勤務の種類 　早番、日勤（２番〜10番）、夜勤1、夜勤2、明け、休み、有給、研修などがある。 　同じ種類・番号の勤務（および休み）はなるべく連続しないように。偏りのないように。 　最低限必要な１日の勤務人数は 　早番、日勤（２番〜５番）、夜勤1、夜勤2、明け、明け、休み、休み 　の11名。（休み2名は前々日の夜勤1、夜勤2。強制。） ３．早番 　別名１番。 ４．日勤 　２番、３番・・・と(行事などの日)10番ぐらいまである 　平日は大体６番、７番以上まで欲しい(希望休が重なるなどで５番までのこともあり) 　土曜、日曜日は４番、５番までなど少ないことが多い つづく 330 名前：デフォルトの名無しさん mailto:sage [2012/02/20(月) 23:44:17.04 ] つづき ５．夜勤 　夜勤ではペアを組ませられない組み合わせがある。 　夜勤は基本連続しないように(夜勤、明け、休み、夜勤…可能な限りにならないよう…) 　前の月の夜勤の明け、明け休みも考慮する ６．明け 　夜勤の翌日は自動的に入る。 ７．休み 　正職、嘱託の休みは基本月10回。 　月により前後することがある。（1年間の回数は決まっており、兼ね合いで調整。） 　パートは人によって回数が違う。 　パートには休みを全部自分で指定する人もいたり。 　夜勤の翌々日は自動的に入る。 ８．研修 　出張による研修。多くても月1回1名程度。 ９．有給 　有給休暇。 331 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 00:13:58.53 ] >>278 提案。 当面の目標は入力支援とし、下記の機能を実現。 １．条件に合わないモノを検出する機能 ２．一意で決まるモノを自動入力する機能（夜勤→明け→休み） ３．コンボボックスによる候補での入力（条件によってソートする。） この辺りが出来ればかなり楽になるんじゃね？ 332 名前：278 mailto:sage [2012/02/21(火) 00:26:44.73 ] >>329 まとめなおしていただいてありがとうございます 改めてまとめると自分でも分かりやすいですね >>331 それくらいのほうがいいのでしょうか やっぱり自動で作成はかなり困難ですかね… 333 名前：331 mailto:sage [2012/02/21(火) 00:45:10.26 ] >>332 順番の問題だよ。 自動生成を作っても調整は必要になるんだろ？ まずは調整と入力を支援する機能を作る。 　 ↓ 休みの事前入力とかを作る。入力部分に連動させる。 　 ↓ 手動部分を少しづつ自動化。 こうすれば、途中段階のものでも活用できる。 最初から大風呂敷やると時間が無くなる一方で何も出来上がらないと思う。 334 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 00:53:59.72 ] >>332 331ではないけど、 自動化は総当たりとかで頑張れば不可能ではないと思うけど融通がきかないと思う ある人が骨折して2週間以上抜けてしまうとか この二人組は両方新人なのでばらばらにしたいとか 都合で休みを振り返る人が結構いるとか そういう例外までも自動化で対応するのはかなり困難 その点入力支援はそういった例外にも強い 自動化しても融通がきかないとまったく使えないシステムになりかねない 最初に入力支援を作って様子をみて、いけそうなら最初のシフト表を自動作成することを考えればいい 335 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 03:00:13.24 ] 人員マスターテーブル作って、各人可能なシフトパターンを網羅 表に希望の休みを入力して空いてるセルに人員マスターテーブルからランダムで勤務パターン取得 そしてアナログで手直しするのが一番早いんじゃね？ 入力支援に関してはchangeイベントとVlookup使えばテンキーだけで行ける。 336 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 04:06:23.05 ] そろそろ別の所でやってくれないかな 337 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 07:17:54.61 ] >>278 当番表の構造が分からないので説明お願いします 338 名前：278 mailto:sage [2012/02/21(火) 07:22:49.41 ] なるほど、それなら入力支援も使えるしいいですね とりあえずはそちらから取り掛かろうと思います >>336 すみません；こう長くお話しちゃお邪魔でしたね… >>337 当番表の構造･･？ 339 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 07:33:18.93 ] >>338 わかりました 当番表は勤務表の縦横を入れ替えて 番号順に並べ替えたものなのですね 340 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 10:43:55.13 ] いつまでVBAと関係無い話してんだよ 341 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 14:07:24.52 ] Excel2002を使っています。 あるテキストファイルの最終行から4行目(4行目だけ)の値を取りたいと考えております。 最終行取得はﾔﾌｰ知恵袋にありましたのでこれを使おうと思います。 Do While Not EOF(1) Input #1, MyString cnt = cnt + 1　’cnt＝行数 Loop Line Input では何行目とか言う指定はできないようで どのように指定行を取るかが分かりません。 ググッたら「Line Input で空読み」という事までは分かりましたが 空読みの意味が分かりません・・・ ここから指定行を取得するにはどのようにすればいいのでしょうか？ 342 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 14:34:53.26 ] 行番号を指定して読むことは出来ない。 処理時間をあまり気にしないなら、配列 MyString(3) as string を作って、ファイルの先頭から行を読むたびに0->1->2->3->0->1->...と保存していけば、 最も古いデータが最終行から4行目。 dim index as long index = 0 Do While Not EOF(1) Input #1, MyString(index) index = index + 1 if index = 4 then index = 0 end if Loop 343 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 14:58:15.15 ] 278さんではありませんが 勤務表の別スレを立てましたのでどうぞ ExcelVBAで勤務表を作ろう toro.2ch.net/test/read.cgi/tech/1329803312/ 344 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 15:08:17.97 ] >>342 ありがとうございます。 配列に入れるとは全く思いつきませんでした。 目から鱗が落ちる回答勉強になりました。 希望通りの結果が得られました。 ありがとうございました。 345 名前：278 mailto:sage [2012/02/21(火) 19:21:52.87 ] >>343 本当にありがとうございます 本来自分がやるべきことなのに･･･ これからはそちらに書き込むようにいたします 346 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 19:34:06.17 ] すいません、VBAでスレタイ検索したらここに流れ着いたのですが、初心者用の質問スレってありますか？ 表内で、ある列の書かれている文字ごとにその行の背景色を変えていくと言うマクロを VBEでモジュールに書きたいのですが、イマイチイメージが浮かばなくどうしていいかわからない状況です 足の骨折で入院してて勉強が遅れてしまったので急いで追いつきたいのですが、 おそらく簡単であろうこんな問題もわからなくなってきた次第です・・・ 変数を使用して、繰り返しの処理をし、RangeとCellsを使って解けと言われたのですが？？？と言う状況です そこで初心者用のスレがあったら誘導願います スレ違いでスイマセン 347 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 19:45:46.58 ] >>346 スレはここでも良いと思うけど、Cellsを使ってループ処理をする、その方法は知ってるの？ For i = 1 to 100 If Cells(i,1)= "xxxx" Then Cells(i,1)= 〜 End If Next みたいなさ 348 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 19:48:13.75 ] >>344 もう解決してるので今更感が強いけど、 テキストファイルをエクセルで開いて下から4行目を取得する、 というやり方もできるよ Test.txtを開くと仮定したらこんな感じ Sub test() Dim WB As Workbook Dim I& Dim Txt$ Set WB = Workbooks.Open("test.txt") With WB.Sheets(1) I = .Cells(.Rows.Count, 1).End(xlUp).Row If I > 3 Then I = I - 3 Else I = 1 End If Txt = .Cells(I, 1).Value WB.Close MsgBox Txt End With End Sub 349 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 20:07:58.96 ] >>347 文字は何パターンあるのかな。 パターン数分の背景色が必要になるけど、何色でも良いの。 350 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 20:09:31.70 ] ↑間違えた。>>346宛ね。 351 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 21:03:18.61 ] >>346 このあたりを調べて使えるようになればできるよ。 最終行取得 繰り返し（ｆor each〜next） colorindex entirerow dictionary 352 名前：346 mailto:sage [2012/02/21(火) 21:26:45.65 ] >>347 For〜Nextは勉強しましたので、その文はナントカわかります >>349-350 大元が2種類あって、更にその片方が何種類か条件があるような感じです ですので、背景色は6〜7色前後になりますが、色については指定がありましたので、 ColorIndexの後にその数字を入れていけば対応できます >>351 残念ながらまだ基礎の方なのでColorIndex以外は習ってないですね・・・ 今習ってる構文？といえば 思い出せるのは、If〜Then〜Else、For〜Next、Do〜Loop位ですね 347さんのでなんとなくなイメージは浮かびました 答えてくださった方々、ありがとうございました とりあえずはもうちょっとネットで調べてみます 353 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 22:01:14.63 ] OS：XP SP3 Excel：2003 SP3 --- （略） graph_name = ActiveChart.Name graph_index = ActiveChart.Index （略） ActiveSheet.ChartObjects(graph_index).Activate　'エラーが発生する （略） --- 例えば、graph_nameがGraph 3だったら、 ActiveSheet.ChartObjects("グラフ 3").Activate とする事で、エラーが発生しなくなります。 解決策をご存知の方はぜひご教授願います。 354 名前：デフォルトの名無しさん mailto:sage [2012/02/21(火) 22:25:34.74 ] >>353 graph_index =ActiveChart.Parent.Index 355 名前：デフォルトの名無しさん [2012/02/22(水) 10:41:53.09 ] >>215なんですが、>>217さんのやり方で成功したかと思ったんですが、 欄が全部埋まってる場合にも空白のメッセージボックスが出てきてしまうんですよね。。。 全て記入されている場合はメッセージボックスを出さない処理にするにはどうすれば良いのでしょうか？ 356 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 11:48:31.30 ] >>355 最後のmsgboxのところを ifでよける。 357 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 15:04:52.84 ] >>354 サンクス！ 358 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 21:09:05.40 ] >>355 if len(str)>0 then msgbox str 359 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 21:10:42.95 ] then end if を { } で書くのに慣れると、BASICはどうも読みにくくて仕方ない。。 まあ慣れの問題なんだけどさ 360 名前：デフォルトの名無しさん [2012/02/22(水) 22:51:46.44 ] おう、お前ら 初心者で悪いけど質問な ユーザーフォームっての作ったんだけど そこに入力された値ってのはどうやって得るんだ？ 初心者なんだから丁寧に教えろよ 361 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 23:08:36.01 ] つまんない 362 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 23:34:39.45 ] ユーザーフォームの値を得たり、値を入れたりは Applicationオブジェクトから辿ると何となく分かるけど、 Msgboxのボタンを押すとか謎。 363 名前：デフォルトの名無しさん mailto:sage [2012/02/22(水) 23:44:29.66 ] >>360 オブジェクト名.Valueでよろし。。。。。 364 名前：デフォルトの名無しさん [2012/02/23(木) 00:03:42.57 ] >>363 なんだ、簡単だったな あんがとよ！ 365 名前：デフォルトの名無しさん mailto:sage [2012/02/23(木) 01:18:57.32 ] 便乗するわけじゃないけどユーザーフォームについての質問です。 ユーザーフォームの右上の×をクリックしたときって どういう動作をしているのでしょうか? ×でフォームを閉じたことを標準モジュールのプロシージャ (そのユーザーフォームをShowしたプロシージャ)から知る方法ってありますか? 現在はPublicで宣言したBoolean変数とフォーム上のコマンドボタンを用いて コマンドボタンをクリックしたら変数をTrueにしてからHideするようにしてます。 （×で閉じたらFalseだからそれで判断してます） パブリック変数を使わないで×で閉じたことを知る方法があったら教えてください。 366 名前：デフォルトの名無しさん mailto:sage [2012/02/23(木) 02:37:52.92 ] >>365 標準で用意されているイベントハンドラでは知ることはできない プロセスの終了方法を区別するには、×ボタンのクリックイベントをフックするぐらいしかないんじゃない？ ただしアプリケーションの作法としては終了方法を区別するような設計にするのはあまり良くないと思うけど 367 名前：デフォルトの名無しさん mailto:sage [2012/02/23(木) 02:48:44.80 ] >>365 ユーザフォーム内だと UserForm_QueryClose で処理できるんだけど いっそのこと Ｘで終了出来なくしたら？ だめかな？やっぱ Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) 　If CloseMode = 0 Then Cancel = 1 End Sub 368 名前：365 mailto:sage [2012/02/23(木) 03:32:51.89 ] >>366 無理なのですか、残念です。 終了方法を知りたいというか、 ユーザーフォームと標準モジュール間でパブリック変数を介さないで 情報のやり取りがしたかったのです。 標準モジュール同士ならローカル変数でも引数で受け渡し可能ですけど、 ユーザーフォームには引数渡せませんよね? 標準モジュール側からLoadだけしておいて フォームのオブジェクトに値を入れてShow とか、 フォーム側からHideして標準モジュールに戻ってから オブジェクトの値を取得とかは出来ますけど、 Hideしたときにどういう風にHideしたかの情報を パブリック変数を使わずに取得できないかな? ということが知りたかったのです。 （ぶっちゃけていうと「実行」と「キャンセル」の判別に使いたいのです。） パブリック変数の使用以外に フォーム上に不可視のオブジェクト（チェックボックスなど）を作っておいて それをフラグに使うっていう手もありますが、 なんかスマートじゃないな、という気がしまして。 >>367 上に述べたとおり、×をキャンセルボタン扱いで使いたかったわけです。 残念ながら私の思うような方向では出来ないっぽいですけど。 ともあれ、お二方にお答えをいただけてとてもうれしかったです。 どうもありがとうございました。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef