[[20210122201515]]　『ExcelのスケジュールをOutlookへ送信したい』（takao293）　ページの最後に飛ぶ

『ExcelのスケジュールをOutlookへ送信したい』（takao293）

お世話になります。

http://www.excel.studio-kazu.jp/kw/20201231001800.html
こちらで前回シフト表の出退勤時間自動入力で質問した者です。

今度はシフト表の出退勤時刻をOutlookに送信したいのですが、退勤時刻を
翌日のセルに反映させる方法が無く、日付を跨ぐ夜勤の場合どの様にすれば良いか悩んでおります。

このままだと出勤と退勤の日付が合わず無理かと思い、何か方法が無いか考えています。何かアドバイス頂けたら幸いです。

シフト表

  |[A]|[B]             |[C]   |[D]   |[E] |[F]   |[G]|[H] |[I]|[J]  |[K]  |[L]   |[M] 
 [7] |   |                |      |      |    |      |   |    |   |     |     |      |    
 [8] |   |氏名            |日    |     1|   2|     3|  4|   5|  6|    7|    8|     9|  10
 [9] |   |                |曜    |金    |土  |日    |月 |火  |水 |木   |金   |土    |日  
 [10]|   |　○○　□□    |指　定|   22 |-   |    22|-  |    |-  | 7060|公   |    44|-   
 [11]|   |                |出勤  |12:57 |    |12:57 |   |#N/A|   |9:39 |     |17:17 |    
 [12]|   |                |退勤  |6:53  |    |9:15  |   |#N/A|   |16:39|FALSE|12:15 |    
 [13]|   |                |      |      |    |      |   |    |   |     |     |      |    
 [14]|   |                |平/休 |休日  |休日|休日  |   |    |   |     |     |休日  |休日
 [15]|   |                |泊勤務|泊勤務|    |泊勤務|   |    |   |     |     |泊勤務|    
 [16]|   |                |行番号|    26|  74|    26| 74|    | 74|   56|   75|    48|  74
 [17]|   |                |      |      |    |      |   |    |   |     |     |      |    
 [18]|   |                |      |      |    |      |   |    |   |     |     |      |

別シートに縦型のシフト表とhttps://extan.jp/?p=1693を参考にVBAを入力

     |[A] |[B]      |[C]     |[D]     |[E]  |[F]                   |[G]
 [1] |    |         |    2021|年      |    1|月                    |   
 [2] |件名|日付     |開始日時|終了日時|平/休|必須出席者            |   
 [3] |  24|2021/1/1 |13:26   |7:20    |     |Outlookのメールアドレス|   
 [4] |-   |2021/1/2 |0:00    |0:00    |     |                      |   
 [5] |  22|2021/1/3 |12:57   |9:15    |     |                      |   
 [6] |-   |2021/1/4 |0:00    |0:00    |     |                      |   
 [7] |公  |2021/1/5 |0:00    |FALSE   |     |                      |   
 [8] |特  |2021/1/6 |0:00    |FALSE   |     |                      |   
 [9] |  44|2021/1/7 |17:10   |12:35   |     |                      |   
 [10]|-   |2021/1/8 |0:00    |0:00    |     |                      |   
 [11]|特  |2021/1/9 |0:00    |FALSE   |     |                      |   
 [12]|公  |2021/1/10|0:00    |FALSE   |     |                      |   
 [13]|-   |2021/1/11|0:00    |0:00    |     |                      |   
 [14]|-   |2021/1/12|13:26   |0:00    |     |                      |   
 [15]|-   |2021/1/13|13:26   |0:00    |     |                      |

退勤時刻の日付が合わなくなってしまうので上手くいかずでした

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

＞退勤時刻の日付が合わなくなってしまうので上手くいかずでした
「作成したExcel表を使ってOutlookに送信したら退勤日が意図した日付ではなかった」
という意味で解釈しましたので、違っていたらごめんなさい。

リンク先の解説に
『開始日時：開始日時を”yyyy/mm/dd hh:mm:ss”形式で入力』
『終了日時：終了日時を”yyyy/mm/dd hh:mm:ss”形式で入力』
とあるので、作成されているExcel表の終了日時のデータを判定し、
例えば
　0時より前の時刻であれば日付（[B列])と同じ日付+退勤時間、
　0時以降なら日付+1日+退勤時間
という風に書き換えるのはいかがでしょうか。

このExcel表を印刷でも使いたい場合は、それでは見栄えが悪いと思いますので、
セルの書式設定で時刻表示で設定するとか？
（you） 2021/01/22(金) 23:49

退勤日は、
開始時刻＜終了時刻なら同日
開始時刻＞終了時刻なら翌日
ということではないんですか？
（尤も、24時間以上の勤務はない前提で）
（γ） 2021/01/23(土) 09:00

ああそれはわかっているんですか。
質問は何ですか？
帳票の設計ですか？
退勤日を入れるとかですか？
でもそういうことは、人に聞くことじゃないと思う。

（γ） 2021/01/23(土) 10:57

youさん

ありがとうございます。日付を＋1日するやり方がわからなかったのですが
退勤時刻をVLOOKUPで検索する方法を取っていたのでその関数の)の後に＋1したら出来ました。

Outlook送信の方はまだ出来ていませんがまた色々調べてみます。
（takao293） 2021/01/23(土) 23:24

貼られていたリンク先が「予定表をOutlookへ一括登録する」コードの解説だったので、いったんOutlookに登録してみたのかと思いました。

＞日付を＋1日するやり方がわからなかったのですが
＞退勤時刻をVLOOKUPで検索する方法を取っていたのでその関数の)の後に＋1したら出来ました。
質問文に、”今使用していてうまくいっていない式”の提示があれば具体的なアドバイスがほかの方からも得られたと思います。

Outlookに関しては、以下サイトも参考にしながら頑張ってください。
◆Outlook研究所　https://outlooklab.wordpress.com/
（you） 2021/01/24(日) 00:22

貼られていたリンク先が「予定表をOutlookへ一括登録する」コードの解説だったので、いったんOutlookに登録してみたのかと思いました。

エラーは出なかったのですが登録出来ず、でした。どんな方法で検索してるかなど、次回からは詳細を載せようと思います。
リンク先を参考にやってみます！ありがとうございます。
（takao293） 2021/01/24(日) 20:37

コメント返信：

[ 一覧(最新更新順) ]

[[20210122201515]] 『ExcelのスケジュールをOutlookへ送信したい』（takao293） ページの最後に飛ぶ

[[20210122201515]]　『ExcelのスケジュールをOutlookへ送信したい』（takao293）　ページの最後に飛ぶ