エクセル：””をいれると左横のセルの文字列の表示が消える

質問

よろしくお願いします。
例えば　セル”Ｃ2”にIF(A2=1,"","×")などと関数を入力しているとします。
そこで、A2=1,B2に長文の文字列が入力されているときに、
Ｃ２には「""」が返されるわけですが、
Ｂ２に入力されている文字がさえぎられてしまいます。
尚、Ｂ列のセル幅はあえて「10」に設定しておきたい状況です。
Ｃ2に入れるIF関数を工夫することで、
A2=1の時に、Ｂ2の文字が長文でも表示できる方法はありますでしょうか？

回答No.8

zap35 · ベストアンサー

＃０５です。D,E列に変更があったときに実行されるようにしました。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim idx As Integer, res
Dim OneSec As Single
　OneSec = 0.000011 'EXCEL内部で１秒は1/(24*60*60)≒0.000011
　On Error GoTo End0
　With Target
　　If .Column = 4 Or .Column = 5 Then '修正がD列またはE列なら
　　　Application.EnableEvents = False 'マクロ内でセルを更新するためイベント発生を止める
　　　If Cells(.Row, 4) = "" Then
　　　　Range(Cells(.Row, "G"), Cells(.Row, "EU")).ClearContents 'G:EU列をクリア
　　　Else
　　　　res = Application.Match(Cells(.Row, 4) + OneSec, Range("G1:EU1"), 1)
　　　　If IsNumeric(res) Then '検索してHitしたら何番目の列かが返る、そうでないときエラーが返る
　　　　　Range(Cells(.Row, "G"), Cells(.Row, "EU")).ClearContents
　　　　　Cells(.Row, res + 6).Value = Cells(.Row, "E") 'E列の値をHitした列に格納
　　　　End If
　　　End If
　　End If
　End With
End0:
　Application.EnableEvents = True
End Sub

シートがアクティブになるとき全ての行に対して実行するなら以下のマクロを同じシートに貼り付けて下さい
Private Sub Worksheet_Activate()
Dim idx As Integer, r As Range, res
Dim OneSec As Single
OneSec = 0.000011
On Error GoTo End0
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each r In Columns("E:E").SpecialCells(xlCellTypeConstants, 23)
Range(Cells(r.Row, "G"), Cells(r.Row, "EU")).ClearContents
Next r
For Each r In Columns("D:D").SpecialCells(xlCellTypeConstants, 23)
'.SpecialCells(xlCellTypeConstants, 23)は定数値があるセル（編集→ジャンプと等価）
With r
res = Application.Match(.Value + OneSec, Range("G1:EU1"), 1)
If IsNumeric(res) Then
Application.EnableEvents = False
Cells(.Row, res + 6).Value = Cells(.Row, "E")
End If
End With
Next r
End0:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

お礼

お正月早々、早速のご回答ありがとうございます。
まずは、お礼を申し上げたく、心より感謝いたします^^

イメージ通りの結果ができました。

また、詳しい解説をつけていただいて、本当にありがとうございます。
ご解説いただいた、詳しい内容やコードについて、本を片手にこれから勉強してみます。万一、理解できない点はまたご質問申し上げるかもわかりませんので、ポイントについては、もう少しお時間いただけたらと思います。

補足

お世話になります。
前半のコードについて、漠然とですが、理解できました。
ありがとうございました。まだまだ勉強が必要なようです。

あつかましいお願いで大変恐縮なのですが、
後半のコード（シートがアクティブになるとき全ての行に対して実行）
について、もう少し、詳しい解説をいただけないでしょうか？
やはり私には高度なコードで、概要の理解すら追いつかないです。

業務では、こちらのマクロを使わせていただきたいと思います。
そのためにも、もう一歩理解して使用させていただきたく、どうか、よろしくお願いいたします。

回答No.9

Wendy02

こんばんは。#6で書いたWendy02です。

zap35さんから、すでに同じようなものが出ていて、それに対抗するようなものを出しても、しょせん、このレベルの内容では、ある一定のレベルに達した人は、同じようなマクロしか出来上がりません。こちらは公開するのはやめます。また、私は、仮に公開しても自分のコードの解説は、基本的にはしません。個々に疑問あるならQ&Aはしますが、すべてを解説しても、コードを書いた本人の自問自答でしかありませんから、意味が通じないと思います。もし、加工したり変更したりする場合、最初から、そういう設定で作ります。

ただ、本来は、ExcelのVersion が出ていれば、もう少し基礎的なマクロも書けたかと思います。ここの中で公開されたマクロは、ある意味、特殊な書き方をしているものだと思います。

VBAだけは、OJT（仕事の中で覚える）が出来ません。覚えるための流れや段階があります。ここのカテゴリでは、何度かお勧めの本なども紹介されています。コードの個々の解説をしても、ここは、中級レベルとか、ここは基礎レベルとか、いろいろ混在しています。それぞれの基礎的な知識があれば、すぐに理解できるものではあっても、すべてを同じように扱ったのでは、覚えられないと思います。

