![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
会社で部署内の人(約10人)がその日に何をやったかといった日報をエクセルで作っています。タイムテーブル(縦列に名前、横列に8時~22時までの30分間隔で作ってあります)に矢印を引っ張って、その上にどのような仕事をしたのかを入力していくのですが、勤務がシフト制のため、9時出社、11時出社、13時出社といった具合にバラバラで、矢印を引っ張るのに苦労しています。
そこで、名前の横のセルに9と入力しただけで9時~18時の時間帯に、また11と入力しただけで11時~20時の時間帯に自動で矢印線が作成できるソフトかマクロをさがしています。
どなたか教えてください。よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
詳細が分からないので
A列に名前、B列に9か11の入力、C列~AE列に時間(8時~22時までの30分間隔)としています
'シートモジュールへコピペ
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("b:b")) Is Nothing Then Exit Sub
Dim s_lef, e_lef
Dim s_wid, e_wid
Dim s_str, e_end
Dim se_hei
se_hei = Target.Top + Target.Height * 0.7
If Target = 9 Then
s_lef = Target.Offset(0, 3).Left
s_wid = Target.Offset(0, 3).Width
e_lef = Target.Offset(0, 21).Left
e_wid = Target.Offset(0, 21).Width
ElseIf Target = 11 Then
s_lef = Target.Offset(0, 11).Left
s_wid = Target.Offset(0, 11).Width
e_lef = Target.Offset(0, 25).Left
e_wid = Target.Offset(0, 25).Width
Else
Exit Sub
End If
s_str = s_lef + s_wid / 2
e_end = e_lef + e_wid / 2
ActiveSheet.Shapes.AddLine(s_str, se_hei, e_end, se_hei).Select
With Selection.ShapeRange.Line
.BeginArrowheadStyle = msoArrowheadOpen
.EndArrowheadStyle = msoArrowheadOpen
.BeginArrowheadWidth = msoArrowheadWidthMedium
.BeginArrowheadLength = msoArrowheadLengthMedium
.EndArrowheadWidth = msoArrowheadWidthMedium
.EndArrowheadLength = msoArrowheadLengthMedium
.Visible = msoTrue
End With
End Sub
エラー処理はしていません
アレンジはご自分でしてください
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで休憩時間を引く時と、引かない時の数式 3 2022/11/05 11:48
- 転職 転職活動中で2社内定があり迷っています。皆様ならAとBどちらの方が良いと思いますか?理由もお願いしま 1 2023/02/06 12:20
- 会社・職場 夜勤中の眠気について 3 2022/09/02 07:49
- 事務・総務 求人についてお聞きしたいです。 6 2022/05/04 18:24
- Excel(エクセル) エクセル2019の関数を教えてください。 8 2022/12/16 12:45
- その他(Microsoft Office) 勤務表のエクセル作成で数式を教えてください。 1 2023/01/17 03:27
- Excel(エクセル) エクセルでの延長表計算式を教えてください 5 2022/12/21 12:20
- その他(学校・勉強) 浪人中の過ごし方について こんばんは。現在、大学受験の浪人生をしています。 1日のスケジュールを立て 3 2023/04/12 21:38
- 大学受験 浪人中の過ごし方について こんばんは。現在、大学受験の浪人生をしています。 1日のスケジュールを立て 6 2023/04/12 19:20
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
エクセルで空白以外のセルの値...
-
シート保護の状態で行の追加を...
-
エクセル マクロ 貼り付け先が...
-
エクセルで表示された値だけ行...
-
【マクロ】IF複数条件の上限に...
-
Excelの非表示列も含めてコピー
-
エクセルで反転コピー
-
[Excel VBA]空白セル以外に連番...
-
エクセルのマクロ、AVERAGEIFを...
-
こんにちは
-
エクセルで行挿入した際、自動...
-
Excel VBAで日にちを入力して線...
-
エクセルの関数について(日付で...
-
エクセルVBA 複数列をコピーす...
-
エクセルの複数のセルを一括で...
-
EXCELで○ヶ月を○年○ヶ月に変換...
-
複数の文字列のいずれかが含ま...
-
A1セルに入力したら、入力時間...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCELにて複数列を同条件(色)...
-
一行おきにコピーするマクロが...
-
【マクロ】セルに関数を入れる...
-
Excelの非表示列も含めてコピー
-
シート保護の状態で行の追加を...
-
エクセルの関数について(日付で...
-
エクセルで表示された値だけ行...
-
エクセルで空白以外のセルの値...
-
エクセルで行挿入した際、自動...
-
エクセル VBA 指定の範囲内をコ...
-
エクセル マクロ 貼り付け先が...
-
特定の桁数を抽出
-
Excel VBAで日にちを入力して線...
-
[Excel VBA]空白セル以外に連番...
-
エクセルVBA 複数列をコピーす...
-
最終行から上10行をコピーする...
-
エクセルで反転コピー
-
エクセルのマクロ、AVERAGEIFを...
-
【マクロ】IF複数条件の上限に...
-
同一列内の複数条件 カウント
おすすめ情報