• 締切済み

当番表の作成について（VBA）

夜遅くにすみません。 マクロを使った当番表の作成に力を貸してほしいです。 文章が下手なので箇条書きにします。 •職員10人（現在） •異動、入退職があり、職員欄のような所に名前を記入して反映できるようにしたい •1人1週間の当番制 •約2ヶ月の間隔を空けて次の当番がくるようにしたい •毎年の年末年始、ゴールデンウィークはすでに担当が決まっている •万年カレンダーのような書式で印刷したい 質問内容がわかりづらいと思います。 すみません。 よろしくお願いいたします。

みんなの回答

  • aokii
  • ベストアンサー率23% (5210/22062)
回答No.1

職員10人程度でしたら、マクロではなく、普通にエクセルで当番表を作った方が、間違いも少なく正確に作ることができると思いますが、いかがでしょうか。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. その他（プログラミング・開発）

関連するQ&A

  • 医療関係の方にお尋ねです。

    当方、葬祭業で働いております。 今まで、先輩方、他社の方から当たり前のように聞いてきたことですが、 年末年始、ゴールデンウィークなど、長期休暇がある場合、病院の職員が手薄になります。 そこで、連休に入る前や、連休後に命をコントロールして調整するというのは、実際どうなんでしょう？ 確かに、ゴールデンウィークはお迎えが少なく、どこの葬儀屋さんも暇でした。 こんな質問、タブーとは思いますが、お教えください。

  • 飲食店への就職についてです。

    東京のカジュアルイタリアン店からの求人が来たのですが月給が手当込み20万。休日が月５回、連休あり、ゴールデンウィーク、年末年始、夏期休暇。時間は10～23時。となっています。 休日の欄がとても怪しく感じるのですが。。。僕だけでしょうか。お店自体は基本的には無休のようで。。。それなのに年末年始、ゴールデンウィークなど休めるとは思わないのですが信用できるのでしょうか。 求人票も他の求人票とは違い既存の求人票に書き込んでコピーしてあるものではなく白紙にパソコンで必要事項のみ箇条書きしてあるかんじてした。 すいませんが皆様の意見をいただけるとありがたいです。

  • ムーンライト松山・高知号

    毎年、繁忙期（年始年末、ゴールデンウィーク、お盆）には 必ずムーンライト松山・高知号が運行されていましたが、先日 本屋さんで１２月号の時刻表を見てみたら今年の年始年末は運行 されてないみたいですがどうして運行されていないのでしょうか？ だれか知っている方教えてください。

  • 週刊少年サンデー、なぜこの時期に合併号？

    今週号の少年サンデーは休み（先週、合併号）のようですが、なぜ今？ 毎年、ゴールデンウィーク・お盆・年末年始の３つの時期には合併号は見慣れていますが、１１月中旬というのはいかにも中途半端です。 事情ご存知の方、教えてく下さい。

  • 小学校の休みについて聞きます。

    小学校の休みについて聞きます。 土日祝日以外、夏休み、冬休み、春休みは大体いつからいつまでしょうか。ゴールデンウィーク、年末年始の休みはカレンダー通りですか。学校の通常休み以外、個人の事情（例えば旅行など）で休めますか。休みが多いと、留年になるのでしょうか。なるならば、その日数の規定はあるのでしょうか。病気による休みはどう扱われるのでしょうか。そのほかに小学校の休みに関する注意はありますか。 よろしくお願いします。

  • エクセルのVBAで質問があります。

    現在自分はカレンダーを作成していて、カレンダーに祝日を入れたいと思っています そこで これを if文もしくはselectcase どっちを使ったら楽か教えてもらいたいです Sub MakeCalendar(hi As Date) Dim i As Integer 'カレンダーにセットする日付 Dim g As Integer '日付をセットする行番号 Dim r As Integer '日付をセットする列番号 Dim lastDay As Integer '作成するカレンダーの月末 g = 2 'その月の開始曜日を算出 r = Weekday(DateSerial(Year(hi), Month(hi), 1), vbSunday) '指定された日付の翌月１日をもとて、日付の前の日を計算する lastDay = Day(DateSerial(Year(hi), Month(hi) + 1, 1) - 1) For i = 1 To lastDay 'iに日付の設定 Cells(g, r).Value = i If r = 7 Then r = 1 '戻して g = g + 1 '1行下に書く Else r = r + 1 '１列→に移動する End If Next End Sub Sub test() Range("A2:G7").Value = "" 'A2～G2にカレンダー表示 MakeCalendar Range("I2").Value 'I2に日付を入力する End Sub Sub test() Range("A2:G7").Value = "" 'A2～G2にカレンダー表示 MakeCalendar Range("I2").Value 'I2に日付を入力する End Sub このようなマクロを組んでいまして、祝日（ゴールデンウィークなど)を赤で塗りつぶすような物を考えています。 VBAは初心者でまだあまりわかっていないので、ご教授ください

  • Excelにて当番表の作成をしたい

    以下の条件の当番表の作成をしたいと思っております。 他質問の回答等拝見いたしましたが、条件が合わず質問させて頂きます。 条件 ①A～Hの計8名でランダムに担当となる ②毎日1名が担当する（3ヶ月分をまとめて作成しています） ③連続しないよう、3日以上間を空ける ④個人に確認した担当不可日を設定する ⑤平日、土、日祝でそれぞれの担当最小数・最大数を設定したい（回数は一律ではなく個人個人で変わる） ⑥順番に割り当てる必要はなく、ランダムでも問題ありません なお、シフト表のように遅番・早番等はないのでそのような設定は不要です。 祝日一覧シートは作成済みです。 よろしくお願い申し上げます。

  • 当番表を作りたいです

    当番は1日一人で、それぞれ出勤日数が違うのですが、回数は公平になるようにしたいです。(出勤日が一人の場合は必然的に出勤者が当番)VBAではどのようにすれば良いでしょうか。平日のみの勤務です。

  • 当番表をexcelで作成したい

    トイレ掃除の当番カレンダー表をexcelで作成したいです。 「3日づつ」交代で「8人」で回す～等の決まりで 関数やVBAなどを使って作成したカレンダーに 自動で名前が表示されるようにできないでしょうか？ 「」部分は変動する場合があります。 土日祝日は休みです。 1列の物ではなく普通の市販されているような７×６マスのカレンダー表記です。

  • エクセルを使って当番表を作成したいのですが・・・

    　関数を使った当番表があるのですが、改善しようと考えています。現状の当番表を作成したのは私ではなく、エクセルのレベルは決して高くありません。よい方法を教えていただければと思います。 現状・・・一つのシートに1ヶ月単位の当番表を作成しています。そのシートをもとに1日単位の当番表が出力できるように関数VLOOKUPを使用し、別のシートで1日単位の当番表を出力できるようになっています。当番の電話番号一覧のシートがあるのですが、現在1日単位の当番表に手書きで当番の番号を記入しています。 　・使用している関数=VLOOKUP($Y$8,1ヶ月当番表!:$AM$32,23,FALSE) 　※Y８に日にち（１．２．・・・３１）を入力するとその日の当番が反映されるようになっています。 希望・・・1日単位の当番表に関数を使って個人の電話番号データが反映されるように改善したいと考えています。 　説明が不十分かと思いますが、よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する