yastaro様は、こうして、もう、1年以上前から、マクロとは出会っていますから、どうやって、マクロ(VBA)を覚えるかという方法を自分自身で確立したほうがよいと思います。

お礼

アドバイスありがとうございます。
今回は関数で処理しようとしたことがマクロでできるということそのものに驚きを感じました。
１年ほど前までマクロを自動記録させたものを応用することしか知らなかったものにとってはマクロの可能性に驚きの連続で正直どこから手をつけたらよいのか、やはり混迷しています。
たとえば、最近、DO～LOOPステートメントの基礎的な書き方を本で勉強始めたばかりです。頑張ってみます^^

回答No.7

zap35

D列に入力した時刻が１行目G:EU列に一致した場合、E列の値を転記すればよいのでしょうか。＃０５です。既に解決済みとは思いましたが一応マクロを書きました。

＃０６さんの回答にも書かれているように時刻の比較は誤差の関係で期待通りに動作しないことがあるため「D列に入力した数字の近似値」で検索しています。従って７：０６と入力したときその値以下の最大の時刻（この場合７：０５）にヒットします。
もし１分でもずれたら何も表示させたくないならその旨補足して下さい。またD列の値が１行目の時刻にヒットするとG:EU列の数値は一旦クリアされます。これが不都合な場合も補足お願いします

Private Sub Worksheet_Change(ByVal Target As Range)
Dim idx As Integer, res
Dim OneSec As Single
　OneSec = 0.000011
　On Error GoTo End0
　With Target
　　If .Column = 4 Then
　　　res = Application.Match(.Value + OneSec, Range("G1:EU1"), 1)
　　　If IsNumeric(res) Then
　　　　Application.EnableEvents = False
　　　　Range(Cells(.Row, "G"), Cells(.Row, "EU")).ClearContents
　　　　Cells(.Row, res + 6).Value = Cells(.Row, "E")
　　　End If
　　End If
　End With
End0:
　Application.EnableEvents = True
End Sub

マクロは＃０５で回答したとおりに貼り付けて下さい

お礼

申し訳ありません。補足を投稿したあと、次のことに気がつきました。

◆Ｅ列（備考）に入力してからＤ列（時間）を入力するとうまくいく。
◆Ｄ列（時間）を先に入力してからＥ列（備考）を入力しても反応がない

★そこで、例えばＶＢＡの実行について、Ｄ列→E列入力順でも結果が返されるようにはなりませんか？あるいは、「シート」のタブをクリックするなどのとき、そのコードが実行される（すべて更新される）のが理想です。

また、コードの内容の勉強をしたいのですが、もう少し解説をいただければ幸甚です。
尚、ご指導いただけますでしょうか？

補足

年が明けてしまいました。
反応が遅くなりまして申し訳ありません。

>D列に入力した時刻が１行目G:EU列に一致した場合、E列の値を転記すればよいのでしょうか。
について、ありがとうございます。その通りです。

しかし、ご指導の通り、コードを貼り付けてみましたが、全く反応がありませんでした。私の何かかが間違っているのでしょうか。

標準モジュールに自動記録させたマクロを修正する程度のVBAの技術しかない私にはまだまだ、レベルが追いつきません。もしよろしければ、もう少しご指導お願いできますでしょうか？

回答No.6

Wendy02

こんにちは。

私には、何か、最初の質問の内容と、ぜんぜん違うような気がします。私には、どう質問を理解してよいのか、いまだよく分かりません。あくまでも、#5 の補足に対するものです。動的に削除や代入する場合は、イベント・ドリブン型のVBAしかありません。

D2 に代入されると、E2 の備考欄の内容が、その同じ列の同じ時間のところに表示されるというように作りました。

>◆Ｄ2に「9：45」などと時間のデータを入れています。

以下のマクロは、あくまでも、D列2行目以降に、データを入れた時にだけ、その同じ行に対して、備考がコピーされます。

>シート全体の中の""を備考を表示させるために、
シート全体という問題ですと、また違ってきます。

とりあえず、このようなマクロを提供させていただきます。

マクロの取り付け方：
そのマクロを取り付けようとするワークシートのシートタブ(下部)を右クリックすると、「コードの表示(V)」というメニューがありますから、それをクリックしてください。そして、開いた画面に、以下のコードを貼り付けて、Alt + Q で閉じれば設定は完了です。

'--------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
　Dim i As Integer
　Dim Ref As String
　'データ範囲 　G1が開始位置の場合
　With Range("G1", Range("IV1").End(xlToLeft))
　　If Target.Column = 4 And Target.Row > 1 Then
　　　On Error Resume Next
　　　i = 0
　　　'時間表示は、入力の仕方により浮動小数点誤差丸めが発生するので、
　　　'XL Versionによって、Findメソッドが使えない。
　　　i = WorksheetFunction.Match(Target.Value + 5 * 10 ^ -7, .Cells, 1)
　　　On Error GoTo 0
　　　If i > 0 Then
　　　　Ref = Cells(Target.Row, 5).Value　'備考欄(5 =E列）
　　　　If Ref <> "" Then
　　　　　 Application.EnableEvents = False
　　　　　 .Cells.Offset(Target.Row - 1).ClearContents
　　　　　.Cells(Target.Row, i).Value = Cells(Target.Row, 5).Value
　　　　　Application.EnableEvents = True
　　　　End If
　　　End If
　　End If
　End With
End Sub

