ExcelVBA初心者です。よろしくお願い致します。
アルバイトのシフト表を作っています。
Sheet1に15日間の全員分のスケジュール、Sheet2〜16に日毎のシフト表が出来上がります。
Sheet1のC4セルに入力された日付およびそこから14日間それぞれの日付をSheet2~16のシート名に自動反映させたいです。
現在は日付の表示に関して、Sheet1のC4セルに15日分の最初の日付を入力し(7月前半のシフト表を作るなら7/1と入力)、C5~AF5に左隣+1を入力するようにして日付を入れています。(1日あたり2列使用)
シート名の変更にあたり下記コードを書きましたが動きません。どこを修正すればよろしいでしょうか。
lang
1Sheet2(7/1のシフト表)に 2 3Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 4If Target.Address = Worksheets(1).Range("C4") Then Sh.Name = Target.Worksheets(1).Range("C4").Value 5End Sub 6
Sheet1のC4セルに7/1と入力された場合、上記でSheet2のシート名が7/1になると思っております。
参照方法が間違っておりますでしょうか。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
退会済みユーザー
2015/06/24 16:41