スケジュール表のフォームをを作りたいと考えています。
2種類ほど反映させたいため、複雑になってしまい、調べてもわからず、可能かどうかわからないのですが、もし得意な方がいれば教えていただきたいです。よろしくお願いいたします。
①月間カレンダー(表型)の作成
・午前と午後で分かれている(添付したような感じ)
②週間カレンダーの作成
・午前と午後で分かれている
・日付、場所、内容が記載されている
行いたいこと
❶
①のカレンダーに特定の数字を入れて、文字変換させたい
例)1と入力したら、実技と表示される。2と入力したら、座学と入力される
❷
①のカレンダーに”1”→”実技”と表示されたものをさらに違う表示方法で②のカレンダーに反映させたい。
例)①に”1”→”実技”、②のカレンダーの場所のセルに”研究室1”と表示させたい。
この時、常に場所は同じです。
このように少し複雑な形ではありますが、毎月、エクセルで行うと日付を変えたり、何度も入力して、となるので、いい方法があれば是非教えてください。
どうぞよろしくお願い致します。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは!
①について
↓の画像のような感じでSheet1に作成してみました。
A1セルに「西暦年」、C1セルに「月」の数値を入れるとします。
A3セル(セルの表示形式はユーザー定義から mmm としています)に
=DATE(A1,C1,1)
という数式を入れています。
B4セル(セルの表示形式はユーザー定義から d としています)に
=IF(MONTH($A$3-WEEKDAY($A$3,2)+COLUMN(A1)+7*(ROW(A3)/3-1))=MONTH($A$3),$A$3-WEEKDAY($A$3,2)+COLUMN(A1)+7*(ROW(A3)/3-1),"")
という数式を入れ、B4~B6セルを範囲指定 → B6セルのフィルハンドルで右へコピー → そのまましたへ3行ずつフィル&コピーしています。
これでA1・C1の数値を入れ替えるだけでその月のカレンダーが作成できます。
Sheet2の方には、まず「実技」と「研究室1」の対応表をJ・K列に作成しています。
(今後Sheet1に入力する「1・2」が増えても対応できます)
そして
A1は
=Sheet1!A1
C1は
=Sheet1!C1
B4は
=Sheet1!B4
(B4セルまではリンク貼り付けと同じことです)
B5セルに
=IF(Sheet1!B5="","",VLOOKUP(Sheet1!B5,$J:$K,2,0))
という数式を入れ下のB6セルまでフィル&コピー!
最後にSheet2のB4~B6セルを範囲指定 → Sheet1と同じように右へ下へ(下は3行ずつ)フィル&コピー!
これでカレンダーの作成は完了です。
以上で ❷ までの下準備はできました。
② に関しては詳細が不明ですので手を付けていません。
❶ については関数では無理なので、VBAになります。
画面左下の「Sheet1」のシート見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Excel画面に戻り
Sheet1のカレンダー日付の下の2行(午前・午後の行)に 1 もしくは 2 を入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
Dim c As Range, myRng As Range, myAry
myAry = Array("実技", "座学")
Set myRng = Range("B5:H6,B8:H9,B11:H12,B14:H15,B17:H18,B20:H21")
If Intersect(Target, myRng) Is Nothing Then Exit Sub
For Each c In Target
If c <> "" Then
Application.EnableEvents = False
Target = myAry(Target - 1)
Application.EnableEvents = True
End If
Next c
End Sub '//この行まで//
※ 一発で解決!とはいかないと思いますが、
まずはこの程度で・・・m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) excel2016でリストからカレンダーに内容を反映させたいです 2 2022/10/27 15:32
- Access(アクセス) Access DTPickerの初期表示月を変えたい 1 2022/08/02 08:55
- Excel(エクセル) エクセルでカレンダーを作りたい 5 2023/05/16 07:32
- Excel(エクセル) Excelで作成しているシート(表) 5 2023/06/15 10:20
- Access(アクセス) Accessで予定表を作成しようとしてます。 テーブル フィールド名 連番 オートナンバー型 年月日 2 2023/07/23 11:40
- Excel(エクセル) エクセルカレンダーに予定表を反映したいです。 6 2022/09/30 14:39
- Excel(エクセル) 【Excel質問】 「本日の日付」から指定条件を満たす営業日経過後の日数を表示させる関数式 3 2022/06/06 23:28
- その他(クラウドサービス・オンラインストレージ) Googleカレンダーの共有について質問させて頂きます。 現在、個人でのGoogleカレンダーと職場 2 2022/10/19 15:58
- その他(プログラミング・Web制作) google formsを使ったタスク依頼フォーム作成におけるご相談 1 2023/06/22 15:55
- Excel(エクセル) マクロ/VBAについて教えてください。 10 2022/05/27 12:59
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで日付の入ったセルの...
-
Excelのif関数で文字が見えなく...
-
INDEX関数やMATCH関数で値を取...
-
Excel 2019 は、SPILL機能があ...
-
各ページの1番上の表示について
-
写真のコピー
-
Excelファイルの「数式」タブ→...
-
Excel 改ページの文字色の変更...
-
Excel 2019 のピボットテーブル...
-
Excelで行をコピー、同じ行内に...
-
エクセルでセルに「氏名を入力...
-
Excel フィルターを掛けた状態...
-
エクセル グラフ軸について
-
excelの不要な行の削除ができな...
-
Excelで全角を半角にしたいので...
-
式の説明をお願いします。
-
条件付き書式を教えてください
-
INDIRECTを使わず excelで複数...
-
リンク先が空白若しくはゼロの...
-
Excelにて数式を使用して 工数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイル内にある数字の出現回...
-
Excel関数の先頭に「@」が入っ...
-
エクセルの気味悪い不思議
-
Excel VBAで、実行時にsheet上...
-
表示されている人数だけを数え...
-
他人が作ったマクロの理解
-
Excelの関数について質問です。
-
Excel 集計表
-
エクセル 日時の計算式について
-
Excelの関数に関して質問です。...
-
エクセル:セル内の文字列の下...
-
絞り込み検索
-
エクセルの関数で
-
エクセルの書式設定について教...
-
余分なEXCELファイルに印刷され...
-
VBA 同一シート内での転記の仕方
-
長期休みの関数はありますか
-
Excelの空のセル
-
エクセルで入力してある文を別...
-
Excelのマクロで、セルを結合し...
おすすめ情報