'-------------------------------------

お礼

ありがとうございました。
＃05さんのご指導で解決しました。
関数を縦横にフィルコピーしないとできないと思っていたことが
VBAでこんなに簡単にできるということで驚きでした。
ご回答を心より感謝いたします。

補足

お礼がおそくなりました。年があけてしまいました。よろしくお願いします。
アドバイスを心よりありがとうございます。

Ｅ列（備考）に入力してからＤ列（時間）を入力するとうまくいきました。しかし、当初、Ｄ列（時間）を先に入力してからＥ列（備考）を入力しても反応がなかったので、今にいたるまで悩んでいました。

★そこで、例えばＶＢＡの実行について、Ｄ列→E列入力順でも結果が返されるようにはなりませんか？あるいは、「シート」のタブをクリックするなどのとき、そのコードが実行される（すべて更新される）のが理想です。

また、私のVBAのスキルが自動記録させたものを修正して使う程度なので、コードの内容の勉強をしたいのですが、もう少し解説をいただければ幸甚です。
尚、ご指導いただけますでしょうか？

回答No.5

zap35

ご質問の内容はあくまで「例えば」だそうですから実際のシートはもっと複雑だと思いますから、あまり汎用的な回答ではないのですが、以下のようなマクロを使ってA1が１ならC1をクリア。１以外なら×を表示させるようなことは可能です

Private Sub Worksheet_Change(ByVal Target As Range)
　If Target.Address = "$A$1" Then　'値が変更されたのがA1なら以下を処理
　　If Target.Value = 1 Then　　　’値が１なら以下を処理
　　　Range("C1").ClearContents　　’C1をクリア
　　Else　　　　　　　　　　
　　　Range("C1").Value = "×"　　’１以外ならC1に×を代入
　　End If
　End If
End Sub

マクロはシート名タブ右クリック→コードの表示で開く画面に貼り付けて下さい。シートに戻りA1の値を１や、それ以外に変えてみるとC1の値が変わります

補足

ありがとうございます。
お察しのように、実は、今回の質問例はわざとシンプルな例にかえてみたのですが、
実際の業務では、大変わかりにくて恐縮ですが、次のようなものです。

◆1行目には５分単位で時間をＧ1に「7：00」　Ｈ1に「7：05」　I1に「7：10」　・・・と横にずっと19：00まで入れています。セル幅は小さくしています。
◆Ｄ2に「9：45」などと時間のデータを入れています。
◆E2に「備考」として文章が入ります。
◆「Ｇ2」に=IF（$D2＝G$1，E$2，""）とＧ2からずっと右横にフィルコピーしています。
時間が一致した列に備考文章が表示されるのですが、その右が""を帰されるので、備考文章がさえぎられるのです。
そこで、実際には縦（下）同様にデータがあるのですが、
シート全体の中の""を備考を表示させるために、一度に早く、空白にかえてしまいたい。ということができるでしょうか？

アドバイスいただいたVBAだけでは初心者の私の理解が追いつかないため、引き続きご指導してくだされば幸甚です。よろしくお願いいたします。

回答No.4

Wendy02

こんにちは。

>A2=1の時に、Ｂ2の文字が長文でも表示できる方法はありますでしょうか？

セル幅を絶対的に、「10」にしておかなくてはなりませんが、
=IF(A2=1,MIDB(B2,11,246),"X")

どちらかというと、
C2:
IF(A2=1,"","×")

A2 が、False の場合ではありませんか？
そのときに、C2 をどう扱うかのほうが問題だと思います。

回答No.3

venzou

B列を「表示しない」にする。
C2の数式
=IF(A2=1,B2,"×")

とすれば、希望の動作に近いと思います。

A2が1以外のとき、B2の内容も少し表示したいならこんな感じで。

=IF(A2=1,B2,RIGHT(B2,10) & "×")

回答No.2

Cupper

＃１ hana-hana3 さんのいう通り無理です。

B2セルの文字をテキストボックスに入れてB2セルの上に貼り付けてはどうでしょう。
テキストボックスを塗りつぶし無しに設定することで、A2セルの内容と重なった場合も（見づらいですが）両方の文字を見ることができます。

回答No.1

hana-hana3

＞A2=1の時に、Ｂ2の文字が長文でも表示できる方法はありますでしょうか？

Ｃ２を完全に空欄にする以外に方法はありません。
つまり、式も値も入っていない状態になっているのが条件なので、ご希望ような動作をさせる事は無理です。