初心者ですがセルの変更について教えてください。

質問

シフト表作成のため、下記の構文を作成しましたがこのままでは１日分なので１月分(３１日）同じ構文を使う方法をお願いします。ちなみに、横列にカレンダ（条件付き書式で作成）、縦列に７名分です。

private sub worksheet_change(byval target as excel.range)
dim r as integer,myrange as range
set myrange = worksheets("勤務時間").rannge("勤務コード")
with target
if .row = 9 and .column = 15 then
r = application.worksheetfunction.match(target.value,myrange,0)
worksheets("勤務表").range("o10") = worksheets("勤務時間").range("b1").offset(r - 1).value
worksheets("勤務表").range("o11") = worksheets("勤務時間").range("c1").offset(r - 1).value
worksheets("勤務表").range("o12") = worksheets("勤務時間").range("d1").offset(r - 1).value

良い知恵をお願いします。

回答No.1

ki-aaa · ベストアンサー

こんにちわ

回答者はあなたのワークシートの配置がわからないので、
返事のしようがないのです。

推測ですが、Targetをある決まったセル範囲にしたいのでと思います。
次のようなステートメントになります
詳しくはぐーぐるで　vba intersect で検索してください。

If Intersect(Target, Range("セル範囲")) Is Nothing Then

それから、これも推測です。

worksheets("勤務表").range("o10") =
worksheets("勤務表").range("o11")
worksheets("勤務表").range("o12")
　↓
i = Target.Row
j = Target.Column
Worksheets("勤務表").Cells(i + 1, j) =
Worksheets("勤務表").Cells(i + 2, j) =
worksheets("勤務表").Cells(i + 3, j) =

のようにすればと思います。

お礼

回答ありがとうございます。
質問の仕方が悪く、申し訳ありませんでした。
早々、実践してみます。

補足

ki-aaa　様
先日はありがとうございました。
早速、プログラムを修正してみましたが、実行時エラー（ｉｎｔｅｒｓｅｃｔ メゾッドは失敗しました）表示され上手くいきません。　修正構文は次の通りですがカレンダ表示下のセルに勤務形態が入力されたら、出勤時間、退社時間、実働時間を各セルに表示させたいのですが

シート(勤務表）
　　　　O８からＡＳ８　　　(カレンダ表示）
　　　　Ｏ９からＡＳ９　　　勤務形態
　　　　Ｏ１０からＡＳ１０　出勤時間
　　　　Ｏ１１からＡＳ１１　退社時間
　　　　Ｏ１２からＡＳ１２　実働時間
シート（勤務時間）
　　　　Ａ１からＤ９（勤務時間表示）　Ａ列に勤務コードリスト作成　
　　　　Ａ列　　　　　Ｂ列　　　　　　Ｃ列　　　　　　Ｄ列
１行　勤務形態　　出勤時間　　　退社時間　　実働時間
２行
３行
４
５
６

private sub worksheet_change(byval target as range)
dim r integer, myrenge as range
set target = worksheets("勤務時間").range("勤務コード")
with target
if intersect(target,range("勤務表").range("O9:AS9")) is nothing then
r = applicastion.worksheetfunction,match(target.value,myrange,0)
i = target.row
j = target.column
worksheets("勤務表").cells(i+1,j).value=worksheets("勤務時間").range("B1").offset(r-1).value
worksheets("勤務表").cells(i+2,j).value=worksheets("勤務時間").renge("C1").offset(r-1).value
worksheets("勤務表").cells(i+3,j).value=worksheets("勤務時間").renge("D1").offset(r-1).value
end if
end with
end sub