エクセルの自動入力

質問

エクセルでデータを管理している者です。

今回は、ある列である文字列を入力すると、違う列の値も自動的に変わるように変更したいと考えています。

具体的には以下のような例です。
A1が"NO"の場合はA2は"必要"、A3は"入力"に自動的に変更する。

＊ただし、A2、A3には既に値が入力されており、関数のIFは使えないと考えています。

文章が下手ですいません。何か疑問があれば質問してください。
よろしくお願いします。

回答No.1

ka_na_de · ベストアンサー

マクロを使った一例です。
マクロはやり直しができないので、データバックアップの上で
試してみてください。

おそらく質問は単純化した例だと思いますので、
必要に応じて改良してください。
その際、うまくいかなければ補足してください。

Private Sub Worksheet_Change(ByVal Target As Range)
　On Error GoTo line
　If Selection.Count > 1 Then Exit Sub

　Application.ScreenUpdating = False
　If Target.Address = "$A$1" And Target.Value = "NO" Then
　　Range("A2").Value = "必要"
　　Range("A3").Value = "入力"
　End If
　Application.ScreenUpdating = True
　Exit Sub

line:
　Application.ScreenUpdating = True
　Resume Next
End Sub

＜使い方＞
１）下のシート名のタブの上で右クリック
２）「コードの表示」をクリック
３）左側のプロジェクトエクスプローラーで、
　　VBAProjectの中に複数のシートがあると思いますが、
　　今、自動入力したいシートをダブルクリック
　（プロジェクトエクスプローラーが表示されていなければ、
　　上部の「表示」メニューから選択表示できます。）
４）右側にコードを貼り付けます。
　　実行は、A1セルにNOを入力確定すれば自動的に行われます。

お礼

お礼までの時間がかかってしまいすいませんでした。
教えていただいたコードを参考に、自分のやりたい作業はできるようになりました。
ワークシートが変わることを監視する関数は他にも使えそうなので、今後も参考にしたいと思います。
ありがとうございました。

回答No.3

noname#79209

エクセルのワークシート関数群には、他のセルの値をどうにかするという機能はありません。
他のセルをどうにかするのはマクロでしょうが、
> ＊ただし、A2、A3には既に値が入力されており、
> 関数のIFは使えないと考えています。
といっておられるなら、マクロでも同じでしょう。
IF関数が使えないということは、A2、A3をいじりたくないのでしょう？
それと「列」と言っておられるのに、実際は「行」のようだし、
もう少し、表の構成の具体例をお書きいいただけないでしょうか。

回答No.2

imogasi

良い仕掛けは無いように思います。
（１）セルの値の上に、別の値を表示するのは、難しい
（２）セルのコメントに設定する方法
（３）ＩＦ文を加える
（４）ＶＢＡのイベント（コードを書き）利用
（５）コントロールを貼り付ける
（６）セルの書式利用
ＶＢＡなら下記の（６）がお勧め。
ーー
（３）状況がわからないが、
Ａ２に=IF(A1="ＮＯ","必要",現在の本来の式）
はどうですか。ダメな気もするが。
Ａ３も同じ=IF(A1="ＮＯ","入力",現在の本来の式）
（４）（５）
Ｓｈｅｅｔ１にテキストボックスを貼り付ける。
Ｓｈｅｅｔ１のＣｈａｎｇｅイベントに
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target = "NO" Then
Worksheets("Sheet1").TextBox1.Top = Worksheets("Sheet1").Range("A2").Top
Worksheets("Sheet1").TextBox1.Left = Worksheets("Sheet1").Range("A2").Left
Worksheets("Sheet1").TextBox1.Width = Worksheets("Sheet1").Range("A2").Width
Worksheets("Sheet1").TextBox1.Visible = True
Worksheets("Sheet1").TextBox1.Text = "必要"
Else
Worksheets("Sheet1").TextBox1.Visible = False
End If
End Sub
を貼り付ける。
Ａ１に「NO」と入れると
Ａ２にテキストで「必要」と出て、「NO」以外だとテキストボックスを見えなくする。
（６）は
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" And Target = "NO" Then
Worksheets("Sheet1").Range("A2").NumberFormat = "必要"
Else
Worksheets("Sheet1").Range("A2").NumberFormat = "#,###"
End If
End Sub
（２）コメントの場合も上記コードオ似たものになるでしょう。
表示位置はＡ２の真上ができたかどうか。略。