現在、社内スケジュールは、次のようなエクセルシートで管理しています。
月ごとに別シート
1行目
a列 日(曜日)
b列 予定
c列 場所
d列 開始時間
e列 終了時間
f列 社長
g列 A課長
h列からm列 A課社員名が1人づつ入っている
n列 B課長
o列から B課社員名が1人づつ入っている
1日5行
予定がわかり次第、社員が予定名等入力し、参加者のセルに○を入れていきます。会議や出張に出席する社員が誰々かが、わかるようになっています。
1日の予定が多くなり、5つ以上になると、行を挿入して増やしています。
このような、元スケジュール表から、社内打ち合わせ用、週間予定表を毎週作成したいのです。
各予定の参加者名が1セルに表示されたもの、つまり
3日 企画会議 10:00 社長、C社員、D社員
5日 出張 9:00 A課長、E社員
各行ごとに○がついている社員名を別のセルに表示したいのですが、どうすればいいのでしょう。取り急ぎいい知恵をお願いします。
また、毎週月曜日の日付けを入力すると、自動で週間予定ができるようなマクロも作っていきたいと思っています。また、よろしくお願いします。
No.4ベストアンサー
- 回答日時:
No2です(週間予定のほうです)
Sub test()
Dim first As Date
Dim last As Date
Max = Cells(65536, 1).End(xlUp).Row
first = InputBox("日付入力")
last = first + 7
For i = 2 To Max
If Sheets("sheet1").Cells(i, 1) >= first And Sheets("sheet1").Cells(i, 1) <= last Then
Sheets("sheet2").Cells(i, 1) = Sheets("sheet1").Cells(i, 1)
Sheets("sheet2").Cells(i, 2) = Sheets("sheet1").Cells(i, 2)
Sheets("sheet2").Cells(i, 3) = Sheets("sheet1").Cells(i, 4)
k = 1
For j = 6 To 19
If Cells(i, j) = "○" Then
Sheets("sheet2").Cells(i, 3 + k) = Sheets("sheet1").Cells(1, j)
k = k + 1
End If
Next
End If
Next
End Sub
No.3
- 回答日時:
>毎週月曜日の日付けを入力すると、自動で週間予定ができるようなマクロも作っていきたい
毎週月曜日には、必ず予定がありますか。
それから月毎のシートのは、日付順ですか。
No.2
- 回答日時:
まず一つ目。
Sub test()
Max = Cells(65536, 1).End(xlUp).Row
For i = 2 To Max
Sheets("sheet2").Cells(i, 1) = Sheets("sheet1").Cells(i, 1)
Sheets("sheet2").Cells(i, 2) = Sheets("sheet1").Cells(i, 2)
Sheets("sheet2").Cells(i, 3) = Sheets("sheet1").Cells(i, 4)
k = 1
For j = 7 To 19
If Cells(i, j) = "○" Then
Sheets("sheet2").Cells(i, 3 + k) = Sheets("sheet1").Cells(1, j)
k = k + 1
End If
Next
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Excel(エクセル) セルに特定の色が出た時だけ、式を発動させたい 4 2022/06/17 10:32
- その他(就職・転職・働き方) 転職先決断について 以下、どちらがやるべき、やったほうがいい、かを意見ください 47歳独身男性 現在 5 2022/10/22 10:59
- Excel(エクセル) エクセルでセルの日付を和暦表示設定にしたらおかしなことに? 3 2022/05/25 11:47
- Excel(エクセル) エクセルで沢山のレコードの最後に追記するには? 7 2023/04/10 13:27
- 就職 入社予定がない企業の人事一次面接について 今年の夏休みに、web合説に参加した際に、「第一回目のター 2 2022/11/30 09:49
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- その他(Microsoft Office) 従業員増減対応で当番種類の増減対応な当番表 21 2022/07/19 07:30
- 雇用保険 社労士さん、もしくは育休制度に詳しい方に質問させて頂きます。 ※労働日数等も関係してくるかと思うので 3 2022/12/08 03:48
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの表示形式を保ったま...
-
excelのマクロでrangeの選択が...
-
エクセル 1つのセル毎に入力...
-
EXCELで2つの数値のうち大きい...
-
Excelで隣のセルと同じ内容に列...
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
Excelのオートフィル
-
エクセルでオートフィルタのボ...
-
エクセルで最初のスペースまで...
-
エクセル 文字数 多い順 並...
-
エクセルで時刻(8:00~20:00)...
-
エクセルのオートフィルタで最...
-
エクセルで、2種類のデータを...
-
「B列が日曜の場合」C列に/...
-
エクセル(勝手に太字になる)
-
2つのエクセルのデータを同じよ...
-
えエクセルで○は1とし△は0.5で...
-
エクセルの表から正の数、負の...
-
エクセルの並び変えで、空白セ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルの表示形式を保ったま...
-
excelのマクロでrangeの選択が...
-
Excel VBA For Each Next構文...
-
エクセル 1つのセル毎に入力...
-
Excel2000 VBA ダブルクリック...
-
Excel VBAのComboboxのRemoveItem
-
エクセルで項目抽出
-
Gメールの内容をスプレッドシ...
-
エクセルで赤い字のセルを抽出
-
VBA重複チェック
-
他のブックでマクロを実行する...
-
エクセルで重複するセルを削除...
-
エクセルの関数を連続コピー
-
EXCEL 行内のデータを2行に分け...
-
エクセルのセル内にかいた関数...
-
Excelのデータベース活用...
-
日報のデータを月報へ
-
ISERROR関数
-
EXCELで2つの数値のうち大きい...
-
Excelで隣のセルと同じ内容に列...
おすすめ情報