ＶＢＡの設定「２題」

質問

最初に取り組んだＥＸＣＥＬのＶＢＡですが、何人かの方にアドバイスを戴きましてやっと「まともな質問」ができる様になりました。やりたい事への完成アドバイスをお願いします。

「環境］MS Office2007（Windows10）
・ファイル名：ムービーリスト
・フィールド名：Ａ～Ｈ、Ａ列：ＮＯ「１からの連番で特に意味はない」、Ｂ列：タイトル名「約１３００ほど」、Ｃ列：製作国、Ｄ列：ジャンル「アクション・・・他」、Ｅ列：主演、Ｆ列：実話可否「対象を（実話）と記載」、Ｇ列：アカデミー可否「対象を（アカデミー賞）と記載」、Ｈ列：内容「映画の解説」
・該当シートにＶＢＡを設定したい。

１，前段階で選択した色を消したい。
理由：下記の構文では選択したセルの色は変わるが、前段階で色付けたセルの色は消えない為。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Target.Interior.ColorIndex = 6
　End Sub

２，下記構文に「１」の構文をコピペして追加すると「１」で設定した機能が動作しない。※「Generaｌ」→「Worksheet」、「Declaration」→「SelectionChange」の設定ができないのでコピペしました。
理由：「１」と「２」の機能を同時に動作させたい。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each sha In ActiveSheet.Shapes
If sha.Name = "MTxt" Then sha.Delete
Next

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 1270, 80.6).Select
Selection.Name = "MTxt"
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
"題名：" & Cells(Target.Row, 2).Value & Chr(13) & _
"内容：" & Chr(7) & Cells(Target.Row, 8).Value
Target.Select
End Sub

３,分からないこと
内容：下記の構文が記載されているとき、１の構文を追加したい時に「Generaｌ」→「Worksheet」、「Declaration」→「SelectionChange」が選択できないので、１の構文を貼り付けていますが、正しい方法なのでしょうか。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each sha In ActiveSheet.Shapes
If sha.Name = "MTxt" Then sha.Delete
Next

ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 1270, 80.6).Select
Selection.Name = "MTxt"
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = _
"題名：" & Cells(Target.Row, 2).Value & Chr(13) & _
"内容：" & Chr(7) & Cells(Target.Row, 8).Value
Target.Select
End Sub

以上ですが、宜しくお願いします。

回答No.1

watabe007 · ベストアンサー

>前段階で選択した色を消したい。
前回選択した記録を残せば良いでしょう
使っていないと思われるZ1セルに選択の記録を残しました。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　　Dim sha As Shape, strRow As Long
　　'どの項目を選択しても1列～8列に色付けしました。
　　Cells(Target.Row, 1).Resize(, 8).Interior.ColorIndex = 6
　　'前回選択の記録が有れば色付けを消します。
　　If Range("Z1").Value <> "" Then
　　　　strRow = Range("Z1").Value
　　　　Cells(strRow, 1).Resize(, 8).Interior.Pattern = xlNone
　　End If　
　　'Z1セルに今回の選択行を記録します。
　　Range("Z1").Value = Target.Row
　　For Each sha In ActiveSheet.Shapes
　　　　If sha.Name = "MTxt" Then sha.Delete　
　　Next
　　With ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 1270, 80.6)
　　　　.Name = "MTxt"
　　　　.TextFrame.Characters.Text = _
　　　　　　"題名：" & Cells(Target.Row, 2).Value & Chr(13) & _
　　　　　　"内容：" & Chr(7) & Cells(Target.Row, 8).Value
　　End With
End Sub

お礼

watabe007 レベル12様
アクティブ行の「色変更」とアクティブセルの「内容」が、同時に実現できることを初めて知りました。「感謝」とか「感激」の言葉でお礼を申し上げたい気持ちです。しかし、私自身を振り返ってみると、ＶＢＡ（Accessですが）の「複写」や「消去」の簡単なコマンドを手書きできるレベルであり、お教え頂いた構文を手直し「カスタマイズ」できる知識も力量はありません。親切（解説も付加）にアドバイス頂いているのに、レベルアップに繋げられず心苦しく思っています。今後、こうした機会（ＥＸＣＥＬに関する質問）を多く持つことで、少しでもレベルアップ（アドバイスに報いる）したいと考えています。ありがとうございました。