エクセルの件で質問をしたいのでよろしくお願いします。

質問

エクセルの件で質問をしたいのでよろしくお願いします。
A1セルに01と入力した時に、B1セルに10時00分、C1セルに17時35分等と自動的に入力したいと考えております。先日、このような質問をさせて頂いたのですが、私の説明不足で再度質問をさせて頂いております

A1に01と記載しましたが、これは必ずしもA1には01というわけではなく、02であったり03であったりとかれこれ、50通りほどあります。

よって01では10：00から17：35、02では12：00から20：30、03では15：00から23：45等様々あります。

よってA1セルからA50セルにどの数値を（01や02や03・・・・・）入力しても、その数値に該当する時間を、B1セル、C1セルに自動的に入力する方法は御座いませんでしょうか？

どなた様か、ご指導のほどよろしくお願いいたします。

回答No.1

ziziwa1130 · ベストアンサー

一例です。例えば、A1に入るコードが01～03までと仮定します。まず、D列を選択し、セルの書式設定で表示形式を文字列に設定します。
>01では10：00から17：35、02では12：00から20：30、03では15：00から23：45等様々あります
E1に10:00、E2に12:00、E3に15:00、F1に17:35、F2に20:30、F3に23:45と入力します。
AIの書式を文字列、B1とC1の書式を時刻で"h:mm"に設定し、B1に"=VLOOKUP(A1,D1:F3,2,FALSE)"、C1に"=VLOOKUP(A1,D1:F3,3,FALSE)"と入力すればできます。ただし、A1が空欄や、D列にないコードが入力されるとエラーになります。コード数がもっと多い場合には、"=VLOOKUP(A1,D1:F3,2,FALSE)"のF3をF5やF10のように変更すれば良いですよ。D列～F列の票が邪魔な場合には、その3列を非表示にすれば良いですよ。

お礼

ziziwa1130様。この度は、詳しく解説頂ましてありがとう御座いました。
とても、参考になりました。またご縁が御座いましたときはよろしくお願いします。

回答No.4

layy

01が10時00分から、という50近くあるパターンを、シートに定義する。

セルの値から該当する区分をその定義シートで見つけ該当時間も取得し表示する。

例えば、01が9時30分になっても判定分でなく定義だけ変えれば良い仕掛けを考える。

考え方は以上です。

回答No.3

DIooggooID

例えば、下記のような　イベント・プロシージャ　を利用すると、

A1セル　 に 01　が入力されると、
　B1セルに10時00分、C1セルに17時35分　が設定されます。

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html#change

Option Explicit

Private Sub worksheet_change(ByVal target As Range)
' If target.Row = 1 Or target.Row > 6 Then Exit Sub
' If target.Column <> 3 Then Exit Sub
' target.Offset(0, 1).Value = Date & "" & Time
　　 If target.Column = 1 Then
　　　　 If target.Row = 1 Then
　　　　　　 If target.Value = "01" Then

　　　　　　　　 Range("B1").Value = "10時00分"
　　　　　　　　 Range("C1").Value = "17時35分"

　　　　　　 End If
　　　　 End If
　　 End If
End Sub

参考URL：

http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html#change

回答No.2

shu3298

以下のURLを参照されてはいかがでしょうか・・・

参考URL：

http://office.microsoft.com/ja-jp/training/RZ006079660.aspx?CTT=1&origin=EC001022988