業務分担表について作成について

質問

エクセルで縦枠に（時間30分ごと）、横軸に（各ポジションのとスタッフ名）を配列し、
それぞれのポジションによって、ある程度業務内容が決まっているので
例えば、ポジション枠にＡ、Ｂなどを入れると、Ａの場合、前もって決められた時間別の業務内容が瞬時に出るようにしたいのですが可能でしょうか、今は、自作でリスト機能を使ってやっているのですが可能でしょうか？よろしくお願いします。

回答No.1

keithin

どんなエクセルを作成しているのか何も情報が無いので、とりあえずまっさらのエクセルを用意して添付図の通りに作成します。

基本構成：
シート１に時間別業務分担の記入表を用意
１行目にスタッフ名
２行目にポジション
Ａ列に時刻
シート２にポジションごとに記入させたい内容を、シート１と「同じレイアウトで」用意

手順：
シート１を開き、シート名タブを右クリックしてコードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub Worksheet_Change(byval Target as excel.range)
　dim h as range
　dim c as long
　application.enableevents = false
　on error resume next

　for each h in application.intersect(target, range("2:2"))
　　c = application.match(h, worksheets("Sheet2").range("2:2"), 0)
　　worksheets("Sheet2").columns(c).copy
　　columns(h.column).pastespecial skipblanks:=true
　　h.select
　next
　application.enableevents = true
end sub

ファイルメニューから終了してエクセルに戻る
２行目にポジションを記入すると、転記する
他のセルに適宜記入する。

添付図のサンプルの通りに動くように作成出来たら、改めてあなたの本番シートに自力で応用して作成してください。

＃補足
通常は関数とか使って表示させたいとこですが、標準業務内容以外の内容を各セルに記入する邪魔になるので、ご相談の用途では使えません。
「何もないセル」に「何かを表示させる」には、たとえば回答のようにマクロを使って記入させるしか、方法はありません。

お礼

さっそく返答くださりありがとうございました。
一度、やってみます。