sheet1に表を作成しました。
表のB列に「社員」「契約」「バイト」と入力、
C列には「業務I」「業務II」「業務III」「業務IV」と入力していきます。
A B C D
No. 担当 業務
1 1 社員 業務I
2 2 契約 業務II
3 3 バイト 業務III
4 4 契約 業務IV
5 5 社員 業務I
6 6 バイト 業務IV
入力することによりシートが増え、
行によってそれぞれ(業務)の書類とスケジュールが
表示されるようにしたいのですが、どうすればよろしいのでしょうか。
また、増えたシートの見出しの色を
業務Iは赤、業務IIは青、業務IIIは黄色と自動的に変わる
コードの記述方法を教えてください。
よろしくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんばんは!
>入力することによりシートが増え、
Excelは同一Sheet名はつけることができません。
>行によってそれぞれ(業務)の書類とスケジュールが
具体的にどのような書類か判断しかねますので、
勝手に↓のような解釈をしています。
画像では左側が入力用のSheet1で右側が「業務I」~「業務IV」のSheetとなります。
Sheet1のC列のデータを入力した段階でマクロが実行されるようにしています。
尚、Sheet1のA列「No」は入力済みだとします。
画面左下のSheet1にSheet見出し上で右クリック → コードの表示 → VBE画面のカーソルが点滅しているところに
↓のコードをコピー&ペースト → Sheet1の画面に戻りデータを入力してみてください。
Private Sub Worksheet_Change(ByVal Target As Range) 'この行から
Dim lastRow As Long, str As String, wS As Worksheet
If Intersect(Target, Range("C:C")) Is Nothing Or Target.Count > 1 Then Exit Sub
Set wS = Worksheets("Sheet1")
If Worksheets.Count < 6 Then
Do Until Worksheets.Count = 5
Worksheets.Add after:=Worksheets(Worksheets.Count)
Loop
With Worksheets(2)
.Name = "業務I"
.Tab.ColorIndex = 3
End With
With Worksheets(3)
.Name = "業務II"
.Tab.ColorIndex = 5
End With
With Worksheets(4)
.Name = "業務III"
.Tab.ColorIndex = 6
End With
With Worksheets(5)
.Name = "業務IV"
.Tab.ColorIndex = 4
End With
End If
lastRow = wS.Cells(Rows.Count, "A").End(xlUp).Row
With Target
If .Offset(, -1) = "" Then
MsgBox "担当を入力"
.Offset(, -1).Select
Else
str = .Value
Worksheets(str).Range("A:C").ClearContents
wS.Range("A1").AutoFilter field:=3, Criteria1:=str
Range(wS.Cells(1, "A"), wS.Cells(lastRow, "C")).SpecialCells(xlCellTypeVisible).Copy _
Worksheets(str).Range("A1")
wS.AutoFilterMode = False
End If
End With
End Sub 'この行まで
※ 「業務IV」のSheet見出しの色は「薄い緑」にしています。
※ Sheet1のB・C列は入力規則のリストを設定しておけば
いちいち入力する手間は省けると思います。
的外れならごめんなさいね。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
更新の必要のない、免状や免許...
-
アルバイトで日にちを勘違いし...
-
詳しい方に色々と質問です!友...
-
「よろしくお願い致します」と...
-
WEBデザインでフリーランスを目...
-
今度会社で社員の交流を目的にB...
-
自分の好きなゲームがボロクソ...
-
中国法に詳しい方
-
管理職打診されて悩んでる彼氏...
-
学生バイトの人って、自分の働...
-
役職が複数ある場合の紹介の仕...
-
一従業員が、会社に内緒で得意...
-
会議室で2列の場合の上座、下...
-
かつての大企業創業者で皆さん...
-
昨年から2年間の有期転勤を命じ...
-
職を転々とするか、フリーターか
-
会社への診断書の提出について
-
企業で電話対応されている方に質問
-
デザイン思考テスト というもの...
-
仕事 復習 仕事中に、メモをと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
社内不倫の本社タレコミについ...
-
会社内のグループLINEとかの返...
-
役職が複数ある場合の紹介の仕...
-
退職時の菓子折り郵送について
-
独身だなら使いにくいとか言い...
-
その電話番号は居留守でしょうか?
-
帝国データバンクの情報について
-
学校法人でない名前だけの学校...
-
なぜみなさんのビジネススキル...
-
自治体の入札案件で、納品まで...
-
求人票の復職制度について
-
河野玄人が3大国家資格を取得...
-
私の思う理想の上司像はワガマ...
-
数十枚ある注文伝票を足し算す...
-
資格取得が異動の理由になり得る?
-
リストラ、失業に備える事について
-
言葉遣いが荒い人はどんな気持...
-
ダイエットの知識を活かして個...
-
chatGPTで作った文章てバレない...
-
成りたい職業に自分が向いてる...
おすすめ情報