入力セルが空白の時 隣りと隣のセル（こちらも入力セル）を空白にできるかどうか？

こういったことできないでしょうか。

　A1　　B2　　C3
9：00　　～　　10：00　と場合に

A1とC3に直接値を入力しています。

A1セルに値がはいらないとき　B2のチルダも　C3の値も　空白になってくれると
よいなと思うのですが　良い方法はありますでしょうか。

ご存知の方ご教示いただければ助かります。

No.2 ベストアンサー 回答者： tom04 回答日時： 2017/04/03 21:49

こんばんは！

＞C3のセルのことを　B2に入力した式で
＞管理できないかと思っているのですが・・・

関数では無理だと思います。
VBAになりますが一例です。

画面左下の操作したいシート見出し上で右クリック　→　コードの表示　→　VBE画面のカーソルが点滅しているところに
↓のコードをコピー＆ペースト　→　Excel画面に戻り（VBE画面を閉じて）
A1・C3セルにデータを入力してみてください。

Private Sub Worksheet_Change(ByVal Target As Range) '//この行から//
If Intersect(Target, Range("A1,C3")) Is Nothing Then Exit Sub
If Target.Count = 1 Then
With Target
If .Row = 1 Then
If .Value <> "" Then
If Range("C3") <> "" Then
Range("B2") = "～"
End If
Else
Range("B2,C3").ClearContents
End If
Else
If .Value <> "" Then
Range("B2") = "～"
Else
Range("B2").ClearContents
End If
End If
End With
End If
End Sub '//この行まで//

※　A1セルがC3セルより大きな値になった場合などの細かいエラー処理はしていません。

こんな感じをお望みなのでしょうか？m(_ _)m

この回答へのお礼

ありがとうございました！

お礼日時：2017/04/04 21:57

No.3 回答者： yuji3690 回答日時： 2017/04/03 23:46

やりたいことがよく分からないのですが、A1のセルのデータを消した場合に、B2,C3のセルを空白にしたいということでしょうか？

（普通に考えれば、C3を入力する前にA１を入力するようにすれば、A1が未入力ならC3も未入力なので）

入力セルを別に設け、
仮に開始時刻をAA1、終了時刻をAB1に入れるとすれば、
A1=IF(AA1="","",AA1)
B2=IF(A1="","","~")
C3=IF(A1="","",IF(AB1="","",AB1))
といった感じにすれば、AA1が空白ならA1は空白で、B2,C3も空白となります。
AA1が空白でなければB2に～が表示され、AB1も空白でなければC3も表示されます。

別の入力セルを設けるのがだめなのであれば、
見た目上消えたように見せかけるだけでよければ、
条件付書式によって、A1が空白の場合に文字を白くする。という手もあります。
ただし、他のセルに式で参照している場合は、文字の色に関わらずデータが参照されます。

どちらの方法もダメとなれば、VBAに頼る他ないかと。

No.1 回答者： 硬豆腐 回答日時： 2017/04/03 20:42

B2とC3にIF関数を入れるとできます。

B2に
IF(A1="","","~")
C3に
IF(A1="","","10:00")
という式をそれぞれ入れるとA1が空欄の時にB2とC3も空欄になります。

ですが、この場合B2とC3の式をコピーして使いまわそうにも、一番最後の""中をいちいち直さないといけなくなるので、コピーして使うときは注意してください。

この回答へのお礼

ご回答ありがとうございます。
C3には毎回時間数を入力するので　C3に式をいれることが
できません、それで　C3のセルのことを　B2に入力した式で
管理できないかと思っているのですが
そういったことはできますでしょうか？

お礼日時：2017/04/03 20:48