[[20170504120655]]　『勤務表作成について』（りゅうーちゃん）　ページの最後に飛ぶ

『勤務表作成について』（りゅうーちゃん）

勤務表を作成したいのですが、セルにダブルクリックしたら”休み”、”７”（７時出勤の意味で”７”）”８”、”１８”とダブルクリックするたびに切り替わるようなことってできますか？

１　名前　　　　　5/1 　 5/2 　 5/3　　 5/4 　　　5/5 ........

２　田中　　　 7 　　　　８　　　　休　　 8 　　 18 　　　

３　斎藤　　 8 　　　 8 　　　 18 　　　休　　　 7

４　石井　　　休　　　 7 　　　 7 　　　 8 　　　 18

このように、勤務表作りたいんですが一つ一つのセルに打ち込むのが大変なので各セルにダブルクリックしたら切り替わるようなことできますか？
人数は５０人ほどいます。

＜使用 Excel：Excel2010、使用 OS：Windows8 ＞

 入力規則のリストでもよさそうですけど、だめなのですか？
（bi） 2017/05/04(木) 19:25

 シートタブを右クリックしてコードの表示を選んで出てくるところに以下を。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ary As Variant
    Dim z As Variant
    If Intersect(Target, UsedRange.Offset(1, 1).Resize(UsedRange.Rows.Count - 1, UsedRange.Columns.Count - 1)) Is Nothing Then Exit Sub
    Cancel = True
    ary = Array("休", 7, 8, 18, "休")
    z = Application.Match(Target, ary, 0)
    If IsError(z) Then z = 0
    Target.Value = ary(z)
 End Sub

（β） 2017/05/04(木) 19:34

私もシフト表をマクロで作っていますけど、
スレ主様の仕様にこだわらないのであれば

１フォームにボタンをいくつか貼り付ける（フォームは小さくしてツールバー風にする）
２ボタンのCaptionプロパティに出勤時間を設定する
３そのボタンのクリックイベントにSelection=7 Selection = "休"　のように書く。
4ワークシートにActiveXのボタンを貼り付けて Form.Show vbModeless

みたいな感じで使っているので参考にどうぞ。

（通りすがり） 2017/05/04(木) 22:59

βさん、通りすがりさんありがとうございます。
できました！
これで、時間短縮できます
ありがとうございます。

コメント返信：

[ 一覧(最新更新順) ]

[[20170504120655]] 『勤務表作成について』（りゅうーちゃん） ページの最後に飛ぶ

[[20170504120655]]　『勤務表作成について』（りゅうーちゃん）　ページの最後に飛ぶ